From bde0aba46c4911fed071d6ae05a86d03def992e7 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?S=C3=A9bastien=20Riette?= <sebastien.riette@meteo.fr>
Date: Fri, 15 Apr 2022 10:15:50 +0200
Subject: [PATCH] S. Riette 15/4/2022 typo in mnh_expand
---
src/common/turb/mode_turb_ver_thermo_flux.F90 | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/src/common/turb/mode_turb_ver_thermo_flux.F90 b/src/common/turb/mode_turb_ver_thermo_flux.F90
index 29d2228ec..1a8339f83 100644
--- a/src/common/turb/mode_turb_ver_thermo_flux.F90
+++ b/src/common/turb/mode_turb_ver_thermo_flux.F90
@@ -757,11 +757,11 @@ ELSE
ZWORK1 = MZF( MZM(PETHETA,D%NKA, D%NKU, D%NKL) * ZFLXZ,D%NKA, D%NKU, D%NKL )
!$mnh_expand_array(JI=1:D%NIT,JJ=1:D%NJT,JK=1:D%NKT)
PTP(:,:,:) = PBETA(:,:,:) * ZWORK1(:,:,:)
- !$mnh_end_expand_array(JI=0:D%NIT,JJ=1:D%NJT,JK=1:D%NKT)
+ !$mnh_end_expand_array(JI=1:D%NIT,JJ=1:D%NJT,JK=1:D%NKT)
!$mnh_expand_array(JI=1:D%NIT,JJ=1:D%NJT)
PTP(:,:,IKB)= PBETA(:,:,IKB) * PETHETA(:,:,IKB) * &
0.5 * ( ZFLXZ(:,:,IKB) + ZFLXZ(:,:,IKB+D%NKL) )
- !$mnh_end_expand_array(JI=0:D%NIT,JJ=1:D%NJT)
+ !$mnh_end_expand_array(JI=1:D%NIT,JJ=1:D%NJT)
ELSE
ZWORK1 = MZF( ZFLXZ,D%NKA, D%NKU, D%NKL )
!$mnh_expand_array(JI=1:D%NIT,JJ=1:D%NJT,JK=1:D%NKT)
--
GitLab