File tree Expand file tree Collapse file tree
Expand file tree Collapse file tree Original file line number Diff line number Diff 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
You can’t perform that action at this time.
0 commit comments