diff options
-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 |