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

Go to the source code of this file.

Functions/Subroutines

subroutine cflvf (DTMAX, HSTART, FXMAT, FXMATPAR, MAS, DT, FXBOR, SMH, YASMH, TAB1, NSEG, NPOIN, NPTFR, GLOSEG, SIZGLO, MESH, MSK, MASKPT, RAIN, PLUIE, FC, NELEM, IKLE, LIMTRA, KDIR, KDDL, FBOR, FSCEXP, TRAIN, NBOR, MINFC, MAXFC, SECU, OPT, WITHABS)
 

Function/Subroutine Documentation

◆ cflvf()

subroutine cflvf ( double precision, intent(inout)  DTMAX,
double precision, dimension(npoin), intent(in)  HSTART,
double precision, dimension(nseg), intent(in)  FXMAT,
double precision, dimension(nseg), intent(in)  FXMATPAR,
double precision, dimension(npoin), intent(in)  MAS,
double precision, intent(in)  DT,
double precision, dimension(npoin), intent(in)  FXBOR,
double precision, dimension(*), intent(in)  SMH,
logical, intent(in)  YASMH,
type(bief_obj), intent(inout)  TAB1,
integer, intent(in)  NSEG,
integer, intent(in)  NPOIN,
integer, intent(in)  NPTFR,
integer, dimension(sizglo,2), intent(in)  GLOSEG,
integer, intent(in)  SIZGLO,
type(bief_mesh), intent(inout)  MESH,
logical, intent(in)  MSK,
type(bief_obj), intent(in)  MASKPT,
logical, intent(in)  RAIN,
double precision, dimension(*), intent(in)  PLUIE,
double precision, dimension(npoin), intent(inout)  FC,
integer, intent(in)  NELEM,
integer, dimension(nelem,3), intent(in)  IKLE,
integer, dimension(nptfr), intent(in)  LIMTRA,
integer, intent(in)  KDIR,
integer, intent(in)  KDDL,
double precision, dimension(nptfr), intent(in)  FBOR,
double precision, dimension(*), intent(in)  FSCEXP,
double precision, intent(in)  TRAIN,
integer, dimension(nptfr), intent(in)  NBOR,
type(bief_obj), intent(inout)  MINFC,
type(bief_obj), intent(inout)  MAXFC,
double precision, intent(in)  SECU,
integer, intent(in)  OPT,
logical, intent(in)  WITHABS 
)
Parameters
[in]nsegDT Time step
[out]DTMAXMaximum time step for stability
[in]FXBORBoundary fluxes
[in]FXMATFluxes
[in]FXMATPARFluxes assembled in parallel
[in]GLOSEGGlobal number of the 2 points of a segment
[in]HSTARTH at beginning of sub time step
[in]MASIntegral of test functions (=area around points)
[in]MASKPTArray for masking points
[in]MESHMesh structure
[in]MSKIf yes, there is masked elements.
[in]NPOINNumber of points in the mesh
[in]NPTFRNumber of boundary points
[in]NSEGNumber of segments
[in]OPTOption: 1=classic 2=based on min and max 3=BASED ON GIVEN MIN AND MAX
[in]PLUIERain or evaporation in m/s
[in]RAINIf yes: rain or evaporation
[in]SIZGLOFirst dimension of gloseg
[in]SMHRight hand side of continuity equation
[in]TAB1Work array
[in]WITHABSIf yes, stability computed with absolute value OF FLUXES.
[in]YASMHIf yes, take shm into account
[in]npoinDT Time step
[out]DTMAXMaximum time step for stability
[in]FXBORBoundary fluxes
[in]FXMATFluxes
[in]FXMATPARFluxes assembled in parallel
[in]GLOSEGGlobal number of the 2 points of a segment
[in]HSTARTH at beginning of sub time step
[in]MASIntegral of test functions (=area around points)
[in]MASKPTArray for masking points
[in]MESHMesh structure
[in]MSKIf yes, there is masked elements.
[in]NPOINNumber of points in the mesh
[in]NPTFRNumber of boundary points
[in]NSEGNumber of segments
[in]OPTOption: 1=classic 2=based on min and max 3=BASED ON GIVEN MIN AND MAX
[in]PLUIERain or evaporation in m/s
[in]RAINIf yes: rain or evaporation
[in]SIZGLOFirst dimension of gloseg
[in]SMHRight hand side of continuity equation
[in]TAB1Work array
[in]WITHABSIf yes, stability computed with absolute value OF FLUXES.
[in]YASMHIf yes, take shm into account
[in]nptfrDT Time step
[out]DTMAXMaximum time step for stability
[in]FXBORBoundary fluxes
[in]FXMATFluxes
[in]FXMATPARFluxes assembled in parallel
[in]GLOSEGGlobal number of the 2 points of a segment
[in]HSTARTH at beginning of sub time step
[in]MASIntegral of test functions (=area around points)
[in]MASKPTArray for masking points
[in]MESHMesh structure
[in]MSKIf yes, there is masked elements.
[in]NPOINNumber of points in the mesh
[in]NPTFRNumber of boundary points
[in]NSEGNumber of segments
[in]OPTOption: 1=classic 2=based on min and max 3=BASED ON GIVEN MIN AND MAX
[in]PLUIERain or evaporation in m/s
[in]RAINIf yes: rain or evaporation
[in]SIZGLOFirst dimension of gloseg
[in]SMHRight hand side of continuity equation
[in]TAB1Work array
[in]WITHABSIf yes, stability computed with absolute value OF FLUXES.
[in]YASMHIf yes, take shm into account
[in]sizgloDT Time step
[out]DTMAXMaximum time step for stability
[in]FXBORBoundary fluxes
[in]FXMATFluxes
[in]FXMATPARFluxes assembled in parallel
[in]GLOSEGGlobal number of the 2 points of a segment
[in]HSTARTH at beginning of sub time step
[in]MASIntegral of test functions (=area around points)
[in]MASKPTArray for masking points
[in]MESHMesh structure
[in]MSKIf yes, there is masked elements.
[in]NPOINNumber of points in the mesh
[in]NPTFRNumber of boundary points
[in]NSEGNumber of segments
[in]OPTOption: 1=classic 2=based on min and max 3=BASED ON GIVEN MIN AND MAX
[in]PLUIERain or evaporation in m/s
[in]RAINIf yes: rain or evaporation
[in]SIZGLOFirst dimension of gloseg
[in]SMHRight hand side of continuity equation
[in]TAB1Work array
[in]WITHABSIf yes, stability computed with absolute value OF FLUXES.
[in]YASMHIf yes, take shm into account
[in]optDT Time step
[out]DTMAXMaximum time step for stability
[in]FXBORBoundary fluxes
[in]FXMATFluxes
[in]FXMATPARFluxes assembled in parallel
[in]GLOSEGGlobal number of the 2 points of a segment
[in]HSTARTH at beginning of sub time step
[in]MASIntegral of test functions (=area around points)
[in]MASKPTArray for masking points
[in]MESHMesh structure
[in]MSKIf yes, there is masked elements.
[in]NPOINNumber of points in the mesh
[in]NPTFRNumber of boundary points
[in]NSEGNumber of segments
[in]OPTOption: 1=classic 2=based on min and max 3=BASED ON GIVEN MIN AND MAX
[in]PLUIERain or evaporation in m/s
[in]RAINIf yes: rain or evaporation
[in]SIZGLOFirst dimension of gloseg
[in]SMHRight hand side of continuity equation
[in]TAB1Work array
[in]WITHABSIf yes, stability computed with absolute value OF FLUXES.
[in]YASMHIf yes, take shm into account

Definition at line 10 of file cflvf.f.

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