File |
Line number |
Procedure |
Code |
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
117 |
SWRIO |
tdry(i,j,L) = tz(i,j,L)*pkz(i,j,L) |
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
298 |
SWRIO |
call OPTHK(tdry,plz,plze,swlz,cldtot,cldmxo,landtype,im,jm,lm, |
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
415 |
SWRIO |
CALL STRIP ( tdry, tzl ,im*jm,ISTRIP,lm ,NN) |
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
50 |
SWRIO |
_RL tdry(im,jm,lm) |
./pkg/fizhi/fizhi_swrad.F |
117 |
SWRIO |
tdry(i,j,L) = tz(i,j,L)*pkz(i,j,L) |
./pkg/fizhi/fizhi_swrad.F |
297 |
SWRIO |
call OPTHK(tdry,plz,plze,swlz,cldtot,cldmxo,landtype,im,jm,lm, |
./pkg/fizhi/fizhi_swrad.F |
414 |
SWRIO |
CALL STRIP ( tdry, tzl ,im*jm,ISTRIP,lm ,NN) |
./pkg/fizhi/fizhi_swrad.F |
50 |
SWRIO |
_RL tdry(im,jm,lm) |