Carpet: Print message before and after recomposing

darcs-hash:20060622023128-dae7b-f863af74768b4b8045d5d51f0c8c3ec609a4a897.gz

2 files changed, 12 insertions, 6 deletions

diff --git a/Carpet/Carpet/src/Recompose.cc b/Carpet/Carpet/src/Recompose.cc
index 8b027185b..dfdeae97a 100644
--- a/Carpet/Carpet/src/Recompose.cc
+++ b/Carpet/Carpet/src/Recompose.cc
@@ -169,7 +169,7 @@ namespace Carpet {
     DECLARE_CCTK_PARAMETERS;
     
     CCTK_VInfo (CCTK_THORNSTRING,
-                "Recomposing the grid hierarchy for map %d", m);
+                "Recomposing the grid hierarchy for map %d...", m);
     
     // Check the regions
     CheckRegions (bbsss, obss, pss);
@@ -183,6 +183,9 @@ namespace Carpet {
     vhh.at(m)->recompose (bbsss, obss, pss, do_init);
     
     if (verbose) OutputGrids (cctkGH, m, *vhh.at(m));
+    
+    CCTK_VInfo (CCTK_THORNSTRING,
+                "Done recomposing the grid hierarchy for map %d.", m);
   }
   
   
diff --git a/Carpet/Carpet/src/SetupGH.cc b/Carpet/Carpet/src/SetupGH.cc
index f99c6379b..039e7e519 100644
--- a/Carpet/Carpet/src/SetupGH.cc
+++ b/Carpet/Carpet/src/SetupGH.cc
@@ -1351,11 +1351,14 @@ namespace Carpet {
       }
 	
       // Recompose for this map
-      char * const groupname = CCTK_GroupName (group);
-      assert (groupname);
-      Checkpoint ("Recomposing grid array group \"%s\"", groupname);
-      free (groupname);
-      arrdata.at(group).at(0).hh->recompose (bbsss, obss, pss, false);
+      {
+        char * const groupname = CCTK_GroupName (group);
+        assert (groupname);
+        Checkpoint ("Recomposing grid array group \"%s\"...", groupname);
+        arrdata.at(group).at(0).hh->recompose (bbsss, obss, pss, false);
+        Checkpoint ("Done recomposing grid array group \"%s\".", groupname);
+        free (groupname);
+      }
 	
       break;
     } // case of scalar or array