From f9277326f93090f741f5f4984dcdd0980eda9901 Mon Sep 17 00:00:00 2001
From: Quentin Rodier <quentin.rodier@meteo.fr>
Date: Sat, 30 Jul 2022 00:13:12 +0200
Subject: [PATCH] Quentin 30/07/2022: bugfix minor hpack mode_turb_ver_thermo
---
src/common/turb/mode_tm06_h.F90 | 6 +++---
src/common/turb/mode_turb_ver_thermo_flux.F90 | 2 +-
2 files changed, 4 insertions(+), 4 deletions(-)
diff --git a/src/common/turb/mode_tm06_h.F90 b/src/common/turb/mode_tm06_h.F90
index bba571197..02af4cf44 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 0e25f519c..eebc8bd6a 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
--
GitLab