From eb42875f97186f03a26e379b30ec6f4300da424a Mon Sep 17 00:00:00 2001
From: Juan ESCOBAR <juan.escobar@aero.obs-mip.fr>
Date: Wed, 1 Feb 2023 10:57:36 +0100
Subject: [PATCH] Juan 01/02/2023:ZSOLVER/dotprod.f90, OpenACC OPT, remove
 update host(ZDOTPROD) + use SUM_DD_R2_ll_DEVICE

---
 src/ZSOLVER/dotprod.f90 | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/ZSOLVER/dotprod.f90 b/src/ZSOLVER/dotprod.f90
index dab2e6a88..89fa14392 100644
--- a/src/ZSOLVER/dotprod.f90
+++ b/src/ZSOLVER/dotprod.f90
@@ -195,8 +195,8 @@ ZDOTPROD(:,:)    = 0.
   END DO
 !$mnh_end_do()
 !$acc end parallel
-!$acc update host(ZDOTPROD)
-PDOTPROD = SUM_DD_R2_ll(ZDOTPROD)
+! acc update host(ZDOTPROD)
+PDOTPROD = SUM_DD_R2_ll_DEVICE(ZDOTPROD)
 !JUAN16
 #ifndef MNH_OPENACC
 DEALLOCATE(ZDOTPROD)
-- 
GitLab