Quentin 30/07/2022: bugfix minor hpack mode_turb_ver_thermo

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

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