INTERFACE:
subroutine friction(kappa,avmolu,tx,ty)DESCRIPTION:
This subroutine updates the bottom roughness
The law-of-the-wall relations are used to compute the friction velocity
If no breaking surface waves are considered, the law of the wall also holds at the surface. The surface roughness length may be calculated according to the Charnock (1955) formula,
USES:
use meanflow, only: h,z0b,h0b,MaxItz0b,z0s,za use meanflow, only: u,v,gravity use meanflow, only: u_taub,u_taus,drag use meanflow, only: charnock,charnock_val,z0s_min IMPLICIT NONEINPUT PARAMETERS:
REALTYPE, intent(in) :: kappa,avmolu,tx,tyREVISION HISTORY:
Original author(s): Hans Burchard & Karsten Bolding $Log: friction.F90,v $ Revision 1.10 2006-11-20 17:28:58 kbk [Cc]harnok -> [Cc]harnock - A. Jenkins Revision 1.9 2006-11-20 17:26:15 kbk [Cc]harnok -> [Cc]harnock - A. Jenkins Revision 1.8 2005/08/11 12:31:54 lars corrected error in documentation. Thanks to Patrizio Mariani Revision 1.7 2005/06/27 13:44:07 kbk modified + removed traling blanks Revision 1.6 2004/08/18 12:33:30 lars updated documentation Revision 1.5 2004/01/13 08:39:49 lars included roughness due to suspended sediments Revision 1.4 2003/03/28 09:20:35 kbk added new copyright to files Revision 1.3 2003/03/28 08:56:56 kbk removed tabs Revision 1.2 2003/03/10 08:50:06 gotm Improved documentation and cleaned up code Revision 1.1.1.1 2001/02/12 15:55:57 gotm initial import into CVS