Skip to content

Commit ba94a32

Browse files
Deleted two extra lines because I can
1 parent 51367c7 commit ba94a32

1 file changed

Lines changed: 3 additions & 7 deletions

File tree

src/simulation/m_ibm.fpp

Lines changed: 3 additions & 7 deletions
Original file line numberDiff line numberDiff line change
@@ -948,13 +948,9 @@ contains
948948
call s_get_neighborhood_idx(ib_idx_temp, ib_idx) ! global patch ID -> local index
949949
if (ib_idx > 0) then
950950
! get the vector pointing to the grid cell from the IB centroid
951-
if (num_dims == 3) then
952-
radial_vector = [x_cc(i), y_cc(j), z_cc(k)] - [patch_ib(ib_idx)%x_centroid, &
953-
& patch_ib(ib_idx)%y_centroid, patch_ib(ib_idx)%z_centroid]
954-
else
955-
radial_vector = [x_cc(i), y_cc(j), 0._wp] - [patch_ib(ib_idx)%x_centroid, &
956-
& patch_ib(ib_idx)%y_centroid, 0._wp]
957-
end if
951+
radial_vector = [x_cc(i), y_cc(j), 0._wp] - [patch_ib(ib_idx)%x_centroid, &
952+
& patch_ib(ib_idx)%y_centroid, 0._wp]
953+
if (num_dims == 3) radial_vector(3) = patch_ib(ib_idx)%z_centroid
958954

959955
local_force_contribution(:) = 0._wp
960956

0 commit comments

Comments
 (0)