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

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

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

revision 1.3 by cnh, Tue May 29 19:28:53 2001 UTC revision 1.4 by jmc, Fri Sep 27 20:01:57 2002 UTC
# Line 1  Line 1 
1  C $Header$  C $Header$
2  C $Name$  C $Name$
3    
4  C--  #ifdef ALLOW_AIM
 C--   /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  
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,        COMMON /RADCON/ ABSSW, ABSLW, ABWSW, ABWLW,
20       *                ABCSW, ABCLW, EPSSW, EPSLW,       &                ABCSW, ABCLW, EPSSW, EPSLW,
21       *                ALBCL, RHCL1, RHCL2, QACL       &                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--  C--   COMMON /FLDRAD/: Transmissivity and blackbody radiation (workspace)
27  C--   /FLDRAD/: Transmissivity and blackbody radiation (workspace)  C      TAU    = transmissivity of atmospheric layers
28  C--    TAU    = transmissivity of atmospheric layers  C      ST4A   = blackbody emission from full and half atmospheric levels
29  C--    ST4A   = blackbody emission from full and half atmospheric levels        COMMON /RADFLD/ TAUORIG, ST4AORIG
30          _RL TAUORIG (NGP,NLEV)
31          _RL ST4AORIG(NGP,NLEV,2)
32    
33        COMMON /RADFLD/ TAUORIG(NGP,NLEV),ST4AORIG(NGP,NLEV,2)  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
34    #endif /* ALLOW_AIM */
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22