| File |
Line number |
Procedure |
Code |
|
./pkg/aim_v23/com_radvar.h |
18 |
NO PROCEDURE |
_RL FSOL(NGP), OZONE(NGP), OZUPP(NGP), ZENIT(NGP), STRATZ(NGP) |
|
./pkg/aim_v23/phy_driver.F |
224 |
PHY_DRIVER |
O FSOL, OZONE, OZUPP, ZENIT, STRATZ, |
|
./pkg/aim_v23/phy_driver.F |
249 |
PHY_DRIVER |
I FSOL, OZONE, OZUPP, ZENIT, STRATZ, |
|
./pkg/aim_v23/phy_driver.F |
280 |
PHY_DRIVER |
& OZUPP, STRATC, TAU2, FLUX, ST4A, |
|
./pkg/aim_v23/phy_driver.F |
378 |
PHY_DRIVER |
& OZUPP, STRATC, TAU2, FLUX, ST4A, |
|
./pkg/aim_v23/phy_driver.F |
396 |
PHY_DRIVER |
I FSOL, OZONE, OZUPP, ZENIT, STRATZ, |
|
./pkg/aim_v23/phy_driver.F |
412 |
PHY_DRIVER |
& OZUPP, STRATC, TAU2, FLUX, ST4A, |
|
./pkg/aim_v23/phy_driver.F |
419 |
PHY_DRIVER |
& OZUPP, STRATC, TAU2, FLUX, ST4A, |
|
./pkg/aim_v23/phy_radiat.F |
126 |
SOL_OZ |
OZUPP(J) = EPSSW*(1.-FLAT2) |
|
./pkg/aim_v23/phy_radiat.F |
134 |
SOL_OZ |
OZUPP(J)=FSOL(J)*OZUPP(J)*ZENIT(J) |
|
./pkg/aim_v23/phy_radiat.F |
159 |
RADSW |
I FSOL, OZONE, OZUPP, ZENIT, STRATZ, |
|
./pkg/aim_v23/phy_radiat.F |
18 |
SOL_OZ |
O FSOL, OZONE, OZUPP, ZENIT, STRATZ, |
|
./pkg/aim_v23/phy_radiat.F |
205 |
RADSW |
_RL FSOL(NGP), OZONE(NGP), OZUPP(NGP), ZENIT(NGP), STRATZ(NGP) |
|
./pkg/aim_v23/phy_radiat.F |
369 |
RADSW |
FLUX(J,1)=FSOL(J)*FBAND1-OZUPP(J) |
|
./pkg/aim_v23/phy_radiat.F |
510 |
RADLW |
I OZUPP, STRATC, TAU2, |
|
./pkg/aim_v23/phy_radiat.F |
555 |
RADLW |
_RL OZUPP(NGP), STRATC(NGP) |
|
./pkg/aim_v23/phy_radiat.F |
56 |
SOL_OZ |
_RL FSOL(NGP), OZONE(NGP), OZUPP(NGP), ZENIT(NGP), STRATZ(NGP) |
|
./pkg/aim_v23/phy_radiat.F |
729 |
RADLW |
FTOP(J)=FTOP(J)+OZUPP(J) |