From d308cef9ec03a20095fa8e6e70f98fb9dad2a842 Mon Sep 17 00:00:00 2001
From: ESCOBAR Juan <escj@nuwa.aerologie.net>
Date: Tue, 9 Apr 2013 15:31:50 +0200
Subject: [PATCH] Juan 9/04/2013: add update of PTAB from GPU to MPP_CHECK3D
mode_mppdb.f90
---
SURCOUCHE/mode_mppdb.f90 | 11 +++++++++++
1 file changed, 11 insertions(+)
diff --git a/SURCOUCHE/mode_mppdb.f90 b/SURCOUCHE/mode_mppdb.f90
index 5e8d3f6a5..00eef5fa8 100644
--- a/SURCOUCHE/mode_mppdb.f90
+++ b/SURCOUCHE/mode_mppdb.f90
@@ -269,6 +269,8 @@ CONTAINS
REAL,POINTER, DIMENSION(:,:,:) :: TAB_INTERIOR_ll ! for easy debug
+ REAL, DIMENSION(size(ptab,1),size(ptab,2),size(ptab,3)) :: ZTAB
+
#ifdef MNH_SP4
!pas de mpi_spawn sur IBM-SP ni MPI_ARGV_NULL etc ...
RETURN
@@ -276,6 +278,15 @@ CONTAINS
IF ( ( .NOT. MPPDB_INITIALIZED ) .OR. (SIZE(PTAB) == 0 ) ) RETURN
!
CALL MPPDB_BARRIER()
+ !$acc data create(ZTAB)
+ !$acc data pcopyin(PTAB)
+ !$acc kernels pcopyin(PTAB)
+ ZTAB=PTAB
+ !$acc end kernels
+ !$acc end data
+ !$acc update host(ZTAB)
+ !$acc end data
+ PTAB=ZTAB
!
IF(MPPDB_FATHER_WORLD) THEN
!
--
GitLab