C*********************************************************************
C*********************************************************************
C
      SUBROUTINE CLCONM
     I   ( U, W, IC1, DTI,
     O     CONVM,
     B     DENS0, FDZ,
     D     NX, NZ, NXB, NZB, NROT )
C
C*********************************************************************
      IMPLICIT REAL*8 ( A-H, O-Z )
C*********************************************************************
C
      DIMENSION
     \   U    ( -2:NXB, -2:NZB, NROT ),
     \   W    ( -2:NXB, -2:NZB, NROT ),
     \   CONVM( -2:NXB, -2:NZB ),
     \   DENS0( -2:NZB ),
     \   FDZ  ( -2:NZB )
C
C====================================================================-
C
      DO 11 IZ = 0, NZ-1
      DO 11 IX = 1, NX
         CONVM(IX,IZ) = DTI *
     \   ( (  1.125D0 * ( U(IX+1,IZ,IC1) - U(IX  ,IZ,IC1) )
     \      - 0.125D0 * ( U(IX+2,IZ,IC1) - U(IX-1,IZ,IC1) ) / 3.0D0 )
     \                 * FDZ(IZ) * DENS0(IZ)
     \      + 1.125D0
     \      * (   W(IX,IZ+1,IC1) * (DENS0(IZ)+DENS0(IZ+1)) / 2.0D0
     \          - W(IX,IZ  ,IC1) * (DENS0(IZ)+DENS0(IZ-1)) / 2.0D0 )
     \      - 0.125D0 / 3.0D0
     \      * (   W(IX,IZ+2,IC1) * (DENS0(IZ+1)+DENS0(IZ+2)) / 2.0D0
     \          - W(IX,IZ-1,IC1) * (DENS0(IZ-1)+DENS0(IZ-2)) / 2.0D0 )
     \   )
   11 CONTINUE
C
      CALL BOUND ( CONVM(-2,-2), NX, NZ, NXB, NZB, 1, 1, 1, 1 )
C
C=====================================================================
C
      RETURN
      E N D
