@@ -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