small change

MFlowCode · Nov 19, 2024 · f2a8013 · f2a8013
1 parent 6dcdd5f
commit f2a8013
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/simulation/m_ibm.fpp b/src/simulation/m_ibm.fpp
@@ -212,7 +212,7 @@ contains
 
             ! Calculate velocity of ghost cell
             if (gp%slip) then
-                norm = levelset_norm%sf(j, k, l, patch_id)
+                norm = levelset_norm%sf(j, k, l, patch_id, :)
                 vel_norm_IP = sum(vel_IP*norm)*norm
                 vel_g = vel_IP - vel_norm_IP
             else