| File |
Line number |
Procedure |
Code |
|
./pkg/exf/exf_zenithangle.F |
205 |
EXF_ZENITHANGLE |
CZEN = CZENdiurnal |
|
./pkg/exf/exf_zenithangle.F |
213 |
EXF_ZENITHANGLE |
CZEN = 0.0 _d 0 |
|
./pkg/exf/exf_zenithangle.F |
215 |
EXF_ZENITHANGLE |
CZEN = (2.0 _d 0)*TMPA*PI |
|
./pkg/exf/exf_zenithangle.F |
217 |
EXF_ZENITHANGLE |
CZEN = CZEN2/CZEN |
|
./pkg/exf/exf_zenithangle.F |
220 |
EXF_ZENITHANGLE |
CZEN = 2.0 _d 0*(TMPA*hlim + TMPB*SIN(hlim)) |
|
./pkg/exf/exf_zenithangle.F |
224 |
EXF_ZENITHANGLE |
CZEN = CZEN2/CZEN |
|
./pkg/exf/exf_zenithangle.F |
226 |
EXF_ZENITHANGLE |
CZENdaily = CZEN |
|
./pkg/exf/exf_zenithangle.F |
251 |
EXF_ZENITHANGLE |
& ( ( 2.6 _d 0 / (CZEN**(1.7 _d 0) + 0.065 _d 0) ) |
|
./pkg/exf/exf_zenithangle.F |
252 |
EXF_ZENITHANGLE |
& + ( 15. _d 0 * (CZEN-0.1 _d 0) * (CZEN-0.5 _d 0) |
|
./pkg/exf/exf_zenithangle.F |
253 |
EXF_ZENITHANGLE |
& * (CZEN-1.0 _d 0) ) ) / 100.0 _d 0 |
|
./pkg/exf/exf_zenithangle.F |
306 |
EXF_ZENITHANGLE |
CZEN = TMPA + TMPB * |
|
./pkg/exf/exf_zenithangle.F |
308 |
EXF_ZENITHANGLE |
IF ( CZEN .LE.0 ) CZEN = 0. _d 0 |
|
./pkg/exf/exf_zenithangle.F |
309 |
EXF_ZENITHANGLE |
FSOL = SOLC * dD0dDsq * MAX( 0. _d 0, CZEN ) |
|
./pkg/exf/exf_zenithangle.F |
53 |
EXF_ZENITHANGLE |
_RL TDAY, TYEAR, ALBSEA1, ALPHA, CZEN, CZEN2 |
|
./pkg/exf/exf_zenithangle_table.F |
100 |
EXF_ZENITHANGLE_TABLE |
& * (CZEN-1.0 _d 0) ) ) / 100.0 _d 0 |
|
./pkg/exf/exf_zenithangle_table.F |
38 |
EXF_ZENITHANGLE_TABLE |
_RL LLLAT, TYEAR, TDAY, ALPHA, CZEN, ALBSEA1 |
|
./pkg/exf/exf_zenithangle_table.F |
89 |
EXF_ZENITHANGLE_TABLE |
CZEN = TMPA + TMPB * |
|
./pkg/exf/exf_zenithangle_table.F |
91 |
EXF_ZENITHANGLE_TABLE |
IF ( CZEN .LE.0 ) CZEN = 0. _d 0 |
|
./pkg/exf/exf_zenithangle_table.F |
94 |
EXF_ZENITHANGLE_TABLE |
FSOL = SOLC * dD0dDsq * MAX( 0. _d 0, CZEN ) |
|
./pkg/exf/exf_zenithangle_table.F |
98 |
EXF_ZENITHANGLE_TABLE |
ALBSEA1 = ( ( 2.6 _d 0 / (CZEN**(1.7 _d 0) + 0.065 _d 0) ) |
|
./pkg/exf/exf_zenithangle_table.F |
99 |
EXF_ZENITHANGLE_TABLE |
& + ( 15. _d 0 * (CZEN-0.1 _d 0) * (CZEN-0.5 _d 0) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
257 |
AIM_SURF_BC |
CZEN = 0.0 _d 0 |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
259 |
AIM_SURF_BC |
CZEN = (2.0 _d 0)*TMPA*PI |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
261 |
AIM_SURF_BC |
CZEN = CZEN2/CZEN |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
264 |
AIM_SURF_BC |
CZEN = 2.0 _d 0*(TMPA*hlim + TMPB*SIN(hlim)) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
268 |
AIM_SURF_BC |
CZEN = CZEN2/CZEN |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
270 |
AIM_SURF_BC |
ALBSEA1 = ( ( 2.6 _d 0 / (CZEN**(1.7 _d 0) + 0.065 _d 0) ) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
271 |
AIM_SURF_BC |
& + ( 15. _d 0 * (CZEN-0.1 _d 0) * (CZEN-0.5 _d 0) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
272 |
AIM_SURF_BC |
& * (CZEN-1.0 _d 0) ) ) / 100.0 _d 0 |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
95 |
AIM_SURF_BC |
_RL RSD, alb_land, oceTfreez, ALBSEA1, ALPHA, CZEN, CZEN2 |
|
./pkg/aim_v23/aim_surf_bc.F |
240 |
AIM_SURF_BC |
CZEN = 0.0 _d 0 |
|
./pkg/aim_v23/aim_surf_bc.F |
242 |
AIM_SURF_BC |
CZEN = (2.0 _d 0)*TMPA*PI |
|
./pkg/aim_v23/aim_surf_bc.F |
244 |
AIM_SURF_BC |
CZEN = CZEN2/CZEN |
|
./pkg/aim_v23/aim_surf_bc.F |
247 |
AIM_SURF_BC |
CZEN = 2.0 _d 0*(TMPA*hlim + TMPB*SIN(hlim)) |
|
./pkg/aim_v23/aim_surf_bc.F |
251 |
AIM_SURF_BC |
CZEN = CZEN2/CZEN |
|
./pkg/aim_v23/aim_surf_bc.F |
253 |
AIM_SURF_BC |
ALBSEA1 = ( ( 2.6 _d 0 / (CZEN**(1.7 _d 0) + 0.065 _d 0) ) |
|
./pkg/aim_v23/aim_surf_bc.F |
254 |
AIM_SURF_BC |
& + ( 15. _d 0 * (CZEN-0.1 _d 0) * (CZEN-0.5 _d 0) |
|
./pkg/aim_v23/aim_surf_bc.F |
255 |
AIM_SURF_BC |
& * (CZEN-1.0 _d 0) ) ) / 100.0 _d 0 |
|
./pkg/aim_v23/aim_surf_bc.F |
89 |
AIM_SURF_BC |
_RL RSD, alb_land, oceTfreez, ALBSEA1, ALPHA, CZEN, CZEN2 |
|
./pkg/aim_v23/phy_radiat.F |
122 |
SOL_OZ |
& (SLAT(J)*SZEN*HourAng+CLAT(J)*CZEN*SIN(HourAng)) |
|
./pkg/aim_v23/phy_radiat.F |
131 |
SOL_OZ |
& (1. _d 0-(CLAT(J)*CZEN+SLAT(J)*SZEN))**NZEN |
|
./pkg/aim_v23/phy_radiat.F |
63 |
SOL_OZ |
_RL AZEN, RZEN, CZEN, SZEN, AST, FS0, FLAT2 |
|
./pkg/aim_v23/phy_radiat.F |
86 |
SOL_OZ |
CZEN = COS( RZEN ) |
|
./pkg/aim_v23/phy_radiat.F |
92 |
SOL_OZ |
TanDelcl = SZEN / CZEN |
|
./pkg/aim_v23/phy_radiat.F |
96 |
SOL_OZ |
CZEN=COS(RZEN) |