Juan 9/04/2013: add update of PTAB from GPU to MPP_CHECK3D mode_mppdb.f90

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
        !