Philippe 18/07/2019: OpenACC: mode_device: remove data zones

src/LIB/SURCOUCHE/src/mode_device.f90

@@ -41,12 +41,9 @@ CONTAINS
 #ifdef _OPENACC
     O_KTAB_ON_DEVICE =  acc_is_present(KTAB)
     if ( O_KTAB_ON_DEVICE ) then
-    !$acc data create(ITAB)
-    !$acc kernels
+!$acc kernels copyout(ITAB)
     ITAB=KTAB
-    !$acc end kernels
-    !$acc update host(ITAB)
-    !$acc end data
+!$acc end kernels
     else
     ITAB=KTAB
     endif
@@ -73,12 +70,9 @@ CONTAINS
 #ifdef _OPENACC
     O_OTAB_ON_DEVICE =  acc_is_present(OTAB)
     if ( O_OTAB_ON_DEVICE ) then
-    !$acc data create(GTAB)
-    !$acc kernels
+!$acc kernels copyout(GTAB)
     GTAB=OTAB
-    !$acc end kernels
-    !$acc update host(GTAB)
-    !$acc end data
+!$acc end kernels
     else
     GTAB=OTAB
     endif
@@ -105,12 +99,9 @@ CONTAINS
 #ifdef _OPENACC
     O_PTAB_ON_DEVICE =  acc_is_present(PTAB)
     if ( O_PTAB_ON_DEVICE ) then
-    !$acc data create(ZTAB)
-    !$acc kernels
+!$acc kernels copyout(ZTAB)
     ZTAB=PTAB
-    !$acc end kernels
-    !$acc update host(ZTAB)
-    !$acc end data
+!$acc end kernels
     else
     ZTAB=PTAB
     endif
@@ -137,12 +128,9 @@ CONTAINS
 #ifdef _OPENACC
     O_PTAB_ON_DEVICE =  acc_is_present(PTAB)
     if ( O_PTAB_ON_DEVICE ) then
-    !$acc data create(ZTAB)
-    !$acc kernels
+!$acc kernels copyout(ZTAB)
     ZTAB=PTAB
-    !$acc end kernels
-    !$acc update host(ZTAB)
-    !$acc end data
+!$acc end kernels
     else
     ZTAB=PTAB
     endif
@@ -169,12 +157,9 @@ CONTAINS
 #ifdef _OPENACC
     O_OTAB_ON_DEVICE =  acc_is_present(OTAB)
     if ( O_OTAB_ON_DEVICE ) then
-    !$acc data create(GTAB)
-    !$acc kernels
+!$acc kernels copyout(GTAB)
     GTAB=OTAB
-    !$acc end kernels
-    !$acc update host(GTAB)
-    !$acc end data
+!$acc end kernels
     else
     GTAB=OTAB
     endif
@@ -201,12 +186,9 @@ CONTAINS
 #ifdef _OPENACC
     O_PTAB_ON_DEVICE =  acc_is_present(PTAB)
     if ( O_PTAB_ON_DEVICE ) then
-    !$acc data create(ZTAB)
-    !$acc kernels
-    ZTAB=PTAB
-    !$acc end kernels
-    !$acc update host(ZTAB)
-    !$acc end data
+!$acc kernels copyout(ZTAB)
+    ZTAB(:, :, : ) = PTAB(:, :, : )
+!$acc end kernels
     else
     ZTAB=PTAB
     endif