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