User: knarf Date: 2011/02/26 02:51 PM
Modified: /trunk/src/ GRHydro_Con2Prim.F90
Log: patch from Roland Haas: in Con2PrimGeneral inside a do
File Changes:
Directory: /trunk/src/ ======================
File [modified]: GRHydro_Con2Prim.F90 Delta lines: +1 -1 =================================================================== --- trunk/src/GRHydro_Con2Prim.F90 2011-02-21 17:16:59 UTC (rev 218) +++ trunk/src/GRHydro_Con2Prim.F90 2011-02-26 20:50:58 UTC (rev 219) @@ -2086,7 +2086,7 @@ 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))