| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_lwrad.F |
22 |
LWRIO |
_RL pz(im,jm),plz(im,jm,lm),plze(im,jm,lm+1) |
|
./pkg/fizhi/fizhi_lwrad.F |
8 |
LWRIO |
. pz,plz,plze,dpres,pkht,pkz,tz,qz,oz, |
|
./pkg/fizhi/fizhi_moist.F |
23 |
MOISTIO |
_RL pz(im,jm),plz(im,jm,lm),plze(im,jm,lm+1),dpres(im,jm,lm) |
|
./pkg/fizhi/fizhi_moist.F |
269 |
MOISTIO |
plegather(indx,lm+1) = plze(i,j,lm+1) |
|
./pkg/fizhi/fizhi_moist.F |
287 |
MOISTIO |
plegather(indx,L) = plze(i,j,L) |
|
./pkg/fizhi/fizhi_moist.F |
7 |
MOISTIO |
. pz,plz,plze,dpres,pkht,pkl,uz,vz,tz,qz,bi,bj,ntracerin,ptracer, |
|
./pkg/fizhi/fizhi_swrad.F |
22 |
SWRIO |
_RL pz(im,jm),plz(im,jm,lm),plze(im,jm,lm+1),dpres(im,jm,lm) |
|
./pkg/fizhi/fizhi_swrad.F |
305 |
SWRIO |
call OPTHK(tdry,plz,plze,swlz,cldtot,cldmxo,landtype,im,jm,lm, |
|
./pkg/fizhi/fizhi_swrad.F |
321 |
SWRIO |
tmpdiag(i,j) = tau(i,j,L)*100/(plze(i,j,L+1)-plze(i,j,L)) |
|
./pkg/fizhi/fizhi_swrad.F |
334 |
SWRIO |
tmpdiag(i,j) = tau(i,j,L)*100/(plze(i,j,L+1)-plze(i,j,L)) |
|
./pkg/fizhi/fizhi_swrad.F |
419 |
SWRIO |
CALL STRIP ( plze, ple ,im*jm,ISTRIP,lm+1,NN) |
|
./pkg/fizhi/fizhi_swrad.F |
7 |
SWRIO |
. pz,plz,plze,dpres,pkht,pkz,tz,qz,oz,co2, |
|
./pkg/fizhi/fizhi_turb.F |
122 |
TURBIO |
_RL plz(im*jm,1,nlay),plze(im*jm,1,nlay+1),dpres(im*jm,1,nlay) |
|
./pkg/fizhi/fizhi_turb.F |
28 |
TURBIO |
2 ,plz,plze,dpres,pkht,pkz,ctmt,xxmt,yymt,zetamt,xlmt,khmt,tke |
|
./pkg/fizhi/fizhi_turb.F |
447 |
TURBIO |
call STRIP2TILE(plze,igrd,pe,nchp,ijall,istrip,nlay+1,nn) |