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

Go to the source code of this file.

Functions/Subroutines

subroutine flux_ef_vf_3 (PHIEL, NELEM, NELMAX, ELTSEG, ORISEG, FXMATPAR, NSEG, IKLE, NPOIN, FN, FI_I, SU, HDFDT, TETA, YAFLULIM, FLULIM, YAFLULIMEBE, FLULIMEBE)
 

Function/Subroutine Documentation

◆ flux_ef_vf_3()

subroutine flux_ef_vf_3 ( double precision, dimension(nelmax,3), intent(in)  PHIEL,
integer, intent(in)  NELEM,
integer, intent(in)  NELMAX,
integer, dimension(nelmax,3), intent(in)  ELTSEG,
integer, dimension(nelmax,3), intent(in)  ORISEG,
double precision, dimension(nseg), intent(in)  FXMATPAR,
integer, intent(in)  NSEG,
integer, dimension(nelmax,3), intent(in)  IKLE,
integer, intent(in)  NPOIN,
type(bief_obj), intent(in)  FN,
double precision, dimension(npoin), intent(inout)  FI_I,
double precision, dimension(nelem), intent(in)  SU,
double precision, dimension(npoin), intent(in)  HDFDT,
double precision, dimension(npoin), intent(in)  TETA,
logical, intent(in)  YAFLULIM,
double precision, dimension(*), intent(in)  FLULIM,
logical, intent(in)  YAFLULIMEBE,
double precision, dimension(*), intent(in)  FLULIMEBE 
)
Parameters
[in]nelemELTSEG Gives the segments in a triangle
[out]FI_IContributions to points
[in]FLULIMLimitation of fluxes by segment
[in]FLULIMEBELimitation of fluxes by segment but ebe
[in]FNTracer at time t(n)
[in]FXMARPARFluxes assembled in //
[in]HDFDTDepth*dh/dt
[in]IKLEConnectivity table
[in]NELEMNumber of elements
[in]NELEMMaximum number of elements
[in]NPOINNumber of points
[in]NSEGNumber of segments
[in]ORISEGGives the orientation of segments in a triangle
[in]PHIELPer element, fluxes leaving points
[in]SUSurface of triangles
[in]TETALocal implicitation
[in]YAFLULIMIf yes, a limitation of fluxes is given by segment
[in]YAFLULIMEBEIf yes, an ebe limitation of fluxes is given
[in]nelmaxELTSEG Gives the segments in a triangle
[out]FI_IContributions to points
[in]FLULIMLimitation of fluxes by segment
[in]FLULIMEBELimitation of fluxes by segment but ebe
[in]FNTracer at time t(n)
[in]FXMARPARFluxes assembled in //
[in]HDFDTDepth*dh/dt
[in]IKLEConnectivity table
[in]NELEMNumber of elements
[in]NELEMMaximum number of elements
[in]NPOINNumber of points
[in]NSEGNumber of segments
[in]ORISEGGives the orientation of segments in a triangle
[in]PHIELPer element, fluxes leaving points
[in]SUSurface of triangles
[in]TETALocal implicitation
[in]YAFLULIMIf yes, a limitation of fluxes is given by segment
[in]YAFLULIMEBEIf yes, an ebe limitation of fluxes is given
[in]npoinELTSEG Gives the segments in a triangle
[out]FI_IContributions to points
[in]FLULIMLimitation of fluxes by segment
[in]FLULIMEBELimitation of fluxes by segment but ebe
[in]FNTracer at time t(n)
[in]FXMARPARFluxes assembled in //
[in]HDFDTDepth*dh/dt
[in]IKLEConnectivity table
[in]NELEMNumber of elements
[in]NELEMMaximum number of elements
[in]NPOINNumber of points
[in]NSEGNumber of segments
[in]ORISEGGives the orientation of segments in a triangle
[in]PHIELPer element, fluxes leaving points
[in]SUSurface of triangles
[in]TETALocal implicitation
[in]YAFLULIMIf yes, a limitation of fluxes is given by segment
[in]YAFLULIMEBEIf yes, an ebe limitation of fluxes is given
[in]nsegELTSEG Gives the segments in a triangle
[out]FI_IContributions to points
[in]FLULIMLimitation of fluxes by segment
[in]FLULIMEBELimitation of fluxes by segment but ebe
[in]FNTracer at time t(n)
[in]FXMARPARFluxes assembled in //
[in]HDFDTDepth*dh/dt
[in]IKLEConnectivity table
[in]NELEMNumber of elements
[in]NELEMMaximum number of elements
[in]NPOINNumber of points
[in]NSEGNumber of segments
[in]ORISEGGives the orientation of segments in a triangle
[in]PHIELPer element, fluxes leaving points
[in]SUSurface of triangles
[in]TETALocal implicitation
[in]YAFLULIMIf yes, a limitation of fluxes is given by segment
[in]YAFLULIMEBEIf yes, an ebe limitation of fluxes is given

Definition at line 8 of file flux_ef_vf_3.f.

+ Here is the caller graph for this function: