File |
Line number |
Procedure |
Code |
./pkg/fizhi/fizhi_moist.F |
1023 |
MOISTIO |
cldhi (i,j) = 0. |
./pkg/fizhi/fizhi_moist.F |
1097 |
MOISTIO |
if( L.lt.midlevel ) cldhi (i,j) = max( cldnow,cldhi (i,j) ) |
./pkg/fizhi/fizhi_moist.F |
1117 |
MOISTIO |
totcld(i,j) = 1.0 - (1.-cldhi (i,j)) |
./pkg/fizhi/fizhi_moist.F |
60 |
MOISTIO |
_RL cldhi (im,jm),cldlow(im,jm) |
./pkg/fizhi/fizhi_swrad.F |
170 |
SWRIO |
cldhi (i,j) = 0.0 |
./pkg/fizhi/fizhi_swrad.F |
207 |
SWRIO |
cldhi (i,j) = max( cldtot(i,j,L),cldhi (i,j) ) |
./pkg/fizhi/fizhi_swrad.F |
224 |
SWRIO |
totcld(i,j) = 1.0 - (1.-cldhi (i,j)) |
./pkg/fizhi/fizhi_swrad.F |
269 |
SWRIO |
call DIAGNOSTICS_FILL(cldhi,'CLDHI ',0,1,3,bi,bj,myid) |
./pkg/fizhi/fizhi_swrad.F |
392 |
SWRIO |
if( cldhi(i,j).ne.0.0 ) then |
./pkg/fizhi/fizhi_swrad.F |
59 |
SWRIO |
_RL cldhi (im,jm) |