From 78f29a20833064083c6ec7aea911f81c7658f4b7 Mon Sep 17 00:00:00 2001
From: Quentin Rodier <quentin.rodier@meteo.fr>
Date: Fri, 29 Jul 2022 23:38:15 +0200
Subject: [PATCH] Quentin 29/07/2022: Hpacking, bugfix uniforming loop index
name
---
src/common/turb/mode_tm06_h.F90 | 18 +++++++++---------
1 file changed, 9 insertions(+), 9 deletions(-)
diff --git a/src/common/turb/mode_tm06_h.F90 b/src/common/turb/mode_tm06_h.F90
index 240b8b311..bba571197 100644
--- a/src/common/turb/mode_tm06_h.F90
+++ b/src/common/turb/mode_tm06_h.F90
@@ -65,7 +65,7 @@ REAL, DIMENSION(D%NIJT), INTENT(INOUT) :: PBL_DEPTH ! boundary layer height
! 0.2 declaration of local variables
!
!
-INTEGER :: JK,JI,JJ ! loop counter
+INTEGER :: JK,JIJ ! loop counter
INTEGER :: IKB,IKTB,IKTE,IIJB,IIJE
REAL, DIMENSION(D%NIJT) :: ZFLXZMIN ! minimum of temperature flux
REAL, DIMENSION(D%NIJT) :: ZBL_DEPTH! BL depth at previous time-step
@@ -88,31 +88,31 @@ IIJB=D%NIJB
!
ZBL_DEPTH(IIJB:IIJE) = PBL_DEPTH(IIJB:IIJE)
!
-!$mnh_expand_where(JIJ=D%NIJB:D%NIJE)
+!$mnh_expand_where(JIJ=IIJB:IIJE)
WHERE(ZBL_DEPTH(IIJB:IIJE)==XUNDEF)
ZBL_DEPTH(IIJB:IIJE)=0.
END WHERE
-!$mnh_end_expand_where(JIJ=D%NIJB:D%NIJE)
+!$mnh_end_expand_where(JIJ=IIJB:IIJE)
!
-!$mnh_expand_array(JIJ=D%NIJB:D%NIJE)
+!$mnh_expand_array(JIJ=IIJB:IIJE)
PBL_DEPTH(IIJB:IIJE) = XUNDEF
ZFLXZMIN (IIJB:IIJE) = PFLXZ(IIJB:IIJE,IKB)
-!$mnh_end_expand_array(JIJ=D%NIJB:D%NIJE)
+!$mnh_end_expand_array(JIJ=IIJB:IIJE)
!
DO JK=IKTB,IKTE
-!$mnh_expand_where(JIJ=D%NIJB:D%NIJE)
+!$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)
END WHERE
-!$mnh_end_expand_where(JIJ=D%NIJB:D%NIJE)
+!$mnh_end_expand_where(JIJ=IIJB:IIJE)
END DO
!
-!$mnh_expand_where(JIJ=D%NIJB:D%NIJE)
+!$mnh_expand_where(JIJ=IIJB:IIJE)
WHERE(PBL_DEPTH(IIJB:IIJE)/=XUNDEF)
PBL_DEPTH(IIJB:IIJE)=MIN(PBL_DEPTH(IIJB:IIJE),ZBL_DEPTH(IIJB:IIJE)+ZGROWTH*PTSTEP)
END WHERE
-!$mnh_end_expand_where(JIJ=D%NIJB:D%NIJE)
+!$mnh_end_expand_where(JIJ=IIJB:IIJE)
!
!----------------------------------------------------------------------------
IF (LHOOK) CALL DR_HOOK('TM06_H',1,ZHOOK_HANDLE)
--
GitLab