diff options
author | reisswig <reisswig@a2659f00-0f4f-0410-9214-a4596bbb8a4f> | 2008-10-05 03:13:55 +0000 |
---|---|---|
committer | reisswig <reisswig@a2659f00-0f4f-0410-9214-a4596bbb8a4f> | 2008-10-05 03:13:55 +0000 |
commit | 25089fd64422546f407ec9249a0b7af3df29fb1a (patch) | |
tree | badf7a9637553b3759c4428ec76191550cfffb97 | |
parent | 4fe9f81a717896a25c4f982d0658f0514d59e895 (diff) |
Forgot to add new file.
git-svn-id: http://svn.aei.mpg.de/numrel/AEIThorns/PunctureTracker/trunk@13 a2659f00-0f4f-0410-9214-a4596bbb8a4f
-rw-r--r-- | src/paramcheck.cc | 25 |
1 files changed, 25 insertions, 0 deletions
diff --git a/src/paramcheck.cc b/src/paramcheck.cc new file mode 100644 index 0000000..c3d65ca --- /dev/null +++ b/src/paramcheck.cc @@ -0,0 +1,25 @@ +#include "cctk.h" +#include "cctk_Parameters.h" +#include "cctk_Arguments.h" +#include "cctk_Functions.h" + + + +extern "C" void PunctureTracker_ParamCheck(CCTK_ARGUMENTS) +{ + DECLARE_CCTK_ARGUMENTS + DECLARE_CCTK_PARAMETERS + + // do this only on processor 0 + if (CCTK_MyProc(cctkGH) != 0) + return; + + for (int i=0; i < 10; ++i) + { + if (which_surface_to_store_info[i] != -1) + { + if (which_surface_to_store_info[i] >= nsurfaces) + CCTK_PARAMWARN("You assigned a greater surface index than there are spherical surfaces!"); + } + } +} |