From 3b3a467e0eed5388c705273fe568dcf99d3fb554 Mon Sep 17 00:00:00 2001
From: fangjian <fangjian@DESKTOP-M2G25GR.localdomain>
Date: Tue, 20 Feb 2024 14:26:48 +0000
Subject: [PATCH] minor bug fix and tested on AMD GPU on archer2

---
 miniapps/tgv_solver_3d/tgvsolver_oacc.f90 | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/miniapps/tgv_solver_3d/tgvsolver_oacc.f90 b/miniapps/tgv_solver_3d/tgvsolver_oacc.f90
index e3483c5..5a55257 100644
--- 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))
       !