Merge branch 'bench_fix' into is_default

ChrisZYJ · Jul 1, 2024 · e988b02 · e988b02
2 parents 7cc222d + d091214
commit e988b02
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/simulation/m_monopole.fpp b/src/simulation/m_monopole.fpp
@@ -99,7 +99,7 @@ contains
             else
                 delay(i) = mono(i)%delay
             end if
-            if (f_is_default(mono(i)%delay)) then
+            if (f_is_default(mono(i)%support_width)) then
                 support_width(i) = 2.5d0
             else
                 support_width(i) = mono(i)%support_width