3 use par_mod, only: nzmax, maxspec
7 real :: uprof(nzmax),vprof(nzmax),wprof(nzmax)
8 real :: usigprof(nzmax),vsigprof(nzmax),wsigprof(nzmax)
9 real :: rhoprof(nzmax),rhogradprof(nzmax)
11 real :: u,v,w,usig,vsig,wsig,pvi
13 real :: p1,p2,p3,p4,ddx,ddy,rddx,rddy,dtt,dt1,dt2
14 integer :: ix,jy,ixp,jyp,ngrid,indz,indzp
15 logical :: depoindicator(maxspec)
16 logical :: indzindicator(nzmax)