fix bug

ChrisZYJ · Jun 29, 2024 · 2320a1f · 2320a1f
1 parent 96223ea
commit 2320a1f
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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)