| File |
Line number |
Procedure |
Code |
|
./pkg/aim/phy_radiat.F |
128 |
RADSW |
_RL FSOL(NGP), OZONE(NGP), ALB(NGP), TAU(NGP,NLEV) |
|
./pkg/aim/phy_radiat.F |
222 |
RADSW |
FLUX(J)=TAU(J,1)*TAUOZ(J)*FSOL(J) |
|
./pkg/aim/phy_radiat.F |
223 |
RADSW |
DFABS(J,1)=FSOL(J)-FLUX(J) |
|
./pkg/aim/phy_radiat.F |
234 |
RADSW |
FTOP(J) =FSOL(J)-FREFL(J) |
|
./pkg/aim/phy_radiat.F |
34 |
SOL_OZ |
_RL FSOL(NLON,NLAT), OZONE(NLON,NLAT) |
|
./pkg/aim/phy_radiat.F |
63 |
SOL_OZ |
FSOL(I,J) = SOLC*MAX( 0. _d 0, |
|
./pkg/aim/phy_radiat.F |
6 |
SOL_OZ |
SUBROUTINE SOL_OZ (SOLC,TYEAR,FSOL,OZONE,myThid) |
|
./pkg/aim/phy_radiat.F |
84 |
RADSW |
* FSOL,OZONE,ALB,TAU, |
|
./pkg/aim_v23/com_radvar.h |
18 |
NO PROCEDURE |
_RL FSOL(NGP), OZONE(NGP), OZUPP(NGP), ZENIT(NGP), STRATZ(NGP) |
|
./pkg/aim_v23/phy_radiat.F |
109 |
RADSW |
I FSOL, OZONE, OZUPP, ZENIT, STRATZ, |
|
./pkg/aim_v23/phy_radiat.F |
157 |
RADSW |
_RL FSOL(NGP), OZONE(NGP), OZUPP(NGP), ZENIT(NGP), STRATZ(NGP) |
|
./pkg/aim_v23/phy_radiat.F |
305 |
RADSW |
FTOP(J) =FSOL(J) |
|
./pkg/aim_v23/phy_radiat.F |
306 |
RADSW |
FLUX(J,1)=FSOL(J)*FBAND1-OZUPP(J) |
|
./pkg/aim_v23/phy_radiat.F |
307 |
RADSW |
FLUX(J,2)=FSOL(J)*FBAND2 |
|
./pkg/aim_v23/phy_radiat.F |
46 |
SOL_OZ |
_RL FSOL(NGP), OZONE(NGP), OZUPP(NGP), ZENIT(NGP), STRATZ(NGP) |
|
./pkg/aim_v23/phy_radiat.F |
7 |
SOL_OZ |
O FSOL, OZONE, OZUPP, ZENIT, STRATZ, |
|
./pkg/aim_v23/phy_radiat.F |
82 |
SOL_OZ |
FSOL(J) = SOLC* |
|
./pkg/aim_v23/phy_radiat.F |
94 |
SOL_OZ |
OZUPP(J)=FSOL(J)*OZUPP(J)*ZENIT(J) |
|
./pkg/aim_v23/phy_radiat.F |
95 |
SOL_OZ |
OZONE(J)=FSOL(J)*OZONE(J)*ZENIT(J) |
|
./pkg/aim_v23/phy_radiat.F |
96 |
SOL_OZ |
STRATZ(J)=AST*FSOL(J)*CLAT(J)**3 |
|
./pkg/aim_v23/phy_radiat.F |
97 |
SOL_OZ |
& +MAX( FS0-FSOL(J), 0. _d 0 ) |
|
./pkg/aim_v23/phy_driver.F |
186 |
PHY_DRIVER |
O FSOL, OZONE, OZUPP, ZENIT, STRATZ, |
|
./pkg/aim_v23/phy_driver.F |
203 |
PHY_DRIVER |
I FSOL, OZONE, OZUPP, ZENIT, STRATZ, |
|
./pkg/aim_v23/phy_driver.F |
335 |
PHY_DRIVER |
I FSOL, OZONE, OZUPP, ZENIT, STRATZ, |