Check whether there are enough ghost zones.

git-svn-id: http://svn.cactuscode.org/arrangements/CactusNumerical/Dissipation/trunk@9 850bcc8b-0e4f-0410-8c26-8d28fbf1eda9

1 files changed, 22 insertions, 0 deletions

diff --git a/src/basegrid.c b/src/basegrid.c
new file mode 100644
index 0000000..ad01c26
--- /dev/null
+++ b/src/basegrid.c
@@ -0,0 +1,22 @@
+/* $Header$ */
+
+#include "cctk.h"
+#include "cctk_Arguments.h"
+#include "cctk_Parameters.h"
+
+void dissipation_basegrid (CCTK_ARGUMENTS)
+{
+  DECLARE_CCTK_ARGUMENTS;
+  DECLARE_CCTK_PARAMETERS;
+  int d;
+  
+  if (cctk_dim != 3) {
+    CCTK_WARN (0, "This thorn supports only dim=3");
+  }
+  
+  for (d=0; d<cctk_dim; ++d) {
+    if (cctk_nghostzones[d] < (order+1)/2) {
+      CCTK_WARN (0, "This thorn requires at least (order+1)/2 ghost zones");
+    }
+  }
+}