From 10628d3ddd2e3907d00796573f98355feda19607 Mon Sep 17 00:00:00 2001 From: Ansh Gupta <38015438+anshgupta1234@users.noreply.github.com> Date: Tue, 5 Nov 2024 10:33:52 -0500 Subject: [PATCH] Update m_ibm.fpp --- src/simulation/m_ibm.fpp | 38 -------------------------------------- 1 file changed, 38 deletions(-) diff --git a/src/simulation/m_ibm.fpp b/src/simulation/m_ibm.fpp index 56f53b701..dc989367b 100644 --- a/src/simulation/m_ibm.fpp +++ b/src/simulation/m_ibm.fpp @@ -578,20 +578,6 @@ contains inner_points(count_i)%ib_patch_id = & patch_id inner_points(count_i)%slip = patch_ib(patch_id)%slip - if ((x_cc(i) - dx(i)) < x_domain%beg .or. & - (x_cc(i) + dx(i)) > x_domain%end) then - ghost_points(count)%DB(1) = 1 - else - ghost_points(count)%DB(1) = 0 - end if - - if ((y_cc(j) - dy(j)) < y_domain%beg .or. & - (y_cc(j) + dy(j)) > y_domain%end) then - ghost_points(count)%DB(2) = 1 - else - ghost_points(count)%DB(2) = 0 - end if - count_i = count_i + 1 end if @@ -642,30 +628,6 @@ contains ib_markers%sf(i, j, k) inner_points(count_i)%slip = patch_ib(patch_id)%slip - if ((x_cc(i) - dx(i)) < x_domain%beg) then - ghost_points(count)%DB(1) = -1 - else if ((x_cc(i) + dx(i)) > x_domain%end) then - ghost_points(count)%DB(1) = 1 - else - ghost_points(count)%DB(1) = 0 - end if - - if ((y_cc(j) - dy(j)) < y_domain%beg) then - ghost_points(count)%DB(2) = -1 - else if ((y_cc(j) + dy(j)) > y_domain%end) then - ghost_points(count)%DB(2) = 1 - else - ghost_points(count)%DB(2) = 0 - end if - - if ((z_cc(k) - dz(k)) < z_domain%beg) then - ghost_points(count)%DB(3) = -1 - else if ((z_cc(k) + dz(k)) > z_domain%end) then - ghost_points(count)%DB(3) = 1 - else - ghost_points(count)%DB(3) = 0 - end if - count_i = count_i + 1 end if end if