From 0bc56c329db502acebac242ec1484b61b1b78835 Mon Sep 17 00:00:00 2001
From: Juan Escobar <escj@aero.obs-mip.fr>
Date: Mon, 15 Jun 2020 18:44:01 +0200
Subject: [PATCH] Juan 15/06/2020:replace modd.. declare create -> enter data
create in ini_modeln
---
src/MNH/ini_modeln.f90 | 2 ++
src/MNH/modd_metricsn.f90 | 2 +-
src/MNH/modd_refn.f90 | 2 +-
3 files changed, 4 insertions(+), 2 deletions(-)
diff --git a/src/MNH/ini_modeln.f90 b/src/MNH/ini_modeln.f90
index a7ff5457c..5fadcc1ba 100644
--- a/src/MNH/ini_modeln.f90
+++ b/src/MNH/ini_modeln.f90
@@ -900,6 +900,7 @@ ALLOCATE(XDYY(IIU,IJU,IKU))
ALLOCATE(XDZX(IIU,IJU,IKU))
ALLOCATE(XDZY(IIU,IJU,IKU))
ALLOCATE(XDZZ(IIU,IJU,IKU))
+!$acc enter data create(XDXX,XDYY,XDZZ,XDZX,XDZY)
!
!* 3.3 Modules MODD_REF and MODD_REF_n
!
@@ -912,6 +913,7 @@ ALLOCATE(XRHODREF(IIU,IJU,IKU))
ALLOCATE(XTHVREF(IIU,IJU,IKU))
ALLOCATE(XEXNREF(IIU,IJU,IKU))
ALLOCATE(XRHODJ(IIU,IJU,IKU))
+!$acc enter data create(XRHODJ)
IF (CEQNSYS=='DUR' .AND. LUSERV) THEN
ALLOCATE(XRVREF(IIU,IJU,IKU))
ELSE
diff --git a/src/MNH/modd_metricsn.f90 b/src/MNH/modd_metricsn.f90
index 8a9b57111..9777112cf 100644
--- a/src/MNH/modd_metricsn.f90
+++ b/src/MNH/modd_metricsn.f90
@@ -48,7 +48,7 @@ TYPE(METRICS_t), DIMENSION(JPMODELMAX), TARGET, SAVE :: METRICS_MODEL
REAL, DIMENSION(:,:,:), POINTER, contiguous :: XDXX=>NULL(),XDZX=>NULL(), &
XDYY=>NULL(),XDZY=>NULL(),XDZZ=>NULL()
-!$acc declare create(XDXX,XDYY,XDZZ,XDZX,XDZY)
+! acc declare create(XDXX,XDYY,XDZZ,XDZX,XDZY)
CONTAINS
diff --git a/src/MNH/modd_refn.f90 b/src/MNH/modd_refn.f90
index 45981ba79..9ebcc958a 100644
--- a/src/MNH/modd_refn.f90
+++ b/src/MNH/modd_refn.f90
@@ -69,7 +69,7 @@ REAL, DIMENSION(:,:,:), POINTER, contiguous :: XTHVREF=>NULL()
REAL, DIMENSION(:,:,:), POINTER :: XRVREF=>NULL()
REAL, DIMENSION(:,:,:), POINTER, contiguous :: XEXNREF=>NULL()
REAL, DIMENSION(:,:,:), POINTER, contiguous :: XRHODJ=>NULL()
-!$acc declare create (XRHODJ)
+! acc declare create (XRHODJ)
REAL, POINTER :: XREFMASS=>NULL()
REAL, POINTER :: XMASS_O_PHI0=>NULL()
REAL, POINTER :: XLINMASS=>NULL()
--
GitLab