/[MITgcm]/MITgcm/pkg/aim/com_forcing1.h
ViewVC logotype

Diff of /MITgcm/pkg/aim/com_forcing1.h

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

revision 1.4 by cnh, Tue May 29 19:28:53 2001 UTC revision 1.5 by jmc, Fri Sep 27 20:01:57 2002 UTC
# Line 2  C $Header$ Line 2  C $Header$
2  C $Name$  C $Name$
3  C $Namer: $  C $Namer: $
4    
5  C--   /LSMASK/ land-sea masks  #ifdef ALLOW_AIM
       common /LSMASK/ fmask1(ngp,MAX_NO_THREADS) ! fractional land-sea mask  
6    
7  C--   /FORFIX/ Time invariant forcing fields  C--   COMMON /LSMASK/ land-sea masks
8        common /FORFIX/ phi0(ngp,MAX_NO_THREADS),  ! surface geopotential  C     fmask1 - fractional land-sea mask
9       .                alb0(ngp,MAX_NO_THREADS)   ! land-surface albedo        COMMON /LSMASK/ fmask1
10          _RL fmask1(ngp,MAX_NO_THREADS)
11    
12  C--   /FORCIN/ Forcing fields  C--   COMMON /FORFIX/ Time invariant forcing fields
13        common /FORCIN/ sst1(ngp,MAX_NO_THREADS),  ! SST  C     phi0   - surface geopotential
14       .                oice1(ngp,MAX_NO_THREADS), ! sea ice fraction  C     alb0   - land-surface albedo
15       .                stl1(ngp,MAX_NO_THREADS),  ! land-surface temperature        COMMON /FORFIX/ phi0, alb0
16       .                snow1(ngp,MAX_NO_THREADS), ! snow depth (mm water)        _RL phi0   (ngp,MAX_NO_THREADS)
17       .                soilq1(ngp,MAX_NO_THREADS) ! soil wetness (mm water)        _RL alb0   (ngp,MAX_NO_THREADS)
18    
19    C--   COMMON /FORCIN/ Forcing fields
20    C     sst1   - SST
21    C     oice1  - sea ice fraction
22    C     stl1   - land-surface temperature
23    C     snow1  - snow depth (mm water)
24    C     soilq1 - soil wetness (mm water)
25          COMMON /FORCIN/ sst1, oice1, stl1, snow1, soilq1
26          _RL sst1   (ngp,MAX_NO_THREADS)
27          _RL oice1  (ngp,MAX_NO_THREADS)
28          _RL stl1   (ngp,MAX_NO_THREADS)
29          _RL snow1  (ngp,MAX_NO_THREADS)
30          _RL soilq1 (ngp,MAX_NO_THREADS)
31    
32    C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
33    #endif /* ALLOW_AIM */
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22