diff options
Diffstat (limited to 'src/Whisky_ReconstructTest.F90')
| -rw-r--r-- | src/Whisky_ReconstructTest.F90 | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/src/Whisky_ReconstructTest.F90 b/src/Whisky_ReconstructTest.F90 index 9bc8e66..3302748 100644 --- a/src/Whisky_ReconstructTest.F90 +++ b/src/Whisky_ReconstructTest.F90 @@ -36,12 +36,8 @@ subroutine Whisky_reconstruction_test(CCTK_ARGUMENTS) integer i, j, k, nx, ny, nz, ierr - CCTK_INT, dimension(3) :: excision_descriptors logical, dimension(:,:,:), allocatable :: trivial_rp - excision_descriptors(1)=-1 - excision_descriptors(2)=-1 - excision_descriptors(3)=-1 allocate(trivial_rp(cctk_lsh(1),cctk_lsh(2),cctk_lsh(3)),STAT=ierr) if (ierr .ne. 0) then call CCTK_WARN(0, "Allocation problems with trivial_rp") @@ -69,7 +65,7 @@ subroutine Whisky_reconstruction_test(CCTK_ARGUMENTS) end do call tvdreconstruct(nx, ny, nz, xoffset, yoffset, zoffset, & - rho, rhoplus, rhominus, trivial_rp, space_mask, excision_descriptors) + rho, rhoplus, rhominus, trivial_rp, hydro_excision_mask) deallocate(trivial_rp) open(unit=11,file='original.dat',status='unknown') |