| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_lwrad.F |
100 |
LWRIO |
cldtot(i,j,L)=min(1.0 _d 0,max(cldlw(i,j,L),fccave(i,j,L)/ |
|
./pkg/fizhi/fizhi_lwrad.F |
111 |
LWRIO |
cldtot(i,j,L) = min( 1.0 _d 0,cldlw(i,j,L) ) |
|
./pkg/fizhi/fizhi_lwrad.F |
135 |
LWRIO |
CALL STRIP (cldtot,CLRO ,im*jm,ISTRIP,lm ,NN) |
|
./pkg/fizhi/fizhi_lwrad.F |
41 |
LWRIO |
_RL cldtot (im,jm,lm) |
|
./pkg/fizhi/fizhi_swrad.F |
180 |
SWRIO |
cldtot(i,j,L)=min(1.0 _d 0,max(cldsw(i,j,L),fccave(i,j,L)/ |
|
./pkg/fizhi/fizhi_swrad.F |
191 |
SWRIO |
cldtot(i,j,L) = min( 1.0 _d 0,cldsw(i,j,L) ) |
|
./pkg/fizhi/fizhi_swrad.F |
207 |
SWRIO |
cldhi (i,j) = max( cldtot(i,j,L),cldhi (i,j) ) |
|
./pkg/fizhi/fizhi_swrad.F |
210 |
SWRIO |
cldmid(i,j) = max( cldtot(i,j,L),cldmid(i,j) ) |
|
./pkg/fizhi/fizhi_swrad.F |
212 |
SWRIO |
cldlow(i,j) = max( cldtot(i,j,L),cldlow(i,j) ) |
|
./pkg/fizhi/fizhi_swrad.F |
253 |
SWRIO |
tmpdiag(i,j) = cldtot(i,j,L) |
|
./pkg/fizhi/fizhi_swrad.F |
305 |
SWRIO |
call OPTHK(tdry,plz,plze,swlz,cldtot,cldmxo,landtype,im,jm,lm, |
|
./pkg/fizhi/fizhi_swrad.F |
333 |
SWRIO |
if( cldtot(i,j,L).ne.0.0 ) then |
|
./pkg/fizhi/fizhi_swrad.F |
432 |
SWRIO |
call STRIP ( cldtot,clro,im*jm,istrip,lm,nn ) |
|
./pkg/fizhi/fizhi_swrad.F |
54 |
SWRIO |
_RL cldtot (im,jm,lm) |