From b07bdd7dc4daba05591fed570976d3a315d8964c Mon Sep 17 00:00:00 2001
From: goodale <goodale@d576a68a-b34a-40ae-82fc-004fa1a9d16f>
Date: Mon, 29 Apr 2002 17:20:13 +0000
Subject: Adding a ParamCheck routine - ADMBase only knows about "physical"
 metric_type so will refuse to setup "cartesian minkowski" if metric_type is
 not "physical".

Tom


git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinBase/ADMBase/trunk@8 d576a68a-b34a-40ae-82fc-004fa1a9d16f
---
 src/ParamCheck.c   | 73 ++++++++++++++++++++++++++++++++++++++++++++++++++++++
 src/make.code.defn |  2 +-
 2 files changed, 74 insertions(+), 1 deletion(-)
 create mode 100644 src/ParamCheck.c

(limited to 'src')

diff --git a/src/ParamCheck.c b/src/ParamCheck.c
new file mode 100644
index 0000000..7e41803
--- /dev/null
+++ b/src/ParamCheck.c
@@ -0,0 +1,73 @@
+ /*@@
+   @file      ParamCheck.c
+   @date      Thu Apr 25 19:02:51 2002
+   @author    Tom Goodale
+   @desc 
+   Parameter checking stuff for ADMBase
+   @enddesc
+   @version $Header$
+ @@*/
+
+#include "cctk.h"
+
+#include "cctk_Arguments.h"
+#include "cctk_Parameters.h"
+
+static const char *rcsid = "$Header$";
+
+CCTK_FILEVERSION(CactusEinstein_ADMBase_ParamCheck_c)
+
+/********************************************************************
+ *********************     Local Data Types   ***********************
+ ********************************************************************/
+
+/********************************************************************
+ ********************* Local Routine Prototypes *********************
+ ********************************************************************/
+
+/********************************************************************
+ ***************** Scheduled Routine Prototypes *********************
+ ********************************************************************/
+
+
+/********************************************************************
+ ********************* Other Routine Prototypes *********************
+ ********************************************************************/
+
+/********************************************************************
+ *********************     Local Data   *****************************
+ ********************************************************************/
+
+/********************************************************************
+ *********************     External Routines   **********************
+ ********************************************************************/
+
+ /*@@
+   @routine    ADMBase_ParamCheck
+   @date       Thu Apr 25 19:04:06 2002
+   @author     Tom Goodale
+   @desc 
+   Scheduled routine to detect invalid parameter settings.
+   @enddesc 
+   @calls     
+   @calledby   
+   @history 
+ 
+   @endhistory 
+ 
+ @@*/
+void ADMBase_ParamCheck(CCTK_ARGUMENTS)
+{
+  DECLARE_CCTK_ARGUMENTS;
+  DECLARE_CCTK_PARAMETERS;
+
+  if(CCTK_EQUALS(initial_data, "Cartesian Minkowski") &&
+     ! CCTK_EQUALS(metric_type, "physical"))
+  {
+    CCTK_PARAMWARN("ADMBase asked to setup Cartesian Minkowski initial data, but metric_type is not \"physical\"");
+  }
+}
+
+/********************************************************************
+ *********************     Local Routines   *************************
+ ********************************************************************/
diff --git a/src/make.code.defn b/src/make.code.defn
index b40cd8e..fe350cd 100644
--- a/src/make.code.defn
+++ b/src/make.code.defn
@@ -2,7 +2,7 @@
 # $Header$
 
 # Source files in this directory
-SRCS = Initialisation.c InitSymBound.c
+SRCS = ParamCheck.c Initialisation.c InitSymBound.c
 
 # Subdirectories containing source files
 SUBDIRS = 
-- 
cgit v1.2.3