From 954772c4c67c30ce580efb180ebe509ea2965719 Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Mon, 8 Jul 2019 15:30:59 +0200
Subject: [PATCH] Philippe 08/07/2019: OpenACC: fix: missing data directive
---
src/MNH/modeln.f90 | 3 +++
1 file changed, 3 insertions(+)
diff --git a/src/MNH/modeln.f90 b/src/MNH/modeln.f90
index 2ad2d2e71..8848e9d41 100644
--- a/src/MNH/modeln.f90
+++ b/src/MNH/modeln.f90
@@ -1492,6 +1492,9 @@ XTIME_LES_BU_PROCESS = 0.
!$acc update device(XUT, XVT, XWT, XRHODJ)
!
!
+!$acc data copyin (XTKET, XRSVS_CLD) &
+!$acc & copy (XRTKES, XRSVS) &
+!$acc & copyout(XRTKEMS)
CALL ADVECTION_METSV ( TZBAKFILE, GCLOSE_OUT,CUVW_ADV_SCHEME, &
CMET_ADV_SCHEME, CSV_ADV_SCHEME, CCLOUD, NSPLIT, &
LSPLIT_CFL, XSPLIT_CFL, LCFL_WRIT, &
--
GitLab