pkg/aim/com_radcon.h

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

#ifdef ALLOW_AIM

C--   COMMON /RADCON/: Radiation constants (initial. in INPHYS)
C      ABSSW  = shortwave absorptivity for dry air (per dp = 10^5 Pa)
C      ABSLW  =  longwave absorptivity for dry air (per dp = 10^5 Pa)
C      ABWSW  = shortwave absorptivity for water vapour (per dq = 1 g/kg)
C      ABWLW  =  longwave absorptivity for water vapour (per dq = 1 g/kg)
C      ABCSW  = shortwave absorptivity for cloud fraction
C      ABCLW  =  longwave absorptivity for cloud fraction
C      EPSSW  = fraction of incoming solar radiation absorbed by ozone
C      EPSLW  = fraction of surface LW radiation emitted directly to space
C      ALBCL  = cloud albedo (for cloud cover = 1)
C      RHCL1  = relative hum. corresponding to cloud cover = 0
C      RHCL2  = relative hum. corresponding to cloud cover = 1
C      QACL   = specific hum. threshold for cloud cover
      COMMON /RADCON/ ABSSW, ABSLW, ABWSW, ABWLW,
     &                ABCSW, ABCLW, EPSSW, EPSLW, 
     &                ALBCL, RHCL1, RHCL2, QACL
      _RL ABSSW, ABSLW, ABWSW, ABWLW
      _RL ABCSW, ABCLW, EPSSW, EPSLW 
      _RL ALBCL, RHCL1, RHCL2, QACL

C--   COMMON /FLDRAD/: Transmissivity and blackbody radiation (workspace)
C      TAU    = transmissivity of atmospheric layers
C      ST4A   = blackbody emission from full and half atmospheric levels 
      COMMON /RADFLD/ TAUORIG, ST4AORIG
      _RL TAUORIG (NGP,NLEV)
      _RL ST4AORIG(NGP,NLEV,2)

C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
#endif /* ALLOW_AIM */ 
1	C $Header: /u/gcmpack/MITgcm/pkg/aim/com_radcon.h,v 1.4 2002/09/27 20:01:57 jmc Exp $
2	C $Name: $
3
4	#ifdef ALLOW_AIM
5
6	C-- COMMON /RADCON/: Radiation constants (initial. in INPHYS)
7	C ABSSW = shortwave absorptivity for dry air (per dp = 10^5 Pa)
8	C ABSLW = longwave absorptivity for dry air (per dp = 10^5 Pa)
9	C ABWSW = shortwave absorptivity for water vapour (per dq = 1 g/kg)
10	C ABWLW = longwave absorptivity for water vapour (per dq = 1 g/kg)
11	C ABCSW = shortwave absorptivity for cloud fraction
12	C ABCLW = longwave absorptivity for cloud fraction
13	C EPSSW = fraction of incoming solar radiation absorbed by ozone
14	C EPSLW = fraction of surface LW radiation emitted directly to space
15	C ALBCL = cloud albedo (for cloud cover = 1)
16	C RHCL1 = relative hum. corresponding to cloud cover = 0
17	C RHCL2 = relative hum. corresponding to cloud cover = 1
18	C QACL = specific hum. threshold for cloud cover
19	COMMON /RADCON/ ABSSW, ABSLW, ABWSW, ABWLW,
20	& ABCSW, ABCLW, EPSSW, EPSLW,
21	& ALBCL, RHCL1, RHCL2, QACL
22	_RL ABSSW, ABSLW, ABWSW, ABWLW
23	_RL ABCSW, ABCLW, EPSSW, EPSLW
24	_RL ALBCL, RHCL1, RHCL2, QACL
25
26	C-- COMMON /FLDRAD/: Transmissivity and blackbody radiation (workspace)
27	C TAU = transmissivity of atmospheric layers
28	C ST4A = blackbody emission from full and half atmospheric levels
29	COMMON /RADFLD/ TAUORIG, ST4AORIG
30	_RL TAUORIG (NGP,NLEV)
31	_RL ST4AORIG(NGP,NLEV,2)
32
33	C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-\|--+----\|
34	#endif /* ALLOW_AIM */