diff --git a/SURCOUCHE/mode_mppdb.f90 b/SURCOUCHE/mode_mppdb.f90
index 5e8d3f6a5e7bd112178da85f81c05908d08e2018..00eef5fa88d8dfb6358cefc0625e349f1a498cc8 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
        !