From 620c5b286f97adf0ed6ce61bf89af352a2a85e03 Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Tue, 4 Jul 2023 16:18:54 +0200
Subject: [PATCH] Philippe 04/07/2023: OpenACC: PREP_IDEAL_CASE: add data
 create for XDXX...

---
 src/MNH/prep_ideal_case.f90 | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/src/MNH/prep_ideal_case.f90 b/src/MNH/prep_ideal_case.f90
index 6f30ae294..8679c8663 100644
--- a/src/MNH/prep_ideal_case.f90
+++ b/src/MNH/prep_ideal_case.f90
@@ -1,4 +1,4 @@
-!MNH_LIC Copyright 1994-2022 CNRS, Meteo-France and Universite Paul Sabatier
+!MNH_LIC Copyright 1994-2023 CNRS, Meteo-France and Universite Paul Sabatier
 !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence
 !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
 !MNH_LIC for details. version 1.
@@ -361,7 +361,7 @@ USE MODD_IO,        ONLY: TFILE_DUMMY, TFILE_OUTPUTLISTING
 USE MODD_CONF_n
 USE MODD_NSV,       ONLY: NSV
 use modd_precision, only: LFIINT, MNHREAL_MPI, MNHTIME
-USE MODD_TYPE_DATE, ONLY: DATE_TIME
+USE MODD_TYPE_DATE, ONLY: DATE, DATE_TIME
 !
 USE MODN_BLANK_n
 !
@@ -978,6 +978,7 @@ ALLOCATE(XDYY(NIU,NJU,NKU))
 ALLOCATE(XDZX(NIU,NJU,NKU))
 ALLOCATE(XDZY(NIU,NJU,NKU))
 ALLOCATE(XDZZ(NIU,NJU,NKU))
+!$acc enter data create(XDXX,XDYY,XDZZ,XDZX,XDZY)
 !
 !*       4.6   Reference state variables (modules MODD_REF and MODD_REF1):
 !
-- 
GitLab