| File |
Line number |
Procedure |
Code |
|
./pkg/exf/exf_zenithangle.F |
211 |
EXF_ZENITHANGLE |
TMPL = -TMPA/TMPB |
|
./pkg/exf/exf_zenithangle.F |
212 |
EXF_ZENITHANGLE |
IF (TMPL .GE. 1.0 _d 0) THEN |
|
./pkg/exf/exf_zenithangle.F |
214 |
EXF_ZENITHANGLE |
ELSEIF (TMPL .LE. -1.0 _d 0) THEN |
|
./pkg/exf/exf_zenithangle.F |
219 |
EXF_ZENITHANGLE |
hlim = ACOS(TMPL) |
|
./pkg/exf/exf_zenithangle.F |
54 |
EXF_ZENITHANGLE |
_RL DECLI, ZS, ZC, SJ, CJ, TMPA, TMPB, TMPL, hlim |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
255 |
AIM_SURF_BC |
TMPL = -TMPA/TMPB |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
256 |
AIM_SURF_BC |
IF (TMPL .GE. 1.0 _d 0) THEN |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
258 |
AIM_SURF_BC |
ELSEIF (TMPL .LE. -1.0 _d 0) THEN |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
263 |
AIM_SURF_BC |
hlim = ACOS(TMPL) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
96 |
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 |