diff options
| author | hawke <hawke@f75ba9e5-694f-0410-ac2c-87ea7ce7132b> | 2004-09-06 09:11:47 +0000 |
|---|---|---|
| committer | hawke <hawke@f75ba9e5-694f-0410-ac2c-87ea7ce7132b> | 2004-09-06 09:11:47 +0000 |
| commit | 6fc7f3f1eb9b15785fa31565748eab7483a10a33 (patch) | |
| tree | bd2c1c560be5b3a9b9e4234468a545a72fa7adc0 | |
| parent | e03d309347cba6537c7cf6094cdf125b273b976f (diff) | |
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
| -rw-r--r-- | src/fixedsphere.F90 | 4 |
1 files 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) |