1 |
C $Header: $ |
2 |
C $Name: $ |
3 |
|
4 |
#ifdef ALLOW_AIM |
5 |
|
6 |
C 2nd part of original file "com_radcon.h": |
7 |
C contains temp. variables used within radiation scheme |
8 |
C and passed as arguments to SOL_OZ, RADSW & RADLW |
9 |
C (originally passed through common blocks) |
10 |
|
11 |
C-- COMMON /RADZON/: Zonally-averaged fields for SW scheme |
12 |
C (updated in SOL_OZ) |
13 |
C FSOL = flux of incoming solar radiation |
14 |
C OZONE = flux absorbed by ozone (lower stratos.) |
15 |
C OZUPP = flux absorbed by ozone (upper stratos.) |
16 |
C ZENIT = optical depth ratio (function of solar zenith angle) |
17 |
c COMMON /RADZON/ FSOL, OZONE, OZUPP, ZENIT, STRATZ |
18 |
_RL FSOL(NGP), OZONE(NGP), OZUPP(NGP), ZENIT(NGP), STRATZ(NGP) |
19 |
|
20 |
C-- COMMON /RADFLD/: Transmissivity and blackbody rad. |
21 |
C (updated in RADSW/RADLW) |
22 |
C TAU2 = transmissivity of atmospheric layers |
23 |
C ST4A = blackbody emission from full and half atmospheric levels |
24 |
C STRATC = stratospheric correction term |
25 |
C FLUX = radiative flux in different spectral bands |
26 |
c COMMON /RADFLD/ TAU2, ST4A, STRATC, FLUX |
27 |
_RL TAU2(NGP,NLEV,NBAND), ST4A(NGP,NLEV,2) |
28 |
_RL STRATC(NGP), FLUX(NGP,NBAND) |
29 |
|
30 |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
31 |
#endif /* ALLOW_AIM */ |