From efcd06a3138fbffba457960d8992111983695e82 Mon Sep 17 00:00:00 2001
From: schnetter <schnetter@850bcc8b-0e4f-0410-8c26-8d28fbf1eda9>
Date: Sat, 30 Apr 2005 16:46:20 +0000
Subject: Check whether there are enough ghost zones.

git-svn-id: http://svn.cactuscode.org/arrangements/CactusNumerical/Dissipation/trunk@9 850bcc8b-0e4f-0410-8c26-8d28fbf1eda9
---
 src/basegrid.c     | 22 ++++++++++++++++++++++
 src/make.code.defn |  2 +-
 src/paramcheck.c   | 22 ----------------------
 3 files changed, 23 insertions(+), 23 deletions(-)
 create mode 100644 src/basegrid.c
 delete mode 100644 src/paramcheck.c

(limited to 'src')

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");
+    }
+  }
+}
diff --git a/src/make.code.defn b/src/make.code.defn
index a36a5cf..b1abd5b 100644
--- a/src/make.code.defn
+++ b/src/make.code.defn
@@ -2,7 +2,7 @@
 # $Header$
 
 # Source files in this directory
-SRCS = apply_dissipation.F77 dissipation.c paramcheck.c
+SRCS = apply_dissipation.F77 basegrid.c dissipation.c
 
 # Subdirectories containing source files
 SUBDIRS = 
diff --git a/src/paramcheck.c b/src/paramcheck.c
deleted file mode 100644
index e2ccc0d..0000000
--- a/src/paramcheck.c
+++ /dev/null
@@ -1,22 +0,0 @@
-/* $Header$ */
-
-#include "cctk.h"
-#include "cctk_Arguments.h"
-#include "cctk_Parameters.h"
-
-void dissipation_paramcheck (CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  int d;
-  
-  if (cctk_dim != 3) {
-    CCTK_PARAMWARN ("This thorn supports only dim=3");
-  }
-  
-  for (d=0; d<cctk_dim; ++d) {
-    if (cctk_nghostzones[d] < (order+1)/2) {
-      CCTK_PARAMWARN ("This thorn requires at least (order+1)/2 ghost zones");
-    }
-  }
-}
-- 
cgit v1.2.3