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) |