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

[rhaas at tapir.caltech.edu]

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

Modified:
 /trunk/src/
  GRHydro_Con2Prim.F90

Log:
 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 
               cycle
             end if
           end if