aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/ParamCheck.c73
-rw-r--r--src/make.code.defn2
2 files changed, 74 insertions, 1 deletions
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 =