File |
Line number |
Procedure |
Code |
./pkg/exf/exf_zenithangle.F |
142 |
EXF_ZENITHANGLE |
wLat1=0.5 _d 0 |
./pkg/exf/exf_zenithangle.F |
147 |
EXF_ZENITHANGLE |
wLat1= 1. _d 0 + iLat1 - zen_albedo_pointer(i,j,bi,bj) |
./pkg/exf/exf_zenithangle.F |
149 |
EXF_ZENITHANGLE |
wLat2= 1. _d 0 - wLat1 |
./pkg/exf/exf_zenithangle.F |
152 |
EXF_ZENITHANGLE |
& wTyear1*wLat1*zen_albedo_table(iTyear1,iLat1) |
./pkg/exf/exf_zenithangle.F |
154 |
EXF_ZENITHANGLE |
& + wTyear2*wLat1*zen_albedo_table(iTyear2,iLat1) |
./pkg/exf/exf_zenithangle.F |
51 |
EXF_ZENITHANGLE |
_RL wLat1,wLat2,wTyear1,wTyear2 |