From 13d20da1461f4fbc63e13039b08d8a34884fdef0 Mon Sep 17 00:00:00 2001
From: knarf <knarf@f75ba9e5-694f-0410-ac2c-87ea7ce7132b>
Date: Fri, 11 Feb 2005 12:05:55 +0000
Subject: add a parameter to turn touching the emask at startup off

git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinEvolve/LegoExcision/trunk@48 f75ba9e5-694f-0410-ac2c-87ea7ce7132b
---
 param.ccl    |  4 +++-
 schedule.ccl | 11 +++++++----
 2 files changed, 10 insertions(+), 5 deletions(-)

diff --git a/param.ccl b/param.ccl
index 10f914c..0972297 100644
--- a/param.ccl
+++ b/param.ccl
@@ -8,7 +8,9 @@ KEYWORD fixed_excision "Excise a fixed region?"
   "none"   :: "No fixed excision"
 } "none"
 
-
+BOOLEAN touch_excision_at_startup "touch the excision mask at startup?"
+{
+} "yes"
 
 INT num_fixed_regions "Number of fixed excision regions"
 {
diff --git a/schedule.ccl b/schedule.ccl
index 5e5b373..5f25b38 100644
--- a/schedule.ccl
+++ b/schedule.ccl
@@ -1,11 +1,14 @@
 # Schedule definitions for thorn LegoExcision
 # $Header$
 
-schedule Lego_FixedSphere in CCTK_POSTINITIAL after MaskOne
+if (touch_excision_at_startup)
 {
-  LANG:Fortran
-  SYNC:SpaceMask::mask
-} "Excise a fixed lego sphere"
+  schedule Lego_FixedSphere in CCTK_POSTINITIAL after MaskOne
+  {
+    LANG:Fortran
+    SYNC:SpaceMask::mask
+  } "Excise a fixed lego sphere"
+}
 
 schedule GROUP ApplyBCs as Lego_ApplyBCs in CCTK_POSTINITIAL after Lego_FixedSphere
 {
-- 
cgit v1.2.3