| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_clockstuff.F |
988 |
ASTRO |
CJ = SQRT(ONE-SJ*SJ) |
|
./pkg/fizhi/fizhi_clockstuff.F |
990 |
ASTRO |
COSZ(I) = SJ*ZS + CJ*ZC*HC |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
240 |
AIM_SURF_BC |
CJ = COS(yC(i,j,bi,bj) * deg2rad) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
242 |
AIM_SURF_BC |
TMPB = CJ*ZC |
|
./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 |
235 |
AIM_SURF_BC |
CJ = COS(yC(i,j,bi,bj) * deg2rad) |
|
./pkg/aim_v23/aim_surf_bc.F |
237 |
AIM_SURF_BC |
TMPB = CJ*ZC |
|
./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 |
836 |
ASTRO |
CJ = SQRT(ONE-SJ*SJ) |
|
./pkg/chronos/chronos.F |
838 |
ASTRO |
COSZ(I) = SJ*ZS + CJ*ZC*HC |
|
./pkg/exf/exf_zenithangle.F |
164 |
EXF_ZENITHANGLE |
CJ = COS(yC(i,j,bi,bj) * deg2rad) |
|
./pkg/exf/exf_zenithangle.F |
166 |
EXF_ZENITHANGLE |
TMPB = CJ*ZC |
|
./pkg/exf/exf_zenithangle.F |
270 |
EXF_ZENITHANGLE |
CJ = COS(yC(i,j,bi,bj) * deg2rad) |
|
./pkg/exf/exf_zenithangle.F |
272 |
EXF_ZENITHANGLE |
TMPB = CJ*ZC |
|
./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 |
77 |
EXF_ZENITHANGLE_TABLE |
CJ = COS(LLLAT * deg2rad) |
|
./pkg/exf/exf_zenithangle_table.F |
79 |
EXF_ZENITHANGLE_TABLE |
TMPB = CJ*ZC |