| 1 |
jscott |
1.1 |
parameter(lsmlon=1,lsmlat=N_LAT,nlevsoi=10) |
| 2 |
|
|
common/mit2din/ ps4clm (lsmlon,lsmlat),pcpl4clm (lsmlon,lsmlat), |
| 3 |
|
|
& pcpc4clm (lsmlon,lsmlat),tpr4clm (lsmlon,lsmlat), |
| 4 |
|
|
& tsl4clm (lsmlon,lsmlat), |
| 5 |
|
|
& qs4clm (lsmlon,lsmlat),ws4clm (lsmlon,lsmlat) |
| 6 |
|
|
& ,us4clm (lsmlon,lsmlat),vs4clm (lsmlon,lsmlat), |
| 7 |
|
|
& dsw4clm (lsmlon,lsmlat), |
| 8 |
|
|
& dlw4clm (lsmlon,lsmlat),pco24clm (lsmlon,lsmlat) |
| 9 |
|
|
& ,swinr4clm (lsmlon,lsmlat),swvis4clm (lsmlon,lsmlat) |
| 10 |
|
|
& ,dt2mland |
| 11 |
|
|
|
| 12 |
|
|
! |
| 13 |
|
|
! MIT 2D COMMON BLOCK |
| 14 |
|
|
! |
| 15 |
|
|
real lhfclm,lwuclm |
| 16 |
|
|
common/clm4mit/ lhfclm(lsmlon,lsmlat), |
| 17 |
|
|
& shfclm(lsmlon,lsmlat), |
| 18 |
|
|
& tauxclm(lsmlon,lsmlat), |
| 19 |
|
|
& tauyclm(lsmlon,lsmlat), |
| 20 |
|
|
& asdirclm(lsmlon,lsmlat), |
| 21 |
|
|
& aldirclm(lsmlon,lsmlat), |
| 22 |
|
|
& asdifclm(lsmlon,lsmlat), |
| 23 |
|
|
& aldifclm(lsmlon,lsmlat), |
| 24 |
|
|
& sroclm(lsmlon,lsmlat), |
| 25 |
|
|
& ssrclm(lsmlon,lsmlat), |
| 26 |
|
|
& glrclm(lsmlon,lsmlat), |
| 27 |
|
|
& vetclm(lsmlon,lsmlat), |
| 28 |
|
|
& sevclm(lsmlon,lsmlat), |
| 29 |
|
|
& cevclm(lsmlon,lsmlat), |
| 30 |
|
|
& lwuclm(lsmlon,lsmlat), |
| 31 |
|
|
& tref2mclm(lsmlon,lsmlat), |
| 32 |
|
|
& tflxclm(lsmlon,lsmlat), |
| 33 |
|
|
& tgndclm(lsmlon,lsmlat), |
| 34 |
|
|
& snwdclm(lsmlon,lsmlat), |
| 35 |
|
|
& snwcclm(lsmlon,lsmlat), |
| 36 |
|
|
& tsoiclm(lsmlon,lsmlat,nlevsoi), |
| 37 |
|
|
& h2oiclm(lsmlon,lsmlat,nlevsoi), |
| 38 |
|
|
& h2olclm(lsmlon,lsmlat,nlevsoi) |
| 39 |
|
|
|
| 40 |
|
|
common/clm4r95/ ncallclm |
| 41 |
|
|
! common/prratio/prlnd2total(lsmlat,12) |