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

Go to the source code of this file.

Functions/Subroutines

subroutine bedload_formula (U2D, V2D, UCMOY, HN, CF, MU, TOB, TOBW, UW, TW, THETAW, FW, ACLADM, UNLADM, KSP, KSR, AVA, NPOIN, ICF, HIDFAC, XMVS, XMVE, DM, GRAV, VCE, HMIN, XWC, D90, KARMAN, ZERO, PI, SUSP, AC, HIDING, T1, T2, T3, T4, T5, T6, T7, T8, T9, T10, T11, TETAP, QSC, QSS, IELMT, SECCURRENT, SLOPEFF, COEFPN, CALFA, SALFA, BIJK, HOULE, SANFRA)
 

Function/Subroutine Documentation

◆ bedload_formula()

subroutine bedload_formula ( type(bief_obj), intent(in)  U2D,
type(bief_obj), intent(in)  V2D,
type(bief_obj), intent(in)  UCMOY,
type(bief_obj), intent(in)  HN,
type(bief_obj), intent(in)  CF,
type(bief_obj), intent(in)  MU,
type(bief_obj), intent(in)  TOB,
type(bief_obj), intent(in)  TOBW,
type(bief_obj), intent(in)  UW,
type(bief_obj), intent(in)  TW,
type(bief_obj), intent(in)  THETAW,
type(bief_obj), intent(in)  FW,
type(bief_obj), intent(in)  ACLADM,
type(bief_obj), intent(in)  UNLADM,
type(bief_obj), intent(in)  KSP,
type(bief_obj), intent(in)  KSR,
double precision, dimension(npoin), intent(in)  AVA,
integer, intent(in)  NPOIN,
integer, intent(in)  ICF,
integer, intent(in)  HIDFAC,
double precision, intent(in)  XMVS,
double precision, intent(in)  XMVE,
double precision, intent(in)  DM,
double precision, intent(in)  GRAV,
double precision, intent(in)  VCE,
double precision, intent(in)  HMIN,
double precision, intent(in)  XWC,
double precision, intent(in)  D90,
double precision, intent(in)  KARMAN,
double precision, intent(in)  ZERO,
double precision, intent(in)  PI,
logical, intent(in)  SUSP,
double precision, intent(inout)  AC,
type(bief_obj), intent(inout)  HIDING,
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)  TETAP,
type(bief_obj), intent(inout)  QSC,
type(bief_obj), intent(inout)  QSS,
integer, intent(in)  IELMT,
logical, intent(in)  SECCURRENT,
integer, intent(in)  SLOPEFF,
type(bief_obj), intent(inout)  COEFPN,
type(bief_obj), intent(inout)  CALFA,
type(bief_obj), intent(inout)  SALFA,
double precision, intent(in)  BIJK,
logical, intent(in)  HOULE,
double precision, dimension(npoin), intent(in)  SANFRA 
)
Parameters
[in]u2d[in, out] AC Shields parameter
[in]ACLADMMean diameter
[in]AVAPercent available
[in]BIJKEmpirical coefficient
[in]CFQuadratic friction coefficient
[in]COEFPNCoefficient for sloping bed effects
[in]D90D90
[in]DMDiameter of the class
[in]FWWave friction coefficient
[in]GRAVGravity
[in]HIDFACHiding factor formula
[in,out]HIDINGHiding factor
[in]HMINMininmum water depth
[in]HNWater depth
[in]HOULEEffect of wave
[in]ICFChoice of formula
[in]IELMTNumber of elements
[in]KARMANVon karman coefficient
[in]KSPSkin bed roughness (m)
[in]KSRRipple bed roughness (m)
[in]MUCorrection for skin friction
[in]NPOINNumber of points
[in]PIPi
[in,out]QSCBed load transport rate (m2/s)
[in,out]QSSSuspended load transport rate (m2/s)
[in]SANFRASand fraction (wilcock and crowe, 2003)
[in]SECCURRENTEffect of secundary currents
[in]SLOPEFFFormula for sloping bed effects
[in]SUSPSuspension treatment
[in,out]T1Working arrays
[in,out]T10
[in,out]T11
[in,out]T2
[in,out]T3
[in,out]T4
[in,out]T5
[in,out]T6
[in,out]T7
[in,out]T8
[in,out]T9
[in,out]TETAPAdimensional skin friction
[in]THETAWWave/current angle
[in]TOBTotal bed shear stress (n/m2)
[in]TOBWWave induced bed shear stress (n/m2)
[in]TWWave period (s)
[in]U2DLongitudinal velocity (m/s)
[in]UCMOYCurrent intensity (m/s)
[in]UNLADMDiameter of layer 2 (m)
[in]UWWave orbital velocity (m/s)
[in]V2DTransversal velocity (m/s)
[in]VCEFluid kinematic viscosity (m2/s)
[in]XMVEFluid density (kg/m3)
[in]XMVSSediment density (kg/m3)
[in]XWCSettling velocity (m/s)
[in]ZEROZero
[in]v2d[in, out] AC Shields parameter
[in]ACLADMMean diameter
[in]AVAPercent available
[in]BIJKEmpirical coefficient
[in]CFQuadratic friction coefficient
[in]COEFPNCoefficient for sloping bed effects
[in]D90D90
[in]DMDiameter of the class
[in]FWWave friction coefficient
[in]GRAVGravity
[in]HIDFACHiding factor formula
[in,out]HIDINGHiding factor
[in]HMINMininmum water depth
[in]HNWater depth
[in]HOULEEffect of wave
[in]ICFChoice of formula
[in]IELMTNumber of elements
[in]KARMANVon karman coefficient
[in]KSPSkin bed roughness (m)
[in]KSRRipple bed roughness (m)
[in]MUCorrection for skin friction
[in]NPOINNumber of points
[in]PIPi
[in,out]QSCBed load transport rate (m2/s)
[in,out]QSSSuspended load transport rate (m2/s)
[in]SANFRASand fraction (wilcock and crowe, 2003)
[in]SECCURRENTEffect of secundary currents
[in]SLOPEFFFormula for sloping bed effects
[in]SUSPSuspension treatment
[in,out]T1Working arrays
[in,out]T10
[in,out]T11
[in,out]T2
[in,out]T3
[in,out]T4
[in,out]T5
[in,out]T6
[in,out]T7
[in,out]T8
[in,out]T9
[in,out]TETAPAdimensional skin friction
[in]THETAWWave/current angle
[in]TOBTotal bed shear stress (n/m2)
[in]TOBWWave induced bed shear stress (n/m2)
[in]TWWave period (s)
[in]U2DLongitudinal velocity (m/s)
[in]UCMOYCurrent intensity (m/s)
[in]UNLADMDiameter of layer 2 (m)
[in]UWWave orbital velocity (m/s)
[in]V2DTransversal velocity (m/s)
[in]VCEFluid kinematic viscosity (m2/s)
[in]XMVEFluid density (kg/m3)
[in]XMVSSediment density (kg/m3)
[in]XWCSettling velocity (m/s)
[in]ZEROZero
[in]ucmoy[in, out] AC Shields parameter
[in]ACLADMMean diameter
[in]AVAPercent available
[in]BIJKEmpirical coefficient
[in]CFQuadratic friction coefficient
[in]COEFPNCoefficient for sloping bed effects
[in]D90D90
[in]DMDiameter of the class
[in]FWWave friction coefficient
[in]GRAVGravity
[in]HIDFACHiding factor formula
[in,out]HIDINGHiding factor
[in]HMINMininmum water depth
[in]HNWater depth
[in]HOULEEffect of wave
[in]ICFChoice of formula
[in]IELMTNumber of elements
[in]KARMANVon karman coefficient
[in]KSPSkin bed roughness (m)
[in]KSRRipple bed roughness (m)
[in]MUCorrection for skin friction
[in]NPOINNumber of points
[in]PIPi
[in,out]QSCBed load transport rate (m2/s)
[in,out]QSSSuspended load transport rate (m2/s)
[in]SANFRASand fraction (wilcock and crowe, 2003)
[in]SECCURRENTEffect of secundary currents
[in]SLOPEFFFormula for sloping bed effects
[in]SUSPSuspension treatment
[in,out]T1Working arrays
[in,out]T10
[in,out]T11
[in,out]T2
[in,out]T3
[in,out]T4
[in,out]T5
[in,out]T6
[in,out]T7
[in,out]T8
[in,out]T9
[in,out]TETAPAdimensional skin friction
[in]THETAWWave/current angle
[in]TOBTotal bed shear stress (n/m2)
[in]TOBWWave induced bed shear stress (n/m2)
[in]TWWave period (s)
[in]U2DLongitudinal velocity (m/s)
[in]UCMOYCurrent intensity (m/s)
[in]UNLADMDiameter of layer 2 (m)
[in]UWWave orbital velocity (m/s)
[in]V2DTransversal velocity (m/s)
[in]VCEFluid kinematic viscosity (m2/s)
[in]XMVEFluid density (kg/m3)
[in]XMVSSediment density (kg/m3)
[in]XWCSettling velocity (m/s)
[in]ZEROZero
[in]hn[in, out] AC Shields parameter
[in]ACLADMMean diameter
[in]AVAPercent available
[in]BIJKEmpirical coefficient
[in]CFQuadratic friction coefficient
[in]COEFPNCoefficient for sloping bed effects
[in]D90D90
[in]DMDiameter of the class
[in]FWWave friction coefficient
[in]GRAVGravity
[in]HIDFACHiding factor formula
[in,out]HIDINGHiding factor
[in]HMINMininmum water depth
[in]HNWater depth
[in]HOULEEffect of wave
[in]ICFChoice of formula
[in]IELMTNumber of elements
[in]KARMANVon karman coefficient
[in]KSPSkin bed roughness (m)
[in]KSRRipple bed roughness (m)
[in]MUCorrection for skin friction
[in]NPOINNumber of points
[in]PIPi
[in,out]QSCBed load transport rate (m2/s)
[in,out]QSSSuspended load transport rate (m2/s)
[in]SANFRASand fraction (wilcock and crowe, 2003)
[in]SECCURRENTEffect of secundary currents
[in]SLOPEFFFormula for sloping bed effects
[in]SUSPSuspension treatment
[in,out]T1Working arrays
[in,out]T10
[in,out]T11
[in,out]T2
[in,out]T3
[in,out]T4
[in,out]T5
[in,out]T6
[in,out]T7
[in,out]T8
[in,out]T9
[in,out]TETAPAdimensional skin friction
[in]THETAWWave/current angle
[in]TOBTotal bed shear stress (n/m2)
[in]TOBWWave induced bed shear stress (n/m2)
[in]TWWave period (s)
[in]U2DLongitudinal velocity (m/s)
[in]UCMOYCurrent intensity (m/s)
[in]UNLADMDiameter of layer 2 (m)
[in]UWWave orbital velocity (m/s)
[in]V2DTransversal velocity (m/s)
[in]VCEFluid kinematic viscosity (m2/s)
[in]XMVEFluid density (kg/m3)
[in]XMVSSediment density (kg/m3)
[in]XWCSettling velocity (m/s)
[in]ZEROZero
[in]cf[in, out] AC Shields parameter
[in]ACLADMMean diameter
[in]AVAPercent available
[in]BIJKEmpirical coefficient
[in]CFQuadratic friction coefficient
[in]COEFPNCoefficient for sloping bed effects
[in]D90D90
[in]DMDiameter of the class
[in]FWWave friction coefficient
[in]GRAVGravity
[in]HIDFACHiding factor formula
[in,out]HIDINGHiding factor
[in]HMINMininmum water depth
[in]HNWater depth
[in]HOULEEffect of wave
[in]ICFChoice of formula
[in]IELMTNumber of elements
[in]KARMANVon karman coefficient
[in]KSPSkin bed roughness (m)
[in]KSRRipple bed roughness (m)
[in]MUCorrection for skin friction
[in]NPOINNumber of points
[in]PIPi
[in,out]QSCBed load transport rate (m2/s)
[in,out]QSSSuspended load transport rate (m2/s)
[in]SANFRASand fraction (wilcock and crowe, 2003)
[in]SECCURRENTEffect of secundary currents
[in]SLOPEFFFormula for sloping bed effects
[in]SUSPSuspension treatment
[in,out]T1Working arrays
[in,out]T10
[in,out]T11
[in,out]T2
[in,out]T3
[in,out]T4
[in,out]T5
[in,out]T6
[in,out]T7
[in,out]T8
[in,out]T9
[in,out]TETAPAdimensional skin friction
[in]THETAWWave/current angle
[in]TOBTotal bed shear stress (n/m2)
[in]TOBWWave induced bed shear stress (n/m2)
[in]TWWave period (s)
[in]U2DLongitudinal velocity (m/s)
[in]UCMOYCurrent intensity (m/s)
[in]UNLADMDiameter of layer 2 (m)
[in]UWWave orbital velocity (m/s)
[in]V2DTransversal velocity (m/s)
[in]VCEFluid kinematic viscosity (m2/s)
[in]XMVEFluid density (kg/m3)
[in]XMVSSediment density (kg/m3)
[in]XWCSettling velocity (m/s)
[in]ZEROZero
[in]tob[in, out] AC Shields parameter
[in]ACLADMMean diameter
[in]AVAPercent available
[in]BIJKEmpirical coefficient
[in]CFQuadratic friction coefficient
[in]COEFPNCoefficient for sloping bed effects
[in]D90D90
[in]DMDiameter of the class
[in]FWWave friction coefficient
[in]GRAVGravity
[in]HIDFACHiding factor formula
[in,out]HIDINGHiding factor
[in]HMINMininmum water depth
[in]HNWater depth
[in]HOULEEffect of wave
[in]ICFChoice of formula
[in]IELMTNumber of elements
[in]KARMANVon karman coefficient
[in]KSPSkin bed roughness (m)
[in]KSRRipple bed roughness (m)
[in]MUCorrection for skin friction
[in]NPOINNumber of points
[in]PIPi
[in,out]QSCBed load transport rate (m2/s)
[in,out]QSSSuspended load transport rate (m2/s)
[in]SANFRASand fraction (wilcock and crowe, 2003)
[in]SECCURRENTEffect of secundary currents
[in]SLOPEFFFormula for sloping bed effects
[in]SUSPSuspension treatment
[in,out]T1Working arrays
[in,out]T10
[in,out]T11
[in,out]T2
[in,out]T3
[in,out]T4
[in,out]T5
[in,out]T6
[in,out]T7
[in,out]T8
[in,out]T9
[in,out]TETAPAdimensional skin friction
[in]THETAWWave/current angle
[in]TOBTotal bed shear stress (n/m2)
[in]TOBWWave induced bed shear stress (n/m2)
[in]TWWave period (s)
[in]U2DLongitudinal velocity (m/s)
[in]UCMOYCurrent intensity (m/s)
[in]UNLADMDiameter of layer 2 (m)
[in]UWWave orbital velocity (m/s)
[in]V2DTransversal velocity (m/s)
[in]VCEFluid kinematic viscosity (m2/s)
[in]XMVEFluid density (kg/m3)
[in]XMVSSediment density (kg/m3)
[in]XWCSettling velocity (m/s)
[in]ZEROZero

Definition at line 12 of file bedload_formula.f.

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