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

Diff of /MITgcm_contrib/jscott/igsm/inc/CLM.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, Wed Sep 2 15:58:09 2009 UTC
# Line 1  Line 1 
1        parameter(lsmlon=1,lsmlat=N_LAT,nlevsoi=10)  C $Header$
2        common/mit2din/ ps4clm (lsmlon,lsmlat),pcpl4clm (lsmlon,lsmlat),  C $Name$
      & pcpc4clm (lsmlon,lsmlat),tpr4clm (lsmlon,lsmlat),  
      &  tsl4clm (lsmlon,lsmlat),  
      &  qs4clm (lsmlon,lsmlat),ws4clm (lsmlon,lsmlat)  
      & ,us4clm (lsmlon,lsmlat),vs4clm (lsmlon,lsmlat),  
      &  dsw4clm (lsmlon,lsmlat),  
      &  dlw4clm (lsmlon,lsmlat),pco24clm (lsmlon,lsmlat)  
      &  ,swinr4clm (lsmlon,lsmlat),swvis4clm (lsmlon,lsmlat)  
      &  ,dt2mland  
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  ! MIT 2D COMMON BLOCK
26  !  !
27        real lhfclm,lwuclm        COMMON/clm4mit/ lhfclm, shfclm, tauxclm, tauyclm,
28        common/clm4mit/ lhfclm(lsmlon,lsmlat),       &    asdirclm, aldirclm, asdifclm, aldifclm, sroclm,
29       &    shfclm(lsmlon,lsmlat),       &    ssrclm, glrclm, vetclm, sevclm, cevclm, lwuclm,
30       &    tauxclm(lsmlon,lsmlat),       &    tref2mclm, tflxclm, tgndclm, snwdclm, snwcclm,
31       &    tauyclm(lsmlon,lsmlat),       &    tsoiclm, h2oiclm, h2olclm
32       &    asdirclm(lsmlon,lsmlat),        REAL*8 lhfclm(lsmlon,lsmlat)
33       &    aldirclm(lsmlon,lsmlat),        REAL*8 shfclm(lsmlon,lsmlat)
34       &    asdifclm(lsmlon,lsmlat),        REAL*8 tauxclm(lsmlon,lsmlat)
35       &    aldifclm(lsmlon,lsmlat),        REAL*8 tauyclm(lsmlon,lsmlat)
36       &    sroclm(lsmlon,lsmlat),        REAL*8 asdirclm(lsmlon,lsmlat)
37       &    ssrclm(lsmlon,lsmlat),        REAL*8 aldirclm(lsmlon,lsmlat)
38       &    glrclm(lsmlon,lsmlat),        REAL*8 asdifclm(lsmlon,lsmlat)
39       &    vetclm(lsmlon,lsmlat),        REAL*8 aldifclm(lsmlon,lsmlat)
40       &    sevclm(lsmlon,lsmlat),        REAL*8 sroclm(lsmlon,lsmlat)
41       &    cevclm(lsmlon,lsmlat),        REAL*8 ssrclm(lsmlon,lsmlat)
42       &    lwuclm(lsmlon,lsmlat),        REAL*8 glrclm(lsmlon,lsmlat)
43       &    tref2mclm(lsmlon,lsmlat),        REAL*8 vetclm(lsmlon,lsmlat)
44       &    tflxclm(lsmlon,lsmlat),        REAL*8 sevclm(lsmlon,lsmlat)
45       &    tgndclm(lsmlon,lsmlat),        REAL*8 cevclm(lsmlon,lsmlat)
46       &    snwdclm(lsmlon,lsmlat),        REAL*8 lwuclm(lsmlon,lsmlat)
47       &    snwcclm(lsmlon,lsmlat),        REAL*8 tref2mclm(lsmlon,lsmlat)
48       &    tsoiclm(lsmlon,lsmlat,nlevsoi),        REAL*8 tflxclm(lsmlon,lsmlat)
49       &    h2oiclm(lsmlon,lsmlat,nlevsoi),        REAL*8 tgndclm(lsmlon,lsmlat)
50       &    h2olclm(lsmlon,lsmlat,nlevsoi)        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        COMMON/clm4r95/ ncallclm
57          INTEGER  ncallclm
58    
59          COMMON/clmprtr/ PRTREND
60          LOGICAL  PRTREND
61    
62  !     common/prratio/prlnd2total(lsmlat,12)  !     common/prratio/prlnd2total(lsmlat,12)
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22