/*====================================================================================
! Purpose(s): 
!
! Contain(s): CalcFrictionVelocity
!
! Author(s):  Javier Lopez Lara (jav.lopez@unican.es)
!             Gabriel Barajas   (barajasg@unican.es)
!====================================================================================*/

double CalcFrictionVelocity(double AE, double AVt, double ADist, double ANu, double AKappa, bool AIsRoughSurface, double AKs); 
// Desc: Calculates friction velocity assuming a log profile.
//
//   AE :     9.0 for small wall.
//   AVt :    Mean velocity at the boundary layer.
//   ADist :  Width of the boudary layer.
//   ANu :    Kinematic viscosity.
//   AKappa : Von Korman constant.