diff --git a/src/MNH/advec_4th_order_aux.f90 b/src/MNH/advec_4th_order_aux.f90
index aad9489c5fd3c5098dd1d37c318c458f6ec2f494..dcdcbb1902c839109041c5b9aad6167a657cbcb1 100644
--- a/src/MNH/advec_4th_order_aux.f90
+++ b/src/MNH/advec_4th_order_aux.f90
@@ -25,7 +25,7 @@ USE MODD_ARGSLIST_ll, ONLY : HALO2LIST_ll
 CHARACTER (LEN=4), DIMENSION(2), INTENT(IN) :: HLBCX ! X direction LBC type
 CHARACTER (LEN=4), DIMENSION(2), INTENT(IN) :: HLBCY ! Y direction LBC type
 !
-REAL, DIMENSION(:,:,:), INTENT(INOUT) :: PMEANX, PMEANY ! fluxes
+REAL, DIMENSION(:,:,:), INTENT(OUT)   :: PMEANX, PMEANY ! fluxes
 !$acc declare present(PMEANX,PMEANY)
 REAL, DIMENSION(:,:,:), INTENT(IN)    :: PFIELDT  ! variable at t
 !$acc declare present(PFIELDT)
diff --git a/src/MNH/advec_weno_k_3_aux.f90 b/src/MNH/advec_weno_k_3_aux.f90
index ae27d5b9f57347a672366b90102ca73ba1e64819..c290158db699a34607e0c2fbec424c30fc555bde 100644
--- a/src/MNH/advec_weno_k_3_aux.f90
+++ b/src/MNH/advec_weno_k_3_aux.f90
@@ -1683,8 +1683,6 @@ REAL, DIMENSION(SIZE(PSRC,1),SIZE(PSRC,2),SIZE(PSRC,3)):: ZBNEG1, ZBNEG2, ZBNEG3
 !
 REAL, DIMENSION(SIZE(PSRC,1),SIZE(PSRC,2),SIZE(PSRC,3)):: ZOMP1, ZOMP2, ZOMP3
 REAL, DIMENSION(SIZE(PSRC,1),SIZE(PSRC,2),SIZE(PSRC,3)):: ZOMN1, ZOMN2, ZOMN3
-
-REAL, DIMENSION(SIZE(PSRC,1),SIZE(PSRC,2),SIZE(PSRC,3)) :: ZWORK
 !$acc declare present(ZOMP1, ZOMP2, ZOMP3, ZOMN1, ZOMN2, ZOMN3)
 !
 ! EPSILON for weno weights calculation
@@ -1724,8 +1722,6 @@ ZOMP3  = 0.0
 ZOMN1  = 0.0
 ZOMN2  = 0.0
 ZOMN3  = 0.0 
-
-ZWORK = 0.0
 !
 !-------------------------------------------------------------------------------
 !*       1.1.   Interior Fluxes 
diff --git a/src/MNH/advecuvw_weno_k.f90 b/src/MNH/advecuvw_weno_k.f90
index 84cf572f4dc0f0a07c90f3ef6dbda6097da19294..d005b7b959cf5b07422455cc026544a1b5d0bc86 100644
--- a/src/MNH/advecuvw_weno_k.f90
+++ b/src/MNH/advecuvw_weno_k.f90
@@ -127,7 +127,7 @@ TYPE(HALO2LIST_ll), POINTER :: TZHALO2_UT,TZHALO2_VT,TZHALO2_WT
 TYPE(LIST_ll), POINTER :: TZHALO2_ZMEAN
 INTEGER                     :: IINFO_ll    ! return code of parallel routine
 !
-REAL, DIMENSION(SIZE(PUT,1), SIZE(PUT,2), SIZE(PUT,3)) :: ZMEAN, ZWORK, DYM_ZMEAN
+REAL, DIMENSION(SIZE(PUT,1), SIZE(PUT,2), SIZE(PUT,3)) :: ZMEAN, ZWORK
 !$acc declare present(ZMEAN,ZWORK)
 !
 INTEGER :: K_SCHEME
diff --git a/src/MNH/turb.f90 b/src/MNH/turb.f90
index d4a9d0b420e2f0d00b0bc9f45d4f244d662971f0..3d4fd8de1af44f364c703a47f5672ab6c3be648d 100644
--- a/src/MNH/turb.f90
+++ b/src/MNH/turb.f90
@@ -1297,7 +1297,6 @@ IF (LLES_CALL) THEN
   END DO
   CALL LES_MEAN_SUBGRID(PSFU,X_LES_UW0)
   CALL LES_MEAN_SUBGRID(PSFV,X_LES_VW0)
-  CALL LES_MEAN_SUBGRID((PSFU*PSFU+PSFV*PSFV)**0.25,X_LES_USTAR)
 #ifndef _OPENACC
   CALL LES_MEAN_SUBGRID((PSFU*PSFU+PSFV*PSFV)**0.25,X_LES_USTAR)
 #else
diff --git a/src/MNH/turb_ver.f90 b/src/MNH/turb_ver.f90
index 4e420062e82efae77d0d8961d1b03db8021c3494..339fc13ad51c4242c37ebc8a7cf39c686456c5d1 100644
--- a/src/MNH/turb_ver.f90
+++ b/src/MNH/turb_ver.f90
@@ -1,4 +1,4 @@
-! !MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier
+!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.