      real uprof(nzmax),vprof(nzmax),wprof(nzmax)
      real usigprof(nzmax),vsigprof(nzmax),wsigprof(nzmax)
      real rhoprof(nzmax),rhogradprof(nzmax)

      real u,v,w,usig,vsig,wsig,pvi

      real p1,p2,p3,p4,ddx,ddy,rddx,rddy,dtt,dt1,dt2
      integer ix,jy,ixp,jyp,ngrid,indz,indzp
      logical depoindicator(maxspec)
      logical indzindicator(nzmax)

      common /interpol/
     +uprof,vprof,wprof,usigprof,vsigprof,wsigprof,rhoprof,rhogradprof,
     +u,v,w,usig,vsig,wsig,pvi,
     +p1,p2,p3,p4,ddx,ddy,rddx,rddy,dtt,dt1,dt2,
     +ix,jy,ixp,jyp,indz,indzp,ngrid,
     +depoindicator,indzindicator

