bug

MFlowCode · Apr 4, 2024 · 230c3c7 · 230c3c7
1 parent f7e2a5f
commit 230c3c7
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/simulation/m_global_parameters.fpp b/src/simulation/m_global_parameters.fpp
@@ -755,7 +755,7 @@ contains
                         if (polytropic) then
                             pv = fluid_pp(1)%pv
                             pv = pv/pref
-                            @:ALLOCATE(pb0(nb))
+                            @:ALLOCATE_GLOBAL(pb0(nb))
                             if (Web == dflt_real) then
                                 pb0 = pref
                                 pb0 = pb0/pref