flot3d.f

Go to the documentation of this file.
00001 C:\opentelemac\v7p0\sources\telemac3d\flot3d.f
00002 !
00037                      SUBROUTINE FLOT3D
00038 !                    *****************
00039 !
00040      &(XFLOT,YFLOT,ZFLOT,NFLOT,NFLOT_MAX,X,Y,Z,IKLE,NELEM,NELMAX,NPOIN,
00041      & NPLAN,TAGFLO,SHPFLO,SHZFLO,ELTFLO,ETAFLO,MESH3D,LT,NIT,AT)
00042 !
00043 !***********************************************************************
00044 ! TELEMAC3D   V6P3                                   21/08/2010
00045 !***********************************************************************
00046 !
00047 !
00048 !
00049 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00050 !| AT             |-->| TIME
00051 !| ELTFLO         |<->| NUMBERS OF ELEMENTS WHERE ARE THE FLOATS
00052 !| ETAFLO         |<->| LEVELS WHERE ARE THE FLOATS
00053 !| LT             |-->| CURRENT TIME STEP
00054 !| MESH3D         |<->| 3D MESH STRUCTURE
00055 !| NFLOT          |-->| NUMBER OF FLOATS
00056 !| NFLOT_MAX      |-->| MAXIMUM NUMBER OF FLOATS
00057 !| NIT            |-->| NUMBER OF TIME STEPS
00058 !| NPLAN          |-->| NUMBER OF PLANES
00059 !| NPOIN          |-->| NUMBER OF POINTS IN THE MESH
00060 !| SHPFLO         |<->| BARYCENTRIC COORDINATES OF FLOATS IN THEIR
00061 !|                |   | ELEMENTS.
00062 !| SHZFLO         |<->| BARYCENTRIC COORDINATES OF FLOATS IN THEIR LEVEL
00063 !| X              |-->| ABSCISSAE OF POINTS IN THE MESH
00064 !| Y              |-->| ORDINATES OF POINTS IN THE MESH
00065 !| Z              |-->| ELEVATIONS OF POINTS IN THE MESH
00066 !| XFLOT          |<->| ABSCISSAE OF FLOATING BODIES
00067 !| YFLOT          |<->| ORDINATES OF FLOATING BODIES
00068 !| ZFLOT          |<->| ELEVATIONS OF FLOATING BODIES
00069 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00070 !
00071       USE BIEF
00072       USE STREAMLINE, ONLY : ADD_PARTICLE,DEL_PARTICLE
00073 !
00074       IMPLICIT NONE
00075       INTEGER LNG,LU
00076       COMMON/INFO/LNG,LU
00077 !
00078 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
00079 !
00080       INTEGER, INTENT(IN)             :: NPOIN,NIT,NFLOT_MAX,LT,NPLAN
00081       INTEGER, INTENT(IN)             :: NELEM,NELMAX
00082       INTEGER, INTENT(IN)             :: IKLE(NELMAX,*)
00083       INTEGER, INTENT(INOUT)          :: NFLOT
00084       INTEGER, INTENT(INOUT)          :: TAGFLO(NFLOT_MAX)
00085       INTEGER, INTENT(INOUT)          :: ELTFLO(NFLOT_MAX)
00086       INTEGER, INTENT(INOUT)          :: ETAFLO(NFLOT_MAX)
00087       DOUBLE PRECISION, INTENT(IN)    :: X(NPOIN),Y(NPOIN),Z(NPOIN),AT
00088       DOUBLE PRECISION, INTENT(INOUT) :: XFLOT(NFLOT_MAX)
00089       DOUBLE PRECISION, INTENT(INOUT) :: YFLOT(NFLOT_MAX)
00090       DOUBLE PRECISION, INTENT(INOUT) :: ZFLOT(NFLOT_MAX)
00091       DOUBLE PRECISION, INTENT(INOUT) :: SHPFLO(3,NFLOT_MAX)
00092       DOUBLE PRECISION, INTENT(INOUT) :: SHZFLO(NFLOT_MAX)
00093       TYPE(BIEF_MESH) , INTENT(INOUT) :: MESH3D
00094 !
00095 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
00096 !
00097 !     IF(LT.LE.600.AND.(10*(LT/10).EQ.LT.OR.LT.EQ.1)) THEN
00098 !       CALL ADD_PARTICLE(-220.D0,400.D0+LT/3.D0,259.D0+LT/100.D0,
00099 !    &                    LT,NFLOT,
00100 !    &                    NFLOT_MAX,XFLOT,YFLOT,ZFLOT,TAGFLO,
00101 !    &                    SHPFLO,SHZFLO,ELTFLO,ETAFLO,MESH3D,NPLAN,
00102 !    &                    0.D0,0.D0,0.D0,0.D0,0,0)
00103 !     ENDIF
00104 !
00105 !     IF(LT.EQ.600) THEN
00106 !        CALL DEL_PARTICLE(20,NFLOT,NFLOT_MAX,
00107 !    &                     XFLOT,YFLOT,ZFLOT,TAGFLO,SHPFLO,SHZFLO,
00108 !    &                     ELTFLO,ETAFLO,MESH%TYPELM)
00109 !     ENDIF
00110 !
00111 !-----------------------------------------------------------------------
00112 !
00113       RETURN
00114       END

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