From 371226ec02ee685997fa25b936eb831d87828f14 Mon Sep 17 00:00:00 2001
From: Quentin Rodier <quentin.rodier@meteo.fr>
Date: Fri, 24 Feb 2023 10:23:59 +0100
Subject: [PATCH] Quentin 24/02/2023: bugfix on turb for applying sed scripst
 to retrive pure array-syntax in mesonh

---
 src/common/turb/turb.F90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/common/turb/turb.F90 b/src/common/turb/turb.F90
index 3cf7afa99..e45f63513 100644
--- a/src/common/turb/turb.F90
+++ b/src/common/turb/turb.F90
@@ -1731,7 +1731,7 @@ IF ( TURBN%CTURBDIM /= '1DIM' ) THEN
 END IF
 ! 1D turbulence scheme
 !$mnh_expand_array(JIJ=IIJB:IIJE,JK=IKTB:IKTE)
-PLM(IIJB:IIJE,IKTB:IKTE) = PZZ(IIJB:IIJE,IKL+IKTB:IKTE+IKL) - PZZ(IIJB:IIJE,IKTB:IKTE)
+PLM(IIJB:IIJE,IKTB:IKTE) = PZZ(IIJB:IIJE,IKTB+IKL:IKTE+IKL) - PZZ(IIJB:IIJE,IKTB:IKTE)
 !$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=IKTB:IKTE)
 !$mnh_expand_array(JIJ=IIJB:IIJE)
 PLM(IIJB:IIJE,IKU) = PLM(IIJB:IIJE,IKE)
-- 
GitLab