strche.f

Go to the documentation of this file.
00001 C:\opentelemac\v7p0\sources\utils\bief\strche.f
00002 !
00058                      SUBROUTINE STRCHE
00059 !                    *****************
00060 !
00061 !
00062 !***********************************************************************
00063 ! BIEF   V6P1                                   21/08/2010
00064 !***********************************************************************
00065 !
00066 !
00067 !
00068 !
00069 !
00070 !
00071 !
00072 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00073 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00074 !
00075       USE BIEF
00076 !
00077 !     DECLARATIONS MUST BE ADAPTED TO EVERY CODE
00078 !     THIS EXAMPLE APPLIES TO TELEMAC2D
00079 !
00080 !EX   USE DECLARATIONS_TELEMAC2D
00081 !
00082       IMPLICIT NONE
00083       INTEGER LNG,LU
00084       COMMON/INFO/LNG,LU
00085 !
00086 !EX   INTEGER I
00087 !
00088 !-----------------------------------------------------------------------
00089 !
00090 !     HERE A CONSTANT FRICTION VALUE IS GIVEN
00091 !
00092 !EX   DO I=1,NPOIN
00093 !EX     CHESTR%R(I) = 60.D0
00094 !EX   ENDDO
00095 !
00096 !-----------------------------------------------------------------------
00097 !
00098 !     COMMENTS HERE MAY BE CHANGED
00099 !
00100       IF(LNG.EQ.1) THEN
00101         WRITE(LU,*) 'STRCHE (BIEF) : PAS DE MODIFICATION DU FROTTEMENT'
00102         WRITE(LU,*)
00103       ENDIF
00104       IF(LNG.EQ.2) THEN
00105         WRITE(LU,*) 'STRCHE (BIEF): NO MODIFICATION OF FRICTION'
00106         WRITE(LU,*)
00107       ENDIF
00108 !
00109 !-----------------------------------------------------------------------
00110 !
00111       RETURN
00112       END

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