diff options
| -rw-r--r-- | src/GRHydro_Con2Prim.F90 | 1 | ||||
| -rw-r--r-- | src/GRHydro_EvolutionMask.F90 | 3 |
2 files changed, 2 insertions, 2 deletions
diff --git a/src/GRHydro_Con2Prim.F90 b/src/GRHydro_Con2Prim.F90 index 000ec7f..3ff1247 100644 --- a/src/GRHydro_Con2Prim.F90 +++ b/src/GRHydro_Con2Prim.F90 @@ -2296,7 +2296,6 @@ subroutine check_GRHydro_C2P_failed(CCTK_ARGUMENTS) ! we skip points where evolution_mask vanishes 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 diff --git a/src/GRHydro_EvolutionMask.F90 b/src/GRHydro_EvolutionMask.F90 index d23ff08..da14442 100644 --- a/src/GRHydro_EvolutionMask.F90 +++ b/src/GRHydro_EvolutionMask.F90 @@ -76,7 +76,8 @@ CONTAINS DECLARE_CCTK_FUNCTIONS CCTK_POINTER_TO_CONST :: cctkGH - CCTK_POINTER :: evolution_mask + CCTK_REAL :: dummy + pointer (evolution_mask, dummy) CCTK_INT :: evolution_mask_valid integer, save :: evolution_mask_idx = -1 |