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