pkg/aim_v23/com_radcon.h

d676f916b2 Jean*0001 #ifdef ALLOW_AIM
                0002
                0003 C--   COMMON /RADCON/: Radiation constants (initial. in INPHYS)
                0004 C      RHCL1  = relative hum. corresponding to cloud cover = 0
                0005 C      RHCL2  = relative hum. corresponding to cloud cover = 1
                0006 C      QACL1  = specific hum. threshold for cloud cover in the upper troposphere
                0007 C      QACL2  = specific hum. threshold for cloud cover in the upper troposphere
                0008 C      ALBCL  = cloud albedo (for cloud cover = 1)
                0009 C      EPSSW  = fraction of incoming solar radiation absorbed by ozone
                0010 C      EPSLW  = fraction of surface LW radiation emitted directly to space
                0011 C      EMISFC = longwave surface emissivity
                0012 C--:            shortwave absorptivities (for dp = 10^5 Pa) :
                0013 C      ABSDRY = abs. of dry air      (visible band)
                0014 C      ABSAER = abs. of aerosols     (visible band)
                0015 C      ABSWV1 = abs. of water vapour (visible band, for dq = 1 g/kg)
                0016 C      ABSWV2 = abs. of water vapour (near IR band, for dq = 1 g/kg)
                0017 C      ABSCL1 = abs. of clouds       (visible band, constant term)
                0018 C      ABSCL2 = abs. of clouds       (visible band, for dw = 1 g/kg)
                0019 C--:            longwave absorptivities (per dp = 10^5 Pa) :
                0020 C      ABLWIN = abs. of air in "window" band
                0021 C      ABLCO2 = abs. of air in CO2 band
                0022 C      ABLWV1 = abs. of water vapour in H2O band 1 (weak),   for dq = 1 g/kg
                0023 C      ABLWV2 = abs. of water vapour in H2O band 2 (strong), for dq = 1 g/kg
                0024 C      ABLCL1 = abs. of clouds       in "window" band,       constant term
                0025 C      ABLCL2 = abs. of clouds       in "window" band,       for dw = 1 g/kg
                0026
                0027       COMMON /RADCON/ RHCL1,  RHCL2,  QACL1,  QACL2,  ALBCL,
                0028      &                EPSSW,  EPSLW,  EMISFC,
                0029      &                ABSDRY, ABSAER, ABSWV1, ABSWV2, ABSCL1, ABSCL2,
                0030      &                ABLWIN, ABLCO2, ABLWV1, ABLWV2, ABLCL1, ABLCL2
                0031       _RL  RHCL1,  RHCL2,  QACL1,  QACL2,  ALBCL
                0032       _RL  EPSSW,  EPSLW,  EMISFC
                0033       _RL  ABSDRY, ABSAER, ABSWV1, ABSWV2, ABSCL1, ABSCL2
                0034       _RL  ABLWIN, ABLCO2, ABLWV1, ABLWV2, ABLCL1, ABLCL2
                0035
                0036 C--   COMMON /RADFIX/: Time-invariant fields (initial. in RADSET)
                0037 C      FBAND  = energy fraction emitted in each LW band = f(T)
                0038       COMMON /RADFIX/ FBAND
                0039       _RL FBAND(lwTemp1:lwTemp2,0:NBAND)
                0040
                0041 C--------------
                0042 C- Next 2 common blocks have been detach from "com_radcon.h"
                0043 C  and put in a sepated file (com_radvar.h)
                0044
                0045 C--   COMMON /RADZON/: Zonally-averaged fields for SW scheme
                0046 C               (updated in SOL_OZ)
                0047 C      FSOL   = flux of incoming solar radiation
                0048 C      OZONE  = flux absorbed by ozone (lower stratos.)
                0049 C      OZUPP  = flux absorbed by ozone (upper stratos.)
                0050 C      ZENIT  = optical depth ratio (function of solar zenith angle)
                0051 c     COMMON /RADZON/ FSOL, OZONE, OZUPP, ZENIT, STRATZ
                0052 c     _RL FSOL(NGP), OZONE(NGP), OZUPP(NGP), ZENIT(NGP), STRATZ(NGP)
                0053
                0054 C--   COMMON /RADFLD/: Transmissivity and blackbody rad.
                0055 C               (updated in RADSW/RADLW)
                0056 C      TAU2   = transmissivity of atmospheric layers
                0057 C      ST4A   = blackbody emission from full and half atmospheric levels
                0058 C      STRATC = stratospheric correction term
                0059 C      FLUX   = radiative flux in different spectral bands
                0060 c     COMMON /RADFLD/ TAU2, ST4A, STRATC, FLUX
                0061 c     _RL TAU2(NGP,NLEV,4), ST4A(NGP,NLEV,2)
                0062 c     _RL STRATC(NGP), FLUX(NGP,4)
                0063
                0064 C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
                0065 #endif /* ALLOW_AIM */