pkg/aim_v23/com_forcing.h

C $Header:  $
C $Name:  $
C $Namer: $

#ifdef ALLOW_AIM

C--   COMMON /LSMASK/ land-sea masks (initial. in INFORC)
C     fmask1 - fractional land-sea mask
c_FM  COMMON /LSMASK/ fmask1, fmask0, fmasko1, fmaskl1
      COMMON /LSMASK/ fmask1
      _RL fmask1(NGP,MAX_NO_THREADS)
c     _RL fmask0(NGP,MAX_NO_THREADS)
c     _RL fmasko1(NGP,MAX_NO_THREADS)
c     _RL fmaskl1(NGP,MAX_NO_THREADS)

C--   COMMON /FORFIX/ Time invariant forcing fields 
C              (initial. in INFORC, except for phis0 initial. in INVARS)
C     phi0   - surface geopotential
C     phis0  - ?
C     alb0   - land-surface albedo
c_FM  COMMON /FORFIX/ phi0, phis0, alb0
      _RL phi0   (NGP)
c     _RL phis0  (NGP)
c     _RL alb0   (NGP,MAX_NO_THREADS)

C--   COMMON /FORMON/ Monthly-mean forcing fields (initial. in INFORC)
c     common /FORMON/ sst12(ix,il,12),
c    &                oice12(ix,il,12),
c    &                stl12(ix,il,12),
c    &                snow12(ix,il,12),
c    &                soilw12(ix,il,12)

C--   COMMON /FORDAY/ Daily forcing fields (updated in FORDATE)
C     sst1   - SST
C     oice1  - sea ice fraction
C     stl1   - land-surface temperature
C     snow1  - snow depth (mm water)
C     soilw1 - soil wetness (mm water)
C     alb1   - land-surface albedo
      COMMON /FORDAY/ sst1, oice1, stl1, snow1, soilw1, alb1
      _RL sst1   (NGP,MAX_NO_THREADS)
      _RL oice1  (NGP,MAX_NO_THREADS)
      _RL stl1   (NGP,MAX_NO_THREADS)
      _RL snow1  (NGP,MAX_NO_THREADS)
      _RL soilw1 (NGP,MAX_NO_THREADS)
      _RL alb1   (NGP,MAX_NO_THREADS)

C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
#endif /* ALLOW_AIM */ 
1	jmc	1.1	C $Header: $
2			C $Name: $
3			C $Namer: $
4
5			#ifdef ALLOW_AIM
6
7			C-- COMMON /LSMASK/ land-sea masks (initial. in INFORC)
8			C fmask1 - fractional land-sea mask
9			c_FM COMMON /LSMASK/ fmask1, fmask0, fmasko1, fmaskl1
10			COMMON /LSMASK/ fmask1
11			_RL fmask1(NGP,MAX_NO_THREADS)
12			c _RL fmask0(NGP,MAX_NO_THREADS)
13			c _RL fmasko1(NGP,MAX_NO_THREADS)
14			c _RL fmaskl1(NGP,MAX_NO_THREADS)
15
16			C-- COMMON /FORFIX/ Time invariant forcing fields
17			C (initial. in INFORC, except for phis0 initial. in INVARS)
18			C phi0 - surface geopotential
19			C phis0 - ?
20			C alb0 - land-surface albedo
21			c_FM COMMON /FORFIX/ phi0, phis0, alb0
22			_RL phi0 (NGP)
23			c _RL phis0 (NGP)
24			c _RL alb0 (NGP,MAX_NO_THREADS)
25
26			C-- COMMON /FORMON/ Monthly-mean forcing fields (initial. in INFORC)
27			c common /FORMON/ sst12(ix,il,12),
28			c & oice12(ix,il,12),
29			c & stl12(ix,il,12),
30			c & snow12(ix,il,12),
31			c & soilw12(ix,il,12)
32
33			C-- COMMON /FORDAY/ Daily forcing fields (updated in FORDATE)
34			C sst1 - SST
35			C oice1 - sea ice fraction
36			C stl1 - land-surface temperature
37			C snow1 - snow depth (mm water)
38			C soilw1 - soil wetness (mm water)
39			C alb1 - land-surface albedo
40			COMMON /FORDAY/ sst1, oice1, stl1, snow1, soilw1, alb1
41			_RL sst1 (NGP,MAX_NO_THREADS)
42			_RL oice1 (NGP,MAX_NO_THREADS)
43			_RL stl1 (NGP,MAX_NO_THREADS)
44			_RL snow1 (NGP,MAX_NO_THREADS)
45			_RL soilw1 (NGP,MAX_NO_THREADS)
46			_RL alb1 (NGP,MAX_NO_THREADS)
47
48			C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-\|--+----\|
49			#endif /* ALLOW_AIM */