diff --git a/src/MNH/ini_cturb.f90 b/src/MNH/ini_cturb.f90
index a7a37098f0130b2228019e5920664acbafefc677..3e7bc3275572eb591a2459ed12471bffb4824d30 100644
--- a/src/MNH/ini_cturb.f90
+++ b/src/MNH/ini_cturb.f90
@@ -81,10 +81,11 @@ IMPLICIT NONE
 !         1.1 Constant for dissipation of Tke
 !
 !XCED  = 0.70
-XCED  = 0.85
+XCED  = 0.84
 !       Redelsperger-Sommeria (1981) = 0.70
 !       Schmidt-Schumann      (1989) = 0.845
 !       Cheng-Canuto-Howard   (2002) = 0.845
+!       Rodier, Masson, Couvreux, Paci (2017) = 0.34
 !
 !
 !         1.2 Constant for wind pressure-correlations
@@ -162,6 +163,10 @@ XALPSBL = 4.63
 !       Stull 1988                  = 4.75
 !
 !
+!         1.11  Value related to the shear term in mixing length computation
+!
+XRM17 = 0.5  ! Rodier et al 2017
+!
 !
 !         2. Derivated constants
 !            -------------------
diff --git a/src/MNH/modd_cturb.f90 b/src/MNH/modd_cturb.f90
index ed58fd9627db9339f66dd280877781f2c736a5c0..6992865f2de9a78d787035ff46678e086dd09ecd 100644
--- a/src/MNH/modd_cturb.f90
+++ b/src/MNH/modd_cturb.f90
@@ -68,6 +68,7 @@ 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 :: XRM17        ! Rodier et al 2017 constant in shear term for mixing length
 !
 REAL,SAVE :: XLINI        ! initial value for BL mixing length
 REAL,SAVE :: XLINF        ! to prevent division by zero in the BL algorithm