| 1 |
C $Header$ |
| 2 |
C $Name$ |
| 3 |
|
| 4 |
INTEGER lsmlon, lsmlat, nlevsoi |
| 5 |
PARAMETER(lsmlon=1,lsmlat=N_LAT,nlevsoi=10) |
| 6 |
COMMON/mit2din/ ps4clm, pcpl4clm, pcpc4clm, tpr4clm, |
| 7 |
& tsl4clm, qs4clm, ws4clm , us4clm, vs4clm, dsw4clm, |
| 8 |
& dlw4clm, pco24clm, swinr4clm, swvis4clm, dt2mland |
| 9 |
REAL*8 ps4clm (lsmlon,lsmlat) |
| 10 |
REAL*8 pcpl4clm (lsmlon,lsmlat) |
| 11 |
REAL*8 pcpc4clm (lsmlon,lsmlat) |
| 12 |
REAL*8 tpr4clm (lsmlon,lsmlat) |
| 13 |
REAL*8 tsl4clm (lsmlon,lsmlat) |
| 14 |
REAL*8 qs4clm (lsmlon,lsmlat) |
| 15 |
REAL*8 ws4clm (lsmlon,lsmlat) |
| 16 |
REAL*8 us4clm (lsmlon,lsmlat) |
| 17 |
REAL*8 vs4clm (lsmlon,lsmlat) |
| 18 |
REAL*8 dsw4clm (lsmlon,lsmlat) |
| 19 |
REAL*8 dlw4clm (lsmlon,lsmlat) |
| 20 |
REAL*8 pco24clm (lsmlon,lsmlat) |
| 21 |
REAL*8 swinr4clm (lsmlon,lsmlat) |
| 22 |
REAL*8 swvis4clm (lsmlon,lsmlat) |
| 23 |
REAL*8 dt2mland |
| 24 |
! |
| 25 |
! MIT 2D COMMON BLOCK |
| 26 |
! |
| 27 |
COMMON/clm4mit/ lhfclm, shfclm, tauxclm, tauyclm, |
| 28 |
& asdirclm, aldirclm, asdifclm, aldifclm, sroclm, |
| 29 |
& ssrclm, glrclm, vetclm, sevclm, cevclm, lwuclm, |
| 30 |
& tref2mclm, tflxclm, tgndclm, snwdclm, snwcclm, |
| 31 |
& tsoiclm, h2oiclm, h2olclm |
| 32 |
REAL*8 lhfclm(lsmlon,lsmlat) |
| 33 |
REAL*8 shfclm(lsmlon,lsmlat) |
| 34 |
REAL*8 tauxclm(lsmlon,lsmlat) |
| 35 |
REAL*8 tauyclm(lsmlon,lsmlat) |
| 36 |
REAL*8 asdirclm(lsmlon,lsmlat) |
| 37 |
REAL*8 aldirclm(lsmlon,lsmlat) |
| 38 |
REAL*8 asdifclm(lsmlon,lsmlat) |
| 39 |
REAL*8 aldifclm(lsmlon,lsmlat) |
| 40 |
REAL*8 sroclm(lsmlon,lsmlat) |
| 41 |
REAL*8 ssrclm(lsmlon,lsmlat) |
| 42 |
REAL*8 glrclm(lsmlon,lsmlat) |
| 43 |
REAL*8 vetclm(lsmlon,lsmlat) |
| 44 |
REAL*8 sevclm(lsmlon,lsmlat) |
| 45 |
REAL*8 cevclm(lsmlon,lsmlat) |
| 46 |
REAL*8 lwuclm(lsmlon,lsmlat) |
| 47 |
REAL*8 tref2mclm(lsmlon,lsmlat) |
| 48 |
REAL*8 tflxclm(lsmlon,lsmlat) |
| 49 |
REAL*8 tgndclm(lsmlon,lsmlat) |
| 50 |
REAL*8 snwdclm(lsmlon,lsmlat) |
| 51 |
REAL*8 snwcclm(lsmlon,lsmlat) |
| 52 |
REAL*8 tsoiclm(lsmlon,lsmlat,nlevsoi) |
| 53 |
REAL*8 h2oiclm(lsmlon,lsmlat,nlevsoi) |
| 54 |
REAL*8 h2olclm(lsmlon,lsmlat,nlevsoi) |
| 55 |
|
| 56 |
COMMON/clm4r95/ ncallclm |
| 57 |
INTEGER ncallclm |
| 58 |
|
| 59 |
COMMON/clmprtr/ PRTREND |
| 60 |
LOGICAL PRTREND |
| 61 |
|
| 62 |
! common/prratio/prlnd2total(lsmlat,12) |
Parent Directory
| 
Revision Log
| 
Revision Graph