FIXUP: sparse copy test

ecmwf-ifs · Jan 22, 2024 · ecf432a · ecf432a
1 parent 2076250
commit ecf432a
Showing 1 changed file with 0 additions and 12 deletions.
diff --git a/tests/test_field_gang_sparse_copy.F90 b/tests/test_field_gang_sparse_copy.F90
@@ -31,11 +31,7 @@ PROGRAM TEST_FIELD_GANG_SPARSE_COPY
         CALL FIELD_NEW(BUFFER, FIELDS, LBOUNDS=[10,1,1], UBOUNDS=[21,NFIELDS,10], PERSISTENT=.TRUE., INIT_VALUE=0._JPRB)
 
         CALL BUFFER%GET_DEVICE_DATA_RDWR(BUFFER_GPU)
-#ifdef _CUDA
-        !$ACC SERIAL DEVICEPTR (BUFFER_GPU)
-#else
         !$ACC SERIAL PRESENT (BUFFER_GPU)
-#endif
         DO J=1,10
           DO IFIELD=1,NFIELDS
             DO I=10,21
@@ -57,11 +53,7 @@ PROGRAM TEST_FIELD_GANG_SPARSE_COPY
 
         CALL FIELDS(2)%PTR%GET_DEVICE_DATA_RDWR(FIELD_PTR)
 
-#ifdef _CUDA
-        !$ACC SERIAL DEVICEPTR (FIELD_PTR)
-#else
         !$ACC SERIAL PRESENT (FIELD_PTR)
-#endif
         DO J=1,10
           DO I=10,21
              FIELD_PTR(I,J) = 1
@@ -77,11 +69,7 @@ PROGRAM TEST_FIELD_GANG_SPARSE_COPY
 
         CALL BUFFER%GET_DEVICE_DATA_RDWR(BUFFER_GPU)
         RES=.TRUE.
-#ifdef _CUDA
-        !$ACC SERIAL DEVICEPTR (BUFFER_GPU) COPY(RES)
-#else
         !$ACC SERIAL PRESENT (BUFFER_GPU) COPY(RES)
-#endif
         DO J=1,10
           DO I=10,21
             IF(BUFFER_GPU(I,1,J) /= 42) THEN