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

Go to the source code of this file.

Functions/Subroutines

subroutine bedload_main (ACLADM, KSP, KSR, V2DPAR, UNSV2D, CF, EBOR, FW, HN, LIQBOR, MASK, MASKEL, MASKPT, QBOR, U2D, V2D, S, UNLADM, UW, THETAW, MU, TOB, TOBW, TW, ZF, DEBUG, HIDFAC, ICF, IELMT, KDDL, KDIR, KENT, KLOG, KNEU, KSORT, NPOIN, NPTFR, NSICLA, OPTBAN, BETA, FD90, FDM, GRAV, HIDI, HMIN, VCE, CSF_SABLE, XMVE, XMVS, XWC, PI, KARMAN, ZERO, KARIM_HOLLY_YANG, MSK, SUSP, VF, MESH, ELAY, LIEBOR, LIMTEC, MASKTR, IT1, T1, T2, T3, T4, T5, T6, T7, T8, T9, T10, T11, T12, T13, UNORM, AC, DTS, AVAIL, BREACH, CALFA_CL, COEFPN, HIDING, QSCL_C, QSCL_S, QS_C, QSCLXC, QSXC, QSCLYC, QSYC, SALFA_CL, ZF_C, ZFCL_C, ENTETS, SECCURRENT, SLOPEFF, PHISED, DEVIA, BETA2, BIJK, SEDCO, HOULE, U3D, V3D, CODE, FLBCLA, MAXADV)
 

Function/Subroutine Documentation

◆ bedload_main()

