C $Header: /u/gcmpack/MITgcm/pkg/aim_v23/com_radcon.h,v 1.1 2002/11/22 17:16:06 jmc Exp $ C $Name: $ #ifdef ALLOW_AIM C-- COMMON /RADCON/: Radiation constants (initial. in INPHYS) C RHCL1 = relative hum. corresponding to cloud cover = 0 C RHCL2 = relative hum. corresponding to cloud cover = 1 C QACL1 = specific hum. threshold for cloud cover in the upper troposphere C QACL2 = specific hum. threshold for cloud cover in the upper troposphere C ALBCL = cloud albedo (for cloud cover = 1) C EPSSW = fraction of incoming solar radiation absorbed by ozone C EPSLW = fraction of surface LW radiation emitted directly to space C EMISFC = longwave surface emissivity C--: shortwave absorptivities (for dp = 10^5 Pa) : C ABSDRY = abs. of dry air (visible band) C ABSAER = abs. of aerosols (visible band) C ABSWV1 = abs. of water vapour (visible band, for dq = 1 g/kg) C ABSWV2 = abs. of water vapour (near IR band, for dq = 1 g/kg) C ABSCL1 = abs. of clouds (visible band, constant term) C ABSCL2 = abs. of clouds (visible band, for dw = 1 g/kg) C--: longwave absorptivities (per dp = 10^5 Pa) : C ABLWIN = abs. of air in "window" band C ABLCO2 = abs. of air in CO2 band C ABLWV1 = abs. of water vapour in H2O band 1 (weak), for dq = 1 g/kg C ABLWV2 = abs. of water vapour in H2O band 2 (strong), for dq = 1 g/kg C ABLCL1 = abs. of clouds in "window" band, constant term C ABLCL2 = abs. of clouds in "window" band, for dw = 1 g/kg COMMON /RADCON/ RHCL1, RHCL2, QACL1, QACL2, ALBCL, & EPSSW, EPSLW, EMISFC, & ABSDRY, ABSAER, ABSWV1, ABSWV2, ABSCL1, ABSCL2, & ABLWIN, ABLCO2, ABLWV1, ABLWV2, ABLCL1, ABLCL2 _RL RHCL1, RHCL2, QACL1, QACL2, ALBCL _RL EPSSW, EPSLW, EMISFC _RL ABSDRY, ABSAER, ABSWV1, ABSWV2, ABSCL1, ABSCL2 _RL ABLWIN, ABLCO2, ABLWV1, ABLWV2, ABLCL1, ABLCL2 C-- COMMON /RADFIX/: Time-invariant fields (initial. in RADSET) C FBAND = energy fraction emitted in each LW band = f(T) COMMON /RADFIX/ FBAND _RL FBAND(lwTemp1:lwTemp2,0:NBAND) C-------------- C- Next 2 common blocks have been detach from "com_radcon.h" C and put in a sepated file (com_radvar.h) C-- COMMON /RADZON/: Zonally-averaged fields for SW scheme C (updated in SOL_OZ) C FSOL = flux of incoming solar radiation C OZONE = flux absorbed by ozone (lower stratos.) C OZUPP = flux absorbed by ozone (upper stratos.) C ZENIT = optical depth ratio (function of solar zenith angle) c COMMON /RADZON/ FSOL, OZONE, OZUPP, ZENIT, STRATZ c _RL FSOL(NGP), OZONE(NGP), OZUPP(NGP), ZENIT(NGP), STRATZ(NGP) C-- COMMON /RADFLD/: Transmissivity and blackbody rad. C (updated in RADSW/RADLW) C TAU2 = transmissivity of atmospheric layers C ST4A = blackbody emission from full and half atmospheric levels C STRATC = stratospheric correction term C FLUX = radiative flux in different spectral bands c COMMON /RADFLD/ TAU2, ST4A, STRATC, FLUX c _RL TAU2(NGP,NLEV,4), ST4A(NGP,NLEV,2) c _RL STRATC(NGP), FLUX(NGP,4) C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| #endif /* ALLOW_AIM */