diff --git a/src/MNH/ini_cturb.f90 b/src/MNH/ini_cturb.f90
index 090f8ad30de5e7f751e058004b61a318196f9882..245dfa0632b533d2855e56b9fc3459a9e51a48cd 100644
--- a/src/MNH/ini_cturb.f90
+++ b/src/MNH/ini_cturb.f90
@@ -64,6 +64,7 @@ END MODULE MODI_INI_CTURB
 !!        V.Masson          13/11/02   XALPSBL and XASBL
 !!                             05/06   Remove KEPS
 !!        Q.Rodier             01/19   XCED replaced by XCEDIS in read_exsegn.f90 and ini_modeln.f90
+!!                                     Remove XASBL (not used)
 !! --------------------------------------------------------------------------
 !
 !*        0. DECLARATIONS
@@ -213,14 +214,6 @@ XCPR3= XCPR2        ! used only for the Schmidt number for scalar variables
 XCPR4= XCPR2
 XCPR5= XCPR2
 !
-!         2.4 Value related to the TKE universal function within SBL
-!
-!
-XASBL   = 0.5*( XALPSBL**(3./2.)*XKARMAN*XCED + XKARMAN/SQRT(XALPSBL)/XCMFS )
-!       Redelsperger et al 2001
-!
-!
-!
 !         3. MINIMUM VALUES 
 !            --------------
 !
diff --git a/src/MNH/modd_cturb.f90 b/src/MNH/modd_cturb.f90
index 6992865f2de9a78d787035ff46678e086dd09ecd..db23e955b7e52ad14c9d4d5d555fb24895d8fbd9 100644
--- a/src/MNH/modd_cturb.f90
+++ b/src/MNH/modd_cturb.f90
@@ -38,6 +38,7 @@
 !!       Original            08/08/94
 !!     Nov 06, 2002 (V. Masson)  add XALPSBL and XASBL
 !!     May 06                    Remove EPS
+!!     Jan 2019     (Q. Rodier)  Remove XASBL
 !----------------------------------------------------------------------------
 !
 !*       0. DECLARATIONS
@@ -74,7 +75,6 @@ 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