| File |
Line number |
Procedure |
Code |
|
./pkg/exf/exf_zenithangle.F |
122 |
EXF_ZENITHANGLE |
iLat1=181 |
|
./pkg/exf/exf_zenithangle.F |
127 |
EXF_ZENITHANGLE |
iLat1= zen_albedo_pointer(i,j,bi,bj) |
|
./pkg/exf/exf_zenithangle.F |
128 |
EXF_ZENITHANGLE |
wLat1= 1. _d 0 + iLat1 - zen_albedo_pointer(i,j,bi,bj) |
|
./pkg/exf/exf_zenithangle.F |
129 |
EXF_ZENITHANGLE |
iLat2= iLat1 + 1 |
|
./pkg/exf/exf_zenithangle.F |
134 |
EXF_ZENITHANGLE |
& wTyear1*wLat1*zen_albedo_table(iTyear1,iLat1)+ |
|
./pkg/exf/exf_zenithangle.F |
136 |
EXF_ZENITHANGLE |
& wTyear2*wLat1*zen_albedo_table(iTyear2,iLat1)+ |
|
./pkg/exf/exf_zenithangle.F |
47 |
EXF_ZENITHANGLE |
integer iLat1,iLat2,iTyear1,iTyear2 |