aboutsummaryrefslogtreecommitdiff
path: root/src/fixedsphere.F90
diff options
context:
space:
mode:
Diffstat (limited to 'src/fixedsphere.F90')
-rw-r--r--src/fixedsphere.F904
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)