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

Go to the source code of this file.

Functions/Subroutines

subroutine tob_gaia (TOB, TOBW, TOBCW_MEAN, TOBCW_MAX, THETAC, THETAW, MU, KS, KSP, KSR, CF, FW, UETCAR, CF_TEL, KS_TEL, CODE, ICR, KSPRATIO, HOULE, GRAV, XMVE, XMVS, VCE, KARMAN, ZERO, HMIN, HN, ACLADM, UNORM, UW, TW, NPOIN, KSCALC, IKS, DELTAR, H_TEL)
 

Function/Subroutine Documentation

◆ tob_gaia()

subroutine tob_gaia ( type(bief_obj), intent(inout)  TOB,
type(bief_obj), intent(inout)  TOBW,
type(bief_obj), intent(inout)  TOBCW_MEAN,
type(bief_obj), intent(inout)  TOBCW_MAX,
type(bief_obj), intent(in)  THETAC,
type(bief_obj), intent(in)  THETAW,
type(bief_obj), intent(inout)  MU,
type(bief_obj), intent(inout)  KS,
type(bief_obj), intent(inout)  KSP,
type(bief_obj), intent(inout)  KSR,
type(bief_obj), intent(inout)  CF,
type(bief_obj), intent(inout)  FW,
type(bief_obj), intent(in)  UETCAR,
type(bief_obj), intent(in)  CF_TEL,
type(bief_obj), intent(inout)  KS_TEL,
character(len=24), intent(in)  CODE,
integer, intent(in)  ICR,
double precision, intent(in)  KSPRATIO,
logical, intent(in)  HOULE,
double precision, intent(in)  GRAV,
double precision, intent(in)  XMVE,
double precision, intent(in)  XMVS,
double precision, intent(in)  VCE,
double precision, intent(in)  KARMAN,
double precision, intent(in)  ZERO,
double precision, intent(in)  HMIN,
type(bief_obj), intent(in)  HN,
type(bief_obj), intent(in)  ACLADM,
type(bief_obj), intent(in)  UNORM,
type(bief_obj), intent(in)  UW,
type(bief_obj), intent(in)  TW,
integer, intent(in)  NPOIN,
logical, intent(in)  KSCALC,
integer, intent(in)  IKS,
type(bief_obj), intent(in)  DELTAR,
type(bief_obj), intent(in)  H_TEL 
)
Parameters
[in]npoinACLADM Mean diameter of active layer
[in,out]CFQuadratic friction coefficient
[in]CF_TELQuadratic friction coefficient (coupled t2d)
[in]CODECalling program in coupling
[in]DELTARRelative density = (rho-rho0)/rho0 (from t3d)
[in,out]FWQuadratic friction coefficient (wave)
[in]GRAVAcceleration of gravity
[in]HMINMinimum value of water depth
[in]H_TELWater depth from tel h (n+1)
[in]HNWater depth
[in]HOULEWave effect
[in]ICRSkin friction correction Icr=0: mu=1 Icr=1: skin friction correction use ksp Icr=2: ripple roughness use ksr, ksr
[in]IKSBed roughness predictor option
[in]KARMANVon karman constant
[in,out]KSTotal bed roughness
[in,out]KSPBed skin roughness
[in]KSPRATIORatio between skin bed roughness and grain diameter
[in]KSCALCBed roughness prediction
[in,out]KSRRipple bed roughness
[in,out]KS_TELTotal bed roughness sent to telemac
[in,out]MUCorrection factor for bed roughness
[in]NPOINNumber of points
[in]THETACCurrent direction
[in]THETAWWaves direction
[in,out]TOBBed shear stress (total friction)
[in,out]TOBWWave induced shear stress
[in,out]TOBCW_MEANWave + current mean shear stress
[in,out]TOBCW_MAXWave + current maximum shear stress
[in]TWWave period wave velocity
[in]UWWave orbital wave velocity
[in]UETCARSquare of the friction velocity (coupled t3d)
[in]UNORMNorm of the mean flow velocity
[in]VCEWater viscosity
[in]XMVEFluid density (mass)
[in]XMVSSediment density (mass)
[in]ZEROZero
[in]icrACLADM Mean diameter of active layer
[in,out]CFQuadratic friction coefficient
[in]CF_TELQuadratic friction coefficient (coupled t2d)
[in]CODECalling program in coupling
[in]DELTARRelative density = (rho-rho0)/rho0 (from t3d)
[in,out]FWQuadratic friction coefficient (wave)
[in]GRAVAcceleration of gravity
[in]HMINMinimum value of water depth
[in]H_TELWater depth from tel h (n+1)
[in]HNWater depth
[in]HOULEWave effect
[in]ICRSkin friction correction Icr=0: mu=1 Icr=1: skin friction correction use ksp Icr=2: ripple roughness use ksr, ksr
[in]IKSBed roughness predictor option
[in]KARMANVon karman constant
[in,out]KSTotal bed roughness
[in,out]KSPBed skin roughness
[in]KSPRATIORatio between skin bed roughness and grain diameter
[in]KSCALCBed roughness prediction
[in,out]KSRRipple bed roughness
[in,out]KS_TELTotal bed roughness sent to telemac
[in,out]MUCorrection factor for bed roughness
[in]NPOINNumber of points
[in]THETACCurrent direction
[in]THETAWWaves direction
[in,out]TOBBed shear stress (total friction)
[in,out]TOBWWave induced shear stress
[in,out]TOBCW_MEANWave + current mean shear stress
[in,out]TOBCW_MAXWave + current maximum shear stress
[in]TWWave period wave velocity
[in]UWWave orbital wave velocity
[in]UETCARSquare of the friction velocity (coupled t3d)
[in]UNORMNorm of the mean flow velocity
[in]VCEWater viscosity
[in]XMVEFluid density (mass)
[in]XMVSSediment density (mass)
[in]ZEROZero
[in]iksACLADM Mean diameter of active layer
[in,out]CFQuadratic friction coefficient
[in]CF_TELQuadratic friction coefficient (coupled t2d)
[in]CODECalling program in coupling
[in]DELTARRelative density = (rho-rho0)/rho0 (from t3d)
[in,out]FWQuadratic friction coefficient (wave)
[in]GRAVAcceleration of gravity
[in]HMINMinimum value of water depth
[in]H_TELWater depth from tel h (n+1)
[in]HNWater depth
[in]HOULEWave effect
[in]ICRSkin friction correction Icr=0: mu=1 Icr=1: skin friction correction use ksp Icr=2: ripple roughness use ksr, ksr
[in]IKSBed roughness predictor option
[in]KARMANVon karman constant
[in,out]KSTotal bed roughness
[in,out]KSPBed skin roughness
[in]KSPRATIORatio between skin bed roughness and grain diameter
[in]KSCALCBed roughness prediction
[in,out]KSRRipple bed roughness
[in,out]KS_TELTotal bed roughness sent to telemac
[in,out]MUCorrection factor for bed roughness
[in]NPOINNumber of points
[in]THETACCurrent direction
[in]THETAWWaves direction
[in,out]TOBBed shear stress (total friction)
[in,out]TOBWWave induced shear stress
[in,out]TOBCW_MEANWave + current mean shear stress
[in,out]TOBCW_MAXWave + current maximum shear stress
[in]TWWave period wave velocity
[in]UWWave orbital wave velocity
[in]UETCARSquare of the friction velocity (coupled t3d)
[in]UNORMNorm of the mean flow velocity
[in]VCEWater viscosity
[in]XMVEFluid density (mass)
[in]XMVSSediment density (mass)
[in]ZEROZero

Definition at line 11 of file tob_gaia.f.

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