diff options
| author | rhaas <rhaas@c83d129a-5a75-4d5a-9c4d-ed3a5855bf45> | 2013-02-11 16:30:08 +0000 |
|---|---|---|
| committer | rhaas <rhaas@c83d129a-5a75-4d5a-9c4d-ed3a5855bf45> | 2013-02-11 16:30:08 +0000 |
| commit | 250aaec64047bb12e5c9b9dfe335124b925ec92e (patch) | |
| tree | c8e39447e57e1c04e1e2c96b1c88d566914339e7 | |
| parent | a2508f3d268c2abf4fab3eeb6e553508d32a0436 (diff) | |
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>
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinEvolve/GRHydro/trunk@474 c83d129a-5a75-4d5a-9c4d-ed3a5855bf45
| -rw-r--r-- | src/GRHydro_Con2Prim.F90 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/GRHydro_Con2Prim.F90 b/src/GRHydro_Con2Prim.F90 index b1e4c5f..5af9518 100644 --- a/src/GRHydro_Con2Prim.F90 +++ b/src/GRHydro_Con2Prim.F90 @@ -2283,7 +2283,7 @@ subroutine check_GRHydro_C2P_failed(CCTK_ARGUMENTS) ! 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 |