subroutine bedload_main ( type(bief_obj), intent(in)  ACLADM,
type(bief_obj), intent(in)  KSP,
type(bief_obj), intent(in)  KSR,
type(bief_obj), intent(in)  V2DPAR,
type(bief_obj), intent(in)  UNSV2D,
type(bief_obj), intent(in)  CF,
type(bief_obj), intent(inout)  EBOR,
type(bief_obj), intent(in)  FW,
type(bief_obj), intent(in)  HN,
type(bief_obj), intent(in)  LIQBOR,
type(bief_obj), intent(in)  MASK,
type(bief_obj), intent(in)  MASKEL,
type(bief_obj), intent(in)  MASKPT,
type(bief_obj), intent(in)  QBOR,
type(bief_obj), intent(inout)  U2D,
type(bief_obj), intent(inout)  V2D,
type(bief_obj), intent(in)  S,
type(bief_obj), intent(in)  UNLADM,
type(bief_obj), intent(in)  UW,
type(bief_obj), intent(in)  THETAW,
type(bief_obj), intent(inout)  MU,
type(bief_obj), intent(inout)  TOB,
type(bief_obj), intent(in)  TOBW,
type(bief_obj), intent(in)  TW,
type(bief_obj), intent(in)  ZF,
integer, intent(in)  DEBUG,
integer, intent(in)  HIDFAC,
integer, intent(in)  ICF,
integer, intent(in)  IELMT,
integer, intent(in)  KDDL,
integer, intent(in)  KDIR,
integer, intent(in)  KENT,
integer, intent(in)  KLOG,
integer, intent(in)  KNEU,
integer, intent(in)  KSORT,
integer, intent(in)  NPOIN,
integer, intent(in)  NPTFR,
integer, intent(in)  NSICLA,
integer, intent(in)  OPTBAN,
double precision, intent(in)  BETA,
double precision, dimension(nsicla), intent(in)  FD90,
double precision, dimension(nsicla), intent(in)  FDM,
double precision, intent(in)  GRAV,
double precision, dimension(nsicla), intent(in)  HIDI,
double precision, intent(in)  HMIN,
double precision, intent(in)  VCE,
double precision, intent(in)  CSF_SABLE,
double precision, intent(in)  XMVE,
double precision, intent(in)  XMVS,
double precision, dimension(nsicla), intent(in)  XWC,
double precision, intent(in)  PI,
double precision, intent(in)  KARMAN,
double precision, intent(in)  ZERO,
double precision, intent(in)  KARIM_HOLLY_YANG,
logical, intent(in)  MSK,
logical, intent(in)  SUSP,
logical, intent(in)  VF,
type(bief_mesh), intent(inout)  MESH,
type(bief_obj), intent(inout)  ELAY,
type(bief_obj), intent(inout)  LIEBOR,
type(bief_obj), intent(inout)  LIMTEC,
type(bief_obj), intent(inout)  MASKTR,
type(bief_obj), intent(inout)  IT1,
type(bief_obj), intent(inout)  T1,
type(bief_obj), intent(inout)  T2,
type(bief_obj), intent(inout)  T3,
type(bief_obj), intent(inout)  T4,
type(bief_obj), intent(inout)  T5,
type(bief_obj), intent(inout)  T6,
type(bief_obj), intent(inout)  T7,
type(bief_obj), intent(inout)  T8,
type(bief_obj), intent(inout)  T9,
type(bief_obj), intent(inout)  T10,
type(bief_obj), intent(inout)  T11,
type(bief_obj), intent(inout)  T12,
type(bief_obj), intent(inout)  T13,
type(bief_obj), intent(inout)  UNORM,
double precision, dimension(nsicla), intent(inout)  AC,
double precision, intent(inout)  DTS,
double precision, dimension(npoin,nomblay,nsicla), intent(inout)  AVAIL,
type(bief_obj), intent(inout)  BREACH,
type(bief_obj), intent(inout)  CALFA_CL,
type(bief_obj), intent(inout)  COEFPN,
type(bief_obj), intent(inout)  HIDING,
type(bief_obj), intent(inout)  QSCL_C,
type(bief_obj), intent(inout)  QSCL_S,
type(bief_obj), intent(inout)  QS_C,
type(bief_obj), intent(inout)  QSCLXC,
type(bief_obj), intent(inout)  QSXC,
type(bief_obj), intent(inout)  QSCLYC,
type(bief_obj), intent(inout)  QSYC,
type(bief_obj), intent(inout)  SALFA_CL,
type(bief_obj), intent(inout)  ZF_C,
type(bief_obj), intent(inout)  ZFCL_C,
logical, intent(inout)  ENTETS,
logical, intent(in)  SECCURRENT,
integer, intent(in)  SLOPEFF,
double precision, intent(in)  PHISED,
integer, intent(in)  DEVIA,
double precision, intent(in)  BETA2,
double precision, intent(in)  BIJK,
logical, dimension(nsicla), intent(in)  SEDCO,
logical, intent(in)  HOULE,
type(bief_obj), intent(in)  U3D,
type(bief_obj), intent(in)  V3D,
character(len=24), intent(in)  CODE,
type(bief_obj), intent(inout)  FLBCLA,
integer, intent(in)  MAXADV 
)
Parameters
[in]acladm[in, out] AC Critical shields parameter
[in]ACLADMMean diameter of sediment
[in,out]AVAILVolume percent of each class
[in]BETACoefficient for sloping bed effect ( koch and flokstra)
[in]BETA2Coefficient for the deviation (talmon et al.)
[in]BIJKCoefficient of the bijker formula
[in,out]BREACHIndicator for non erodible bed (finite volumes shemes)
[in,out]CALFACosinus of the angle between mean flow and transport
[in]CFQuadratic friction coefficient
[in]CODEHydrodynamic code in case of coupling
[in,out]COEFPNCorrection of transort for sloping bed effect
[in]DEBUGFlag for debugging
[in]DEVIASlope effect formula for deviation
[in,out]DTSTime step for suspension
[in,out]EBORImposed boundary condition for bed evolution (dirichlet)
[in,out]ELAYThickness of surface layer
[in,out]ENTETSLogical, if yes information is given on mass conservation for suspension
[in]FD90Diameter d90
[in]FDMDiameter dm for each class
[in]FLBCLABlock of fluxes at boundary for each class
[in]FWWave friction factor
[in]GRAVAcceleration of gravity
[in]HIDFACHiding factor formulas
[in]HIDIHiding factor for particular size class (hidfac =0)
[in]HIDINGHiding factor correction
[in]HMINMinimum value of water depth
[in]HNWater depth
[in]HOULELogical, for wave effects
[in]ICFBed-load or total load transport formulas
[in]IELMTNumber of elements
[in,out]IT1Integer work array in a bief_obj structure
[in]KARMANVon karman constant
[in]KDDLConvention for degree of freedom
[in]KDIRConvention for dirichlet point
[in]KENTConvention for liquid input with prescribed value
[in]KLOGConvention for solid boundary
[in]KNEUConvention for neumann condition
[in]KSORTConvention for free output
[in]KSPBed skin roughness
[in]KSRRipple bed roughness
[in,out]LIEBORType of boundary conditions for bed evolution
[in,out]LIMTECTechnical boundary condition (neuman...)
[in]LIQBORType of boundary condition for qs
[in]MASKBlock of masks, every one for a type of boundary SEE DIFFIN.F IN LIBRARY BIEF.
[in]MASKELMasking of elements
[in]MASKPTMasking per point
[in,out]MASKTRMasking for tracers, per point
[in,out]MESHMesh structure
[in]MSKIf yes, there is masked elements
[in,out]MUCorrection factor for bed roughness
[in]NPOINNumber of points
[in]NPTFRNumber of boundary points
[in]NSICLANumber of size classes for bed materials
[in]OPTBANOption for tidal flats
[in]PHISEDAngle of repose of the sediment
[in]PIPi
[in]QBORBoundary condition for transport rate
[in,out]QSCLXCTransport rate for each class x-direction
[in,out]QSCLYCTransport rate for each class y-direction
[in,out]QSCL_CBedload transport rate
[in,out]QSCL_SSuspended load transport rate
[in,out]QSXCBedload transport rate x-direction
[in,out]QSYCBedload transport rate y-direction
[in,out]QS_CBedload transport rate
[in]SVoid structure
[in,out]SALFASinus of the angle between transport rate and current
[in]SANFRASand fraction (wilcock and crowe, 2003)
[in]SECCURRENTLogical, parametrisation for secondary currents
[in]SEDCOLogical, sediment cohesive or not
[in]SLOPEFFLogical, sloping bed effect or not
[in]SUSPLogical, suspension
[in,out]T1Work bief_obj structure
[in,out]T10Work bief_obj structure
[in,out]T11Work bief_obj structure
[in,out]T12Work bief_obj structure
[in,out]T13Work bief_obj structure
[in,out]T2Work bief_obj structure
[in,out]T3Work bief_obj structure
[in,out]T4Work bief_obj structure
[in,out]T5Work bief_obj structure
[in,out]T6Work bief_obj structure
[in,out]T7Work bief_obj structure
[in,out]T8Work bief_obj structure
[in,out]T9Work bief_obj structure
[in]THETAWAngle between wave and current
[in,out]TOBBed shear stress (total friction)
[in]TOBWWave induced shear stress
[in]TWWave period
[in,out]U2DMean flow velocity x-direction
[in]U3DThree-dimensional velocity x-direction
[in]UNLADMMean diameter of active stratum layer
[in,out]UNORMNorm of the mean flow velocity
[in]UNSV2DInverse of integrals of test functions
[in]UWOrbital wave velocity
[in,out]V2DMean flow velocity y-direction
[in]V2DPARIntegral of test functions, assembled in parallel
[in]V3DThree-dimensional velocity y-direction
[in]VCEWater viscosity
[in]VFLogical, finite volumes or not
[in]CSF_SABLEBed volume concentration csf = (1-porosity)
[in]XMVEFluid density
[in]XMVSSediment density
[in]XWCSettling velocity
[in]ZEROZero
[in]ZFElevation of bottom
[in,out]ZFCL_CBedload evolution for each sediment class
[in,out]ZF_CBedload evolution
[in]ksr[in, out] AC Critical shields parameter
[in]ACLADMMean diameter of sediment
[in,out]AVAILVolume percent of each class
[in]BETACoefficient for sloping bed effect ( koch and flokstra)
[in]BETA2Coefficient for the deviation (talmon et al.)
[in]BIJKCoefficient of the bijker formula
[in,out]BREACHIndicator for non erodible bed (finite volumes shemes)
[in,out]CALFACosinus of the angle between mean flow and transport
[in]CFQuadratic friction coefficient
[in]CODEHydrodynamic code in case of coupling
[in,out]COEFPNCorrection of transort for sloping bed effect
[in]DEBUGFlag for debugging
[in]DEVIASlope effect formula for deviation
[in,out]DTSTime step for suspension
[in,out]EBORImposed boundary condition for bed evolution (dirichlet)
[in,out]ELAYThickness of surface layer
[in,out]ENTETSLogical, if yes information is given on mass conservation for suspension
[in]FD90Diameter d90
[in]FDMDiameter dm for each class
[in]FLBCLABlock of fluxes at boundary for each class
[in]FWWave friction factor
[in]GRAVAcceleration of gravity
[in]HIDFACHiding factor formulas
[in]HIDIHiding factor for particular size class (hidfac =0)
[in]HIDINGHiding factor correction
[in]HMINMinimum value of water depth
[in]HNWater depth
[in]HOULELogical, for wave effects
[in]ICFBed-load or total load transport formulas
[in]IELMTNumber of elements
[in,out]IT1Integer work array in a bief_obj structure
[in]KARMANVon karman constant
[in]KDDLConvention for degree of freedom
[in]KDIRConvention for dirichlet point
[in]KENTConvention for liquid input with prescribed value
[in]KLOGConvention for solid boundary
[in]KNEUConvention for neumann condition
[in]KSORTConvention for free output
[in]KSPBed skin roughness
[in]KSRRipple bed roughness
[in,out]LIEBORType of boundary conditions for bed evolution
[in,out]LIMTECTechnical boundary condition (neuman...)
[in]LIQBORType of boundary condition for qs
[in]MASKBlock of masks, every one for a type of boundary SEE DIFFIN.F IN LIBRARY BIEF.
[in]MASKELMasking of elements
[in]MASKPTMasking per point
[in,out]MASKTRMasking for tracers, per point
[in,out]MESHMesh structure
[in]MSKIf yes, there is masked elements
[in,out]MUCorrection factor for bed roughness
[in]NPOINNumber of points
[in]NPTFRNumber of boundary points
[in]NSICLANumber of size classes for bed materials
[in]OPTBANOption for tidal flats
[in]PHISEDAngle of repose of the sediment
[in]PIPi
[in]QBORBoundary condition for transport rate
[in,out]QSCLXCTransport rate for each class x-direction
[in,out]QSCLYCTransport rate for each class y-direction
[in,out]QSCL_CBedload transport rate
[in,out]QSCL_SSuspended load transport rate
[in,out]QSXCBedload transport rate x-direction
[in,out]QSYCBedload transport rate y-direction
[in,out]QS_CBedload transport rate
[in]SVoid structure
[in,out]SALFASinus of the angle between transport rate and current
[in]SANFRASand fraction (wilcock and crowe, 2003)
[in]SECCURRENTLogical, parametrisation for secondary currents
[in]SEDCOLogical, sediment cohesive or not
[in]SLOPEFFLogical, sloping bed effect or not
[in]SUSPLogical, suspension
[in,out]T1Work bief_obj structure
[in,out]T10Work bief_obj structure
[in,out]T11Work bief_obj structure
[in,out]T12Work bief_obj structure
[in,out]T13Work bief_obj structure
[in,out]T2Work bief_obj structure
[in,out]T3Work bief_obj structure
[in,out]T4Work bief_obj structure
[in,out]T5Work bief_obj structure
[in,out]T6Work bief_obj structure
[in,out]T7Work bief_obj structure
[in,out]T8Work bief_obj structure
[in,out]T9Work bief_obj structure
[in]THETAWAngle between wave and current
[in,out]TOBBed shear stress (total friction)
[in]TOBWWave induced shear stress
[in]TWWave period
[in,out]U2DMean flow velocity x-direction
[in]U3DThree-dimensional velocity x-direction
[in]UNLADMMean diameter of active stratum layer
[in,out]UNORMNorm of the mean flow velocity
[in]UNSV2DInverse of integrals of test functions
[in]UWOrbital wave velocity
[in,out]V2DMean flow velocity y-direction
[in]V2DPARIntegral of test functions, assembled in parallel
[in]V3DThree-dimensional velocity y-direction
[in]VCEWater viscosity
[in]VFLogical, finite volumes or not
[in]CSF_SABLEBed volume concentration csf = (1-porosity)
[in]XMVEFluid density
[in]XMVSSediment density
[in]XWCSettling velocity
[in]ZEROZero
[in]ZFElevation of bottom
[in,out]ZFCL_CBedload evolution for each sediment class
[in,out]ZF_CBedload evolution
[in]v2dpar[in, out] AC Critical shields parameter
[in]ACLADMMean diameter of sediment
[in,out]AVAILVolume percent of each class
[in]BETACoefficient for sloping bed effect ( koch and flokstra)
[in]BETA2Coefficient for the deviation (talmon et al.)
[in]BIJKCoefficient of the bijker formula
[in,out]BREACHIndicator for non erodible bed (finite volumes shemes)
[in,out]CALFACosinus of the angle between mean flow and transport
[in]CFQuadratic friction coefficient
[in]CODEHydrodynamic code in case of coupling
[in,out]COEFPNCorrection of transort for sloping bed effect
[in]DEBUGFlag for debugging
[in]DEVIASlope effect formula for deviation
[in,out]DTSTime step for suspension
[in,out]EBORImposed boundary condition for bed evolution (dirichlet)
[in,out]ELAYThickness of surface layer
[in,out]ENTETSLogical, if yes information is given on mass conservation for suspension
[in]FD90Diameter d90
[in]FDMDiameter dm for each class
[in]FLBCLABlock of fluxes at boundary for each class
[in]FWWave friction factor
[in]GRAVAcceleration of gravity
[in]HIDFACHiding factor formulas
[in]HIDIHiding factor for particular size class (hidfac =0)
[in]HIDINGHiding factor correction
[in]HMINMinimum value of water depth
[in]HNWater depth
[in]HOULELogical, for wave effects
[in]ICFBed-load or total load transport formulas
[in]IELMTNumber of elements
[in,out]IT1Integer work array in a bief_obj structure
[in]KARMANVon karman constant
[in]KDDLConvention for degree of freedom
[in]KDIRConvention for dirichlet point
[in]KENTConvention for liquid input with prescribed value
[in]KLOGConvention for solid boundary
[in]KNEUConvention for neumann condition
[in]KSORTConvention for free output
[in]KSPBed skin roughness
[in]KSRRipple bed roughness
[in,out]LIEBORType of boundary conditions for bed evolution
[in,out]LIMTECTechnical boundary condition (neuman...)
[in]LIQBORType of boundary condition for qs
[in]MASKBlock of masks, every one for a type of boundary SEE DIFFIN.F IN LIBRARY BIEF.
[in]MASKELMasking of elements
[in]MASKPTMasking per point
[in,out]MASKTRMasking for tracers, per point
[in,out]MESHMesh structure
[in]MSKIf yes, there is masked elements
[in,out]MUCorrection factor for bed roughness
[in]NPOINNumber of points
[in]NPTFRNumber of boundary points
[in]NSICLANumber of size classes for bed materials
[in]OPTBANOption for tidal flats
[in]PHISEDAngle of repose of the sediment
[in]PIPi
[in]QBORBoundary condition for transport rate
[in,out]QSCLXCTransport rate for each class x-direction
[in,out]QSCLYCTransport rate for each class y-direction
[in,out]QSCL_CBedload transport rate
[in,out]QSCL_SSuspended load transport rate
[in,out]QSXCBedload transport rate x-direction
[in,out]QSYCBedload transport rate y-direction
[in,out]QS_CBedload transport rate
[in]SVoid structure
[in,out]SALFASinus of the angle between transport rate and current
[in]SANFRASand fraction (wilcock and crowe, 2003)
[in]SECCURRENTLogical, parametrisation for secondary currents
[in]SEDCOLogical, sediment cohesive or not
[in]SLOPEFFLogical, sloping bed effect or not
[in]SUSPLogical, suspension
[in,out]T1Work bief_obj structure
[in,out]T10Work bief_obj structure
[in,out]T11Work bief_obj structure
[in,out]T12Work bief_obj structure
[in,out]T13Work bief_obj structure
[in,out]T2Work bief_obj structure
[in,out]T3Work bief_obj structure
[in,out]T4Work bief_obj structure
[in,out]T5Work bief_obj structure
[in,out]T6Work bief_obj structure
[in,out]T7Work bief_obj structure
[in,out]T8Work bief_obj structure
[in,out]T9Work bief_obj structure
[in]THETAWAngle between wave and current
[in,out]TOBBed shear stress (total friction)
[in]TOBWWave induced shear stress
[in]TWWave period
[in,out]U2DMean flow velocity x-direction
[in]U3DThree-dimensional velocity x-direction
[in]UNLADMMean diameter of active stratum layer
[in,out]UNORMNorm of the mean flow velocity
[in]UNSV2DInverse of integrals of test functions
[in]UWOrbital wave velocity
[in,out]V2DMean flow velocity y-direction
[in]V2DPARIntegral of test functions, assembled in parallel
[in]V3DThree-dimensional velocity y-direction
[in]VCEWater viscosity
[in]VFLogical, finite volumes or not
[in]CSF_SABLEBed volume concentration csf = (1-porosity)
[in]XMVEFluid density
[in]XMVSSediment density
[in]XWCSettling velocity
[in]ZEROZero
[in]ZFElevation of bottom
[in,out]ZFCL_CBedload evolution for each sediment class
[in,out]ZF_CBedload evolution
[in]unsv2d[in, out] AC Critical shields parameter
[in]ACLADMMean diameter of sediment
[in,out]AVAILVolume percent of each class
[in]BETACoefficient for sloping bed effect ( koch and flokstra)
[in]BETA2Coefficient for the deviation (talmon et al.)
[in]BIJKCoefficient of the bijker formula
[in,out]BREACHIndicator for non erodible bed (finite volumes shemes)
[in,out]CALFACosinus of the angle between mean flow and transport
[in]CFQuadratic friction coefficient
[in]CODEHydrodynamic code in case of coupling
[in,out]COEFPNCorrection of transort for sloping bed effect
[in]DEBUGFlag for debugging
[in]DEVIASlope effect formula for deviation
[in,out]DTSTime step for suspension
[in,out]EBORImposed boundary condition for bed evolution (dirichlet)
[in,out]ELAYThickness of surface layer
[in,out]ENTETSLogical, if yes information is given on mass conservation for suspension
[in]FD90Diameter d90
[in]FDMDiameter dm for each class
[in]FLBCLABlock of fluxes at boundary for each class
[in]FWWave friction factor
[in]GRAVAcceleration of gravity
[in]HIDFACHiding factor formulas
[in]HIDIHiding factor for particular size class (hidfac =0)
[in]HIDINGHiding factor correction
[in]HMINMinimum value of water depth
[in]HNWater depth
[in]HOULELogical, for wave effects
[in]ICFBed-load or total load transport formulas
[in]IELMTNumber of elements
[in,out]IT1Integer work array in a bief_obj structure
[in]KARMANVon karman constant
[in]KDDLConvention for degree of freedom
[in]KDIRConvention for dirichlet point
[in]KENTConvention for liquid input with prescribed value
[in]KLOGConvention for solid boundary
[in]KNEUConvention for neumann condition
[in]KSORTConvention for free output
[in]KSPBed skin roughness
[in]KSRRipple bed roughness
[in,out]LIEBORType of boundary conditions for bed evolution
[in,out]LIMTECTechnical boundary condition (neuman...)
[in]LIQBORType of boundary condition for qs
[in]MASKBlock of masks, every one for a type of boundary SEE DIFFIN.F IN LIBRARY BIEF.
[in]MASKELMasking of elements
[in]MASKPTMasking per point
[in,out]MASKTRMasking for tracers, per point
[in,out]MESHMesh structure
[in]MSKIf yes, there is masked elements
[in,out]MUCorrection factor for bed roughness
[in]NPOINNumber of points
[in]NPTFRNumber of boundary points
[in]NSICLANumber of size classes for bed materials
[in]OPTBANOption for tidal flats
[in]PHISEDAngle of repose of the sediment
[in]PIPi
[in]QBORBoundary condition for transport rate
[in,out]QSCLXCTransport rate for each class x-direction
[in,out]QSCLYCTransport rate for each class y-direction
[in,out]QSCL_CBedload transport rate
[in,out]QSCL_SSuspended load transport rate
[in,out]QSXCBedload transport rate x-direction
[in,out]QSYCBedload transport rate y-direction
[in,out]QS_CBedload transport rate
[in]SVoid structure
[in,out]SALFASinus of the angle between transport rate and current
[in]SANFRASand fraction (wilcock and crowe, 2003)
[in]SECCURRENTLogical, parametrisation for secondary currents
[in]SEDCOLogical, sediment cohesive or not
[in]SLOPEFFLogical, sloping bed effect or not
[in]SUSPLogical, suspension
[in,out]T1Work bief_obj structure
[in,out]T10Work bief_obj structure
[in,out]T11Work bief_obj structure
[in,out]T12Work bief_obj structure
[in,out]T13Work bief_obj structure
[in,out]T2Work bief_obj structure
[in,out]T3Work bief_obj structure
[in,out]T4Work bief_obj structure
[in,out]T5Work bief_obj structure
[in,out]T6Work bief_obj structure
[in,out]T7Work bief_obj structure
[in,out]T8Work bief_obj structure
[in,out]T9Work bief_obj structure
[in]THETAWAngle between wave and current
[in,out]TOBBed shear stress (total friction)
[in]TOBWWave induced shear stress
[in]TWWave period
[in,out]U2DMean flow velocity x-direction
[in]U3DThree-dimensional velocity x-direction
[in]UNLADMMean diameter of active stratum layer
[in,out]UNORMNorm of the mean flow velocity
[in]UNSV2DInverse of integrals of test functions
[in]UWOrbital wave velocity
[in,out]V2DMean flow velocity y-direction
[in]V2DPARIntegral of test functions, assembled in parallel
[in]V3DThree-dimensional velocity y-direction
[in]VCEWater viscosity
[in]VFLogical, finite volumes or not
[in]CSF_SABLEBed volume concentration csf = (1-porosity)
[in]XMVEFluid density
[in]XMVSSediment density
[in]XWCSettling velocity
[in]ZEROZero
[in]ZFElevation of bottom
[in,out]ZFCL_CBedload evolution for each sediment class
[in,out]ZF_CBedload evolution

Definition at line 24 of file bedload_main.f.

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