diff --git a/src/MNH/prep_ideal_case.f90 b/src/MNH/prep_ideal_case.f90 index 6f30ae294b86920fa6fa2e83f8d25f8ad28183ee..8679c8663f473f8d4d6425c2666573fdbee450ad 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): !