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

Go to the source code of this file.

Functions/Subroutines

subroutine source_frazil (NPOIN, TEXP, TIMP, TN, HPROP, U, V, T1, S, MESH, DT, AT, MARDAT, MARTIM, LAMBD0, CF, AK, EP, ITURB_TEL, GRAV)
 

Function/Subroutine Documentation

◆ source_frazil()

subroutine source_frazil ( integer, intent(in)  NPOIN,
type(bief_obj), intent(inout)  TEXP,
type(bief_obj), intent(inout)  TIMP,
type(bief_obj), intent(inout)  TN,
type(bief_obj), intent(in)  HPROP,
type(bief_obj), intent(in)  U,
type(bief_obj), intent(in)  V,
type(bief_obj), intent(inout)  T1,
type(bief_obj), intent(inout)  S,
type(bief_mesh), intent(inout)  MESH,
double precision, intent(in)  DT,
double precision, intent(in)  AT,
integer, dimension(3), intent(in)  MARDAT,
integer, dimension(3), intent(in)  MARTIM,
double precision, intent(in)  LAMBD0,
type(bief_obj), intent(in)  CF,
type(bief_obj), intent(in)  AK,
type(bief_obj), intent(in)  EP,
integer, intent(in)  ITURB_TEL,
double precision, intent(in)  GRAV 
)
Parameters
[in]npoinAK Turbulent kinetic energy k at time t(n+1)
[in]ATTime in seconds
[in]DTTime step
[in]EPTurbulent energy dissipation at time t(n+1)
[in]GRAVGravity constant
[in]HPROPPropagation depth
[in]IND_TTracer index for water temperature
[in]ITURB_TELT2d turbulence model
[in]LAMBD0Latitude of origin point (keyword, in degrees)
[in]MARDATDate (year,month,day)
[in]MARTIMTime (hour,minute,second)
[in,out]MESHMesh structure
[in]NPOINNumber of nodes in the mesh
[in]NTRACNumber of tracers
[in,out]SVoid structure
[in,out]T1Working array
[out]TEXPExplicit source term.
[out]TIMPImplicit source term.
[in]TNTracers at time n
[in]UX component of the velocity
[in]VY component of the velocity
[in]iturb_telAK Turbulent kinetic energy k at time t(n+1)
[in]ATTime in seconds
[in]DTTime step
[in]EPTurbulent energy dissipation at time t(n+1)
[in]GRAVGravity constant
[in]HPROPPropagation depth
[in]IND_TTracer index for water temperature
[in]ITURB_TELT2d turbulence model
[in]LAMBD0Latitude of origin point (keyword, in degrees)
[in]MARDATDate (year,month,day)
[in]MARTIMTime (hour,minute,second)
[in,out]MESHMesh structure
[in]NPOINNumber of nodes in the mesh
[in]NTRACNumber of tracers
[in,out]SVoid structure
[in,out]T1Working array
[out]TEXPExplicit source term.
[out]TIMPImplicit source term.
[in]TNTracers at time n
[in]UX component of the velocity
[in]VY component of the velocity

Definition at line 8 of file source_frazil.f.

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