File |
Line number |
Procedure |
Code |
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
160 |
SWRIO |
cldlow(i,j) = 0.0 |
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
205 |
SWRIO |
cldlow(i,j) = max( cldtot(i,j,L),cldlow(i,j) ) |
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
219 |
SWRIO |
. * (1.-cldlow(i,j)) |
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
254 |
SWRIO |
call DIAGNOSTICS_FILL(cldlow,'CLDLOW ',0,1,3,bi,bj,myid) |
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
347 |
SWRIO |
if( cldlow(i,j).ne.0.0 ) then |
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
57 |
SWRIO |
_RL cldlow (im,jm) |
./pkg/fizhi/fizhi_swrad.F |
160 |
SWRIO |
cldlow(i,j) = 0.0 |
./pkg/fizhi/fizhi_swrad.F |
204 |
SWRIO |
cldlow(i,j) = max( cldtot(i,j,L),cldlow(i,j) ) |
./pkg/fizhi/fizhi_swrad.F |
218 |
SWRIO |
. * (1.-cldlow(i,j)) |
./pkg/fizhi/fizhi_swrad.F |
253 |
SWRIO |
call DIAGNOSTICS_FILL(cldlow,'CLDLOW ',0,1,3,bi,bj,myid) |
./pkg/fizhi/fizhi_swrad.F |
346 |
SWRIO |
if( cldlow(i,j).ne.0.0 ) then |
./pkg/fizhi/fizhi_swrad.F |
57 |
SWRIO |
_RL cldlow (im,jm) |
./pkg/fizhi/fizhi_moist.F |
1043 |
MOISTIO |
if( L.ge.lowlevel ) cldlow(i,1) = max( cldnow,cldlow(i,1) ) |
./pkg/fizhi/fizhi_moist.F |
1061 |
MOISTIO |
. * (1.-cldlow(i,j)) |
./pkg/fizhi/fizhi_moist.F |
60 |
MOISTIO |
_RL cldhi (im,jm),cldlow(im,jm) |
./pkg/fizhi/fizhi_moist.F |
975 |
MOISTIO |
cldlow(i,j) = 0. |