| File |
Line number |
Procedure |
Code |
|
./pkg/exf/exf_zenithangle.F |
112 |
EXF_ZENITHANGLE |
iLat1=181 |
|
./pkg/exf/exf_zenithangle.F |
117 |
EXF_ZENITHANGLE |
iLat1= zen_albedo_pointer(i,j,bi,bj) |
|
./pkg/exf/exf_zenithangle.F |
118 |
EXF_ZENITHANGLE |
wLat1= 1. _d 0 + iLat1 - zen_albedo_pointer(i,j,bi,bj) |
|
./pkg/exf/exf_zenithangle.F |
119 |
EXF_ZENITHANGLE |
iLat2= iLat1 + 1 |
|
./pkg/exf/exf_zenithangle.F |
124 |
EXF_ZENITHANGLE |
& wTyear1*wLat1*zen_albedo_table(iTyear1,iLat1)+ |
|
./pkg/exf/exf_zenithangle.F |
126 |
EXF_ZENITHANGLE |
& wTyear2*wLat1*zen_albedo_table(iTyear2,iLat1)+ |
|
./pkg/exf/exf_zenithangle.F |
41 |
EXF_ZENITHANGLE |
INTEGER iLat1,iLat2,iTyear1,iTyear2 |