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

Go to the source code of this file.

Functions/Subroutines

subroutine mass_balance (DT, NPTFR, ENTET, NSICLA, NUMLIQ, NFRLIQ, FLBCLA, LT, NIT, NPOIN, VOLU2D, CHARR, SUSP, EVCL_MB, EVCL_MS, MASSTOT, MASS0TOT)
 

Function/Subroutine Documentation

◆ mass_balance()

subroutine mass_balance ( double precision, intent(in)  DT,
integer, intent(in)  NPTFR,
logical, intent(in)  ENTET,
integer, intent(in)  NSICLA,
integer, dimension(nptfr), intent(in)  NUMLIQ,
integer, intent(in)  NFRLIQ,
type(bief_obj), intent(inout)  FLBCLA,
integer, intent(in)  LT,
integer, intent(in)  NIT,
integer, intent(in)  NPOIN,
type(bief_obj), intent(in)  VOLU2D,
logical, intent(in)  CHARR,
logical, intent(in)  SUSP,
type(bief_obj), intent(in)  EVCL_MB,
type(bief_obj), intent(in)  EVCL_MS,
double precision, dimension(nsicla), intent(in)  MASSTOT,
double precision, dimension(nsicla), intent(in)  MASS0TOT 
)
Parameters
[in]nptfrCHARR Logical, bedload or not
[in]DTTime step
[in]EBed evolution at a given time step
[in]EVCL_MBBedload mass evolution for each sediment class
[in]EVCL_MSSuspension mass evolution for each sediment class
[in,out]FLBCLABlock of fluxes at boundary for each class
[in]ENTETIf yes : information is printed
[in]LTCurrent iteration
[in]MASSTOTTotal mass per class of sediment
[in]MASS0TOTInitial total mass per class of sediment
[in]NFRLIQNumber of liquid boundaries
[in]NITNumber of time steps
[in]NPOINNumber of points
[in]NPTFRNumber of boundary nodes
[in]NSICLANumber of size classes for bed materials
[in]NUMLIQLiquid boundary number of boundary points
[in]SUSPLogical, suspension or not
[in]VOLU2DIntegral of test functions (not assembled in parallel)
[in]nfrliqCHARR Logical, bedload or not
[in]DTTime step
[in]EBed evolution at a given time step
[in]EVCL_MBBedload mass evolution for each sediment class
[in]EVCL_MSSuspension mass evolution for each sediment class
[in,out]FLBCLABlock of fluxes at boundary for each class
[in]ENTETIf yes : information is printed
[in]LTCurrent iteration
[in]MASSTOTTotal mass per class of sediment
[in]MASS0TOTInitial total mass per class of sediment
[in]NFRLIQNumber of liquid boundaries
[in]NITNumber of time steps
[in]NPOINNumber of points
[in]NPTFRNumber of boundary nodes
[in]NSICLANumber of size classes for bed materials
[in]NUMLIQLiquid boundary number of boundary points
[in]SUSPLogical, suspension or not
[in]VOLU2DIntegral of test functions (not assembled in parallel)
[in]nsiclaCHARR Logical, bedload or not
[in]DTTime step
[in]EBed evolution at a given time step
[in]EVCL_MBBedload mass evolution for each sediment class
[in]EVCL_MSSuspension mass evolution for each sediment class
[in,out]FLBCLABlock of fluxes at boundary for each class
[in]ENTETIf yes : information is printed
[in]LTCurrent iteration
[in]MASSTOTTotal mass per class of sediment
[in]MASS0TOTInitial total mass per class of sediment
[in]NFRLIQNumber of liquid boundaries
[in]NITNumber of time steps
[in]NPOINNumber of points
[in]NPTFRNumber of boundary nodes
[in]NSICLANumber of size classes for bed materials
[in]NUMLIQLiquid boundary number of boundary points
[in]SUSPLogical, suspension or not
[in]VOLU2DIntegral of test functions (not assembled in parallel)
[in]ltCHARR Logical, bedload or not
[in]DTTime step
[in]EBed evolution at a given time step
[in]EVCL_MBBedload mass evolution for each sediment class
[in]EVCL_MSSuspension mass evolution for each sediment class
[in,out]FLBCLABlock of fluxes at boundary for each class
[in]ENTETIf yes : information is printed
[in]LTCurrent iteration
[in]MASSTOTTotal mass per class of sediment
[in]MASS0TOTInitial total mass per class of sediment
[in]NFRLIQNumber of liquid boundaries
[in]NITNumber of time steps
[in]NPOINNumber of points
[in]NPTFRNumber of boundary nodes
[in]NSICLANumber of size classes for bed materials
[in]NUMLIQLiquid boundary number of boundary points
[in]SUSPLogical, suspension or not
[in]VOLU2DIntegral of test functions (not assembled in parallel)
[in]nitCHARR Logical, bedload or not
[in]DTTime step
[in]EBed evolution at a given time step
[in]EVCL_MBBedload mass evolution for each sediment class
[in]EVCL_MSSuspension mass evolution for each sediment class
[in,out]FLBCLABlock of fluxes at boundary for each class
[in]ENTETIf yes : information is printed
[in]LTCurrent iteration
[in]MASSTOTTotal mass per class of sediment
[in]MASS0TOTInitial total mass per class of sediment
[in]NFRLIQNumber of liquid boundaries
[in]NITNumber of time steps
[in]NPOINNumber of points
[in]NPTFRNumber of boundary nodes
[in]NSICLANumber of size classes for bed materials
[in]NUMLIQLiquid boundary number of boundary points
[in]SUSPLogical, suspension or not
[in]VOLU2DIntegral of test functions (not assembled in parallel)

Definition at line 9 of file mass_balance.f.

+ Here is the caller graph for this function: