diff options
| -rw-r--r-- | src/EHFinder_SetSym.F90 | 6 |
1 files changed, 0 insertions, 6 deletions
diff --git a/src/EHFinder_SetSym.F90 b/src/EHFinder_SetSym.F90 index f130a5e..45fe9f5 100644 --- a/src/EHFinder_SetSym.F90 +++ b/src/EHFinder_SetSym.F90 @@ -52,8 +52,6 @@ subroutine EHFinder_ApplySymAll(CCTK_ARGUMENTS) DECLARE_CCTK_PARAMETERS DECLARE_CCTK_FUNCTIONS - CCTK_INT :: ierr - ! Select the variable groups for the None boundary condition. When the ! physical boundary condition (a noop in this case) is applied the ! symmetry boundary conditions will be applied automatically. @@ -84,7 +82,6 @@ subroutine EHFinder_ApplySymF(CCTK_ARGUMENTS) DECLARE_CCTK_FUNCTIONS character(len=80) :: warn_message - CCTK_INT :: ierr ierr = Boundary_SelectGroupForBC ( cctkGH, CCTK_ALL_FACES, 1, -1, & 'ehfinder::f', 'None' ) @@ -106,8 +103,6 @@ subroutine EHFinder_ApplySymMask(CCTK_ARGUMENTS) DECLARE_CCTK_PARAMETERS DECLARE_CCTK_FUNCTIONS - CCTK_INT :: ierr - ierr = Boundary_SelectGroupForBC ( cctkGH, CCTK_ALL_FACES, 1, -1, & 'ehfinder::eh_mask', 'None' ) @@ -130,7 +125,6 @@ subroutine EHFinder_ApplySymSC(CCTK_ARGUMENTS) DECLARE_CCTK_FUNCTIONS character(len=80) :: warn_message - CCTK_INT :: ierr ierr = Boundary_SelectGroupForBC ( cctkGH, CCTK_ALL_FACES, 1, -1, & 'ehfinder::surface_index', 'None' ) |