diff --git a/src/common/turb/mode_tm06_h.F90 b/src/common/turb/mode_tm06_h.F90
index bba57119768d560ea075c64b808bdaa2dbd7205a..02af4cf442f27a9bb99da0945c6e337af767200c 100644
--- a/src/common/turb/mode_tm06_h.F90
+++ b/src/common/turb/mode_tm06_h.F90
@@ -96,14 +96,14 @@ END WHERE
 !
 !$mnh_expand_array(JIJ=IIJB:IIJE)
 PBL_DEPTH(IIJB:IIJE) = XUNDEF
-ZFLXZMIN (IIJB:IIJE) = PFLXZ(IIJB:IIJE,IKB)
+ZFLXZMIN(IIJB:IIJE) = PFLXZ(IIJB:IIJE,IKB)
 !$mnh_end_expand_array(JIJ=IIJB:IIJE)
 !
 DO JK=IKTB,IKTE
 !$mnh_expand_where(JIJ=IIJB:IIJE)
   WHERE(PFLXZ(IIJB:IIJE,IKB)>0. .AND. PFLXZ(IIJB:IIJE,JK)<ZFLXZMIN(IIJB:IIJE))
-    PBL_DEPTH(IIJB:IIJE) = PZZ  (IIJB:IIJE,JK) - PZZ(IIJB:IIJE,IKB)
-    ZFLXZMIN (IIJB:IIJE) = PFLXZ(IIJB:IIJE,JK)
+    PBL_DEPTH(IIJB:IIJE) = PZZ(IIJB:IIJE,JK) - PZZ(IIJB:IIJE,IKB)
+    ZFLXZMIN(IIJB:IIJE) = PFLXZ(IIJB:IIJE,JK)
   END WHERE
 !$mnh_end_expand_where(JIJ=IIJB:IIJE)
 END DO
diff --git a/src/common/turb/mode_turb_ver_thermo_flux.F90 b/src/common/turb/mode_turb_ver_thermo_flux.F90
index 0e25f519c0ab14193429b90144c0e48282255d15..eebc8bd6aa93711f52aeea59b641662bb9a8b651 100644
--- a/src/common/turb/mode_turb_ver_thermo_flux.F90
+++ b/src/common/turb/mode_turb_ver_thermo_flux.F90
@@ -380,7 +380,7 @@ INTEGER             :: IKB,IKE      ! I index values for the Beginning and End
                                     ! mass points of the domain in the 3 direct.
 INTEGER             :: IKT          ! array size in k direction
 INTEGER             :: IKTB,IKTE    ! start, end of k loops in physical domain 
-INTEGER             :: JI, JJ, JK ! loop indexes
+INTEGER             :: JIJ, JK ! loop indexes
 INTEGER             :: IIJB, IIJE
 !
 REAL :: ZTIME1, ZTIME2