minor bug fix and tested on AMD GPU on archer2

astr-code · Feb 20, 2024 · 3b3a467 · 3b3a467
1 parent f4914ef
commit 3b3a467
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/miniapps/tgv_solver_3d/tgvsolver_oacc.f90 b/miniapps/tgv_solver_3d/tgvsolver_oacc.f90
@@ -1228,7 +1228,7 @@ subroutine rk3(comptime)
     !
     do rkstep=1,3
       !
-      !$acc parallel loop collapse(4) present(q)
+      !$acc parallel loop collapse(4) present(qrhs)
       do m=1,numq
       do k=0,km
       do j=0,jm
@@ -1308,7 +1308,7 @@ subroutine mainloop
     !
     !$acc data copy(qrhs,q,qsave,rho,vel,tmp,prs,dvel,dtmp,sigma,qflux )
     !
-    do while(nstep<20001)
+    do while(nstep<101)
       !
       call rk3(ctime(2))
       !