| 1 |
c These two common block are use to pass data from climate model to |
| 2 |
C TEM and back |
| 3 |
INTEGER no3, ndperm, ncoh, nhor, mnlay, mnlay1 |
| 4 |
PARAMETER (no3=8,ndperm=31,ncoh=35,nhor=24,mnlay=6,mnlay1=10) |
| 5 |
|
| 6 |
c common/anntcu/TEMUPTANN |
| 7 |
|
| 8 |
COMMON/climate4tem/ co24tem, o34tem, temp4tem, dtem4tem, sws4tem, |
| 9 |
& pre4tem, strmdur, qstrm, aet, sh2o1m, sh2o2m, swe, sfr, drn, |
| 10 |
& daytsoil, daysho, rsh2o |
| 11 |
! & ,istorms(ndperm,jm0), |
| 12 |
! & istrmdry(ndperm,jm0) |
| 13 |
REAL*8 co24tem(jm0) |
| 14 |
REAL*8 o34tem(no3,jm0) |
| 15 |
REAL*8 temp4tem(jm0) |
| 16 |
REAL*8 dtem4tem(ndperm,jm0) |
| 17 |
REAL*8 sws4tem(jm0) |
| 18 |
REAL*8 pre4tem(jm0) |
| 19 |
REAL*8 strmdur(ndperm,jm0) |
| 20 |
REAL*8 qstrm(ndperm,jm0) |
| 21 |
REAL*8 aet(ncoh,jm0) |
| 22 |
REAL*8 sh2o1m(ncoh,jm0) |
| 23 |
REAL*8 sh2o2m(ncoh,jm0) |
| 24 |
REAL*8 swe(ncoh,jm0) |
| 25 |
REAL*8 sfr(ncoh,jm0) |
| 26 |
REAL*8 drn(ncoh,jm0) |
| 27 |
REAL*8 daytsoil(ndperm,ncoh,jm0,mnlay1) |
| 28 |
REAL*8 daysho(ndperm,ncoh,jm0,mnlay1) |
| 29 |
REAL*8 rsh2o(nhor,ndperm,ncoh,jm0,mnlay) |
| 30 |
|
| 31 |
|
| 32 |
COMMON/upt4chem/ temco2, temch4, temn2o |
| 33 |
REAL*8 temco2(jm0) |
| 34 |
REAL*8 temch4(jm0) |
| 35 |
REAL*8 temn2o(jm0) |
| 36 |
|
| 37 |
COMMON/temtake/ adupt, antemnep, temnep |
| 38 |
REAL*8 adupt |
| 39 |
REAL*8 antemnep(jm0) |
| 40 |
REAL*8 temnep(12,jm0) |
| 41 |
|
| 42 |
C real nepan,nepav,n2oann |
| 43 |
|
| 44 |
COMMON/ozon4tem/ obso3, o3datadir, CLIMO3 |
| 45 |
REAL*8 obso3(no3,jm0,12) |
| 46 |
CHARACTER*120 o3datadir |
| 47 |
LOGICAL CLIMO3 |
| 48 |
C |
Parent Directory
| 
Revision Log
| 
Revision Graph