| File |
Line number |
Procedure |
Code |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
243 |
AIM_SURF_BC |
TMPL = -TMPA/TMPB |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
244 |
AIM_SURF_BC |
IF (TMPL .GE. 1.0 _d 0) THEN |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
246 |
AIM_SURF_BC |
ELSEIF (TMPL .LE. -1.0 _d 0) THEN |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
251 |
AIM_SURF_BC |
hlim = ACOS(TMPL) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
90 |
AIM_SURF_BC |
_RL RZEN, ZS, ZC, SJ, CJ, TMPA, TMPB, TMPL, hlim |
|
./pkg/aim_v23/aim_surf_bc.F |
238 |
AIM_SURF_BC |
TMPL = -TMPA/TMPB |
|
./pkg/aim_v23/aim_surf_bc.F |
239 |
AIM_SURF_BC |
IF (TMPL .GE. 1.0 _d 0) THEN |
|
./pkg/aim_v23/aim_surf_bc.F |
241 |
AIM_SURF_BC |
ELSEIF (TMPL .LE. -1.0 _d 0) THEN |
|
./pkg/aim_v23/aim_surf_bc.F |
246 |
AIM_SURF_BC |
hlim = ACOS(TMPL) |
|
./pkg/aim_v23/aim_surf_bc.F |
90 |
AIM_SURF_BC |
_RL RZEN, ZS, ZC, SJ, CJ, TMPA, TMPB, TMPL, hlim |
|
./pkg/exf/exf_zenithangle.F |
179 |
EXF_ZENITHANGLE |
TMPL = -TMPA/TMPB |
|
./pkg/exf/exf_zenithangle.F |
180 |
EXF_ZENITHANGLE |
IF (TMPL .GE. 1.0 _d 0) THEN |
|
./pkg/exf/exf_zenithangle.F |
182 |
EXF_ZENITHANGLE |
ELSEIF (TMPL .LE. -1.0 _d 0) THEN |
|
./pkg/exf/exf_zenithangle.F |
187 |
EXF_ZENITHANGLE |
hlim = ACOS(TMPL) |
|
./pkg/exf/exf_zenithangle.F |
52 |
EXF_ZENITHANGLE |
_RL DECLI, ZS, ZC, SJ, CJ, TMPA, TMPB, TMPL, hlim |