diff --git a/src/trans/gpu/internal/trltom_mod.F90 b/src/trans/gpu/internal/trltom_mod.F90
index 1400c683..b94efe54 100755
--- 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)