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