diff --git a/src/trans/gpu/internal/asre1b_mod.F90 b/src/trans/gpu/internal/asre1b_mod.F90
index 6e3add7d..e061a84e 100755
--- a/src/trans/gpu/internal/asre1b_mod.F90
+++ b/src/trans/gpu/internal/asre1b_mod.F90
@@ -90,8 +90,8 @@ SUBROUTINE ASRE1B(KFIELD,PAOA,PSOA)
 #ifdef ACCGPU
 !$ACC DATA PRESENT(PAOA,PSOA,D_MYMS,D_NPROCL,D_NSTAGT0B,D_NPNTGTB1,G_NDGLU,FOUBUF_IN,D_NUMP,&
 !$ACC&             R_NDGNH,R_NDGL)
-!$ACC PARALLEL LOOP COLLAPSE(2) DEFAULT(NONE) PRIVATE(KM,ISL,IPROC,ISTAN,IGLS,IPROCS,ISTAS) &
-!$ACC& COPYIN(KFIELD)
+!$ACC PARALLEL LOOP COLLAPSE(2) DEFAULT(NONE) COPYIN(KFIELD)&
+!$ACC& PRIVATE(KM,ISL,IPROC,ISTAN,IGLS,IPROCS,ISTAS,KMLOC,JFLD,JGL)
 #endif
 DO KMLOC=1,D_NUMP
   DO JFLD=1,2*KFIELD