Check whether there really is a regridding routine before calling it.

darcs-hash:20020130150758-07bb3-d09859e6b28b8c58aeb539db7328c510629d4d55.gz

1 files changed, 6 insertions, 1 deletions

diff --git a/Carpet/Carpet/src/Recompose.cc b/Carpet/Carpet/src/Recompose.cc
index 4d20a8328..12277aa99 100644
--- a/Carpet/Carpet/src/Recompose.cc
+++ b/Carpet/Carpet/src/Recompose.cc
@@ -21,7 +21,7 @@
 
 #include "carpet.hh"
 
-static const char* rcsid = "$Header: /home/eschnett/C/carpet/Carpet/Carpet/Carpet/src/Recompose.cc,v 1.19 2002/01/11 17:58:48 schnetter Exp $";
+static const char* rcsid = "$Header: /home/eschnett/C/carpet/Carpet/Carpet/Carpet/src/Recompose.cc,v 1.20 2002/01/30 16:07:58 schnetter Exp $";
 
 
 
@@ -106,6 +106,11 @@ namespace Carpet {
     assert (mglevel == -1);
     assert (component == -1);
     
+    if (!regrid_routine) {
+      CCTK_WARN (1, "No regridding routine has been registered.  There will be no regridding.  (Maybe you forgot to activate the regridding thorn?)");
+      return;
+    }
+    
     // Check whether to recompose
     gh<dim>::rexts bbsss;
     gh<dim>::rprocs pss;