diff options
Diffstat (limited to 'CarpetExtra/WaveToyMoL/src/calcrhs.F77')
| -rw-r--r-- | CarpetExtra/WaveToyMoL/src/calcrhs.F77 | 23 |
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) |