The TELEMAC-MASCARET system  trunk
Functions/Subroutines
tvf_imp.F File Reference

Go to the source code of this file.

Functions/Subroutines

subroutine tvf_imp (F, FC, FXMAT, FXMATPAR, DT, FXBOR, HNP1MT, FBOR, SMH, YASMH, FSCEXP, NSEG, NPOIN, NPTFR, GLOSEG, SIZGLO, NBOR, LIMTRA, KDIR, KDDL, OPTSOU, IOPT2, FLBORTRA, SURNIT, MESH, SF, RAIN, PLUIE, TRAIN, TETAF, INFOGT, VOLU2D, SM, PSIEXP, AM2, BB, SLVPSI, PREDICTOR, CORRECTOR, ICOR, NCOR, MASSOU)
 

Function/Subroutine Documentation

◆ tvf_imp()

subroutine tvf_imp ( double precision, dimension(npoin), intent(inout)  F,
double precision, dimension(npoin), intent(in)  FC,
double precision, dimension(nseg), intent(in)  FXMAT,
double precision, dimension(nseg), intent(in)  FXMATPAR,
double precision, intent(in)  DT,
double precision, dimension(nptfr), intent(in)  FXBOR,
double precision, dimension(npoin), intent(in)  HNP1MT,
double precision, dimension(nptfr), intent(in)  FBOR,
double precision, dimension(*), intent(in)  SMH,
logical, intent(in)  YASMH,
double precision, dimension(*), intent(in)  FSCEXP,
integer, intent(in)  NSEG,
integer, intent(in)  NPOIN,
integer, intent(in)  NPTFR,
integer, dimension(sizglo,2), intent(in)  GLOSEG,
integer, intent(in)  SIZGLO,
integer, dimension(nptfr), intent(in)  NBOR,
integer, dimension(nptfr), intent(in)  LIMTRA,
integer, intent(in)  KDIR,
integer, intent(in)  KDDL,
integer, intent(in)  OPTSOU,
integer, intent(in)  IOPT2,
double precision, dimension(nptfr), intent(inout)  FLBORTRA,
double precision, intent(in)  SURNIT,
type(bief_mesh), intent(inout)  MESH,
type(bief_obj), intent(inout)  SF,
logical, intent(in)  RAIN,
double precision, dimension(*), intent(in)  PLUIE,
double precision, intent(in)  TRAIN,
double precision, dimension(npoin), intent(in)  TETAF,
logical, intent(in)  INFOGT,
double precision, dimension(npoin), intent(in)  VOLU2D,
type(bief_obj), intent(inout)  SM,
double precision, dimension(npoin), intent(in)  PSIEXP,
type(bief_obj), intent(inout)  AM2,
type(bief_obj), intent(inout)  BB,
type(slvcfg), intent(inout)  SLVPSI,
logical, intent(in)  PREDICTOR,
logical, intent(in)  CORRECTOR,
integer, intent(in)  ICOR,
integer, intent(in)  NCOR,
double precision, intent(inout)  MASSOU 
)
Parameters
[in]nsegDT Time-step
[out]FValues of f at time n+1 of sub-iteration
[in]FBORValues of f at the prescribed boundaries
[in]FCValues of f at time n of sub-iteration
[in,out]FLBORTRAFlux of tracer at the boundaries
[in]FSCEXPExplicit source term for f
[in]FXBORFluxes on boundaries
[in]FXMATFluxes (non assembled in parallel)
[in]FXMATPARFluxes (assembled in parallel)
[in]GLOSEGGlobal number of the 2 points of a segment.
[in]ICORCurrent correction number
[in]INFOGTIf yes, print information on solver
[in]IOPT20: conservative advection field 1: NON CONSERVATIVE ADVECTION FIELD
[in]KDDLConvention for degree of freedom
[in]KDIRConvention for dirichlet point
[in]LIMTRATechnical boundary conditions for tracers
[in]MASSOUMass added by source term
[in]MESHMesh structure
[in]NBORGlobal number of boundary points
[in]NCORTotal number of corrections asked
[in]NPOINNumber of points
[in]NPTFRNumber of boundary points
[in]NSEGNumber of segments
[in]OPTSOUType of sources 1: NORMAL 2: DIRAC
[in]PLUIERain or evaporation, in m/s
[in]RAINIf yes: rain or evaporation
[in,out]SFBief_obj structure of f
[in]SIZGLOFirst dimension of gloseg
[in]SMHSource term in continuity equation
[in]SURNITSurnit=1/nit
[in]TETAFImplicitation coefficient on f
[in]HNP1MTIntermediate depth h(n+1-teta)
[in]TRAINValue of tracer in rain
[in]VOLU2DIntegrals of test functions, not assembled in //
[in]YASMHIf yes, smh must be taken into account
[in]npoinDT Time-step
[out]FValues of f at time n+1 of sub-iteration
[in]FBORValues of f at the prescribed boundaries
[in]FCValues of f at time n of sub-iteration
[in,out]FLBORTRAFlux of tracer at the boundaries
[in]FSCEXPExplicit source term for f
[in]FXBORFluxes on boundaries
[in]FXMATFluxes (non assembled in parallel)
[in]FXMATPARFluxes (assembled in parallel)
[in]GLOSEGGlobal number of the 2 points of a segment.
[in]ICORCurrent correction number
[in]INFOGTIf yes, print information on solver
[in]IOPT20: conservative advection field 1: NON CONSERVATIVE ADVECTION FIELD
[in]KDDLConvention for degree of freedom
[in]KDIRConvention for dirichlet point
[in]LIMTRATechnical boundary conditions for tracers
[in]MASSOUMass added by source term
[in]MESHMesh structure
[in]NBORGlobal number of boundary points
[in]NCORTotal number of corrections asked
[in]NPOINNumber of points
[in]NPTFRNumber of boundary points
[in]NSEGNumber of segments
[in]OPTSOUType of sources 1: NORMAL 2: DIRAC
[in]PLUIERain or evaporation, in m/s
[in]RAINIf yes: rain or evaporation
[in,out]SFBief_obj structure of f
[in]SIZGLOFirst dimension of gloseg
[in]SMHSource term in continuity equation
[in]SURNITSurnit=1/nit
[in]TETAFImplicitation coefficient on f
[in]HNP1MTIntermediate depth h(n+1-teta)
[in]TRAINValue of tracer in rain
[in]VOLU2DIntegrals of test functions, not assembled in //
[in]YASMHIf yes, smh must be taken into account
[in]nptfrDT Time-step
[out]FValues of f at time n+1 of sub-iteration
[in]FBORValues of f at the prescribed boundaries
[in]FCValues of f at time n of sub-iteration
[in,out]FLBORTRAFlux of tracer at the boundaries
[in]FSCEXPExplicit source term for f
[in]FXBORFluxes on boundaries
[in]FXMATFluxes (non assembled in parallel)
[in]FXMATPARFluxes (assembled in parallel)
[in]GLOSEGGlobal number of the 2 points of a segment.
[in]ICORCurrent correction number
[in]INFOGTIf yes, print information on solver
[in]IOPT20: conservative advection field 1: NON CONSERVATIVE ADVECTION FIELD
[in]KDDLConvention for degree of freedom
[in]KDIRConvention for dirichlet point
[in]LIMTRATechnical boundary conditions for tracers
[in]MASSOUMass added by source term
[in]MESHMesh structure
[in]NBORGlobal number of boundary points
[in]NCORTotal number of corrections asked
[in]NPOINNumber of points
[in]NPTFRNumber of boundary points
[in]NSEGNumber of segments
[in]OPTSOUType of sources 1: NORMAL 2: DIRAC
[in]PLUIERain or evaporation, in m/s
[in]RAINIf yes: rain or evaporation
[in,out]SFBief_obj structure of f
[in]SIZGLOFirst dimension of gloseg
[in]SMHSource term in continuity equation
[in]SURNITSurnit=1/nit
[in]TETAFImplicitation coefficient on f
[in]HNP1MTIntermediate depth h(n+1-teta)
[in]TRAINValue of tracer in rain
[in]VOLU2DIntegrals of test functions, not assembled in //
[in]YASMHIf yes, smh must be taken into account
[in]kdirDT Time-step
[out]FValues of f at time n+1 of sub-iteration
[in]FBORValues of f at the prescribed boundaries
[in]FCValues of f at time n of sub-iteration
[in,out]FLBORTRAFlux of tracer at the boundaries
[in]FSCEXPExplicit source term for f
[in]FXBORFluxes on boundaries
[in]FXMATFluxes (non assembled in parallel)
[in]FXMATPARFluxes (assembled in parallel)
[in]GLOSEGGlobal number of the 2 points of a segment.
[in]ICORCurrent correction number
[in]INFOGTIf yes, print information on solver
[in]IOPT20: conservative advection field 1: NON CONSERVATIVE ADVECTION FIELD
[in]KDDLConvention for degree of freedom
[in]KDIRConvention for dirichlet point
[in]LIMTRATechnical boundary conditions for tracers
[in]MASSOUMass added by source term
[in]MESHMesh structure
[in]NBORGlobal number of boundary points
[in]NCORTotal number of corrections asked
[in]NPOINNumber of points
[in]NPTFRNumber of boundary points
[in]NSEGNumber of segments
[in]OPTSOUType of sources 1: NORMAL 2: DIRAC
[in]PLUIERain or evaporation, in m/s
[in]RAINIf yes: rain or evaporation
[in,out]SFBief_obj structure of f
[in]SIZGLOFirst dimension of gloseg
[in]SMHSource term in continuity equation
[in]SURNITSurnit=1/nit
[in]TETAFImplicitation coefficient on f
[in]HNP1MTIntermediate depth h(n+1-teta)
[in]TRAINValue of tracer in rain
[in]VOLU2DIntegrals of test functions, not assembled in //
[in]YASMHIf yes, smh must be taken into account
[in]kddlDT Time-step
[out]FValues of f at time n+1 of sub-iteration
[in]FBORValues of f at the prescribed boundaries
[in]FCValues of f at time n of sub-iteration
[in,out]FLBORTRAFlux of tracer at the boundaries
[in]FSCEXPExplicit source term for f
[in]FXBORFluxes on boundaries
[in]FXMATFluxes (non assembled in parallel)
[in]FXMATPARFluxes (assembled in parallel)
[in]GLOSEGGlobal number of the 2 points of a segment.
[in]ICORCurrent correction number
[in]INFOGTIf yes, print information on solver
[in]IOPT20: conservative advection field 1: NON CONSERVATIVE ADVECTION FIELD
[in]KDDLConvention for degree of freedom
[in]KDIRConvention for dirichlet point
[in]LIMTRATechnical boundary conditions for tracers
[in]MASSOUMass added by source term
[in]MESHMesh structure
[in]NBORGlobal number of boundary points
[in]NCORTotal number of corrections asked
[in]NPOINNumber of points
[in]NPTFRNumber of boundary points
[in]NSEGNumber of segments
[in]OPTSOUType of sources 1: NORMAL 2: DIRAC
[in]PLUIERain or evaporation, in m/s
[in]RAINIf yes: rain or evaporation
[in,out]SFBief_obj structure of f
[in]SIZGLOFirst dimension of gloseg
[in]SMHSource term in continuity equation
[in]SURNITSurnit=1/nit
[in]TETAFImplicitation coefficient on f
[in]HNP1MTIntermediate depth h(n+1-teta)
[in]TRAINValue of tracer in rain
[in]VOLU2DIntegrals of test functions, not assembled in //
[in]YASMHIf yes, smh must be taken into account

Definition at line 12 of file tvf_imp.F.

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