Update m_ibm.fpp

Author: anshgupta1234

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