From c3556f672714bf4182f7453ad67c79639b34cb9f Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Tue, 7 Dec 2021 17:17:28 +0100
Subject: [PATCH] Philippe 07/12/2021: OpenACC: update XRU/V/WS around
RAD_BOUND
---
src/MNH/modeln.f90 | 2 ++
src/ZSOLVER/modeln.f90 | 2 ++
2 files changed, 4 insertions(+)
diff --git a/src/MNH/modeln.f90 b/src/MNH/modeln.f90
index 1d7902e71..8497080b6 100644
--- a/src/MNH/modeln.f90
+++ b/src/MNH/modeln.f90
@@ -1750,6 +1750,7 @@ if ( .not. l1d ) then
if ( lbudget_w ) call Budget_store_init( tbudgets(NBUDGET_W), 'PRES', xrws(:, :, :) )
end if
+!$acc update self( XRUS, XRVS, XRWS )
CALL RAD_BOUND (CLBCX,CLBCY,CTURB,XCARPKMAX, &
XTSTEP, &
XDXHAT, XDYHAT, XZHAT, &
@@ -1758,6 +1759,7 @@ CALL RAD_BOUND (CLBCX,CLBCY,CTURB,XCARPKMAX, &
XFLUCTUNW,XFLUCTVNN,XFLUCTUNE,XFLUCTVNS, &
XCPHASE, XCPHASE_PBL, XRHODJ, &
XTKET,XRUS, XRVS, XRWS )
+!$acc update device( XRUS, XRVS, XRWS )
ZRUS=XRUS-ZRUS
ZRVS=XRVS-ZRVS
ZRWS=XRWS-ZRWS
diff --git a/src/ZSOLVER/modeln.f90 b/src/ZSOLVER/modeln.f90
index f06c77e4c..d4fe8d0f8 100644
--- a/src/ZSOLVER/modeln.f90
+++ b/src/ZSOLVER/modeln.f90
@@ -1750,6 +1750,7 @@ if ( .not. l1d ) then
if ( lbudget_w ) call Budget_store_init( tbudgets(NBUDGET_W), 'PRES', xrws(:, :, :) )
end if
+!$acc update self( XRUS, XRVS, XRWS )
CALL RAD_BOUND (CLBCX,CLBCY,CTURB,XCARPKMAX, &
XTSTEP, &
XDXHAT, XDYHAT, XZHAT, &
@@ -1758,6 +1759,7 @@ CALL RAD_BOUND (CLBCX,CLBCY,CTURB,XCARPKMAX, &
XFLUCTUNW,XFLUCTVNN,XFLUCTUNE,XFLUCTVNS, &
XCPHASE, XCPHASE_PBL, XRHODJ, &
XTKET,XRUS, XRVS, XRWS )
+!$acc update device( XRUS, XRVS, XRWS )
ZRUS=XRUS-ZRUS
ZRVS=XRVS-ZRVS
ZRWS=XRWS-ZRWS
--
GitLab