From 90759f52652b814df06a8903569d0231a4e9b15a Mon Sep 17 00:00:00 2001
From: ESCOBAR Juan <escj@nuwa>
Date: Mon, 10 Nov 2014 17:45:14 +0100
Subject: [PATCH] Juan 10/11/2014 : manage pcopy/pcopy for call to ALL
ADVECUVW_4TH
---
MNH/advection_uvw_cen.f90 | 4 +++-
1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/MNH/advection_uvw_cen.f90 b/MNH/advection_uvw_cen.f90
index 7b4b7e9fe..0cf086f68 100644
--- a/MNH/advection_uvw_cen.f90
+++ b/MNH/advection_uvw_cen.f90
@@ -227,8 +227,10 @@ IF (HUVW_ADV_SCHEME=='CEN2ND' ) THEN
!
ELSEIF (HUVW_ADV_SCHEME=='CEN4TH') THEN
!
+ !$acc data pcopyin(ZRUCT, ZRVCT, ZRWCT,PUT, PVT, PWT) pcopy( PRUS, PRVS, PRWS )
CALL ADVECUVW_4TH ( HLBCX, HLBCY, ZRUCT, ZRVCT, ZRWCT, &
- PUT, PVT, PWT, ZRUS, ZRVS, ZRWS, TPHALO2MLIST )
+ PUT, PVT, PWT, ZRUS, ZRVS, ZRWS, TPHALO2MLIST )
+ !$acc end data
!
END IF
!
--
GitLab