| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/do_fizhi.F |
110 |
DO_FIZHI |
_RL dpres(sNx,sNy,Nrphys,nSx,nSy) |
|
./pkg/fizhi/do_fizhi.F |
160 |
DO_FIZHI |
COMMON /saver/ p,pl,ple,dpres,pkle,pkl |
|
./pkg/fizhi/do_fizhi.F |
211 |
DO_FIZHI |
dpres(i,j,L,bi,bj)=(pephy(i,j,L+1,bi,bj)-pephy(i,j,L,bi,bj))/100. |
|
./pkg/fizhi/do_fizhi.F |
240 |
DO_FIZHI |
& dpres(1,1,1,bi,bj),pkle(1,1,1,bi,bj),pkl(1,1,1,bi,bj),surfZ, |
|
./pkg/fizhi/do_fizhi.F |
312 |
DO_FIZHI |
call FIZHI_STEP_DIAG(myid,p,u,v,t,q,qq,pkl,dpres, |
|
./pkg/fizhi/fizhi_driver.F |
166 |
FIZHI_DRIVER |
& p,pl,ple,dpres,pkht,pkl,t,chemq,chemo3,co2, |
|
./pkg/fizhi/fizhi_driver.F |
189 |
FIZHI_DRIVER |
& p,pl,ple,dpres,pkht,pkl,t,chemq,chemo3,co2, |
|
./pkg/fizhi/fizhi_driver.F |
204 |
FIZHI_DRIVER |
& ptop,p,u,v,t,q,ntracer,ptracer,pl,ple,dpres,pkht,pkl, |
|
./pkg/fizhi/fizhi_driver.F |
220 |
FIZHI_DRIVER |
call GWDRAG (myid,p,pl,ple,dpres,pkl,u,v,t,q,phis_var, |
|
./pkg/fizhi/fizhi_driver.F |
247 |
FIZHI_DRIVER |
& p,pl,ple,dpres,pkht,pkl,u,v,t,q,bi,bj,ntracer,ptracer,qq, |
|
./pkg/fizhi/fizhi_driver.F |
62 |
FIZHI_DRIVER |
_RL pl(im,jm,lm),ple(im,jm,lm+1),dpres(im,jm,lm) |
|
./pkg/fizhi/fizhi_driver.F |
7 |
FIZHI_DRIVER |
& p,u,v,t,q,pl,ple,dpres,pkht,pkl,surfz,fracland,landtype,radswt, |
|
./pkg/fizhi/fizhi_gwdrag.F |
166 |
GWDRAG |
call STRIPIT ( dpres,dpresstr,im*jm,im*jm,istrip,Lm,n ) |
|
./pkg/fizhi/fizhi_gwdrag.F |
257 |
GWDRAG |
sumu(i,j) = sumu(i,j) + dragu(i,j,L)*dpres(i,j,L)/pz(i,j) |
|
./pkg/fizhi/fizhi_gwdrag.F |
280 |
GWDRAG |
sumu(i,j) = sumu(i,j) + dragv(i,j,L)*dpres(i,j,L)/pz(i,j) |
|
./pkg/fizhi/fizhi_gwdrag.F |
296 |
GWDD |
. std,pl,ple,dpres, |
|
./pkg/fizhi/fizhi_gwdrag.F |
346 |
GWDD |
_RL ple(irun,Lm+1), pl(irun,Lm), dpres(irun,Lm) |
|
./pkg/fizhi/fizhi_gwdrag.F |
47 |
GWDRAG |
_RL dpres(im,jm,Lm) |
|
./pkg/fizhi/fizhi_gwdrag.F |
4 |
GWDRAG |
subroutine GWDRAG (myid,pz,pl,ple,dpres,pkz,uz,vz,tz,qz,phis_var, |
|
./pkg/fizhi/fizhi_gwdrag.F |
638 |
GWDD |
coef = -grav*ps(i)/dpres(i,Lm+1-L) |
|
./pkg/fizhi/fizhi_lwrad.F |
23 |
LWRIO |
_RL dpres(im,jm,lm),pkht(im,jm,lm+1),pkz(im,jm,lm) |
|
./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 |
289 |
MOISTIO |
dpgather(indx,L) = dpres(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 |
421 |
SWRIO |
CALL STRIP ( dpres,dpstrip,im*jm,ISTRIP,lm ,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 |
445 |
TURBIO |
call STRIP2TILE(dpres,igrd,dpstr,nchp,ijall,istrip,nlay,nn) |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
110 |
DO_FIZHI |
_RL dpres(sNx,sNy,Nrphys,nSx,nSy) |