diricl.f

Go to the documentation of this file.
00001 C:\opentelemac\v7p0\sources\sisyphe\diricl.f
00002 !
00044                      SUBROUTINE DIRICL
00045 !                    *****************
00046 !
00047      &( ZF1 , ZF , EBOR , LIEBOR , NBOR , NPOIN  , NPTFR  , KENT )
00048 !
00049 !***********************************************************************
00050 ! SISYPHE   V6P1                                   21/07/2011
00051 !***********************************************************************
00052 !
00053 !
00054 !
00055 !
00056 !
00057 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00058 !| EBOR           |<->| EVOLUTION OF BOUNDARY POINTS
00059 !| KENT           |-->| CONVENTION FOR LIQUID INPUT WITH PRESCRIBED VALUE
00060 !| LIEBOR         |<->| BOUNDARY CONDITION TYPE OVER E
00061 !| NBOR           |-->| GLOBAL NUMBER OF BOUNDARY POINT
00062 !| NPOIN          |-->| NUMBER OF POINTS
00063 !| NPTFR          |-->| NUMBER OF BOUNDARY POINTS
00064 !| ZF             |-->| ELEVATION OF BOTTOM
00065 !| ZF1            |<->| ELEVATION OF BOTTOM
00066 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00067 !
00068       IMPLICIT NONE
00069       INTEGER LNG,LU
00070       COMMON/INFO/LNG,LU
00071 !
00072 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
00073 !
00074       INTEGER, INTENT(IN):: KENT,NPOIN,NPTFR
00075       INTEGER, INTENT(IN):: NBOR(NPTFR)
00076       INTEGER, INTENT(IN):: LIEBOR(NPTFR)
00077 !
00078       DOUBLE PRECISION, INTENT(IN)::  ZF(NPOIN)
00079       DOUBLE PRECISION, INTENT(INOUT):: ZF1(NPOIN)
00080       DOUBLE PRECISION, INTENT(IN) :: EBOR(NPTFR)
00081 !
00082 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
00083 !
00084       INTEGER K, N
00085 !
00086 !-----------------------------------------------------------------------
00087 !
00088       DO K=1,NPTFR
00089 !
00090         N = NBOR(K)
00091 !
00092         IF (LIEBOR(K).EQ.KENT) THEN
00093           ZF1(N)   = EBOR(K)+ZF(N)
00094         ENDIF
00095 !
00096       ENDDO
00097 !
00098 !-----------------------------------------------------------------------
00099 !
00100       RETURN
00101       END SUBROUTINE DIRICL

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