From 155a8cdd03e28dc678fe76d1bd2d958f0edf6126 Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Tue, 25 Apr 2023 10:55:19 +0200
Subject: [PATCH] Philippe 25/04/2023: OpenACC: contrav: remove unnecessary
 update

---
 src/MNH/contrav.f90 | 1 -
 1 file changed, 1 deletion(-)

diff --git a/src/MNH/contrav.f90 b/src/MNH/contrav.f90
index 7629cbc99..3c16c7e64 100644
--- a/src/MNH/contrav.f90
+++ b/src/MNH/contrav.f90
@@ -678,7 +678,6 @@ IF (GDATA_ON_DEVICE) THEN
   PRUCT(:,:,:) = PRUT(:,:,:) / PDXX(:,:,:)
   PRVCT(:,:,:) = PRVT(:,:,:) / PDYY(:,:,:)
 !$acc end kernels
-!$acc update self(PRUCT,PRVCT)
 ELSE
   PRUCT(:,:,:) = PRUT(:,:,:) / PDXX(:,:,:)
   PRVCT(:,:,:) = PRVT(:,:,:) / PDYY(:,:,:)
-- 
GitLab