C*********************************************************************
C*********************************************************************
C
      SUBROUTINE CLWFLX
     I   ( U, W,
     I     ICL,
     O     UFLX, WFLX,
     B     FDZ, DENS0,
     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 ),
     \    UFLX( -2:NXB, -2:NZB ),
     \    WFLX( -2:NXB, -2:NZB )
C
      DIMENSION
     \    FDZ ( -2:NZB ), DENS0( -2:NZB )
C
C===========================================================
C
      DO 21 IZ = 0, NZ
      DO 21 IX = 1, NX
         UFLX(IX,IZ) =   U(IX,IZ,ICL) * FDZ(IZ) * DENS0(IZ)
         WFLX(IX,IZ) =   W(IX,IZ,ICL)
     \                 * ( DENS0(IZ) + DENS0(IZ-1) ) / 2.0D0
   21 CONTINUE
C
C-----------------------------------------------------------
C
      CALL BOUND ( UFLX, NX, NZ, NXB, NZB, 1, 1, 1, 1 )
      CALL BOUND ( WFLX, NX, NZ, NXB, NZB, 1,-1, 0, 1 )
C
C===========================================================
C
      RETURN
      E N D
