From a6857a192bdc0145084505d1829e2eedf1cf7b88 Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Thu, 10 Feb 2022 09:00:39 +0100
Subject: [PATCH] Naima 10/02/2022: OpenACC: bugfix: update XRUS, XRVS and XRWS
 and not copy them because already present

---
 src/MNH/modeln.f90 | 9 ++++-----
 1 file changed, 4 insertions(+), 5 deletions(-)

diff --git a/src/MNH/modeln.f90 b/src/MNH/modeln.f90
index 29f3dee3b..6c65d3c53 100644
--- a/src/MNH/modeln.f90
+++ b/src/MNH/modeln.f90
@@ -1614,15 +1614,14 @@ XTIME_LES_BU_PROCESS = 0.
 !
 !$acc update device(XRTHS)
 !
+!XRWS_PRES copy and not copyout (hidden in UPDATE_HALO)
 !$acc data create (XUT, XVT, XWT)                                         &
 !$acc &    copyin (XTHT, XPABST, XRT, XSVT, XRTHS_CLD, XRRS_CLD, XTHVREF) &
-!$acc &    copy   (XRRS, XRUS, XRVS, XRWS)                         &
-!$acc &    copy   (XRWS_PRES)                                             & !XRWS_PRES copy and not copyout (hidden in UPDATE_HALO)
-!$acc &    present(XDXX, XDYY, XDZZ, XDZX, XDZY, XRHODJ)
+!$acc &    copy   (XRRS, XRWS_PRES)                                       &
+!$acc &    present(XDXX, XDYY, XDZZ, XDZX, XDZY, XRHODJ, XRUS, XRVS, XRWS )
 !
 !$acc update device(XUT, XVT, XWT, XRHODJ)
-
-!
+!$acc update device(XRUS, XRVS, XRWS)
 !
 !$acc data copyin (XTKET, XRSVS_CLD) &
 !$acc &    copy   (XRTKES, XRSVS)    &
-- 
GitLab