Added functionality for activate_newlevels_on_regrid near top of file

darcs-hash:20020522143114-e415b-326f968183bf4e6635240a3d0471e2254ed4ba58.gz

1 files changed, 8 insertions, 1 deletions

diff --git a/Carpet/CarpetRegrid/src/regrid.cc b/Carpet/CarpetRegrid/src/regrid.cc
index 80ec139fa..9b3f03675 100644
--- a/Carpet/CarpetRegrid/src/regrid.cc
+++ b/Carpet/CarpetRegrid/src/regrid.cc
@@ -22,7 +22,7 @@
 #include "carpet.hh"
 #include "regrid.hh"
 
-static const char* rcsid = "$Header: /home/eschnett/C/carpet/Carpet/Carpet/CarpetRegrid/src/regrid.cc,v 1.13 2002/03/26 13:22:31 schnetter Exp $";
+static const char* rcsid = "$Header: /home/eschnett/C/carpet/Carpet/Carpet/CarpetRegrid/src/regrid.cc,v 1.14 2002/05/22 16:31:14 shawley Exp $";
 
 CCTK_FILEVERSION(CarpetRegrid_regrid_cc)
 
@@ -75,6 +75,13 @@ namespace CarpetRegrid {
 	&& cctkGH->cctk_iteration % regrid_every != 0) {
       return 0;
     }
+
+    int newnumlevels = refinement_levels + activate_newlevels_on_regrid;
+    if ( ( newnumlevels >= 1) && (newnumlevels <= maxreflevels )) {
+      char numlevelstring[10];
+      sprintf(numlevelstring,"%d",newnumlevels);
+      CCTK_ParameterSet("refinement_levels","carpetregrid",numlevelstring);
+     }
     
     list<ibbox> bbl;
     list<bvect> obl;