href.f

Go to the documentation of this file.
00001 C:\opentelemac\v7p0\sources\telemac2d\href.f
00002 !
00062                      SUBROUTINE HREF
00063 !                    ***************
00064 !
00065 !
00066 !***********************************************************************
00067 ! TELEMAC2D   V6P1                                   21/08/2010
00068 !***********************************************************************
00069 !
00070 !
00071 !
00072 !
00073 !
00074 !
00075 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00076 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00077 !
00078       USE BIEF
00079       USE DECLARATIONS_TELEMAC2D
00080 !
00081       IMPLICIT NONE
00082       INTEGER LNG,LU
00083       COMMON/INFO/LNG,LU
00084 !
00085 !-----------------------------------------------------------------------
00086 !
00087       CALL OS( 'X=Y     ' , H0 , H , H , 0.D0 )
00088 !     NEXT LINE WILL DEGENERATE BOUSSINESQ INTO SAINT-VENANT
00089 !     CALL OS( 'X=C     ' , H0 , H , H , 0.D0 )
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