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 |
396 |
PHY_DRIVER |
I FSOL, OZONE, OZUPP, ZENIT, STRATZ, |
./pkg/aim_v23/phy_radiat.F |
127 |
SOL_OZ |
OZONE(J) = EPSSW*(1.+COZ1*SLAT(J)+COZ2*FLAT2) |
./pkg/aim_v23/phy_radiat.F |
135 |
SOL_OZ |
OZONE(J)=FSOL(J)*OZONE(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 |
379 |
RADSW |
FLUX (J,1)=TAU2(J,1,1)*(FLUX(J,1)-OZONE(J)*PSA(J)) |
./pkg/aim_v23/phy_radiat.F |
56 |
SOL_OZ |
_RL FSOL(NGP), OZONE(NGP), OZUPP(NGP), ZENIT(NGP), STRATZ(NGP) |