TKE flux from wave-breaking (Source File: fk_craig.F90)


INTERFACE:

    REALTYPE  function fk_craig(u_tau,eta)
DESCRIPTION:

This functions returns the flux of $ k$ caused by breaking surface waves according to

$\displaystyle F_k = \eta u_*^3 \quad .$ (209)

This form has also been used by Craig and Banner (1994), who suggested $ \eta \approx 100$.


USES:

    IMPLICIT NONE
INPUT PARAMETERS:
    REALTYPE, intent(in)                :: u_tau
    REALTYPE, intent(in)                :: eta
REVISION HISTORY:
    Original author(s): Lars Umlauf
    $Log: fk_craig.F90,v $
    Revision 1.5  2007-07-23 11:28:39  hb
    cw for Craig-Banner wave breaking from namelist now used in fk_craig.F90
    Revision 1.4  2005-06-27 13:44:07  kbk
    modified + removed traling blanks
    Revision 1.3  2004/08/18 12:50:57  lars
    updated documentation
    Revision 1.2  2003/03/28 09:20:35  kbk
    added new copyright to files
    Revision 1.1  2003/03/10 09:00:36  gotm
    Part of new generic turbulence model



Karsten Bolding 2012-01-24