Fix the casing of the postrestrict group to PostRestrict. Update all

Fix the casing of the postrestrict group to PostRestrict.  Update all
schedule.ccl files accordingly.

Introduce a Carpet parameter buffer_width.  This parameter specifies a
region within refined grids that is also boundary-prolongated.

Introduce a function CarpetEnableProlongation to dis- and re-enable
boundary prolongation.

darcs-hash:20030720190343-07bb3-0c5db5cebe769c0d4b3237f11a089aab9da94b1a.gz

1 files changed, 6 insertions, 17 deletions

diff --git a/CarpetExtra/WaveToyMoL/src/calcrhs.F77 b/CarpetExtra/WaveToyMoL/src/calcrhs.F77
index 777979b81..2c684eaec 100644
--- a/CarpetExtra/WaveToyMoL/src/calcrhs.F77
+++ b/CarpetExtra/WaveToyMoL/src/calcrhs.F77
@@ -1,4 +1,4 @@
-c     $Header: /home/eschnett/C/carpet/Carpet/CarpetExtra/WaveToyMoL/src/calcrhs.F77,v 1.1 2003/06/18 18:24:31 schnetter Exp $
+c     $Header: /home/eschnett/C/carpet/Carpet/CarpetExtra/WaveToyMoL/src/calcrhs.F77,v 1.2 2003/07/20 21:03:44 schnetter Exp $
 
 #include "cctk.h"
 #include "cctk_Arguments.h"
@@ -9,26 +9,15 @@ c     $Header: /home/eschnett/C/carpet/Carpet/CarpetExtra/WaveToyMoL/src/calcrhs
       DECLARE_CCTK_ARGUMENTS
       DECLARE_CCTK_FUNCTIONS
       DECLARE_CCTK_PARAMETERS
-      CCTK_REAL dx(3)
-      integer bndwidth(3)
+      CCTK_INT bndwidth
+      parameter (bndwidth = 1)
       integer imin(3), imax(3)
+      CCTK_REAL dx(3)
       integer i, j, k
       integer d
-      integer ierr
-      do d=1,3
-         bndwidth(d) = 1
-      end do
       do d=1,3
-         if (cctk_bbox(2*d).ne.0) then
-            imin(d) = 1+bndwidth(d)
-         else
-            imin(d) = 1+cctk_nghostzones(d)
-         end if
-         if (cctk_bbox(2*d+1).ne.0) then
-            imax(d) = cctk_lsh(d)-bndwidth(d)
-         else
-            imax(d) = cctk_lsh(d)-cctk_nghostzones(d)
-         end if
+         imin(d) = 1+bndwidth
+         imax(d) = cctk_lsh(d)-bndwidth
       end do
       do d=1,3
          dx(d) = CCTK_DELTA_SPACE(3)