Checking that if shift evolution is exact, initial shift is exact.

Tom


git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinInitialData/Exact/trunk@69 e296648e-0e4f-0410-bd07-d597d9acff87

1 files changed, 6 insertions, 0 deletions

diff --git a/src/ParamCheck.c b/src/ParamCheck.c
index fb703a9..24e5c62 100644
--- a/src/ParamCheck.c
+++ b/src/ParamCheck.c
@@ -66,6 +66,12 @@ void Exact_ParamCheck(CCTK_ARGUMENTS)
   {
     CCTK_PARAMWARN("Unknown ADMBase::metric_type - known types are \"physical\"");
   }
+
+  if(CCTK_EQUALS(shift_evolution_method, "exact") && ! CCTK_EQUALS(initial_shift, "exact"))
+  {
+    CCTK_PARAMWARN("Exact shift evolution requires exact shift initial data");
+  }
+
 }
 
 /********************************************************************