user_maskab.f

Go to the documentation of this file.

!                   **********************
                    SUBROUTINE user_maskab
!                   **********************
!
     &(hn , q , qu , qv , npoin)
!
!***********************************************************************
! SISYPHE
!***********************************************************************
!
!brief    ELIMINATES NEGATIVE WATER DEPTHS.
!
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!| HN             |<->| WATER DEPTH
!| NPOIN          |-->| NUMBER OF POINTS
!| Q              |-->| LIQUID DISCHARGE
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!
      IMPLICIT NONE
!
!+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
!
      INTEGER, INTENT(IN):: NPOIN
!
      DOUBLE PRECISION, INTENT(IN)    :: HN(npoin)
      DOUBLE PRECISION, INTENT(INOUT) :: Q(npoin),QU(npoin),QV(npoin)
!
!+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
!
!
!-----------------------------------------------------------------------
!
!
!-----------------------------------------------------------------------
!
      RETURN
      END SUBROUTINE user_maskab