1 files changed, 45 insertions, 0 deletions
diff --git a/src/getlevelinfo.cc b/src/getlevelinfo.cc
new file mode 100644
index 0000000..4b68abb
--- /dev/null
+++ b/src/getlevelinfo.cc
@@ -0,0 +1,45 @@
+/* $Header$ */
+
+#include <cstdio>
+#include <cmath>
+
+#include "cctk.h"
+#include "cctk_Arguments.h"
+#include "cctk_Parameters.h"
+#include "cctk_DefineThorn.h"
+
+#include "carpet.hh"
+
+namespace NoExcision {
+
+#ifdef HAVE_CARPET
+  using namespace Carpet;
+#endif
+
+  extern "C"
+    void NoExcision_levelinfo(const cGH * cctkGH,
+                              CCTK_INT * my_level,
+                              CCTK_INT * n_levels)
+    {
+
+      *my_level = 0;
+      *n_levels = 1;
+
+#ifdef HAVE_CARPET
+
+      if ( CCTK_IsThornActive ( "Carpet" ) ) {
+        *my_level = reflevel;
+        *n_levels = reflevels;
+      } 
+     
+#endif
+
+    }
+
+  extern "C"
+    CCTK_FCALL void CCTK_FNAME (NoExcision_levelinfo) (CCTK_POINTER_TO_CONST * cctkGH, CCTK_INT * my_level, CCTK_INT * n_levels)
+    {
+      NoExcision_levelinfo((const cGH *)* cctkGH,  my_level, n_levels);
+    }
+
+} // namespace NoExcision