diff options
author | rhaas <rhaas@c83d129a-5a75-4d5a-9c4d-ed3a5855bf45> | 2013-01-20 00:25:48 +0000 |
---|---|---|
committer | rhaas <rhaas@c83d129a-5a75-4d5a-9c4d-ed3a5855bf45> | 2013-01-20 00:25:48 +0000 |
commit | 506da6eb483d731bb88c31372229c992754b2cc8 (patch) | |
tree | 0ff372ca5a3b2302dba9a9f050165d72161b764f /src/GRHydro_Con2Prim.F90 | |
parent | 0e280f615906d160357aa9187ad0442c8b0d3424 (diff) |
GRHydro: add option to automatically use Evolution_Mask if possible
From: Roland Haas <rhaas@tapir.caltech.edu>
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinEvolve/GRHydro/trunk@469 c83d129a-5a75-4d5a-9c4d-ed3a5855bf45
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 |