/[MITgcm]/MITgcm_contrib/jscott/igsm/inc/TEM.h
ViewVC logotype

Diff of /MITgcm_contrib/jscott/igsm/inc/TEM.h

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.1 by jscott, Mon Apr 23 21:44:35 2007 UTC revision 1.2 by jscott, Thu Oct 4 20:42:41 2007 UTC
# Line 1  Line 1 
1  c   These two common block are use to pass data from climate model to  c   These two common block are use to pass data from climate model to
2  C        TEM and back  C        TEM and back
3        parameter (no3=8,ndperm=31,ncoh=35,nhor=24,mnlay=6,mnlay1=10)        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  c     common/anntcu/TEMUPTANN
7        common/climate4tem/co24tem(jm0),  
8       &            o34tem(no3,jm0),        COMMON/climate4tem/ co24tem, o34tem, temp4tem, dtem4tem, sws4tem,
9       &            temp4tem(jm0),       &   pre4tem, strmdur, qstrm, aet, sh2o1m, sh2o2m, swe, sfr, drn,
10       &            dtem4tem(ndperm,jm0),       &   daytsoil, daysho, rsh2o
      &            sws4tem(jm0),  
      &            pre4tem(jm0),  
      &            strmdur(ndperm,jm0),  
      &            qstrm(ndperm,jm0),  
      &            aet(ncoh,jm0),  
      &            sh2o1m(ncoh,jm0),  
      &            sh2o2m(ncoh,jm0),  
      &            swe(ncoh,jm0),  
      &            sfr(ncoh,jm0),  
      &            drn(ncoh,jm0),  
      &            daytsoil(ndperm,ncoh,jm0,mnlay1),  
      &            daysho(ndperm,ncoh,jm0,mnlay1),  
      &            rsh2o(nhor,ndperm,ncoh,jm0,mnlay)  
11  !    &           ,istorms(ndperm,jm0),  !    &           ,istorms(ndperm,jm0),
12  !    &            istrmdry(ndperm,jm0)  !    &            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/upt4chem/temco2(jm0),        COMMON/ozon4tem/ obso3, o3datadir, CLIMO3
45       &            temch4(jm0),        REAL*8 obso3(no3,jm0,12)
46       &            temn2o(jm0)        CHARACTER*120 o3datadir
47        common/temtake/adupt,antemnep(jm0),temnep(12,jm0)        LOGICAL CLIMO3
       real  nepan,nepav,n2oann  
       common/ozon4tem/ obso3(no3,jm0,12),o3datadir,CLIMO3  
       logical CLIMO3  
48  C  C
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22