From 4e0143e5f4e6ac9d4f4bdc3710283d02fc3f11b6 Mon Sep 17 00:00:00 2001
From: Juan Escobar <escj@aero.obs-mip.fr>
Date: Fri, 27 Oct 2023 16:28:17 +0200
Subject: [PATCH] Juan 27/10/2023:prep_ideal_case.f90, for OPENACC add
 initialisation of MNH_ALLOC_ZWORK+INIT_HALO_D => PREP_IDEAL work with
 VER_USER=ZSOLVER version

---
 src/MNH/prep_ideal_case.f90 | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/src/MNH/prep_ideal_case.f90 b/src/MNH/prep_ideal_case.f90
index 5bb6611a2..9ac496cfc 100644
--- a/src/MNH/prep_ideal_case.f90
+++ b/src/MNH/prep_ideal_case.f90
@@ -443,6 +443,11 @@ USE MODD_GET_n
 !
 USE MODN_CONFIO, ONLY : NAM_CONFIO
 !
+#ifdef MNH_OPENACC
+USE MODE_MNH_ZWORK
+USE MODD_HALO_D
+#endif
+!
 IMPLICIT NONE
 !
 !*       0.1  Declarations of global variables not declared in the modules
@@ -1196,6 +1201,10 @@ ELSE                                   ! 3D case
   END IF
 END IF
 !
+#ifdef MNH_OPENACC
+CALL MNH_ALLOC_ZWORK(1)
+CALL INIT_HALO_D()
+#endif
 !
 !-------------------------------------------------------------------------------
 !
-- 
GitLab