Symbol Description Uses
dpres 43


File Line number Procedure Code
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 22 SWRIO 
      _RL pz(im,jm),plz(im,jm,lm),plze(im,jm,lm+1),dpres(im,jm,lm)
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 414 SWRIO 
      CALL STRIP ( dpres,dpstrip,im*jm,ISTRIP,lm  ,NN)
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 7 SWRIO 
     .        pz,plz,plze,dpres,pkht,pkz,tz,qz,oz,co2,
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F 106 TURBIO 
      _RL plz(im,jm,nlay),plze(im,jm,nlay+1),dpres(im,jm,nlay)
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F 472 TURBIO 
       call STRIP2TILE(dpres,igrd,dpstr,nchp,ijall,istrip,nlay,nn)
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F 7 TURBIO 
     2 ,plz,plze,dpres,pkht,pkz,ctmt,xxmt,yymt,zetamt,xlmt,khmt,tke
./verification/fizhi-cs-aqualev10/code/do_fizhi.F 109 DO_FIZHI 
      _RL dpres(sNx,sNy,Nrphys,Nsx,Nsy)
./verification/fizhi-cs-aqualev10/code/do_fizhi.F 159 DO_FIZHI 
      common /saver/ pl,ple,dpres,pkle,pkl
./verification/fizhi-cs-aqualev10/code/do_fizhi.F 207 DO_FIZHI 
       dpres(i,j,L,bi,bj)=(pephy(i,j,L+1,bi,bj)-pephy(i,j,L,bi,bj))/100.
./verification/fizhi-cs-aqualev10/code/do_fizhi.F 235 DO_FIZHI 
     . dpres(1,1,1,bi,bj),pkle(1,1,1,bi,bj),pkl(1,1,1,bi,bj),surfZ,
./verification/fizhi-cs-aqualev10/code/do_fizhi.F 307 DO_FIZHI 
      call FIZHI_STEP_DIAG(myid,p,uphy,vphy,thphy,sphy,qq,pkl,dpres,
./verification/fizhi-gridalt-hs/code/do_fizhi.F 109 DO_FIZHI 
      _RL dpres(sNx,sNy,Nrphys,Nsx,Nsy)
./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 413 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_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 272 MOISTIO 
         dpgather(indx,L) = dpres(pblindex(indx),1,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_driver.F 162 FIZHI_DRIVER 
     .   p,pl,ple,dpres,pkht,pkl,t,chemq,chemo3,co2,
./pkg/fizhi/fizhi_driver.F 185 FIZHI_DRIVER 
     .   p,pl,ple,dpres,pkht,pkl,t,chemq,chemo3,co2,
./pkg/fizhi/fizhi_driver.F 199 FIZHI_DRIVER 
     .  ptop,p,u,v,t,q,ntracer,ptracer,pl,ple,dpres,pkht,pkl,
./pkg/fizhi/fizhi_driver.F 215 FIZHI_DRIVER 
      call GWDRAG (myid,p,pl,ple,dpres,pkl,u,v,t,q,phis_var,
./pkg/fizhi/fizhi_driver.F 242 FIZHI_DRIVER 
     .    p,pl,ple,dpres,pkht,pkl,u,v,t,q,bi,bj,ntracer,ptracer,qq,
./pkg/fizhi/fizhi_driver.F 60 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_turb.F 106 TURBIO 
      _RL plz(im,jm,nlay),plze(im,jm,nlay+1),dpres(im,jm,nlay)
./pkg/fizhi/fizhi_turb.F 472 TURBIO 
       call STRIP2TILE(dpres,igrd,dpstr,nchp,ijall,istrip,nlay,nn)
./pkg/fizhi/fizhi_turb.F 7 TURBIO 
     2 ,plz,plze,dpres,pkht,pkz,ctmt,xxmt,yymt,zetamt,xlmt,khmt,tke
./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/do_fizhi.F 109 DO_FIZHI 
      _RL dpres(sNx,sNy,Nrphys,Nsx,Nsy)
./pkg/fizhi/do_fizhi.F 159 DO_FIZHI 
      common /saver/ pl,ple,dpres,pkle,pkl
./pkg/fizhi/do_fizhi.F 206 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 234 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 306 DO_FIZHI 
      call FIZHI_STEP_DIAG(myid,p,uphy,vphy,thphy,sphy,qq,pkl,dpres,