[Commits] [svn:einsteintoolkit] GRHydro/trunk/src/ (Rev. 219)

[knarf at cct.lsu.edu]

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))