diff options
author | goodale <goodale@d576a68a-b34a-40ae-82fc-004fa1a9d16f> | 2002-04-29 17:20:13 +0000 |
---|---|---|
committer | goodale <goodale@d576a68a-b34a-40ae-82fc-004fa1a9d16f> | 2002-04-29 17:20:13 +0000 |
commit | b07bdd7dc4daba05591fed570976d3a315d8964c (patch) | |
tree | 5e44cb06423abed4d1854f7e5485a5b15148048a /src/ParamCheck.c | |
parent | b1538d2c3a1bd35cbbd53f8993bbce6dbeda2dde (diff) |
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
Diffstat (limited to 'src/ParamCheck.c')
-rw-r--r-- | src/ParamCheck.c | 73 |
1 files changed, 73 insertions, 0 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 ************************* + ********************************************************************/ |