corstr.f

Go to the documentation of this file.
00001 C:\opentelemac\v7p0\sources\telemac2d\corstr.f
00002 !
00055                      SUBROUTINE CORSTR
00056 !                    *****************
00057 !
00058 !
00059 !***********************************************************************
00060 ! TELEMAC2D   V6P1                                   21/08/2010
00061 !***********************************************************************
00062 !
00063 !
00064 !
00065 !
00066 !
00067 !
00068 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00069 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00070 !
00071       USE BIEF
00072 !
00073 !     C2D: EXAMPLE FOR TELEMAC-2D
00074 !     C3D: EXAMPLE FOR TELEMAC-3D
00075 !
00076 !2D   USE DECLARATIONS_TELEMAC2D
00077 !3D   USE DECLARATIONS_TELEMAC3D
00078 !
00079       IMPLICIT NONE
00080       INTEGER LNG,LU
00081       COMMON/INFO/LNG,LU
00082 !
00083 !2D   INTEGER I
00084 !3D   INTEGER I
00085 !
00086 !-----------------------------------------------------------------------
00087 !
00088 !2D   DO I = 1 , NPOIN
00089 !2D     IF(AT.GT.1200.D0) THEN
00090 !2D       CHESTR%R(I) = 40.D0
00091 !2D     ELSE
00092 !2D       CHESTR%R(I) = 60.D0
00093 !2D     ENDIF
00094 !2D   ENDDO
00095 !
00096 !-----------------------------------------------------------------------
00097 !
00098 !3D   DO I = 1 , NPOIN2
00099 !3D     IF(AT.GT.1200.D0) THEN
00100 !3D       RUGOF%R(I) = 40.D0
00101 !3D     ELSE
00102 !3D       RUGOF%R(I) = 60.D0
00103 !3D     ENDIF
00104 !3D   ENDDO
00105 !
00106 !-----------------------------------------------------------------------
00107 !
00108       RETURN
00109       END

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