c***********************************************************************
      INTEGER NGMX,NMX,NGMY,NMY,NGMZ,NMZ
      DOUBLE PRECISION MAXCFL
c---      PARAMETER (NGMX=8,NMX=2**NGMX+2,MAXCFL=0.5d0)
      PARAMETER (NGMX=6,NMX=2**NGMX+2,MAXCFL=0.5d0)
      PARAMETER (NGMY=6,NMY=2**NGMY+2)
      PARAMETER (NGMZ=6,NMZ=2**NGMZ+2)
      DOUBLE PRECISION u(NMX,NMY,NMZ),v(NMX,NMY,NMZ),w(NMX,NMY,NMZ)
      DOUBLE PRECISION S11(NMX,NMY,NMZ),S22(NMX,NMY,NMZ),
     %                 S33(NMX,NMY,NMZ),S12(NMX,NMY,NMZ),
     %                 S13(NMX,NMY,NMZ),S23(NMX,NMY,NMZ)
      common /surfcom/ u,v,w,S11,S22,S33,S12,S13,S23