| File |
Line number |
Procedure |
Code |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
245 |
AIM_SURF_BC |
CZEN = 0.0 _d 0 |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
247 |
AIM_SURF_BC |
CZEN = (2.0 _d 0)*TMPA*PI |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
249 |
AIM_SURF_BC |
CZEN = CZEN2/CZEN |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
252 |
AIM_SURF_BC |
CZEN = 2.0 _d 0*(TMPA*hlim + TMPB*SIN(hlim)) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
256 |
AIM_SURF_BC |
CZEN = CZEN2/CZEN |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
258 |
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 |
259 |
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 |
260 |
AIM_SURF_BC |
& * (CZEN-1.0 _d 0) ) ) / 100.0 _d 0 |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
89 |
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 |
115 |
SOL_OZ |
& (SLAT(J)*SZEN*HourAng+CLAT(J)*CZEN*SIN(HourAng)) |
|
./pkg/aim_v23/phy_radiat.F |
124 |
SOL_OZ |
& (1. _d 0-(CLAT(J)*CZEN+SLAT(J)*SZEN))**NZEN |
|
./pkg/aim_v23/phy_radiat.F |
56 |
SOL_OZ |
_RL AZEN, RZEN, CZEN, SZEN, AST, FS0, FLAT2 |
|
./pkg/aim_v23/phy_radiat.F |
79 |
SOL_OZ |
CZEN = COS( RZEN ) |
|
./pkg/aim_v23/phy_radiat.F |
85 |
SOL_OZ |
TanDelcl = SZEN / CZEN |
|
./pkg/aim_v23/phy_radiat.F |
89 |
SOL_OZ |
CZEN=COS(RZEN) |
|
./pkg/exf/exf_zenithangle.F |
181 |
EXF_ZENITHANGLE |
CZEN = 0.0 _d 0 |
|
./pkg/exf/exf_zenithangle.F |
183 |
EXF_ZENITHANGLE |
CZEN = (2.0 _d 0)*TMPA*PI |
|
./pkg/exf/exf_zenithangle.F |
185 |
EXF_ZENITHANGLE |
CZEN = CZEN2/CZEN |
|
./pkg/exf/exf_zenithangle.F |
188 |
EXF_ZENITHANGLE |
CZEN = 2.0 _d 0*(TMPA*hlim + TMPB*SIN(hlim)) |
|
./pkg/exf/exf_zenithangle.F |
192 |
EXF_ZENITHANGLE |
CZEN = CZEN2/CZEN |
|
./pkg/exf/exf_zenithangle.F |
195 |
EXF_ZENITHANGLE |
CZENdaily=CZEN |
|
./pkg/exf/exf_zenithangle.F |
213 |
EXF_ZENITHANGLE |
CZEN=CZENdaily |
|
./pkg/exf/exf_zenithangle.F |
215 |
EXF_ZENITHANGLE |
CZEN=CZENdiurnal |
|
./pkg/exf/exf_zenithangle.F |
221 |
EXF_ZENITHANGLE |
ALBSEA1 = ( ( 2.6 _d 0 / (CZEN**(1.7 _d 0) + 0.065 _d 0) ) |
|
./pkg/exf/exf_zenithangle.F |
222 |
EXF_ZENITHANGLE |
& + ( 15. _d 0 * (CZEN-0.1 _d 0) * (CZEN-0.5 _d 0) |
|
./pkg/exf/exf_zenithangle.F |
223 |
EXF_ZENITHANGLE |
& * (CZEN-1.0 _d 0) ) ) / 100.0 _d 0 |
|
./pkg/exf/exf_zenithangle.F |
273 |
EXF_ZENITHANGLE |
CZEN = TMPA + TMPB * |
|
./pkg/exf/exf_zenithangle.F |
275 |
EXF_ZENITHANGLE |
if ( CZEN .LE.0 ) CZEN = 0. _d 0 |
|
./pkg/exf/exf_zenithangle.F |
276 |
EXF_ZENITHANGLE |
FSOL = SOLC * dD0dDsq * MAX( 0. _d 0, CZEN ) |
|
./pkg/exf/exf_zenithangle.F |
51 |
EXF_ZENITHANGLE |
_RL TDAY, TYEAR, ALBSEA1, ALPHA, CZEN, CZEN2 |
|
./pkg/exf/exf_zenithangle_table.F |
101 |
EXF_ZENITHANGLE_TABLE |
FSOL = SOLC * dD0dDsq * MAX( 0. _d 0, CZEN ) |
|
./pkg/exf/exf_zenithangle_table.F |
105 |
EXF_ZENITHANGLE_TABLE |
ALBSEA1 = ( ( 2.6 _d 0 / (CZEN**(1.7 _d 0) + 0.065 _d 0) ) |
|
./pkg/exf/exf_zenithangle_table.F |
106 |
EXF_ZENITHANGLE_TABLE |
& + ( 15. _d 0 * (CZEN-0.1 _d 0) * (CZEN-0.5 _d 0) |
|
./pkg/exf/exf_zenithangle_table.F |
107 |
EXF_ZENITHANGLE_TABLE |
& * (CZEN-1.0 _d 0) ) ) / 100.0 _d 0 |
|
./pkg/exf/exf_zenithangle_table.F |
44 |
EXF_ZENITHANGLE_TABLE |
_RL LLLAT, TYEAR, TDAY, ALPHA, CZEN, ALBSEA1 |
|
./pkg/exf/exf_zenithangle_table.F |
96 |
EXF_ZENITHANGLE_TABLE |
CZEN = TMPA + TMPB * |
|
./pkg/exf/exf_zenithangle_table.F |
98 |
EXF_ZENITHANGLE_TABLE |
if ( CZEN .LE.0 ) CZEN = 0. _d 0 |