The Munk and Anderson (1948) stability function

INTERFACE:

   subroutine cmue_ma(nlev)

DESCRIPTION:

This subroutine computes the stability functions according to Munk and Anderson (1948). These are expressed by the empirical relations

$$\begin{array}{ll} c_{\mu} = c_\mu^0 \; , \quad \\ [3mm] c_{\m... ...\\ c_{\mu}'= c_{\mu} \; , \quad & Ri < 0 \; , \quad \end{array}$$ (196)

where where $Ri$ is the gradient Richardson-number and $Pr_t^0$ is the turbulent Prandtl-number for $Ri \rightarrow 0$. $Pr_t^0$ and the fixed value $c_\mu^0$ have to be set in gotmturb.nml.

USES:

   use turbulence, only: cm0_fix,Prandtl0_fix
   use turbulence, only: cmue1,cmue2,as,an
   IMPLICIT NONE

INPUT PARAMETERS:

   integer, intent(in)                 :: nlev

REVISION HISTORY:

   Original author(s): Hans Burchard & Karsten Bolding
   $Log: cmue_ma.F90,v $
   Revision 1.10  2007-01-06 11:49:15  kbk
   namelist file extension changed .inp --> .nml
   Revision 1.9  2005/11/15 11:35:02  lars
   documentation finish for print
   Revision 1.8  2005/07/18 08:54:56  lars
   changed docu for html compliance
   Revision 1.7  2005/06/27 13:44:07  kbk
   modified + removed traling blanks
   Revision 1.6  2004/08/18 12:53:07  lars
   updated documentation
   Revision 1.5  2003/03/28 09:38:54  kbk
   removed tabs
   Revision 1.4  2003/03/28 09:20:35  kbk
   added new copyright to files
   Revision 1.3  2003/03/10 09:02:04  gotm
   Added new Generic Turbulence Model + 
   improved documentation and cleaned up code
   Revision 1.2  2002/02/08 08:59:58  gotm
 
   Revision 1.1.1.1  2001/02/12 15:55:58  gotm
   initial import into CVS