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

Go to the source code of this file.

Functions/Subroutines

subroutine init_transport (TROUVE, DEBU, HIDING, NSICLA, NPOIN, T1, T2, T3, T4, T5, T6, T7, T8, T9, T10, T11, T12, CHARR, QS_C, QSXC, QSYC, CALFA_CL, SALFA_CL, COEFPN, SLOPEFF, SUSP, QS_S, QS, QSCL, QSCL_C, QSCL_S, QSCLXS, QSCLYS, UNORM, U2D, V2D, HN, CF, MU, TOB, TOBW, UW, TW, THETAW, FW, HOULE, AVAIL, ACLADM, UNLADM, KSP, KSR, KS, ICF, HIDFAC, XMVS, XMVE, GRAV, VCE, HMIN, KARMAN, ZERO, PI, AC, IMP_INFLOW_C, ZREF, ICQ, CSTAEQ, CSRATIO, CMAX, CS, CS0, SECCURRENT, BIJK, IELMT, FDM, XWC, FD90, SEDCO, VITCE, PARTHENIADES, VITCD, U3D, V3D, CODE)
 

Function/Subroutine Documentation

◆ init_transport()

subroutine init_transport ( integer, dimension(*), intent(in)  TROUVE,
logical, intent(in)  DEBU,
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,
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_S,
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(inout)  QSCLXS,
type(bief_obj), intent(inout)  QSCLYS,
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,
double precision, dimension(npoin,nomblay,nsicla), intent(inout)  AVAIL,
type(bief_obj), intent(in)  ACLADM,
type(bief_obj), intent(in)  UNLADM,
type(bief_obj), intent(in)  KSP,
type(bief_obj), intent(in)  KSR,
type(bief_obj), intent(in)  KS,
integer, intent(in)  ICF,
integer, intent(in)  HIDFAC,
double precision, intent(in)  XMVS,
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,
logical, intent(in)  IMP_INFLOW_C,
type(bief_obj), intent(inout)  ZREF,
integer, intent(in)  ICQ,
type(bief_obj), intent(inout)  CSTAEQ,
type(bief_obj), intent(inout)  CSRATIO,
double precision, intent(inout)  CMAX,
type(bief_obj), intent(inout)  CS,
double precision, dimension(nsicla), intent(in)  CS0,
logical, intent(in)  SECCURRENT,
double precision, intent(in)  BIJK,
integer, intent(in)  IELMT,
double precision, dimension(nsicla), intent(inout)  FDM,
double precision, dimension(nsicla), intent(in)  XWC,
double precision, dimension(nsicla), intent(in)  FD90,
logical, dimension(*), intent(in)  SEDCO,
double precision, intent(in)  VITCE,
double precision, intent(in)  PARTHENIADES,
double precision, intent(in)  VITCD,
type(bief_obj), intent(in)  U3D,
type(bief_obj), intent(in)  V3D,
character(len=24), intent(in)  CODE 
)
Parameters
[in]nsicla[in, out] AC Critical shields parameter
[in]ACLADMMean diameter of sediment
[in,out]AVAILVolume percent of each class
[in]BIJKCoefficient of the bijker formula
[in,out]CALFACosinus of the angle between mean flow and transport
[in]CFQuadratic friction coefficient
[in]CHARRBedload

Definition at line 17 of file init_transport.f.

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