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

Go to the source code of this file.

Functions/Subroutines

subroutine init_transport_gaia (HIDING, NSICLA, NPOIN, T1, T2, T3, T4, T5, T6, T7, T8, T9, T10, T11, T12, T14, CHARR, QS_C, QSXC, QSYC, CALFA_CL, SALFA_CL, COEFPN, SLOPEFF, SUSP, QS, QSCL, QSCL_C, QSCL_S, UNORM, U2D, V2D, HN, CF, MU, TOB, TOBW, UW, TW, THETAW, FW, HOULE, ACLADM, UNLADM, KSP, KSR, ICF, HIDFAC, XMVS0, XMVE, GRAV, VCE, HMIN, KARMAN, ZERO, PI, AC, CSTAEQ, SECCURRENT, BIJK, IELMT, MESH, DCLA, XWC, SEDCO, U3D, V3D, CODE, H_TEL, HW, THETAC, TOBCW_MEAN, TOBCW_MAX)
 

Function/Subroutine Documentation

◆ init_transport_gaia()

subroutine init_transport_gaia ( type(bief_obj), intent(inout)  HIDING,
integer, intent(in)  NSICLA,
integer, intent(in)  NPOIN,
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)  T14,
logical, intent(in)  CHARR,
type(bief_obj), intent(inout)  QS_C,
type(bief_obj), intent(inout)  QSXC,
type(bief_obj), intent(inout)  QSYC,
type(bief_obj), intent(inout)  CALFA_CL,
type(bief_obj), intent(inout)  SALFA_CL,
type(bief_obj), intent(inout)  COEFPN,
integer, intent(in)  SLOPEFF,
logical, intent(in)  SUSP,
type(bief_obj), intent(inout)  QS,
type(bief_obj), intent(inout)  QSCL,
type(bief_obj), intent(inout)  QSCL_C,
type(bief_obj), intent(inout)  QSCL_S,
type(bief_obj), intent(in)  UNORM,
type(bief_obj), intent(in)  U2D,
type(bief_obj), intent(in)  V2D,
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,
logical, intent(in)  HOULE,
type(bief_obj), intent(in)  ACLADM,
type(bief_obj), intent(in)  UNLADM,
type(bief_obj), intent(in)  KSP,
type(bief_obj), intent(in)  KSR,
integer, intent(in)  ICF,
integer, intent(in)  HIDFAC,
double precision, dimension(nsicla), intent(in)  XMVS0,
double precision, intent(in)  XMVE,
double precision, intent(in)  GRAV,
double precision, intent(in)  VCE,
double precision, intent(in)  HMIN,
double precision, intent(in)  KARMAN,
double precision, intent(in)  ZERO,
double precision, intent(in)  PI,
double precision, dimension(nsicla), intent(inout)  AC,
type(bief_obj), intent(inout)  CSTAEQ,
logical, intent(in)  SECCURRENT,
double precision, intent(in)  BIJK,
integer, intent(in)  IELMT,
type(bief_mesh), intent(inout)  MESH,
double precision, dimension(nsicla), intent(inout)  DCLA,
double precision, dimension(nsicla), intent(in)  XWC,
logical, dimension(*), intent(in)  SEDCO,
type(bief_obj), intent(in)  U3D,
type(bief_obj), intent(in)  V3D,
character(len=24), intent(in)  CODE,
type(bief_obj), intent(in)  H_TEL,
type(bief_obj), intent(in)  HW,
type(bief_obj), intent(in)  THETAC,
type(bief_obj), intent(inout)  TOBCW_MEAN,
type(bief_obj), intent(inout)  TOBCW_MAX 
)
Parameters
[in]nsiclaHIDING Hiding factor correction
[in]NSICLANumber of sediment classes
[in]NPOINNumber of points
[in,out]T1Work 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,out]T10Work bief_obj structure
[in,out]T11Work bief_obj structure
[in,out]T12Work bief_obj structure
[in,out]T14Work bief_obj structure
[in]CHARRBedload
[in]QS_CBedload transport rate
[in,out]QSXCBedload transport rate along x
[in,out]QSYCBedload transport rate along y
[in,out]CALFA_CLCosinus of the angle between mean flow and transport
[in,out]SALFA_CLSinus of the angle between transport rate and current
[in,out]COEFPNCorrection of transport for sloping bed effect
[in]SLOPEFFFormula for slope effect
[in]SUSPLogical, suspension
[in,out]QSBedload transport rate
[in,out]QSCLSuspended load transport rate
[in,out]QSCL_CBedload transport rate
[in,out]QSCL_SSuspended load transport rate
[in,out]UNORMNorm of the mean flow velocity
[in,out]U2DMean flow velocity x-direction
[in,out]V2DMean flow velocity y-direction
[in]HNWater depth
[in]CFQuadratic friction coefficient
[in,out]MUCorrection factor for bed roughness
[in,out]TOBBed shear stress (total friction)
[in]TOBWWave induced shear stress
[in]UWOrbital wave velocity
[in]TWWave period
[in]THETAWWave direction (deg wrt ox axis)
[in]FWQuadratic friction coefficient (wave)
[in]HOULELogical, for wave effects
[in]ACLADMMean diameter of active layer
[in]UNLADMMean diameter of active stratum layer
[in]KSPBed skin roughness
[in]KSRRipple bed roughness
[in]ICFBed-load or total load transport formulas
[in]HIDFACHiding factor formulas
[in]XMVS0Water density
[in]XMVEFluid density
[in]GRAVAcceleration of gravity
[in]VCEWater viscosity
[in]HMINMinimum value of water depth
[in]KARMANVon karman constant
[in]ZEROZero
[in]PIPi
[in,out]ACCritical shields parameter
[in,out]CSTAEQSediment equilibrium concentration
[in]SECCURRENTLogical, parametrisation for secondary currents
[in]BIJKCoefficient of the bijker formula
[in]IELMTType of element
[in,out]MESHMesh structure
[in]DCLADiameter dm for each class
[in]XWCSettling velocity
[in]SEDCOLogical, sediment cohesive or not
[in]U3D3D velocity sent by telemac 3d (u)
[in]V3D3D velocity sent by telemac 3d (v)
[in]CODEName of calling programme (telemac2d or 3d)
[in]H_TELWater depth from tel h (n+1)
[in]HWWave height
[in]THETACCurent direction
[in,out]TOBCW_MEANCurrent + wave bed shear stress (total friction)
[in,out]TOBC_MAXMax bed shear stress (total friction)
[in]npoinHIDING Hiding factor correction
[in]NSICLANumber of sediment classes
[in]NPOINNumber of points
[in,out]T1Work 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,out]T10Work bief_obj structure
[in,out]T11Work bief_obj structure
[in,out]T12Work bief_obj structure
[in,out]T14Work bief_obj structure
[in]CHARRBedload
[in]QS_CBedload transport rate
[in,out]QSXCBedload transport rate along x
[in,out]QSYCBedload transport rate along y
[in,out]CALFA_CLCosinus of the angle between mean flow and transport
[in,out]SALFA_CLSinus of the angle between transport rate and current
[in,out]COEFPNCorrection of transport for sloping bed effect
[in]SLOPEFFFormula for slope effect
[in]SUSPLogical, suspension
[in,out]QSBedload transport rate
[in,out]QSCLSuspended load transport rate
[in,out]QSCL_CBedload transport rate
[in,out]QSCL_SSuspended load transport rate
[in,out]UNORMNorm of the mean flow velocity
[in,out]U2DMean flow velocity x-direction
[in,out]V2DMean flow velocity y-direction
[in]HNWater depth
[in]CFQuadratic friction coefficient
[in,out]MUCorrection factor for bed roughness
[in,out]TOBBed shear stress (total friction)
[in]TOBWWave induced shear stress
[in]UWOrbital wave velocity
[in]TWWave period
[in]THETAWWave direction (deg wrt ox axis)
[in]FWQuadratic friction coefficient (wave)
[in]HOULELogical, for wave effects
[in]ACLADMMean diameter of active layer
[in]UNLADMMean diameter of active stratum layer
[in]KSPBed skin roughness
[in]KSRRipple bed roughness
[in]ICFBed-load or total load transport formulas
[in]HIDFACHiding factor formulas
[in]XMVS0Water density
[in]XMVEFluid density
[in]GRAVAcceleration of gravity
[in]VCEWater viscosity
[in]HMINMinimum value of water depth
[in]KARMANVon karman constant
[in]ZEROZero
[in]PIPi
[in,out]ACCritical shields parameter
[in,out]CSTAEQSediment equilibrium concentration
[in]SECCURRENTLogical, parametrisation for secondary currents
[in]BIJKCoefficient of the bijker formula
[in]IELMTType of element
[in,out]MESHMesh structure
[in]DCLADiameter dm for each class
[in]XWCSettling velocity
[in]SEDCOLogical, sediment cohesive or not
[in]U3D3D velocity sent by telemac 3d (u)
[in]V3D3D velocity sent by telemac 3d (v)
[in]CODEName of calling programme (telemac2d or 3d)
[in]H_TELWater depth from tel h (n+1)
[in]HWWave height
[in]THETACCurent direction
[in,out]TOBCW_MEANCurrent + wave bed shear stress (total friction)
[in,out]TOBC_MAXMax bed shear stress (total friction)

Definition at line 13 of file init_transport_gaia.f.

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