This subroutine updates the explicit solution of (70) and (71) with shape indicated by (74). In addition to the simplifications discussed in section 4.7.38, is assumed in (71) to eliminate the dependency on according to (72). As discussed in section 4.4, this implies that the last of (71) is replaced by (73). Thus, the -term in (74) drops out, and the solution is characterized by and only.
As a consequence, the numerators and the denominator appearing in (77) are of somewhat different form compared to the result in section 4.7.37. They can be written as
The coefficients of are given by
These polynomials correspond to a slightly generalized form of the solution suggested by Canuto et al. (2001) and Cheng et al. (2002). For cases with unstable stratification, the same clipping conditions on is applied as described in section 4.7.40. For the cases of extreme shear, the limiter described in the context of (83) is active.
use turbulence, only: an,as,at use turbulence, only: cmue1,cmue2 use turbulence, only: cm0 use turbulence, only: cc1 use turbulence, only: ct1,ctt use turbulence, only: a1,a2,a3,a4,a5 use turbulence, only: at1,at2,at3,at4,at5 IMPLICIT NONEINPUT PARAMETERS:
number of vertical layers integer, intent(in) :: nlevDEFINED PARAMETERS:
REALTYPE, parameter :: asLimitFact=1.0d0 REALTYPE, parameter :: anLimitFact=0.5d0REVISION HISTORY:
Original author(s): Lars Umlauf $Log: cmue_c.F90,v $ Revision 1.1 2005-06-27 10:54:33 kbk new files needed
Karsten Bolding 2012-01-24