TKE flux from wave-breaking


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 .$ (211)

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



Karsten Bolding 2012-12-28