From 2320a1f1d375beaee40988f8104db94bf2ac5943 Mon Sep 17 00:00:00 2001 From: ChrisZYJ Date: Sat, 29 Jun 2024 02:47:26 -0700 Subject: [PATCH] fix bug --- src/simulation/m_monopole.fpp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/simulation/m_monopole.fpp b/src/simulation/m_monopole.fpp index 3f41a6cef..4a8a1f46c 100644 --- a/src/simulation/m_monopole.fpp +++ b/src/simulation/m_monopole.fpp @@ -151,7 +151,7 @@ contains do q = 1, num_mono the_time = t_step*dt - if ((the_time >= delay(q)) .or. (.not. f_is_default(delay(q)))) then + if ((the_time >= delay(q)) .or. f_is_default(delay(q))) then !$acc loop seq do ii = 1, num_fluids myalpha_rho(ii) = q_cons_vf(ii)%sf(j, k, l)