Use acc host_data instead of runtime ACC_DEVICEPTR in COPY_DIM_CONTIG…

…UOUS
ecmwf-ifs · Jan 24, 2024 · 55c299b · 55c299b
1 parent 495f0b6
commit 55c299b
Showing 1 changed file with 5 additions and 5 deletions.
diff --git a/field_RANKSUFF_data_module.fypp b/field_RANKSUFF_data_module.fypp
@@ -94,13 +94,13 @@ CONTAINS
   #:set indent = '  ' * (ft.rank - e)
 #ifdef _OPENACC
     ${indent}$  IF(MAP_DEVPTR)THEN
-    ${indent}$    DEVPTR = ACC_DEVICEPTR(DEV (${ar}$))
+    ${indent}$    !$acc host_data use_device(DEV)
+    ${indent}$    DEVPTR = C_DEVLOC(DEV (${ar}$))
+    ${indent}$    !$acc end host_data
     ${indent}$  ELSE
-  #:if defined('CUDA')
-  !$acc data deviceptr(DEVPTR, DEV)
+    ${indent}$    !$acc data deviceptr(DEVPTR, DEV)
     ${indent}$    DEVPTR = C_DEVLOC(DEV (${ar}$))
-  !$acc end data
-  #:endif
+    ${indent}$    !$acc end data
     ${indent}$  ENDIF
 #endif
     #:if d == 0