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

Go to the source code of this file.

Functions/Subroutines

subroutine bedload_formula_gaia (U2D, V2D, UNORM, HN, CF, MU, TOB, TOBW, UW, TW, THETAW, FW, ACLADM, UNLADM, KSP, KSR, RATIO_SAND, NPOIN, ICF, HIDFAC, XMVS, XMVE, DCLA, GRAV, VCE, HMIN, XWC, 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, H_TEL, HW, THETAC, TOBCW_MEAN, TOBCW_MAX, CSTAEQ, SANFRA)
 

Function/Subroutine Documentation

◆ bedload_formula_gaia()

subroutine bedload_formula_gaia ( type(bief_obj), intent(in)  U2D,
type(bief_obj), intent(in)  V2D,
type(bief_obj), intent(in)  UNORM,
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)  RATIO_SAND,
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)  DCLA,
double precision, intent(in)  GRAV,
double precision, intent(in)  VCE,
double precision, intent(in)  HMIN,
double precision, intent(in)  XWC,
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,
type(bief_obj), intent(in)  H_TEL,
type(bief_obj), intent(in)  HW,
type(bief_obj), intent(in)  THETAC,
type(bief_obj), intent(in)  TOBCW_MEAN,
type(bief_obj), intent(in)  TOBCW_MAX,
type(bief_obj), intent(in)  CSTAEQ,
double precision, dimension(npoin), intent(in)  SANFRA 
)
Parameters
[in]u2dU2D Longitudinal velocity (m/s)
[in]V2DTransversal velocity (m/s)
[in]UNORMNorm of the mean flow velocity (m/s)
[in]HNWater depth
[in]CFQuadratic friction coefficient
[in]MUCorrection for skin friction
[in]TOBTotal bed shear stress (n/m2)
[in]TOBWWave induced bed shear stress (n/m2)
[in]UWWave orbital velocity (m/s)
[in]TWWave period (s)
[in]THETAWWave direction (deg wrt ox axis)
[in]FWQuadratic friction coefficient (wave)
[in]ACLADMMean diameter of active layer
[in]UNLADMDiameter of layer 2 (m)
[in]KSPBed skin roughness (m)
[in]KSRRipple bed roughness (m)
[in]RATIO_SANDMass fraction of sand
[in]NPOINNumber of points
[in]ICFChoice of formula
[in]HIDFACHiding factor formula
[in]XMVSSediment density (kg/m3)
[in]XMVEFluid density (kg/m3)
[in]DCLADiameter of the class
[in]GRAVGravity
[in]VCEFluid kinematic viscosity (m2/s)
[in]HMINMininmum water depth
[in]XWCSettling velocity (m/s)
[in]KARMANVon karman coefficient
[in]ZEROZero
[in]PIPi
[in]SUSPSuspension treatment
[in,out]ACShields parameter
[in,out]HIDINGHiding factor correction
[in,out]T1Working arrays
[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]T10
[in,out]T11
[in,out]TETAPWave direction (deg wrt ox axis)
[in,out]QSCBed load transport rate (kg*(m-1*s-1))
[in,out]QSSSuspended load transport rate (m2/s)
[in]IELMTType of element
[in]SECCURRENTEffect of secundary currents
[in]SLOPEFFFormula for slope effect
[in,out]COEFPNCorrection of transort for sloping bed effect
[in,out]CALFACosinus of the angle between transport rate and x-axis
[in,out]SALFASinus of the angle between transport rate and current
[in]BIJKEmpirical coefficient
[in]HOULEEffect of wave
[in]H_TELTODO
[in]HWTODO
[in]THETACTODO
[in]TOBCW_MEANTODO
[in]TOBCW_MAXTODO
[in]CSTAEQTODO
[in]SANFRASand fraction (Wilcock & Crowe, 2003)
[in]v2dU2D Longitudinal velocity (m/s)
[in]V2DTransversal velocity (m/s)
[in]UNORMNorm of the mean flow velocity (m/s)
[in]HNWater depth
[in]CFQuadratic friction coefficient
[in]MUCorrection for skin friction
[in]TOBTotal bed shear stress (n/m2)
[in]TOBWWave induced bed shear stress (n/m2)
[in]UWWave orbital velocity (m/s)
[in]TWWave period (s)
[in]THETAWWave direction (deg wrt ox axis)
[in]FWQuadratic friction coefficient (wave)
[in]ACLADMMean diameter of active layer
[in]UNLADMDiameter of layer 2 (m)
[in]KSPBed skin roughness (m)
[in]KSRRipple bed roughness (m)
[in]RATIO_SANDMass fraction of sand
[in]NPOINNumber of points
[in]ICFChoice of formula
[in]HIDFACHiding factor formula
[in]XMVSSediment density (kg/m3)
[in]XMVEFluid density (kg/m3)
[in]DCLADiameter of the class
[in]GRAVGravity
[in]VCEFluid kinematic viscosity (m2/s)
[in]HMINMininmum water depth
[in]XWCSettling velocity (m/s)
[in]KARMANVon karman coefficient
[in]ZEROZero
[in]PIPi
[in]SUSPSuspension treatment
[in,out]ACShields parameter
[in,out]HIDINGHiding factor correction
[in,out]T1Working arrays
[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]T10
[in,out]T11
[in,out]TETAPWave direction (deg wrt ox axis)
[in,out]QSCBed load transport rate (kg*(m-1*s-1))
[in,out]QSSSuspended load transport rate (m2/s)
[in]IELMTType of element
[in]SECCURRENTEffect of secundary currents
[in]SLOPEFFFormula for slope effect
[in,out]COEFPNCorrection of transort for sloping bed effect
[in,out]CALFACosinus of the angle between transport rate and x-axis
[in,out]SALFASinus of the angle between transport rate and current
[in]BIJKEmpirical coefficient
[in]HOULEEffect of wave
[in]H_TELTODO
[in]HWTODO
[in]THETACTODO
[in]TOBCW_MEANTODO
[in]TOBCW_MAXTODO
[in]CSTAEQTODO
[in]SANFRASand fraction (Wilcock & Crowe, 2003)
[in]unormU2D Longitudinal velocity (m/s)
[in]V2DTransversal velocity (m/s)
[in]UNORMNorm of the mean flow velocity (m/s)
[in]HNWater depth
[in]CFQuadratic friction coefficient
[in]MUCorrection for skin friction
[in]TOBTotal bed shear stress (n/m2)
[in]TOBWWave induced bed shear stress (n/m2)
[in]UWWave orbital velocity (m/s)
[in]TWWave period (s)
[in]THETAWWave direction (deg wrt ox axis)
[in]FWQuadratic friction coefficient (wave)
[in]ACLADMMean diameter of active layer
[in]UNLADMDiameter of layer 2 (m)
[in]KSPBed skin roughness (m)
[in]KSRRipple bed roughness (m)
[in]RATIO_SANDMass fraction of sand
[in]NPOINNumber of points
[in]ICFChoice of formula
[in]HIDFACHiding factor formula
[in]XMVSSediment density (kg/m3)
[in]XMVEFluid density (kg/m3)
[in]DCLADiameter of the class
[in]GRAVGravity
[in]VCEFluid kinematic viscosity (m2/s)
[in]HMINMininmum water depth
[in]XWCSettling velocity (m/s)
[in]KARMANVon karman coefficient
[in]ZEROZero
[in]PIPi
[in]SUSPSuspension treatment
[in,out]ACShields parameter
[in,out]HIDINGHiding factor correction
[in,out]T1Working arrays
[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]T10
[in,out]T11
[in,out]TETAPWave direction (deg wrt ox axis)
[in,out]QSCBed load transport rate (kg*(m-1*s-1))
[in,out]QSSSuspended load transport rate (m2/s)
[in]IELMTType of element
[in]SECCURRENTEffect of secundary currents
[in]SLOPEFFFormula for slope effect
[in,out]COEFPNCorrection of transort for sloping bed effect
[in,out]CALFACosinus of the angle between transport rate and x-axis
[in,out]SALFASinus of the angle between transport rate and current
[in]BIJKEmpirical coefficient
[in]HOULEEffect of wave
[in]H_TELTODO
[in]HWTODO
[in]THETACTODO
[in]TOBCW_MEANTODO
[in]TOBCW_MAXTODO
[in]CSTAEQTODO
[in]SANFRASand fraction (Wilcock & Crowe, 2003)
[in]hnU2D Longitudinal velocity (m/s)
[in]V2DTransversal velocity (m/s)
[in]UNORMNorm of the mean flow velocity (m/s)
[in]HNWater depth
[in]CFQuadratic friction coefficient
[in]MUCorrection for skin friction
[in]TOBTotal bed shear stress (n/m2)
[in]TOBWWave induced bed shear stress (n/m2)
[in]UWWave orbital velocity (m/s)
[in]TWWave period (s)
[in]THETAWWave direction (deg wrt ox axis)
[in]FWQuadratic friction coefficient (wave)
[in]ACLADMMean diameter of active layer
[in]UNLADMDiameter of layer 2 (m)
[in]KSPBed skin roughness (m)
[in]KSRRipple bed roughness (m)
[in]RATIO_SANDMass fraction of sand
[in]NPOINNumber of points
[in]ICFChoice of formula
[in]HIDFACHiding factor formula
[in]XMVSSediment density (kg/m3)
[in]XMVEFluid density (kg/m3)
[in]DCLADiameter of the class
[in]GRAVGravity
[in]VCEFluid kinematic viscosity (m2/s)
[in]HMINMininmum water depth
[in]XWCSettling velocity (m/s)
[in]KARMANVon karman coefficient
[in]ZEROZero
[in]PIPi
[in]SUSPSuspension treatment
[in,out]ACShields parameter
[in,out]HIDINGHiding factor correction
[in,out]T1Working arrays
[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]T10
[in,out]T11
[in,out]TETAPWave direction (deg wrt ox axis)
[in,out]QSCBed load transport rate (kg*(m-1*s-1))
[in,out]QSSSuspended load transport rate (m2/s)
[in]IELMTType of element
[in]SECCURRENTEffect of secundary currents
[in]SLOPEFFFormula for slope effect
[in,out]COEFPNCorrection of transort for sloping bed effect
[in,out]CALFACosinus of the angle between transport rate and x-axis
[in,out]SALFASinus of the angle between transport rate and current
[in]BIJKEmpirical coefficient
[in]HOULEEffect of wave
[in]H_TELTODO
[in]HWTODO
[in]THETACTODO
[in]TOBCW_MEANTODO
[in]TOBCW_MAXTODO
[in]CSTAEQTODO
[in]SANFRASand fraction (Wilcock & Crowe, 2003)
[in]cfU2D Longitudinal velocity (m/s)
[in]V2DTransversal velocity (m/s)
[in]UNORMNorm of the mean flow velocity (m/s)
[in]HNWater depth
[in]CFQuadratic friction coefficient
[in]MUCorrection for skin friction
[in]TOBTotal bed shear stress (n/m2)
[in]TOBWWave induced bed shear stress (n/m2)
[in]UWWave orbital velocity (m/s)
[in]TWWave period (s)
[in]THETAWWave direction (deg wrt ox axis)
[in]FWQuadratic friction coefficient (wave)
[in]ACLADMMean diameter of active layer
[in]UNLADMDiameter of layer 2 (m)
[in]KSPBed skin roughness (m)
[in]KSRRipple bed roughness (m)
[in]RATIO_SANDMass fraction of sand
[in]NPOINNumber of points
[in]ICFChoice of formula
[in]HIDFACHiding factor formula
[in]XMVSSediment density (kg/m3)
[in]XMVEFluid density (kg/m3)
[in]DCLADiameter of the class
[in]GRAVGravity
[in]VCEFluid kinematic viscosity (m2/s)
[in]HMINMininmum water depth
[in]XWCSettling velocity (m/s)
[in]KARMANVon karman coefficient
[in]ZEROZero
[in]PIPi
[in]SUSPSuspension treatment
[in,out]ACShields parameter
[in,out]HIDINGHiding factor correction
[in,out]T1Working arrays
[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]T10
[in,out]T11
[in,out]TETAPWave direction (deg wrt ox axis)
[in,out]QSCBed load transport rate (kg*(m-1*s-1))
[in,out]QSSSuspended load transport rate (m2/s)
[in]IELMTType of element
[in]SECCURRENTEffect of secundary currents
[in]SLOPEFFFormula for slope effect
[in,out]COEFPNCorrection of transort for sloping bed effect
[in,out]CALFACosinus of the angle between transport rate and x-axis
[in,out]SALFASinus of the angle between transport rate and current
[in]BIJKEmpirical coefficient
[in]HOULEEffect of wave
[in]H_TELTODO
[in]HWTODO
[in]THETACTODO
[in]TOBCW_MEANTODO
[in]TOBCW_MAXTODO
[in]CSTAEQTODO
[in]SANFRASand fraction (Wilcock & Crowe, 2003)
[in]tobU2D Longitudinal velocity (m/s)
[in]V2DTransversal velocity (m/s)
[in]UNORMNorm of the mean flow velocity (m/s)
[in]HNWater depth
[in]CFQuadratic friction coefficient
[in]MUCorrection for skin friction
[in]TOBTotal bed shear stress (n/m2)
[in]TOBWWave induced bed shear stress (n/m2)
[in]UWWave orbital velocity (m/s)
[in]TWWave period (s)
[in]THETAWWave direction (deg wrt ox axis)
[in]FWQuadratic friction coefficient (wave)
[in]ACLADMMean diameter of active layer
[in]UNLADMDiameter of layer 2 (m)
[in]KSPBed skin roughness (m)
[in]KSRRipple bed roughness (m)
[in]RATIO_SANDMass fraction of sand
[in]NPOINNumber of points
[in]ICFChoice of formula
[in]HIDFACHiding factor formula
[in]XMVSSediment density (kg/m3)
[in]XMVEFluid density (kg/m3)
[in]DCLADiameter of the class
[in]GRAVGravity
[in]VCEFluid kinematic viscosity (m2/s)
[in]HMINMininmum water depth
[in]XWCSettling velocity (m/s)
[in]KARMANVon karman coefficient
[in]ZEROZero
[in]PIPi
[in]SUSPSuspension treatment
[in,out]ACShields parameter
[in,out]HIDINGHiding factor correction
[in,out]T1Working arrays
[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]T10
[in,out]T11
[in,out]TETAPWave direction (deg wrt ox axis)
[in,out]QSCBed load transport rate (kg*(m-1*s-1))
[in,out]QSSSuspended load transport rate (m2/s)
[in]IELMTType of element
[in]SECCURRENTEffect of secundary currents
[in]SLOPEFFFormula for slope effect
[in,out]COEFPNCorrection of transort for sloping bed effect
[in,out]CALFACosinus of the angle between transport rate and x-axis
[in,out]SALFASinus of the angle between transport rate and current
[in]BIJKEmpirical coefficient
[in]HOULEEffect of wave
[in]H_TELTODO
[in]HWTODO
[in]THETACTODO
[in]TOBCW_MEANTODO
[in]TOBCW_MAXTODO
[in]CSTAEQTODO
[in]SANFRASand fraction (Wilcock & Crowe, 2003)

Definition at line 13 of file bedload_formula_gaia.f.

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