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

rhaas at tapir.caltech.edu rhaas at tapir.caltech.edu
Mon Feb 11 10:30:09 CST 2013

User: rhaas
Date: 2013/02/11 10:30 AM


 GRHydro: add fuzzy comparison for evolution_mask
 evolution_mask is every only set to 0d0 or 1d0 (explicitly) right now.
 Should this change, this tests needs to be amended.
 From: Roland Haas <rhaas at tapir.caltech.edu>

File Changes:

Directory: /trunk/src/

File [modified]: GRHydro_Con2Prim.F90
Delta lines: +1 -1
--- trunk/src/GRHydro_Con2Prim.F90	2013-02-11 16:30:06 UTC (rev 473)
+++ trunk/src/GRHydro_Con2Prim.F90	2013-02-11 16:30:08 UTC (rev 474)
@@ -2283,7 +2283,7 @@
           ! do not collapse conditions since Fortran does not guarantee an order
           if (check_evolution_mask.ne.0) then
-            if (evolution_mask(i,j,k).eq.0d0) then 
+            if (abs(evolution_mask(i,j,k)).le.0.5d0) then 
             end if
           end if

More information about the Commits mailing list