Skip to content

Commit 3c9b6a7

Browse files
Remove interior point conservative variable protection for stationary boundaries
1 parent 48a5880 commit 3c9b6a7

1 file changed

Lines changed: 9 additions & 11 deletions

File tree

src/simulation/m_ibm.fpp

Lines changed: 9 additions & 11 deletions
Original file line numberDiff line numberDiff line change
@@ -199,18 +199,16 @@ contains
199199
patch_id = ib_markers%sf(j, k, l)
200200
if (patch_id /= 0) then
201201
q_prim_vf(E_idx)%sf(j, k, l) = 1._wp
202-
if (patch_ib(patch_id)%moving_ibm > 0) then
203-
rho = 0._wp
204-
do i = 1, num_fluids
205-
rho = rho + q_prim_vf(contxb + i - 1)%sf(j, k, l)
206-
end do
202+
rho = 0._wp
203+
do i = 1, num_fluids
204+
rho = rho + q_prim_vf(contxb + i - 1)%sf(j, k, l)
205+
end do
207206

208-
! Sets the momentum
209-
do i = 1, num_dims
210-
q_cons_vf(momxb + i - 1)%sf(j, k, l) = patch_ib(patch_id)%vel(i)*rho
211-
q_prim_vf(momxb + i - 1)%sf(j, k, l) = patch_ib(patch_id)%vel(i)
212-
end do
213-
end if
207+
! Sets the momentum
208+
do i = 1, num_dims
209+
q_cons_vf(momxb + i - 1)%sf(j, k, l) = patch_ib(patch_id)%vel(i)*rho
210+
q_prim_vf(momxb + i - 1)%sf(j, k, l) = patch_ib(patch_id)%vel(i)
211+
end do
214212
end if
215213
end do
216214
end do

0 commit comments

Comments
 (0)