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

Go to the source code of this file.

Functions/Subroutines

subroutine bedload_dibwat_gaia (U2D, V2D, UNORM, CF, TOB, TOBW, UW, TW, FW, THETAW, NPOIN, XMVE, DENS, GRAV, DCLA, XWC, PI, ALPHAW, T2, T3, UCW, UCN, UW1, UW2, TW1, TW2, THETAC, FCW, QSC, XMVS)
 

Function/Subroutine Documentation

◆ bedload_dibwat_gaia()

subroutine bedload_dibwat_gaia ( type(bief_obj), intent(in)  U2D,
type(bief_obj), intent(in)  V2D,
type(bief_obj), intent(in)  UNORM,
type(bief_obj), intent(in)  CF,
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)  FW,
type(bief_obj), intent(in)  THETAW,
integer, intent(in)  NPOIN,
double precision, intent(in)  XMVE,
double precision, intent(in)  DENS,
double precision, intent(in)  GRAV,
double precision, intent(in)  DCLA,
double precision, intent(in)  XWC,
double precision, intent(in)  PI,
type(bief_obj), intent(inout)  ALPHAW,
type(bief_obj), intent(inout)  T2,
type(bief_obj), intent(inout)  T3,
type(bief_obj), intent(inout)  UCW,
type(bief_obj), intent(inout)  UCN,
type(bief_obj), intent(inout)  UW1,
type(bief_obj), intent(inout)  UW2,
type(bief_obj), intent(inout)  TW1,
type(bief_obj), intent(inout)  TW2,
type(bief_obj), intent(inout)  THETAC,
type(bief_obj), intent(inout)  FCW,
type(bief_obj), intent(inout)  QSC,
double precision, intent(in)  XMVS 
)
Parameters
[in]u2dU2D Depth-averaged velocity x-direction
[in]V2DDepth-averaged velocity y-direction
[in]UNORMMean current
[in]CFQuadratic friction coefficient
[in]TOBBed shear stress (total friction)
[in]TOBWWave induced shear stress
[in]UWOrbital wave velocity
[in]TWMean wave period
[in]FWQuadratic friction coefficient (wave)
[in]THETAWWave direction (deg wrt ox axis)
[in]NPOINNumber of points
[in]XMVEFluid density
[in]DENSRelative density of sediment
[in]GRAVAcceleration of gravity
[in]DCLASediment grain diameter
[in]XWCSettling velocity
[in]PIPi
[in,out]ALPHAWAngle between wave and current
[in,out]T2Work bief_obj structure
[in,out]T3Work bief_obj structure
[in,out]UCWMean current projected in the wave direction
[in,out]UCNMean current at an angle to the wave
[in,out]UW1Mean current in the wave direction
[in,out]UW2Mean current in the opposite direction
[in,out]TW1Mid period (u(t)>0)
[in,out]TW2Mid period (u(t)<0)
[in,out]THETACCurrent angle to the x axis
[in]FCWWave-current friction factor
[in,out]QSCBed load transport rate
[in]XMVSSediment density
[in]v2dU2D Depth-averaged velocity x-direction
[in]V2DDepth-averaged velocity y-direction
[in]UNORMMean current
[in]CFQuadratic friction coefficient
[in]TOBBed shear stress (total friction)
[in]TOBWWave induced shear stress
[in]UWOrbital wave velocity
[in]TWMean wave period
[in]FWQuadratic friction coefficient (wave)
[in]THETAWWave direction (deg wrt ox axis)
[in]NPOINNumber of points
[in]XMVEFluid density
[in]DENSRelative density of sediment
[in]GRAVAcceleration of gravity
[in]DCLASediment grain diameter
[in]XWCSettling velocity
[in]PIPi
[in,out]ALPHAWAngle between wave and current
[in,out]T2Work bief_obj structure
[in,out]T3Work bief_obj structure
[in,out]UCWMean current projected in the wave direction
[in,out]UCNMean current at an angle to the wave
[in,out]UW1Mean current in the wave direction
[in,out]UW2Mean current in the opposite direction
[in,out]TW1Mid period (u(t)>0)
[in,out]TW2Mid period (u(t)<0)
[in,out]THETACCurrent angle to the x axis
[in]FCWWave-current friction factor
[in,out]QSCBed load transport rate
[in]XMVSSediment density
[in]unormU2D Depth-averaged velocity x-direction
[in]V2DDepth-averaged velocity y-direction
[in]UNORMMean current
[in]CFQuadratic friction coefficient
[in]TOBBed shear stress (total friction)
[in]TOBWWave induced shear stress
[in]UWOrbital wave velocity
[in]TWMean wave period
[in]FWQuadratic friction coefficient (wave)
[in]THETAWWave direction (deg wrt ox axis)
[in]NPOINNumber of points
[in]XMVEFluid density
[in]DENSRelative density of sediment
[in]GRAVAcceleration of gravity
[in]DCLASediment grain diameter
[in]XWCSettling velocity
[in]PIPi
[in,out]ALPHAWAngle between wave and current
[in,out]T2Work bief_obj structure
[in,out]T3Work bief_obj structure
[in,out]UCWMean current projected in the wave direction
[in,out]UCNMean current at an angle to the wave
[in,out]UW1Mean current in the wave direction
[in,out]UW2Mean current in the opposite direction
[in,out]TW1Mid period (u(t)>0)
[in,out]TW2Mid period (u(t)<0)
[in,out]THETACCurrent angle to the x axis
[in]FCWWave-current friction factor
[in,out]QSCBed load transport rate
[in]XMVSSediment density
[in]cfU2D Depth-averaged velocity x-direction
[in]V2DDepth-averaged velocity y-direction
[in]UNORMMean current
[in]CFQuadratic friction coefficient
[in]TOBBed shear stress (total friction)
[in]TOBWWave induced shear stress
[in]UWOrbital wave velocity
[in]TWMean wave period
[in]FWQuadratic friction coefficient (wave)
[in]THETAWWave direction (deg wrt ox axis)
[in]NPOINNumber of points
[in]XMVEFluid density
[in]DENSRelative density of sediment
[in]GRAVAcceleration of gravity
[in]DCLASediment grain diameter
[in]XWCSettling velocity
[in]PIPi
[in,out]ALPHAWAngle between wave and current
[in,out]T2Work bief_obj structure
[in,out]T3Work bief_obj structure
[in,out]UCWMean current projected in the wave direction
[in,out]UCNMean current at an angle to the wave
[in,out]UW1Mean current in the wave direction
[in,out]UW2Mean current in the opposite direction
[in,out]TW1Mid period (u(t)>0)
[in,out]TW2Mid period (u(t)<0)
[in,out]THETACCurrent angle to the x axis
[in]FCWWave-current friction factor
[in,out]QSCBed load transport rate
[in]XMVSSediment density
[in]tobU2D Depth-averaged velocity x-direction
[in]V2DDepth-averaged velocity y-direction
[in]UNORMMean current
[in]CFQuadratic friction coefficient
[in]TOBBed shear stress (total friction)
[in]TOBWWave induced shear stress
[in]UWOrbital wave velocity
[in]TWMean wave period
[in]FWQuadratic friction coefficient (wave)
[in]THETAWWave direction (deg wrt ox axis)
[in]NPOINNumber of points
[in]XMVEFluid density
[in]DENSRelative density of sediment
[in]GRAVAcceleration of gravity
[in]DCLASediment grain diameter
[in]XWCSettling velocity
[in]PIPi
[in,out]ALPHAWAngle between wave and current
[in,out]T2Work bief_obj structure
[in,out]T3Work bief_obj structure
[in,out]UCWMean current projected in the wave direction
[in,out]UCNMean current at an angle to the wave
[in,out]UW1Mean current in the wave direction
[in,out]UW2Mean current in the opposite direction
[in,out]TW1Mid period (u(t)>0)
[in,out]TW2Mid period (u(t)<0)
[in,out]THETACCurrent angle to the x axis
[in]FCWWave-current friction factor
[in,out]QSCBed load transport rate
[in]XMVSSediment density
[in]tobwU2D Depth-averaged velocity x-direction
[in]V2DDepth-averaged velocity y-direction
[in]UNORMMean current
[in]CFQuadratic friction coefficient
[in]TOBBed shear stress (total friction)
[in]TOBWWave induced shear stress
[in]UWOrbital wave velocity
[in]TWMean wave period
[in]FWQuadratic friction coefficient (wave)
[in]THETAWWave direction (deg wrt ox axis)
[in]NPOINNumber of points
[in]XMVEFluid density
[in]DENSRelative density of sediment
[in]GRAVAcceleration of gravity
[in]DCLASediment grain diameter
[in]XWCSettling velocity
[in]PIPi
[in,out]ALPHAWAngle between wave and current
[in,out]T2Work bief_obj structure
[in,out]T3Work bief_obj structure
[in,out]UCWMean current projected in the wave direction
[in,out]UCNMean current at an angle to the wave
[in,out]UW1Mean current in the wave direction
[in,out]UW2Mean current in the opposite direction
[in,out]TW1Mid period (u(t)>0)
[in,out]TW2Mid period (u(t)<0)
[in,out]THETACCurrent angle to the x axis
[in]FCWWave-current friction factor
[in,out]QSCBed load transport rate
[in]XMVSSediment density

Definition at line 9 of file bedload_dibwat_gaia.f.

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