Ensure ISTA and ILEN are on device

They were treated as `PRESENT` but weren't actually on the device before.
ecmwf-ifs · Sep 11, 2023 · 20fd0ec · 20fd0ec
1 parent 8ee8d90
commit 20fd0ec
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/trans/gpu/internal/trltom_mod.F90 b/src/trans/gpu/internal/trltom_mod.F90
@@ -216,7 +216,7 @@ END FUNCTION ALLTOALLV_CUDAIPC
     !$OMP& SHARED(ISTA,ILEN,PFBUF,PFBUF_IN)
 #endif
 #ifdef ACCGPU
-    !$ACC PARALLEL LOOP DEFAULT(NONE) PRESENT(ISTA,ILEN,PFBUF,PFBUF_IN)
+    !$ACC PARALLEL LOOP DEFAULT(NONE) PRESENT(PFBUF,PFBUF_IN) COPYIN(ISTA,ILEN)
 #endif
     DO J=ISTA,ISTA+ILEN-1
       PFBUF(J) = PFBUF_IN(J)