aboutsummaryrefslogtreecommitdiff
path: root/src/CheckParameters.cc
diff options
context:
space:
mode:
Diffstat (limited to 'src/CheckParameters.cc')
-rw-r--r--src/CheckParameters.cc51
1 files changed, 51 insertions, 0 deletions
diff --git a/src/CheckParameters.cc b/src/CheckParameters.cc
new file mode 100644
index 0000000..f0f6fdb
--- /dev/null
+++ b/src/CheckParameters.cc
@@ -0,0 +1,51 @@
+/*
+ @file CheckParameters.F77
+ @date
+ @author Gabrielle Allen
+ @desc
+ Check parameters for the wave equation initial data
+ @enddesc
+ @@*/
+
+#include "cctk.h"
+#include "cctk_parameters.h"
+#include "cctk_arguments.h"
+
+static char *rcsid = "$Header$";
+
+ /*@@
+ @routine IDScalarWave_CheckParameters
+ @date
+ @author Gabrielle Allen
+ @desc
+ Check parameters for the wave equation initial data
+ @enddesc
+ @calls
+ @calledby
+ @history
+ @hdate Mon Oct 11 11:49:21 1999 @hauthor Tom Goodale
+ @hdesc Converted to C++
+ @endhistory
+
+@@*/
+
+extern "C" void IDScalarWaveCXX_CheckParameters(CCTK_CARGUMENTS)
+{
+ DECLARE_CCTK_CARGUMENTS
+ DECLARE_CCTK_PARAMETERS
+
+ if(CCTK_Equals(initial_data,"box"))
+ {
+ if (!CCTK_Equals(type, "box"))
+ {
+ CCTK_PARAMWARN("Must have a box grid with box initial data");
+ }
+
+ if (kx == 0 || ky == 0 || kz == 0)
+ {
+ CCTK_PARAMWARN("Cannot have zero kx,ky,kz for box initial data");
+ }
+ }
+ return;
+}
+