| 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 |
222 |
PHY_DRIVER |
O FSOL, OZONE, OZUPP, ZENIT, STRATZ, |
|
./pkg/aim_v23/phy_driver.F |
239 |
PHY_DRIVER |
I FSOL, OZONE, OZUPP, ZENIT, STRATZ, |
|
./pkg/aim_v23/phy_driver.F |
386 |
PHY_DRIVER |
I FSOL, OZONE, OZUPP, ZENIT, STRATZ, |
|
./pkg/aim_v23/phy_radiat.F |
103 |
SOL_OZ |
FSOL(J) = SOLC* |
|
./pkg/aim_v23/phy_radiat.F |
114 |
SOL_OZ |
FSOL(J) = 4. _d 0 / PI * SOLC * |
|
./pkg/aim_v23/phy_radiat.F |
127 |
SOL_OZ |
OZUPP(J)=FSOL(J)*OZUPP(J)*ZENIT(J) |
|
./pkg/aim_v23/phy_radiat.F |
128 |
SOL_OZ |
OZONE(J)=FSOL(J)*OZONE(J)*ZENIT(J) |
|
./pkg/aim_v23/phy_radiat.F |
129 |
SOL_OZ |
STRATZ(J)=AST*FSOL(J)*CLAT(J)**3 |
|
./pkg/aim_v23/phy_radiat.F |
130 |
SOL_OZ |
& +MAX( FS0-FSOL(J), 0. _d 0 ) |
|
./pkg/aim_v23/phy_radiat.F |
135 |
SOL_OZ |
CALL DIAGNOSTICS_FILL( FSOL, |
|
./pkg/aim_v23/phy_radiat.F |
147 |
RADSW |
I FSOL, OZONE, OZUPP, ZENIT, STRATZ, |
|
./pkg/aim_v23/phy_radiat.F |
197 |
RADSW |
_RL FSOL(NGP), OZONE(NGP), OZUPP(NGP), ZENIT(NGP), STRATZ(NGP) |
|
./pkg/aim_v23/phy_radiat.F |
361 |
RADSW |
FTOP(J) =FSOL(J) |
|
./pkg/aim_v23/phy_radiat.F |
362 |
RADSW |
FLUX(J,1)=FSOL(J)*FBAND1-OZUPP(J) |
|
./pkg/aim_v23/phy_radiat.F |
363 |
RADSW |
FLUX(J,2)=FSOL(J)*FBAND2 |
|
./pkg/aim_v23/phy_radiat.F |
47 |
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/exf/exf_zenithangle.F |
276 |
EXF_ZENITHANGLE |
FSOL = SOLC * dD0dDsq * MAX( 0. _d 0, CZEN ) |
|
./pkg/exf/exf_zenithangle.F |
277 |
EXF_ZENITHANGLE |
zen_fsol_diurnal (i,j,bi,bj) = FSOL |
|
./pkg/exf/exf_zenithangle.F |
283 |
EXF_ZENITHANGLE |
FSOL= SOLC * dD0dDsq / pi * |
|
./pkg/exf/exf_zenithangle.F |
285 |
EXF_ZENITHANGLE |
zen_fsol_daily (i,j,bi,bj) = FSOL |
|
./pkg/exf/exf_zenithangle.F |
53 |
EXF_ZENITHANGLE |
_RL SOLC, CSR1, CSR2, FLAT2, FSOL |
|
./pkg/exf/exf_zenithangle_table.F |
101 |
EXF_ZENITHANGLE_TABLE |
FSOL = SOLC * dD0dDsq * MAX( 0. _d 0, CZEN ) |
|
./pkg/exf/exf_zenithangle_table.F |
110 |
EXF_ZENITHANGLE_TABLE |
tmpINT1=tmpINT1+FSOL*ALBSEA1/100. _d 0 |
|
./pkg/exf/exf_zenithangle_table.F |
111 |
EXF_ZENITHANGLE_TABLE |
tmpINT2=tmpINT2+FSOL/100. _d 0 |
|
./pkg/exf/exf_zenithangle_table.F |
43 |
EXF_ZENITHANGLE_TABLE |
_RL FSOL, dD0dDsq, SOLC, tmpINT1, tmpINT2 |