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

Go to the source code of this file.

Functions/Subroutines

subroutine calcfw (I, H, K, HMU, NPOIN, OMEGA, GRAV, VISCO, DIAM90, DIAM50, MVSED, MVEAU, REGIDO, RICOEF, ENTREG, ENTRUG, FFW)
 

Function/Subroutine Documentation

◆ calcfw()

subroutine calcfw ( integer  I,
double precision, dimension(npoin)  H,
double precision, dimension(npoin)  K,
double precision, dimension(npoin)  HMU,
integer  NPOIN,
double precision  OMEGA,
double precision  GRAV,
double precision  VISCO,
double precision  DIAM90,
double precision  DIAM50,
double precision  MVSED,
double precision  MVEAU,
integer  REGIDO,
double precision  RICOEF,
logical  ENTREG,
logical  ENTRUG,
double precision  FFW 
)
Parameters
[in]npoinDIAM50 Maximum grain diameter which defines 50% of the TOTAL WEIGTH OF SEDIMENT
[in]DIAM90Maximum grain diameter which defines 90% of the TOTAL WEIGTH OF SEDIMENT
[in]ENTREGLogical used to impose the hydraulic regime (FOR FRICTION CALCULATION)
[in]ENTRUGLogical used to restrict the total roughness to THE SKIN ROUGHNESS (FOR FRICTION CALCULATION)
[out]FFWFriction factor
[in]GRAVGravity
[in]HWater height
[in]HMUWave height
[in]ICurrent point number
[in]KWave number
[in]MVEAUFluid specific weigth
[in]MVSEDSediment specific weigth
[in]NPOINNumber of point
[in]OMEGAWave pulsation
[in]REGIDOType of hydraulic regime
[in]RICOEFRipples coefficient
[in]VISCOKinematic viscosity of the fluid
[in]iDIAM50 Maximum grain diameter which defines 50% of the TOTAL WEIGTH OF SEDIMENT
[in]DIAM90Maximum grain diameter which defines 90% of the TOTAL WEIGTH OF SEDIMENT
[in]ENTREGLogical used to impose the hydraulic regime (FOR FRICTION CALCULATION)
[in]ENTRUGLogical used to restrict the total roughness to THE SKIN ROUGHNESS (FOR FRICTION CALCULATION)
[out]FFWFriction factor
[in]GRAVGravity
[in]HWater height
[in]HMUWave height
[in]ICurrent point number
[in]KWave number
[in]MVEAUFluid specific weigth
[in]MVSEDSediment specific weigth
[in]NPOINNumber of point
[in]OMEGAWave pulsation
[in]REGIDOType of hydraulic regime
[in]RICOEFRipples coefficient
[in]VISCOKinematic viscosity of the fluid

Definition at line 11 of file calcfw.f.

+ Here is the caller graph for this function: