From 94f9c65509826c8e3739e95c3db7543e971379a6 Mon Sep 17 00:00:00 2001
From: Juan ESCOBAR <juan.escobar@aero.obs-mip.fr>
Date: Wed, 1 Feb 2023 10:58:46 +0100
Subject: [PATCH] Juan 01/02/2023:ZSOLVER/p_abs.f90, OpenACC OPT, remove update
host(...) , use SUM_DD_R2_ll_DEVICE
---
src/ZSOLVER/p_abs.f90 | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/src/ZSOLVER/p_abs.f90 b/src/ZSOLVER/p_abs.f90
index 3b41b15e6..962230cde 100644
--- a/src/ZSOLVER/p_abs.f90
+++ b/src/ZSOLVER/p_abs.f90
@@ -347,7 +347,7 @@ IF ( CEQNSYS=='DUR' .OR. CEQNSYS=='MAE' ) THEN
END IF
!
!
- !$acc update host(ZMASSGUESS_2D,ZMASS_O_PI_2D,ZWATERMASST_2D)
+ ! acc update host(ZMASSGUESS_2D,ZMASS_O_PI_2D,ZWATERMASST_2D)
ZMASSGUESS = SUM_DD_R2_ll_DEVICE(ZMASSGUESS_2D)
ZMASS_O_PI = SUM_DD_R2_ll_DEVICE(ZMASS_O_PI_2D)
ZWATERMASST = SUM_DD_R2_ll_DEVICE(ZWATERMASST_2D)
@@ -409,7 +409,7 @@ IF ( CEQNSYS=='DUR' .OR. CEQNSYS=='MAE' ) THEN
END DO
END IF
!
- !$acc update host(ZMASSGUESS_2D)
+ ! acc update host(ZMASSGUESS_2D)
ZMASSGUESS = SUM_DD_R2_ll_DEVICE(ZMASSGUESS_2D)
!
ZPI0 = (PDRYMASST + ZWATERMASST - ZP00_O_RD*ZMASSGUESS ) / ZMASS_O_PI
--
GitLab