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)