diff options
author | knarf <knarf@c83d129a-5a75-4d5a-9c4d-ed3a5855bf45> | 2011-02-26 20:50:58 +0000 |
---|---|---|
committer | knarf <knarf@c83d129a-5a75-4d5a-9c4d-ed3a5855bf45> | 2011-02-26 20:50:58 +0000 |
commit | 2a581e5dfd132abfb3de568b932c4b7552c24402 (patch) | |
tree | 4982dfbbb74191a09cc14cfe46e8ba5e6db3021b /src/GRHydro_Con2Prim.F90 | |
parent | 5d1856acd78fd6bf8bb808e3c4c699179752bfb1 (diff) |
patch from Roland Haas: in Con2PrimGeneral inside a do
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinEvolve/GRHydro/trunk@219 c83d129a-5a75-4d5a-9c4d-ed3a5855bf45
Diffstat (limited to 'src/GRHydro_Con2Prim.F90')
-rw-r--r-- | src/GRHydro_Con2Prim.F90 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/GRHydro_Con2Prim.F90 b/src/GRHydro_Con2Prim.F90 index f9b249e..cec1764 100644 --- a/src/GRHydro_Con2Prim.F90 +++ b/src/GRHydro_Con2Prim.F90 @@ -2086,7 +2086,7 @@ subroutine Conservative2PrimitiveGeneral(CCTK_ARGUMENTS) if (SpaceMask_CheckStateBitsF90(space_mask, i, j, k, type_bits, atmosphere) .or. & GRHydro_enable_internal_excision /= 0 .and. (hydro_excision_mask(i,j,k) .ne. 0)) cycle - f = press_new(i,j,k) - press(i,j,k) + f(i,j,k) = press_new(i,j,k) - press(i,j,k) udens = dens(i,j,k) / sqrt(GRHydro_det(i,j,k)) usx = scon(i,j,k,1) / sqrt(GRHydro_det(i,j,k)) |