!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier
!MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence
!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt  
!MNH_LIC for details. version 1.
!-----------------------------------------------------------------
!--------------- special set of characters for RCS information
!-----------------------------------------------------------------
! $Source: /home/cvsroot/MNH-VX-Y-Z/src/MNH/modd_cturb.f90,v $ $Revision: 1.2.4.1.18.1 $
! MASDEV4_7 modd 2006/05/23 10:10:13
!-----------------------------------------------------------------
!      #######################
          MODULE MODD_CTURB
!      #######################
!
!!****   *MODD_CTURB*  - declaration of the turbulent scheme constants
!!
!!     PURPOSE
!!     -------
!        The purpose of this declarative module is to declare the 
!      turbulence scheme constants.
!
!!
!!**   IMPLICIT ARGUMENTS
!!     ------------------
!!       NONE
!!
!!     REFERENCE
!!     ---------
!!       Book 2 of Meso-NH documentation (MODD_CTURB)
!!       Book 1 of Meso-NH documentation (Chapter Turbulence)
!!
!!     AUTHOR
!!     ------
!1       Joan Cuxart         * INM  and Meteo-France *
!!
!!     MODIFICATIONS
!!     -------------
!!       Original            08/08/94
!!     Nov 06, 2002 (V. Masson)  add XALPSBL and XASBL
!!     May 06                    Remove EPS
!----------------------------------------------------------------------------
!
!*       0. DECLARATIONS
!           ------------
!
IMPLICIT NONE
!
REAL,SAVE :: XCMFS        ! constant for the momentum flux due to shear   
REAL,SAVE :: XCMFB        ! constant for the momentum flux due to buoyancy
REAL,SAVE :: XCSHF        ! constant for the sensible heat flux 
REAL,SAVE :: XCHF         ! constant for the humidity flux 
REAL,SAVE :: XCTV         ! constant for the temperature variance
REAL,SAVE :: XCHV         ! constant for the humidity variance
REAL,SAVE :: XCHT1        ! first ct. for the humidity-temperature correlation
REAL,SAVE :: XCHT2        ! second ct. for the humidity-temperature correlation
!
REAL,SAVE :: XCPR1        ! first ct. for the turbulent Prandtl numbers
REAL,SAVE :: XCPR2        ! second ct. for the turbulent Prandtl numbers
REAL,SAVE :: XCPR3        ! third ct. for the turbulent Prandtl numbers
REAL,SAVE :: XCPR4        ! fourth ct. for the turbulent Prandtl numbers
REAL,SAVE :: XCPR5        ! fifth ct. for the turbulent Prandtl numbers
!
REAL,SAVE :: XCET         ! constant into the transport term of the TKE eq.
REAL,SAVE :: XCED         ! constant into the dissipation term of the TKE eq.
REAL,SAVE :: XCDI,XCNU    ! constants  used to try the adequacy between CFD RANS 
                          !            and approach and Mellor/Yamada LES approach
!
REAL,SAVE :: XCDP         ! ct. for the production term in the dissipation eq.
REAL,SAVE :: XCDD         ! ct. for the destruction term in the dissipation eq.
REAL,SAVE :: XCDT         ! ct. for the transport term in the dissipation eq.
!
REAL,SAVE :: XTKEMIN      ! mimimum value for the TKE
!
REAL,SAVE :: XLINI        ! initial value for BL mixing length
REAL,SAVE :: XLINF        ! to prevent division by zero in the BL algorithm
!
REAL,SAVE :: XALPSBL      ! constant linking TKE and friction velocity in the SBL
REAL,SAVE :: XASBL        ! constant used to define mixing length in the SBL
!
REAL,SAVE :: XCEP         ! Constant for wind pressure-correlations
REAL,SAVE :: XA0          ! Constant a0 for wind pressure-correlations
REAL,SAVE :: XA2          ! Constant a2 for wind pressure-correlations
REAL,SAVE :: XA3          ! Constant a3 for wind pressure-correlations
REAL,SAVE :: XA5          ! Constant a5 for temperature pressure-correlations
REAL,SAVE :: XCTD         ! Constant for temperature and vapor dissipation
REAL,SAVE :: XCTP         ! Constant for temperature and vapor pressure-correlations
!
REAL,SAVE :: XPHI_LIM     ! Threshold value for Phi3 and Psi3
REAL,SAVE :: XSBL_O_BL    ! SBL height / BL height ratio
REAL,SAVE :: XFTOP_O_FSURF! Fraction of surface (heat or momentum) flux used to define top of BL
!
END MODULE MODD_CTURB