diff options
Diffstat (limited to 'src/EHFinder_Check.F90')
-rw-r--r-- | src/EHFinder_Check.F90 | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/EHFinder_Check.F90 b/src/EHFinder_Check.F90 index 81d3413..0d391fe 100644 --- a/src/EHFinder_Check.F90 +++ b/src/EHFinder_Check.F90 @@ -83,7 +83,9 @@ subroutine EHFinder_ReInitialize_Check(CCTK_ARGUMENTS) ! If the local extremum indicate and imminent pinch off undo the ! re-initialization if this is requested by the user. if ( re_init_undo .gt. 0 ) then - if ( fmin_extremum .gt. -two * minval(cctk_delta_space) ) then + if ( fmin_extremum .gt. -two * min ( CCTK_DELTA_SPACE(1), & + CCTK_DELTA_SPACE(2), & + CCTK_DELTA_SPACE(3) ) ) then write(info_message,'(a45,i3,a33)') & 'Re-initialization of level set ', l, & ' undone due to imminent pinch-off' |