1 |
C $Header: /u/gcmpack/models/MITgcmUV/pkg/aim/Attic/com_radcon.h,v 1.1.2.2 2001/01/26 17:54:25 adcroft Exp $ |
2 |
C $Name: branch-atmos-merge-freeze $ |
3 |
|
4 |
C-- |
5 |
C-- /RADCON/: Radiation constants (initial. in INPHYS) |
6 |
C-- ABSSW = shortwave absorptivity for dry air (per dp = 10^5 Pa) |
7 |
C-- ABSLW = longwave absorptivity for dry air (per dp = 10^5 Pa) |
8 |
C-- ABWSW = shortwave absorptivity for water vapour (per dq = 1 g/kg) |
9 |
C-- ABWLW = longwave absorptivity for water vapour (per dq = 1 g/kg) |
10 |
C-- ABCSW = shortwave absorptivity for cloud fraction |
11 |
C-- ABCLW = longwave absorptivity for cloud fraction |
12 |
C-- EPSSW = fraction of incoming solar radiation absorbed by ozone |
13 |
C-- EPSLW = fraction of surface LW radiation emitted directly to space |
14 |
C-- ALBCL = cloud albedo (for cloud cover = 1) |
15 |
C-- RHCL1 = relative hum. corresponding to cloud cover = 0 |
16 |
C-- RHCL2 = relative hum. corresponding to cloud cover = 1 |
17 |
C-- QACL = specific hum. threshold for cloud cover |
18 |
|
19 |
COMMON /RADCON/ ABSSW, ABSLW, ABWSW, ABWLW, |
20 |
* ABCSW, ABCLW, EPSSW, EPSLW, |
21 |
* ALBCL, RHCL1, RHCL2, QACL |
22 |
|
23 |
C-- |
24 |
C-- /FLDRAD/: Transmissivity and blackbody radiation (workspace) |
25 |
C-- TAU = transmissivity of atmospheric layers |
26 |
C-- ST4A = blackbody emission from full and half atmospheric levels |
27 |
|
28 |
COMMON /RADFLD/ TAU(NGP,NLEV), ST4A(NGP,NLEV,2) |