c     domain lengths as multiples of the jet diameter.

      REAL lr,lz

      PARAMETER (lr=3.0)
      PARAMETER (lz=6.0)

c     inlet pipe turbulence stuff

      integer pimax,pjmax,pkmax,pi1,pj1,pk1

      parameter (pimax = 64)
      parameter (pjmax = 48)
      parameter (pkmax = 64)

      parameter (pi1 = pimax+1)
      parameter (pj1 = pjmax+1)
      parameter (pk1 = pkmax+1)

      real plz
      parameter (plz=5.0)


