| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_clockstuff.F |
975 |
ASTRO |
ZS = SIN(THNOW) * SIN(OB) |
|
./pkg/fizhi/fizhi_clockstuff.F |
976 |
ASTRO |
ZC = SQRT(ONE-ZS*ZS) |
|
./pkg/fizhi/fizhi_clockstuff.F |
990 |
ASTRO |
COSZ(I) = SJ*ZS + CJ*ZC*HC |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
223 |
AIM_SURF_BC |
ZS = SIN(RZEN) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
241 |
AIM_SURF_BC |
TMPA = SJ*ZS |
|
./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 |
213 |
AIM_SURF_BC |
ZS = SIN(RZEN) |
|
./pkg/aim_v23/aim_surf_bc.F |
215 |
AIM_SURF_BC |
ZS = - SIN(OBLIQ * deg2rad) * COS(ALPHA) |
|
./pkg/aim_v23/aim_surf_bc.F |
216 |
AIM_SURF_BC |
ZC = ASIN( ZS ) |
|
./pkg/aim_v23/aim_surf_bc.F |
236 |
AIM_SURF_BC |
TMPA = SJ*ZS |
|
./pkg/aim_v23/aim_surf_bc.F |
90 |
AIM_SURF_BC |
_RL RZEN, ZS, ZC, SJ, CJ, TMPA, TMPB, TMPL, hlim |
|
./pkg/chronos/chronos.F |
823 |
ASTRO |
ZS = SIN(THNOW) * SIN(OB) |
|
./pkg/chronos/chronos.F |
824 |
ASTRO |
ZC = SQRT(ONE-ZS*ZS) |
|
./pkg/chronos/chronos.F |
838 |
ASTRO |
COSZ(I) = SJ*ZS + CJ*ZC*HC |
|
./pkg/exf/exf_zenithangle.F |
162 |
EXF_ZENITHANGLE |
ZS = SIN(DECLI) |
|
./pkg/exf/exf_zenithangle.F |
165 |
EXF_ZENITHANGLE |
TMPA = SJ*ZS |
|
./pkg/exf/exf_zenithangle.F |
268 |
EXF_ZENITHANGLE |
ZS = SIN(DECLI) |
|
./pkg/exf/exf_zenithangle.F |
271 |
EXF_ZENITHANGLE |
TMPA = SJ*ZS |
|
./pkg/exf/exf_zenithangle.F |
52 |
EXF_ZENITHANGLE |
_RL DECLI, ZS, ZC, SJ, CJ, TMPA, TMPB, TMPL, hlim |
|
./pkg/exf/exf_zenithangle_table.F |
45 |
EXF_ZENITHANGLE_TABLE |
_RL DECLI, ZS, ZC, SJ, CJ, TMPA, TMPB |
|
./pkg/exf/exf_zenithangle_table.F |
75 |
EXF_ZENITHANGLE_TABLE |
ZS = SIN(DECLI) |
|
./pkg/exf/exf_zenithangle_table.F |
78 |
EXF_ZENITHANGLE_TABLE |
TMPA = SJ*ZS |