diff options
Diffstat (limited to 'src/GRHydro_FluxSplit.F90')
-rw-r--r-- | src/GRHydro_FluxSplit.F90 | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/GRHydro_FluxSplit.F90 b/src/GRHydro_FluxSplit.F90 index 16777c3..7ff4abc 100644 --- a/src/GRHydro_FluxSplit.F90 +++ b/src/GRHydro_FluxSplit.F90 @@ -40,7 +40,7 @@ subroutine GRHydro_FSAlpha(CCTK_ARGUMENTS) DECLARE_CCTK_FUNCTIONS integer :: nx, ny, nz, i, j, k, ierr, max_handle - CCTK_REAL :: uxx, uxy, uxz, uyy, uyz, uzz, det, psi4pt, beta + CCTK_REAL :: uxx, uxy, uxz, uyy, uyz, uzz, det, beta CCTK_REAL, dimension(5) :: lambda CCTK_REAL :: alpha1_local, alpha2_local, alpha3_local, alpha4_local, & alpha5_local @@ -287,7 +287,7 @@ subroutine GRHydro_SplitFlux(CCTK_ARGUMENTS) integer :: nx, ny, nz, i, j, k CCTK_REAL, dimension(:), allocatable :: upper, det, dummy - CCTK_REAL :: uxx, uxy, uxz, uyy, uyz, uzz, psi4pt + CCTK_REAL :: uxx, uxy, uxz, uyy, uyz, uzz nx = cctk_lsh(1) ny = cctk_lsh(2) |