Fix indexing bug in surface tension (#670)

MFlowCode · Nov 1, 2024 · 38a20a7 · 38a20a7
1 parent 44bce70
commit 38a20a7
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/simulation/m_surface_tension.fpp b/src/simulation/m_surface_tension.fpp
@@ -81,8 +81,8 @@ contains
         @:ALLOCATE_GLOBAL(gR_y(iy%beg:iy%end, ix%beg:ix%end, iz%beg:iz%end, num_dims + 1))
 
         if (p > 0) then
-            @:ALLOCATE_GLOBAL(gL_z(iz%beg:iz%end, ix%beg:ix%end, iy%beg:iy%end, num_dims + 1))
-            @:ALLOCATE_GLOBAL(gR_z(iz%beg:iz%end, ix%beg:ix%end, iy%beg:iy%end, num_dims + 1))
+            @:ALLOCATE_GLOBAL(gL_z(iz%beg:iz%end, iy%beg:iy%end, ix%beg:ix%end, num_dims + 1))
+            @:ALLOCATE_GLOBAL(gR_z(iz%beg:iz%end, iy%beg:iy%end, ix%beg:ix%end, num_dims + 1))
         end if
     end subroutine s_initialize_surface_tension_module