| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_swrad.F |
152 |
SWRIO |
zenith(I,j) = TEMP1(I,j) + TEMP2(I,j) |
|
./pkg/fizhi/fizhi_swrad.F |
153 |
SWRIO |
IF( zenith(I,j) .GT. 0.0 ) THEN |
|
./pkg/fizhi/fizhi_swrad.F |
154 |
SWRIO |
zenith(I,j) = (2./3.)*( zenith(I,j)-TEMP2(I,j)*TEMP1(I,j) |
|
./pkg/fizhi/fizhi_swrad.F |
155 |
SWRIO |
. / zenith(I,j) ) |
|
./pkg/fizhi/fizhi_swrad.F |
417 |
SWRIO |
CALL STRIP ( zenith,COSZ,im*jm,ISTRIP,1,NN ) |
|
./pkg/fizhi/fizhi_swrad.F |
53 |
SWRIO |
_RL zenith (im,jm) |
|
./pkg/fizhi/update_earth_exports.F |
883 |
GETALB |
_RL zenith(nchp) |
|
./pkg/fizhi/update_earth_exports.F |
899 |
GETALB |
call GRD2MSC(cosz,im,jm,igrd(1,bi,bj),zenith,nchp,nchpland) |
|
./pkg/fizhi/update_earth_exports.F |
904 |
GETALB |
& agrn(1,bi,bj),zenith,snodep(1,bi,bj),ityp(1,bi,bj),nchpland) |