fix small problems with async

Author: lukasm91

src/trans/gpu/internal/ledir_mod.F90

@@ -183,7 +183,7 @@ SUBROUTINE LEDIR(ALLOCATOR,ZINPS,ZINPA,ZINPS0,ZINPA0,ZOUT,ZOUT0,POA1,KF_FS)
     !$ACC DATA &
     !$ACC& DEVICEPTR(ZINPS,ZINPA,ZOUT,ZINPS0,ZINPA0,ZOUT0) &
     !$ACC& PRESENT(D,D_MYMS,D_NUMP,R,R_NTMAX,R_NSMAX) &
-    !$ACC& PRESENT(ZAA,ZAS,POA1,D_OFFSETS_GEMM1,D_OFFSETS_GEMM2)
+    !$ACC& PRESENT(ZAA,ZAS,POA1,D_OFFSETS_GEMM1,D_OFFSETS_GEMM2) ASYNC(1)
 #endif
 
     IF (LSYNC_TRANS) THEN
@@ -432,7 +432,6 @@ SUBROUTINE LEDIR(ALLOCATOR,ZINPS,ZINPA,ZINPS0,ZINPA0,ZOUT,ZOUT0,POA1,KF_FS)
     !$OMP END TARGET DATA
 #endif
 #ifdef ACCGPU
-    !$ACC WAIT(1)
 
     !$ACC END DATA
 #endif

src/trans/gpu/internal/updspb_mod.F90

@@ -111,7 +111,7 @@ SUBROUTINE UPDSPB(KFIELD,POA,POA_OFFSET,PSPEC,KFLDPTR)
   !$OMP& SHARED(D,R,KFIELD,POA,PSPEC) MAP(TO:KFIELD)
 #endif
 #ifdef ACCGPU
-  !$ACC PARALLEL LOOP COLLAPSE(3) PRIVATE(KM,IASM0,INM) DEFAULT(NONE) COPYIN(KFIELD) &
+  !$ACC PARALLEL LOOP COLLAPSE(3) PRIVATE(KM,IASM0,INM) DEFAULT(NONE) FIRSTPRIVATE(KFIELD) &
 #ifndef _CRAYFTN
   !$ACC& ASYNC(1)
 #else