diff options
Diffstat (limited to 'src/GRHydro_Con2Prim.F90')
| -rw-r--r-- | src/GRHydro_Con2Prim.F90 | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/src/GRHydro_Con2Prim.F90 b/src/GRHydro_Con2Prim.F90 index e1f0302..81afb02 100644 --- a/src/GRHydro_Con2Prim.F90 +++ b/src/GRHydro_Con2Prim.F90 @@ -2244,8 +2244,10 @@ subroutine check_GRHydro_C2P_failed(CCTK_ARGUMENTS) CCTK_REAL, DIMENSION(cctk_ash1,cctk_ash2,cctk_ash3) :: evolution_mask CCTK_POINTER_TO_CONST :: evolution_mask_ptr pointer (evolution_mask_ptr, evolution_mask) + CCTK_INT :: check_evolution_mask - call GRHydro_DeclareEvolutionMask(cctkGH, evolution_mask_ptr) + call GRHydro_DeclareEvolutionMask(cctkGH, evolution_mask_ptr, & + check_evolution_mask) ! call CCTK_INFO("Checking the C2P failure mask.") @@ -2276,7 +2278,7 @@ subroutine check_GRHydro_C2P_failed(CCTK_ARGUMENTS) end if ! do not collapse conditions since Fortran does not guarantee an order - if (use_evolution_mask.ne.0) then + if (check_evolution_mask.ne.0) then if (evolution_mask(i,j,k).eq.0d0) then cycle end if |