flux_mask.f

Go to the documentation of this file.
00001 C:\opentelemac\v7p0\sources\utils\bief\flux_mask.f
00002 !
00053                      SUBROUTINE FLUX_MASK
00054 !                    ********************
00055 !
00056      &(FXMAT,NSEG,GLOSEG,SIZGLO,MASKPT)
00057 !
00058 !***********************************************************************
00059 ! BIEF   V6P1                                   21/08/2010
00060 !***********************************************************************
00061 !
00062 !
00063 !
00064 !
00065 !
00066 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00067 !| FXMAT          |<--| MATRIX FOR STORING THE FLUXES.
00068 !| GLOSEG         |-->| FIRST AND SECOND POINT OF SEGMENTS
00069 !| MASKPT         |-->| MASKING PER POINT.
00070 !|                |   | =1. : NORMAL   =0. : MASKED
00071 !| NSEG           |-->| NUMBER OF SEGMENTS
00072 !| SIZGLO         |-->| FIRST DIMENSION OF GLOSEG
00073 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00074 !
00075       USE BIEF, EX_FLUX_MASK => FLUX_MASK
00076 !
00077       IMPLICIT NONE
00078       INTEGER LNG,LU
00079       COMMON/INFO/LNG,LU
00080 !
00081 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
00082 !
00083       INTEGER, INTENT(IN)             :: NSEG,SIZGLO
00084       INTEGER, INTENT(IN)             :: GLOSEG(SIZGLO,2)
00085       DOUBLE PRECISION, INTENT(INOUT) :: FXMAT(NSEG)
00086       DOUBLE PRECISION, INTENT(IN)    :: MASKPT(*)
00087 !
00088 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
00089 !
00090       INTEGER I
00091 !
00092 !-----------------------------------------------------------------------
00093 !
00094       DO I = 1,NSEG
00095         FXMAT(I) = FXMAT(I) * MASKPT(GLOSEG(I,1)) * MASKPT(GLOSEG(I,2))
00096       ENDDO
00097 !
00098 !-----------------------------------------------------------------------
00099 !
00100       RETURN
00101       END

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