| File |
Line number |
Procedure |
Code |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
172 |
SWRIO |
cldtot(i,j,L)=min(1.0 _d 0,max(cldsw(i,j,L),fccave(i,j,L)/ |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
184 |
SWRIO |
cldtot(i,j,L) = min( 1.0 _d 0,cldsw(i,j,L) ) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
200 |
SWRIO |
cldhi (i,j) = max( cldtot(i,j,L),cldhi (i,j) ) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
203 |
SWRIO |
cldmid(i,j) = max( cldtot(i,j,L),cldmid(i,j) ) |
|
./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 |
246 |
SWRIO |
tmpdiag(i,j) = cldtot(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 |
326 |
SWRIO |
if( cldtot(i,j,L).ne.0.0 ) then |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
425 |
SWRIO |
call STRIP ( cldtot,clro,im*jm,istrip,lm,nn ) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
54 |
SWRIO |
_RL cldtot (im,jm,lm) |
|
./pkg/fizhi/fizhi_swrad.F |
172 |
SWRIO |
cldtot(i,j,L)=min(1.0 _d 0,max(cldsw(i,j,L),fccave(i,j,L)/ |
|
./pkg/fizhi/fizhi_swrad.F |
183 |
SWRIO |
cldtot(i,j,L) = min( 1.0 _d 0,cldsw(i,j,L) ) |
|
./pkg/fizhi/fizhi_swrad.F |
199 |
SWRIO |
cldhi (i,j) = max( cldtot(i,j,L),cldhi (i,j) ) |
|
./pkg/fizhi/fizhi_swrad.F |
202 |
SWRIO |
cldmid(i,j) = max( cldtot(i,j,L),cldmid(i,j) ) |
|
./pkg/fizhi/fizhi_swrad.F |
204 |
SWRIO |
cldlow(i,j) = max( cldtot(i,j,L),cldlow(i,j) ) |
|
./pkg/fizhi/fizhi_swrad.F |
245 |
SWRIO |
tmpdiag(i,j) = cldtot(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 |
325 |
SWRIO |
if( cldtot(i,j,L).ne.0.0 ) then |
|
./pkg/fizhi/fizhi_swrad.F |
424 |
SWRIO |
call STRIP ( cldtot,clro,im*jm,istrip,lm,nn ) |
|
./pkg/fizhi/fizhi_swrad.F |
54 |
SWRIO |
_RL cldtot (im,jm,lm) |
|
./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) |