From 8b5f8995cbb9da931ffea4ef8a5f29c16b50a242 Mon Sep 17 00:00:00 2001
From: Juan ESCOBAR <juan.escobar@aero.obs-mip.fr>
Date: Mon, 19 Sep 2022 14:47:11 +0200
Subject: [PATCH] Juan 19/09/2022:prandtl.f90, Bug , 2D array syntax must be
 outside 3D mnh_expand_array <-> bit_reprod PB with Nvhpc

---
 src/MNH/prandtl.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/MNH/prandtl.f90 b/src/MNH/prandtl.f90
index 9c1fe3627..def839a36 100644
--- a/src/MNH/prandtl.f90
+++ b/src/MNH/prandtl.f90
@@ -759,8 +759,8 @@ ELSE                                 ! 3D case in a 3D model
                                 + BR_P2( XCTV*PBLL_O_E(:,:,:)*PETHETA(:,:,:) ) &
                                 * ZTMP2_DEVICE(:,:,:)
 #endif
-    PRED2TH3(:,:,IKB)=PRED2TH3(:,:,IKB+KKL)
 !$mnh_end_expand_array()
+    PRED2TH3(:,:,IKB)=PRED2TH3(:,:,IKB+KKL)
 !$acc end kernels
 #endif
 !
-- 
GitLab