From 6fc7f3f1eb9b15785fa31565748eab7483a10a33 Mon Sep 17 00:00:00 2001 From: hawke Date: Mon, 6 Sep 2004 09:11:47 +0000 Subject: Relax the check on the minimum number of points to excise - too aggressive. git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinEvolve/LegoExcision/trunk@47 f75ba9e5-694f-0410-ac2c-87ea7ce7132b --- src/fixedsphere.F90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/fixedsphere.F90 b/src/fixedsphere.F90 index fd38a6a..7a5c878 100644 --- a/src/fixedsphere.F90 +++ b/src/fixedsphere.F90 @@ -29,7 +29,7 @@ subroutine Lego_FixedSphere(CCTK_ARGUMENTS) if (num_fixed_regions >= 1) then ! Only excise if there would be more than a single grid point excised - if (fixed_size >= 2*minval(CCTK_DELTA_SPACE(:))) then + if (fixed_size > minval(CCTK_DELTA_SPACE(:))) then if (CCTK_EQUALS(fixed_excision,"sphere")) then where ((x - fixed_origin_x)**2 + (y - fixed_origin_y)**2 + (z - fixed_origin_z)**2 < fixed_size**2) @@ -49,7 +49,7 @@ subroutine Lego_FixedSphere(CCTK_ARGUMENTS) if (num_fixed_regions >= 2) then ! Only excise if there would be more than a single grid point excised - if (fixed2_size >= 2*minval(CCTK_DELTA_SPACE(:))) then + if (fixed2_size > minval(CCTK_DELTA_SPACE(:))) then if (CCTK_EQUALS(fixed_excision,"sphere")) then where ((x - fixed2_origin_x)**2 + (y - fixed2_origin_y)**2 + (z - fixed2_origin_z)**2 < fixed2_size**2) -- cgit v1.2.3