| File |
Line number |
Procedure |
Code |
|
./pkg/exf/exf_zenithangle.F |
313 |
EXF_ZENITHANGLE |
H0 = -TAN( yC(i,j,bi,bj) *deg2rad ) * TAN( DECLI ) |
|
./pkg/exf/exf_zenithangle.F |
314 |
EXF_ZENITHANGLE |
IF ( H0.LT.-1. _d 0 ) H0 = -1. _d 0 |
|
./pkg/exf/exf_zenithangle.F |
315 |
EXF_ZENITHANGLE |
IF ( H0.GT. 1. _d 0 ) H0 = 1. _d 0 |
|
./pkg/exf/exf_zenithangle.F |
316 |
EXF_ZENITHANGLE |
H0 = ACOS( H0 ) |
|
./pkg/exf/exf_zenithangle.F |
318 |
EXF_ZENITHANGLE |
& * ( H0 * TMPA + SIN(H0) * TMPB ) |
|
./pkg/exf/exf_zenithangle.F |
52 |
EXF_ZENITHANGLE |
_RL H0, dD0dDsq, CZENdaily, CZENdiurnal |