| File |
Line number |
Procedure |
Code |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
144 |
SWRIO |
zenith(I,j) = TEMP1(I,j) + TEMP2(I,j) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
145 |
SWRIO |
IF( zenith(I,j) .GT. 0.0 ) THEN |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
146 |
SWRIO |
zenith(I,j) = (2./3.)*( zenith(I,j)-TEMP2(I,j)*TEMP1(I,j) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
147 |
SWRIO |
. / zenith(I,j) ) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
410 |
SWRIO |
CALL STRIP ( zenith,COSZ,im*jm,ISTRIP,1,NN ) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
53 |
SWRIO |
_RL zenith (im,jm) |
|
./verification/fizhi-cs-aqualev10/code/update_earth_exports.F |
870 |
GETALB |
_RL zenith(nchp) |
|
./verification/fizhi-cs-aqualev10/code/update_earth_exports.F |
886 |
GETALB |
call GRD2MSC(cosz,im,jm,igrd,zenith,nchp,nchpland) |
|
./verification/fizhi-cs-aqualev10/code/update_earth_exports.F |
891 |
GETALB |
. agrn(1,bi,bj),zenith,snodep(1,bi,bj),ityp(1,bi,bj),nchpland) |
|
./pkg/fizhi/fizhi_swrad.F |
144 |
SWRIO |
zenith(I,j) = TEMP1(I,j) + TEMP2(I,j) |
|
./pkg/fizhi/fizhi_swrad.F |
145 |
SWRIO |
IF( zenith(I,j) .GT. 0.0 ) THEN |
|
./pkg/fizhi/fizhi_swrad.F |
146 |
SWRIO |
zenith(I,j) = (2./3.)*( zenith(I,j)-TEMP2(I,j)*TEMP1(I,j) |
|
./pkg/fizhi/fizhi_swrad.F |
147 |
SWRIO |
. / zenith(I,j) ) |
|
./pkg/fizhi/fizhi_swrad.F |
409 |
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 |
870 |
GETALB |
_RL zenith(nchp) |
|
./pkg/fizhi/update_earth_exports.F |
886 |
GETALB |
call GRD2MSC(cosz,im,jm,igrd,zenith,nchp,nchpland) |
|
./pkg/fizhi/update_earth_exports.F |
891 |
GETALB |
. agrn(1,bi,bj),zenith,snodep(1,bi,bj),ityp(1,bi,bj),nchpland) |