| File |
Line number |
Procedure |
Code |
|
./pkg/exf/exf_zenithangle.F |
141 |
EXF_ZENITHANGLE |
iLat1=181 |
|
./pkg/exf/exf_zenithangle.F |
146 |
EXF_ZENITHANGLE |
iLat1= INT(zen_albedo_pointer(i,j,bi,bj)) |
|
./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 |
148 |
EXF_ZENITHANGLE |
iLat2= iLat1 + 1 |
|
./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 |
50 |
EXF_ZENITHANGLE |
INTEGER iLat1,iLat2,iTyear1,iTyear2 |