source_telemac2d.f

Go to the documentation of this file.
00001 C:\opentelemac\v7p0\sources\telemac2d\source_telemac2d.f
00002 !
00055                      SUBROUTINE SOURCE_TELEMAC2D
00056 !                    ***************************
00057 !
00058 !
00059 !***********************************************************************
00060 ! TELEMAC2D   V6P1                                   21/08/2010
00061 !***********************************************************************
00062 !
00063 !
00064 !
00065 !
00066 !
00067 !
00068 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00069 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00070 !
00071       USE BIEF
00072 !     USE DECLARATIONS_TELEMAC2D
00073 !
00074       IMPLICIT NONE
00075 !
00076 !     INTEGER I
00077 !
00078 !-----------------------------------------------------------------------
00079 !
00080 !     EXAMPLE
00081 !
00082 !     NREJET = ?  (UNTIL MAXSCE)
00083 !     NREJEU = NREJET (IF VELOCITIES GIVEN)
00084 !
00085 !     DO I=1,NREJET
00086 !
00087 !       XSCE(I) = ???
00088 !       YSCE(I) = ???
00089 !       DSCE(I) = ???
00090 !       TSCE(I) = ???
00091 !       USCE(I) = ???
00092 !       VSCE(I) = ???
00093 !
00094 !     ENDDO
00095 !
00096 !-----------------------------------------------------------------------
00097 !
00098       RETURN
00099       END

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