diff options
author | knarf <knarf@ac85fae7-cede-4708-beff-ae01c7fa1c26> | 2010-03-26 18:21:03 +0000 |
---|---|---|
committer | knarf <knarf@ac85fae7-cede-4708-beff-ae01c7fa1c26> | 2010-03-26 18:21:03 +0000 |
commit | 0173344609ff7e4810be20ef90840c7353ebefe7 (patch) | |
tree | a12c1b85d4a82aa7903d70fc17fb3c21b649b1c8 /src | |
parent | ff41ac169ed447695a8e75cba7865b28bdd6109a (diff) |
some fixes here and there
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinInitialData/GRHydro_InitData/trunk@89 ac85fae7-cede-4708-beff-ae01c7fa1c26
Diffstat (limited to 'src')
-rw-r--r-- | src/Whisky_Con2Prim.F90 | 2 | ||||
-rw-r--r-- | src/Whisky_ReconstructTest.F90 | 6 |
2 files changed, 2 insertions, 6 deletions
diff --git a/src/Whisky_Con2Prim.F90 b/src/Whisky_Con2Prim.F90 index b067738..626b02d 100644 --- a/src/Whisky_Con2Prim.F90 +++ b/src/Whisky_Con2Prim.F90 @@ -51,7 +51,7 @@ subroutine Whisky_con2primtest(CCTK_ARGUMENTS) CCTK_REAL pmin, epsmin CCTK_INT C2P_failed logical epsnegative - + #ifdef _EOS_BASE_INC_ #undef _EOS_BASE_INC_ #endif 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') |