masktf.f

Go to the documentation of this file.
00001 C:\opentelemac\v7p0\sources\utils\bief\masktf.f
00002 !
00052                      SUBROUTINE MASKTF
00053 !                    *****************
00054 !
00055      &(MASKEL,HN,HMIN,IKLE,NELEM,NPOIN)
00056 !
00057 !***********************************************************************
00058 ! BIEF   V6P1                                   21/08/2010
00059 !***********************************************************************
00060 !
00061 !
00062 !
00063 !
00064 !
00065 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00066 !| HMIN           |-->| MINIMUM VALUE OF DEPTH
00067 !| HN             |-->| WATER DEPTH AT TIME N
00068 !| IKLE           |-->| CONNECTIVITY TABLE.
00069 !| MASKEL         |<--| MASKING OF ELEMENTS
00070 !|                |   | =1. : NORMAL   =0. : MASKED ELEMENT
00071 !| NELEM          |-->| NUMBER OF ELEMENTS
00072 !| NPOIN          |-->| NUMBER OF POINTS
00073 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00074 !
00075       IMPLICIT NONE
00076 !
00077 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
00078 !
00079       INTEGER, INTENT(IN)             :: NELEM,NPOIN
00080       INTEGER, INTENT(IN)             :: IKLE(NELEM,3)
00081       DOUBLE PRECISION, INTENT(IN)    :: HN(NPOIN)
00082       DOUBLE PRECISION, INTENT(IN)    :: HMIN
00083       DOUBLE PRECISION, INTENT(INOUT) :: MASKEL(NELEM)
00084 !
00085 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
00086 !
00087       INTEGER IELEM,I1,I2,I3
00088 !
00089 !-----------------------------------------------------------------------
00090 !
00091       DO IELEM = 1,NELEM
00092         I1 = IKLE(IELEM,1)
00093         I2 = IKLE(IELEM,2)
00094         I3 = IKLE(IELEM,3)
00095         IF(HN(I1).LE.HMIN.OR.HN(I2).LE.HMIN.OR.HN(I3).LE.HMIN) THEN
00096           MASKEL(IELEM) = 0.D0
00097         ENDIF
00098       ENDDO
00099 !
00100 !-----------------------------------------------------------------------
00101 !
00102       RETURN
00103       END

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