maskab.f

Go to the documentation of this file.
00001 C:\opentelemac\v7p0\sources\sisyphe\maskab.f
00002 !
00039                      SUBROUTINE MASKAB
00040 !                    *****************
00041 !
00042      &(HN , Q , QU , QV , NPOIN)
00043 !
00044 !***********************************************************************
00045 ! SISYPHE   V6P1                                   21/07/2011
00046 !***********************************************************************
00047 !
00048 !
00049 !
00050 !
00051 !
00052 !
00053 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00054 !| HN             |<->| WATER DEPTH
00055 !| NPOIN          |-->| NUMBER OF POINTS
00056 !| Q              |-->| LIQUID DISCHARGE
00057 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00058 !
00059       IMPLICIT NONE
00060 !
00061 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
00062 !
00063       INTEGER, INTENT(IN):: NPOIN
00064 !
00065       DOUBLE PRECISION, INTENT(IN)    :: HN(NPOIN)
00066       DOUBLE PRECISION, INTENT(INOUT) :: Q(NPOIN),QU(NPOIN),QV(NPOIN)
00067 !
00068 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
00069 !
00070       INTEGER I
00071 !
00072 !-----------------------------------------------------------------------
00073 !
00074 !
00075 ! CAPS WATER DEPTHS
00076 !
00077 !
00078       DO I=1,NPOIN
00079 !
00080 !  TREATS NEGATIVE VALUES IN THE DOMAIN
00081 !
00082         IF(HN(I).LE.0.D0) THEN
00083           Q(I)  = 0.D0
00084           QU(I) = 0.D0
00085           QV(I) = 0.D0
00086         ENDIF
00087       ENDDO
00088 !
00089 !-----------------------------------------------------------------------
00090 !
00091       RETURN
00092       END SUBROUTINE MASKAB

Generated on Fri Aug 31 2013 18:12:58 by S.E.Bourban (HRW) using doxygen 1.7.0