diff options
Diffstat (limited to 'src/EHFinder_Init.F90')
| -rw-r--r-- | src/EHFinder_Init.F90 | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/EHFinder_Init.F90 b/src/EHFinder_Init.F90 index 478839f..10888d8 100644 --- a/src/EHFinder_Init.F90 +++ b/src/EHFinder_Init.F90 @@ -278,11 +278,11 @@ subroutine EHFinder_Init(CCTK_ARGUMENTS) DECLARE_CCTK_ARGUMENTS DECLARE_CCTK_FUNCTIONS -! Set up the value used in interiour inactive cells. - ex_value = - ( one + shell_width ) * maxval(cctk_delta_space) - ! Find the maximal grid spacing. - delta = maxval ( cctk_delta_space ) + delta = max ( CCTK_DELTA_SPACE(1), CCTK_DELTA_SPACE(2), CCTK_DELTA_SPACE(3) ) + +! Set up the value used in interiour inactive cells. + ex_value = - ( one + shell_width ) * delta ! Get handles for various reduction operations. call CCTK_ReductionArrayHandle ( max_handle, 'maximum' ) |