Skip to content

Commit e9a47c3

Browse files
author
Diego Vaca
committed
Isolating bug 4
1 parent 20809e4 commit e9a47c3

File tree

1 file changed

+6
-30
lines changed

1 file changed

+6
-30
lines changed

src/simulation/m_bubbles_EL_kernels.fpp

Lines changed: 6 additions & 30 deletions
Original file line numberDiff line numberDiff line change
@@ -317,51 +317,27 @@ contains
317317

318318
! x-dir
319319
if (bc_x%beg == -2 .and. (cell(1) <= mapCells - 1)) then
320-
if (cell(1) >= 0) then
321-
cellaux(1) = abs(cellaux(1)) - 1
322-
else
323-
print *, "Lagrangian bubbles must not be located in the ghost cells of a symmetric boundary (bc_x%beg)."
324-
end if
320+
cellaux(1) = abs(cellaux(1)) - 1
325321
end if
326322
if (bc_x%end == -2 .and. (cell(1) >= m + 1 - mapCells)) then
327-
if (cell(1) <= m) then
328-
cellaux(1) = cellaux(1) - (2*(cellaux(1) - m) - 1)
329-
else
330-
print *, "Lagrangian bubbles must not be located in the ghost cells of a symmetric boundary (bc_x%end)."
331-
end if
323+
cellaux(1) = cellaux(1) - (2*(cellaux(1) - m) - 1)
332324
end if
333325

334326
!y-dir
335327
if (bc_y%beg == -2 .and. (cell(2) <= mapCells - 1)) then
336-
if (cell(2) >= 0) then
337-
cellaux(2) = abs(cellaux(2)) - 1
338-
else
339-
print *, "Lagrangian bubbles must not be located in the ghost cells of a symmetric boundary (bc_y%beg)."
340-
end if
328+
cellaux(2) = abs(cellaux(2)) - 1
341329
end if
342330
if (bc_y%end == -2 .and. (cell(2) >= n + 1 - mapCells)) then
343-
if (cell(2) <= n) then
344-
cellaux(2) = cellaux(2) - (2*(cellaux(2) - n) - 1)
345-
else
346-
print *, "Lagrangian bubbles must not be located in the ghost cells of a symmetric boundary (bc_y%end)."
347-
end if
331+
cellaux(2) = cellaux(2) - (2*(cellaux(2) - n) - 1)
348332
end if
349333

350334
if (p > 0) then
351335
!z-dir
352336
if (bc_z%beg == -2 .and. (cell(3) <= mapCells - 1)) then
353-
if (cell(3) >= 0) then
354-
cellaux(3) = abs(cellaux(3)) - 1
355-
else
356-
print *, "Lagrangian bubbles must not be located in the ghost cells of a symmetric boundary (bc_z%beg)."
357-
end if
337+
cellaux(3) = abs(cellaux(3)) - 1
358338
end if
359339
if (bc_z%end == -2 .and. (cell(3) >= p + 1 - mapCells)) then
360-
if (cell(3) <= p) then
361-
cellaux(3) = cellaux(3) - (2*(cellaux(3) - p) - 1)
362-
else
363-
print *, "Lagrangian bubbles must not be located in the ghost cells of a symmetric boundary (bc_z%end)."
364-
end if
340+
cellaux(3) = cellaux(3) - (2*(cellaux(3) - p) - 1)
365341
end if
366342
end if
367343

0 commit comments

Comments
 (0)