loiden.f

Go to the documentation of this file.
00001 C:\opentelemac\v7p0\sources\telemac2d\loiden.f
00002 !
00048                      SUBROUTINE LOIDEN
00049 !                    *****************
00050 !
00051      &(YAM,YS,PHI,DEB,G)
00052 !
00053 !***********************************************************************
00054 ! TELEMAC2D   V6P1                                   21/08/2010
00055 !***********************************************************************
00056 !
00057 !
00058 !
00059 !
00060 !
00061 !
00062 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00063 !| DEB            |<--| DISCHARGE OF WEIR
00064 !| G              |-->| GRAVITY.
00065 !| PHI            |-->| DISCHARGE COEFFICIENT OF WEIR.
00066 !| YAM            |-->| UPSTREAM ELEVATION
00067 !| YS             |-->| ELEVATION OF WEIR
00068 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00069 !
00070       IMPLICIT NONE
00071       INTEGER LNG,LU
00072       COMMON/INFO/LNG,LU
00073 !
00074 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
00075 !
00076       DOUBLE PRECISION, INTENT(INOUT) :: DEB
00077       DOUBLE PRECISION, INTENT(IN)    :: G,YAM,PHI,YS
00078 !
00079 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
00080 !
00081       INTRINSIC SQRT
00082 !
00083 !-----------------------------------------------------------------------
00084 !
00085       IF(YAM.GT.YS) THEN
00086         DEB=PHI*SQRT(2.D0*G)*(YAM-YS)**1.5D0
00087       ELSE
00088         DEB=0.D0
00089       ENDIF
00090 !
00091 !-----------------------------------------------------------------------
00092 !
00093       RETURN
00094       END

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