Q.Rodier 15/5/2018 new constant XCEDIS

src/MNH/modd_turbn.f90

-!MNH_LIC Copyright 1995-2018 CNRS, Meteo-France and Universite Paul Sabatier
+!MNH_LIC Copyright 1994-2018 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.
@@ -54,6 +54,7 @@ TYPE TURB_t
   REAL               :: XIMPL     ! implicitness degree for the vertical terms of 
                                      ! the turbulence scheme
   REAL               :: XKEMIN      ! mimimum value for the TKE                                  
+  REAL               :: XCEDIS      ! Constant for dissipation of Tke                            
   CHARACTER (LEN=4)  :: CTURBLEN  ! type of length used for the closure
                                      ! 'BL89' Bougeault and Lacarrere scheme
                                      ! 'DELT' length = ( volum) ** 1/3
@@ -93,6 +94,7 @@ TYPE(TURB_t), DIMENSION(JPMODELMAX), TARGET, SAVE :: TURB_MODEL
 
 REAL, POINTER :: XIMPL=>NULL()
 REAL, POINTER :: XKEMIN=>NULL()
+REAL, POINTER :: XCEDIS=>NULL()
 CHARACTER (LEN=4), POINTER :: CTURBLEN=>NULL()
 CHARACTER (LEN=4), POINTER :: CTURBDIM=>NULL()
 LOGICAL, POINTER :: LTURB_FLX=>NULL()
@@ -132,6 +134,7 @@ TURB_MODEL(KFROM)%XLEM=>XLEM
 ! Current model is set to model KTO
 XIMPL=>TURB_MODEL(KTO)%XIMPL
 XKEMIN=>TURB_MODEL(KTO)%XKEMIN
+XCEDIS=>TURB_MODEL(KTO)%XCEDIS
 CTURBLEN=>TURB_MODEL(KTO)%CTURBLEN
 CTURBDIM=>TURB_MODEL(KTO)%CTURBDIM
 LTURB_FLX=>TURB_MODEL(KTO)%LTURB_FLX

src/MNH/modn_turbn.f90

@@ -55,6 +55,7 @@
 USE MODD_TURB_n, ONLY: &
          XIMPL_n => XIMPL, &
          XKEMIN_n => XKEMIN, &
+         XCEDIS_n => XCEDIS, &
          CTURBLEN_n => CTURBLEN, &
          CTURBDIM_n => CTURBDIM, &
          LTURB_FLX_n => LTURB_FLX, &
@@ -71,6 +72,7 @@ IMPLICIT NONE
 !
 REAL,SAVE  :: XIMPL
 REAL,SAVE :: XKEMIN
+REAL,SAVE :: XCEDIS
 CHARACTER (LEN=4),SAVE  :: CTURBLEN
 CHARACTER (LEN=4),SAVE  :: CTURBDIM
 LOGICAL,SAVE  :: LTURB_FLX
@@ -85,7 +87,7 @@ REAL,SAVE :: VSIGQSAT
 !
 NAMELIST/NAM_TURBn/XIMPL,CTURBLEN,CTURBDIM,LTURB_FLX,LTURB_DIAG,  &
                    LSUBG_COND,LSIGMAS,LSIG_CONV,LRMC01,CTOM,CSUBG_AUCV,&
-                   XKEMIN,VSIGQSAT
+                   XKEMIN,VSIGQSAT,XCEDIS
 
 !
 CONTAINS
@@ -93,6 +95,7 @@ CONTAINS
 SUBROUTINE INIT_NAM_TURBn
   XIMPL = XIMPL_n
   XKEMIN = XKEMIN_n
+  XCEDIS = XCEDIS_n
   CTURBLEN = CTURBLEN_n
   CTURBDIM = CTURBDIM_n
   LTURB_FLX = LTURB_FLX_n
@@ -109,6 +112,7 @@ END SUBROUTINE INIT_NAM_TURBn
 SUBROUTINE UPDATE_NAM_TURBn
   XIMPL_n = XIMPL
   XKEMIN_n = XKEMIN
+  XCEDIS_n = XCEDIS
   CTURBLEN_n = CTURBLEN
   CTURBDIM_n = CTURBDIM
   LTURB_FLX_n = LTURB_FLX