Swapped IB marker output to match the original instead of the projection.

Author: danieljvickers

src/simulation/m_ibm.fpp

@@ -627,6 +627,7 @@ contains
                             encoded_patch_id = ib_markers%sf(i, j, k)
                             call s_decode_patch_periodicity(encoded_patch_id, patch_id, xp, yp, zp)
                             ghost_points_in(local_idx)%ib_patch_id = patch_id
+                            ib_markers%sf(i, j, k) = patch_id
                             ghost_points_in(local_idx)%x_periodicity = xp
                             ghost_points_in(local_idx)%y_periodicity = yp
                             ghost_points_in(local_idx)%z_periodicity = zp
@@ -668,6 +669,7 @@ contains
                             encoded_patch_id = ib_markers%sf(i, j, k)
                             call s_decode_patch_periodicity(encoded_patch_id, patch_id, xp, yp, zp)
                             inner_points_in(local_idx)%ib_patch_id = patch_id
+                            ib_markers%sf(i, j, k) = patch_id
                             inner_points_in(local_idx)%slip = patch_ib(patch_id)%slip
 
                         end if