/[MITgcm]/MITgcm/pkg/aim_v23/com_forcing.h
ViewVC logotype

Diff of /MITgcm/pkg/aim_v23/com_forcing.h

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

revision 1.4 by jmc, Thu Jun 24 23:41:12 2004 UTC revision 1.5 by jmc, Thu Jan 21 00:10:04 2010 UTC
# Line 3  C $Name$ Line 3  C $Name$
3    
4  #ifdef ALLOW_AIM  #ifdef ALLOW_AIM
5    
6    C-- Note: Variables which do not need to stay in common block (local var)
7    C         are declare locally in each S/R that use them (commented with "cL");
8    C         Some variables are not needed at all (commented with single "c").
9    
10  C--   COMMON /LSMASK/ land-sea masks (initial. in INFORC)  C--   COMMON /LSMASK/ land-sea masks (initial. in INFORC)
11  C     fmask1 - fractional land / sea / sea-ice mask  C     fmask1 - fractional land / sea / sea-ice mask
12  C     1:land fraction ; 2:ice-free ocean ; 3:sea-ice frac.; (1)+(2)+(3)=1.  C     1:land fraction ; 2:ice-free ocean ; 3:sea-ice frac.; (1)+(2)+(3)=1.
# Line 13  c     _RL fmask0(NGP,MAX_NO_THREADS) Line 17  c     _RL fmask0(NGP,MAX_NO_THREADS)
17  c     _RL fmasko1(NGP,MAX_NO_THREADS)  c     _RL fmasko1(NGP,MAX_NO_THREADS)
18  c     _RL fmaskl1(NGP,MAX_NO_THREADS)  c     _RL fmaskl1(NGP,MAX_NO_THREADS)
19    
20  C--   COMMON /FORFIX/ Time invariant forcing fields  C--   COMMON /FORFIX/ Time invariant forcing fields
21  C              (initial. in INFORC, except for phis0 initial. in INVARS)  C              (initial. in INFORC, except for phis0 initial. in INVARS)
22  C     phi0   - surface geopotential  C     phi0   - surface geopotential
23  C     phis0  - ?  C     phis0  - ?
24  C     alb0   - land-surface albedo  C     alb0   - land-surface albedo
25  c_FM  COMMON /FORFIX/ phi0, phis0, alb0  c_FM  COMMON /FORFIX/ phi0, phis0, alb0
26        _RL phi0   (NGP)  cL    _RL phi0   (NGP)
27  c     _RL phis0  (NGP)  c     _RL phis0  (NGP)
28  c     _RL alb0   (NGP,MAX_NO_THREADS)  c     _RL alb0   (NGP,MAX_NO_THREADS)
29    
# Line 42  C     dTsurf - surface temperature chang Line 46  C     dTsurf - surface temperature chang
46  c     COMMON /FORDAY/ sst1, oice1, stl1, snow1, soilw1, alb1  c     COMMON /FORDAY/ sst1, oice1, stl1, snow1, soilw1, alb1
47        COMMON /FORDAY/ sst1, sti1, stl1, soilw1, alb1, dTsurf        COMMON /FORDAY/ sst1, sti1, stl1, soilw1, alb1, dTsurf
48        _RL sst1   (NGP,MAX_NO_THREADS)        _RL sst1   (NGP,MAX_NO_THREADS)
49  c     _RL oice1  (NGP,MAX_NO_THREADS)  cL    _RL oice1  (NGP,MAX_NO_THREADS)
50        _RL sti1   (NGP,MAX_NO_THREADS)        _RL sti1   (NGP,MAX_NO_THREADS)
51        _RL stl1   (NGP,MAX_NO_THREADS)        _RL stl1   (NGP,MAX_NO_THREADS)
52  c     _RL snow1  (NGP,MAX_NO_THREADS)  cL    _RL snow1  (NGP,MAX_NO_THREADS)
53        _RL soilw1 (NGP,MAX_NO_THREADS)        _RL soilw1 (NGP,MAX_NO_THREADS)
54        _RL alb1   (NGP,0:3,MAX_NO_THREADS)        _RL alb1   (NGP,0:3,MAX_NO_THREADS)
55        _RL dTsurf (NGP,3,MAX_NO_THREADS)        _RL dTsurf (NGP,3,MAX_NO_THREADS)
       _RL oice1(NGP), snow1(NGP)  
56    
57  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
58  #endif /* ALLOW_AIM */  #endif /* ALLOW_AIM */
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22