| File |
Line number |
Procedure |
Code |
|
./pkg/exf/exf_zenithangle.F |
133 |
EXF_ZENITHANGLE |
iTyear1= 1 + 365.*TYEAR |
|
./pkg/exf/exf_zenithangle.F |
134 |
EXF_ZENITHANGLE |
wTyear1= iTyear1 - 365.*TYEAR |
|
./pkg/exf/exf_zenithangle.F |
135 |
EXF_ZENITHANGLE |
iTyear2= iTyear1 + 1 |
|
./pkg/exf/exf_zenithangle.F |
152 |
EXF_ZENITHANGLE |
& wTyear1*wLat1*zen_albedo_table(iTyear1,iLat1) |
|
./pkg/exf/exf_zenithangle.F |
153 |
EXF_ZENITHANGLE |
& + wTyear1*wLat2*zen_albedo_table(iTyear1,iLat2) |
|
./pkg/exf/exf_zenithangle.F |
50 |
EXF_ZENITHANGLE |
INTEGER iLat1,iLat2,iTyear1,iTyear2 |