parameter(lsmlon=1,lsmlat=N_LAT,nlevsoi=10)
      common/mit2din/ ps4clm (lsmlon,lsmlat),pcpl4clm (lsmlon,lsmlat),
     & pcpc4clm (lsmlon,lsmlat),tpr4clm (lsmlon,lsmlat),
     &  tsl4clm (lsmlon,lsmlat),
     &  qs4clm (lsmlon,lsmlat),ws4clm (lsmlon,lsmlat)
     & ,us4clm (lsmlon,lsmlat),vs4clm (lsmlon,lsmlat),
     &  dsw4clm (lsmlon,lsmlat),
     &  dlw4clm (lsmlon,lsmlat),pco24clm (lsmlon,lsmlat)
     &  ,swinr4clm (lsmlon,lsmlat),swvis4clm (lsmlon,lsmlat)

!
! MIT 2D COMMON BLOCK
!
      real lhfclm,lwuclm
      common/clm4mit/ lhfclm(lsmlon,lsmlat),
     &    shfclm(lsmlon,lsmlat),
     &    tauxclm(lsmlon,lsmlat),
     &    tauyclm(lsmlon,lsmlat),
     &    asdirclm(lsmlon,lsmlat),
     &    aldirclm(lsmlon,lsmlat),
     &    asdifclm(lsmlon,lsmlat),
     &    aldifclm(lsmlon,lsmlat),
     &    sroclm(lsmlon,lsmlat),
     &    ssrclm(lsmlon,lsmlat),
     &    glrclm(lsmlon,lsmlat),
     &    vetclm(lsmlon,lsmlat),
     &    sevclm(lsmlon,lsmlat),
     &    cevclm(lsmlon,lsmlat),
     &    lwuclm(lsmlon,lsmlat),
     &    tref2mclm(lsmlon,lsmlat),
     &    tflxclm(lsmlon,lsmlat),
     &    tgndclm(lsmlon,lsmlat),
     &    snwdclm(lsmlon,lsmlat),
     &    snwcclm(lsmlon,lsmlat),
     &    tsoiclm(lsmlon,lsmlat,nlevsoi),
     &    h2oiclm(lsmlon,lsmlat,nlevsoi),
     &    h2olclm(lsmlon,lsmlat,nlevsoi)

      common/clm4r95/ ncallclm
!     common/prratio/prlnd2total(lsmlat,12)