c***********************************************************************
c***********************************************************************
c*
c* this common blocks file contains all the variables that need to
c* be passed between the different subroutines
c*
c***********************************************************************
parameter (izm=107, iwm=50)
common /pr1/ aa(0:izm), bb(0:izm), cc(0:izm), c(0:izm), ch(0:izm),
+ ck(0:izm), cv(0:izm), ht(0:izm), p(0:izm), qme(0:izm), r(0:izm),
+ rdist(0:izm), rkd(0:izm), rx(0:izm), t(0:izm), tdif(0:izm),
+ th(0:izm), thj(0:izm), thr(0:izm), udl(0:izm), y(0:izm),
+ v(0:izm), z(0:izm), pm(5), tm(2), wm(2), oft(3), ofp(11),
+ at(0:izm), bc(0:izm), rdn(0:izm), rex(0:izm), rnt(0:izm),
+ rob(0:izm), sc(0:izm), ths(0:izm), vm(0:izm), vn(0:izm),
+ thp(0:izm), dk(0:izm), wv(0:izm)
common /pr2/ cl, cn, disp, dt, dz, dzl, dzp, fcu, pl,
+ pmax, qk, ql, qm, qu, res, sev, wilt, wfin, winit, wk1, wk2,
+ zl, dzg, tdg, dtt, tl, ztl, prk, a1, a2, qp, dtmin, zr, zrp,
+ zrj, qup, qe, resp, qn, qnp, qin, qinp, qlp, srxp
common /pr4/ lt, nm1, n, np1, inewt, maxit
common /ts1/ crain(0:iwm), crdaly(-4:iwm), csno3(0:iwm),
+ et(0:iwm), fam(0:iwm), fav(0:iwm), pet(0:iwm),
+ runof(0:iwm), tappn(0:iwm), tempmn(0:iwm), tempmx(0:iwm),
+ xinfl(0:iwm)
common /ts2/ accevp, accpln, ampd, aplr, avpd, blt, cav, cavl,
+ cev, cev1, csin, csinl, csls, cslr, csom, cson, csonl, dnitr1,
+ dnitrf, fci, gwn, gwn1, gwn2, gwnh4, gwno3, gww1, gww2,
+ percen, pln, pln1, plnh4, plnh41, plno3, plno31, plnw, plnw1,
+ qlnh4, qlno3, rad, sumcn, sumtns, sumyn, tave, tavek,
+ time, timnw, tinf, tmax, tmaxf, tmin, tminf, tnfin, tninit,
+ twrite, xkt, myr, mdoy, cslo
common /ts3/ kdoy(0:iwm), kyer(0:iwm)
common /ts4/ imm, idd, iyr, kday, klm, kyr, lqtr, nday, napp
logical qtr, rday, vd
common /lo1/ qtr, rday, vd(0:izm)