diff options
Diffstat (limited to 'src/CheckParameters.cc')
-rw-r--r-- | src/CheckParameters.cc | 51 |
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; +} + |