pkg/aim/com_forcon.h

C $Header: /u/gcmpack/MITgcm/pkg/aim/com_forcon.h,v 1.4 2002/09/27 20:01:57 jmc Exp $
C $Name:  $
C $Namer: $

#ifdef ALLOW_AIM

C--   COMMON /FORCON/: Constants for forcing fields (initial. in INPHYS)
C      SOLC   = Solar constant (area averaged) in W/m^2
C      ALBSEA = Albedo over sea 
C      ALBICE = Albedo over sea ice (for ice fraction = 1)
C      ALBSN  = Albedo over snow (for snow depth > SDALB)
C      SDALB  = Snow depth corresponding to maximum albedo
C      SWCAP  = Soil wetness capacity
C      SWWIL  = Soil wetness at wilting point

      COMMON /FORCON/ SOLC, ALBSEA, ALBICE, ALBSN, SDALB,
     &                SWCAP, SWWIl
      _RL SOLC, ALBSEA, ALBICE, ALBSN, SDALB, SWCAP, SWWIl

C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
#endif /* ALLOW_AIM */ 
1	cnh	1.5	C $Header: /u/gcmpack/MITgcm/pkg/aim/com_forcon.h,v 1.4 2002/09/27 20:01:57 jmc Exp $
2	jmc	1.4	C $Name: $
3	adcroft	1.2	C $Namer: $
4
5	jmc	1.4	#ifdef ALLOW_AIM
6
7			C-- COMMON /FORCON/: Constants for forcing fields (initial. in INPHYS)
8			C SOLC = Solar constant (area averaged) in W/m^2
9			C ALBSEA = Albedo over sea
10			C ALBICE = Albedo over sea ice (for ice fraction = 1)
11			C ALBSN = Albedo over snow (for snow depth > SDALB)
12			C SDALB = Snow depth corresponding to maximum albedo
13			C SWCAP = Soil wetness capacity
14			C SWWIL = Soil wetness at wilting point
15	adcroft	1.2
16			COMMON /FORCON/ SOLC, ALBSEA, ALBICE, ALBSN, SDALB,
17			& SWCAP, SWWIl
18	jmc	1.4	_RL SOLC, ALBSEA, ALBICE, ALBSN, SDALB, SWCAP, SWWIl
19
20			C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-\|--+----\|
21			#endif /* ALLOW_AIM */