The TELEMAC-MASCARET system  trunk
Functions/Subroutines
derlag.f File Reference

Go to the source code of this file.

Functions/Subroutines

subroutine derlag (U, V, DT, X, Y, LT, IELM, IELMU, NDP, NPOIN, NELEM, NELMAX, XLAG, YLAG, DX, DY, NSP, SHPLAG, DEBLAG, FINLAG, ELTLAG, NLAG, RESUX, RESUY, ISPDONE, MESH)
 

Function/Subroutine Documentation

◆ derlag()

subroutine derlag ( double precision, dimension(npoin), intent(in)  U,
double precision, dimension(npoin), intent(in)  V,
double precision, intent(in)  DT,
double precision, dimension(npoin), intent(in)  X,
double precision, dimension(npoin), intent(in)  Y,
integer, intent(in)  LT,
integer, intent(in)  IELM,
integer, intent(in)  IELMU,
integer, intent(in)  NDP,
integer, intent(in)  NPOIN,
integer, intent(in)  NELEM,
integer, intent(in)  NELMAX,
double precision, dimension(npoin,nlag), intent(inout)  XLAG,
double precision, dimension(npoin,nlag), intent(inout)  YLAG,
double precision, dimension(npoin), intent(inout)  DX,
double precision, dimension(npoin), intent(inout)  DY,
integer, dimension(npoin), intent(inout)  NSP,
double precision, dimension(ndp,npoin,nlag), intent(inout)  SHPLAG,
integer, dimension(nlag), intent(inout)  DEBLAG,
integer, dimension(nlag), intent(inout)  FINLAG,
integer, dimension(npoin,nlag), intent(inout)  ELTLAG,
integer, intent(in)  NLAG,
double precision, dimension(npoin), intent(inout)  RESUX,
double precision, dimension(npoin), intent(inout)  RESUY,
integer, dimension(npoin), intent(inout)  ISPDONE,
type(bief_mesh), intent(inout)  MESH 
)
Parameters
[in]npoinDEBLAG Time step for starting the computation
[in]DTTime step
[in,out]DXWork array
[in,out]DYWork array
[in,out]ELTLAGElement numbers of floats
[in]FINLAGTime step for ending the computation
[in]IELMType of element in the mesh
[in]IELMUType of element for the velocities
[in]LTTime step number.
[in]MASKELMasking of elements. =1. : NORMAL =0. : MASKED ELEMENT
[in]MASKPTMasking per point.
[in]MESHMesh structure
[in]NDPNumber of points per element
[in]NELEMNumber of elements.
[in]NELMAXMaximum number of elements.
[in]NLAGNomber of floats.
[in]NPOINNumber of points
[in]NSPNumber of sub-steps in the runge-kutta method
[out]RESUXArray with successive abscissae of floats
[out]RESUYArray with successive ordinates of floats
[in,out]SHPLAGBarycentric coordinates of floats IN THEIR ELEMENTS.
[in]T8Block of work bief_obj structures.
[in]UX-component of velocity
[in]VY-component of velocity
[in]XAbscissae of points in the mesh
[in,out]XLAGInstantaneous x positions of floats
[in]YOrdinates of points in the mesh
[in,out]YLAGInstantaneous y positions of floats
[in]ltDEBLAG Time step for starting the computation
[in]DTTime step
[in,out]DXWork array
[in,out]DYWork array
[in,out]ELTLAGElement numbers of floats
[in]FINLAGTime step for ending the computation
[in]IELMType of element in the mesh
[in]IELMUType of element for the velocities
[in]LTTime step number.
[in]MASKELMasking of elements. =1. : NORMAL =0. : MASKED ELEMENT
[in]MASKPTMasking per point.
[in]MESHMesh structure
[in]NDPNumber of points per element
[in]NELEMNumber of elements.
[in]NELMAXMaximum number of elements.
[in]NLAGNomber of floats.
[in]NPOINNumber of points
[in]NSPNumber of sub-steps in the runge-kutta method
[out]RESUXArray with successive abscissae of floats
[out]RESUYArray with successive ordinates of floats
[in,out]SHPLAGBarycentric coordinates of floats IN THEIR ELEMENTS.
[in]T8Block of work bief_obj structures.
[in]UX-component of velocity
[in]VY-component of velocity
[in]XAbscissae of points in the mesh
[in,out]XLAGInstantaneous x positions of floats
[in]YOrdinates of points in the mesh
[in,out]YLAGInstantaneous y positions of floats
[in]ielmDEBLAG Time step for starting the computation
[in]DTTime step
[in,out]DXWork array
[in,out]DYWork array
[in,out]ELTLAGElement numbers of floats
[in]FINLAGTime step for ending the computation
[in]IELMType of element in the mesh
[in]IELMUType of element for the velocities
[in]LTTime step number.
[in]MASKELMasking of elements. =1. : NORMAL =0. : MASKED ELEMENT
[in]MASKPTMasking per point.
[in]MESHMesh structure
[in]NDPNumber of points per element
[in]NELEMNumber of elements.
[in]NELMAXMaximum number of elements.
[in]NLAGNomber of floats.
[in]NPOINNumber of points
[in]NSPNumber of sub-steps in the runge-kutta method
[out]RESUXArray with successive abscissae of floats
[out]RESUYArray with successive ordinates of floats
[in,out]SHPLAGBarycentric coordinates of floats IN THEIR ELEMENTS.
[in]T8Block of work bief_obj structures.
[in]UX-component of velocity
[in]VY-component of velocity
[in]XAbscissae of points in the mesh
[in,out]XLAGInstantaneous x positions of floats
[in]YOrdinates of points in the mesh
[in,out]YLAGInstantaneous y positions of floats
[in]ndpDEBLAG Time step for starting the computation
[in]DTTime step
[in,out]DXWork array
[in,out]DYWork array
[in,out]ELTLAGElement numbers of floats
[in]FINLAGTime step for ending the computation
[in]IELMType of element in the mesh
[in]IELMUType of element for the velocities
[in]LTTime step number.
[in]MASKELMasking of elements. =1. : NORMAL =0. : MASKED ELEMENT
[in]MASKPTMasking per point.
[in]MESHMesh structure
[in]NDPNumber of points per element
[in]NELEMNumber of elements.
[in]NELMAXMaximum number of elements.
[in]NLAGNomber of floats.
[in]NPOINNumber of points
[in]NSPNumber of sub-steps in the runge-kutta method
[out]RESUXArray with successive abscissae of floats
[out]RESUYArray with successive ordinates of floats
[in,out]SHPLAGBarycentric coordinates of floats IN THEIR ELEMENTS.
[in]T8Block of work bief_obj structures.
[in]UX-component of velocity
[in]VY-component of velocity
[in]XAbscissae of points in the mesh
[in,out]XLAGInstantaneous x positions of floats
[in]YOrdinates of points in the mesh
[in,out]YLAGInstantaneous y positions of floats
[in]nelemDEBLAG Time step for starting the computation
[in]DTTime step
[in,out]DXWork array
[in,out]DYWork array
[in,out]ELTLAGElement numbers of floats
[in]FINLAGTime step for ending the computation
[in]IELMType of element in the mesh
[in]IELMUType of element for the velocities
[in]LTTime step number.
[in]MASKELMasking of elements. =1. : NORMAL =0. : MASKED ELEMENT
[in]MASKPTMasking per point.
[in]MESHMesh structure
[in]NDPNumber of points per element
[in]NELEMNumber of elements.
[in]NELMAXMaximum number of elements.
[in]NLAGNomber of floats.
[in]NPOINNumber of points
[in]NSPNumber of sub-steps in the runge-kutta method
[out]RESUXArray with successive abscissae of floats
[out]RESUYArray with successive ordinates of floats
[in,out]SHPLAGBarycentric coordinates of floats IN THEIR ELEMENTS.
[in]T8Block of work bief_obj structures.
[in]UX-component of velocity
[in]VY-component of velocity
[in]XAbscissae of points in the mesh
[in,out]XLAGInstantaneous x positions of floats
[in]YOrdinates of points in the mesh
[in,out]YLAGInstantaneous y positions of floats
[in]nlagDEBLAG Time step for starting the computation
[in]DTTime step
[in,out]DXWork array
[in,out]DYWork array
[in,out]ELTLAGElement numbers of floats
[in]FINLAGTime step for ending the computation
[in]IELMType of element in the mesh
[in]IELMUType of element for the velocities
[in]LTTime step number.
[in]MASKELMasking of elements. =1. : NORMAL =0. : MASKED ELEMENT
[in]MASKPTMasking per point.
[in]MESHMesh structure
[in]NDPNumber of points per element
[in]NELEMNumber of elements.
[in]NELMAXMaximum number of elements.
[in]NLAGNomber of floats.
[in]NPOINNumber of points
[in]NSPNumber of sub-steps in the runge-kutta method
[out]RESUXArray with successive abscissae of floats
[out]RESUYArray with successive ordinates of floats
[in,out]SHPLAGBarycentric coordinates of floats IN THEIR ELEMENTS.
[in]T8Block of work bief_obj structures.
[in]UX-component of velocity
[in]VY-component of velocity
[in]XAbscissae of points in the mesh
[in,out]XLAGInstantaneous x positions of floats
[in]YOrdinates of points in the mesh
[in,out]YLAGInstantaneous y positions of floats

Definition at line 8 of file derlag.f.

+ Here is the call graph for this function:
+ Here is the caller graph for this function: