diff options
Diffstat (limited to 'src/EHFinder_Check.F90')
-rw-r--r-- | src/EHFinder_Check.F90 | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/EHFinder_Check.F90 b/src/EHFinder_Check.F90 index 1fd07d4..0e5e021 100644 --- a/src/EHFinder_Check.F90 +++ b/src/EHFinder_Check.F90 @@ -77,7 +77,7 @@ subroutine EHFinder_ReInitialize_Check(CCTK_ARGUMENTS) ! Write an info message about the local extremum. write(info_message,'(a39,i3,a6,f12.5)') & 'Minimum f at the extrema for level set ', l, ' is : ',fmin_extremum - call CCTK_INFO(info_message) + call CCTK_INFO(trim(info_message)) ! If the local extremum indicate and imminent pinch off undo the ! re-initialization if this is requested by the user. @@ -86,7 +86,7 @@ subroutine EHFinder_ReInitialize_Check(CCTK_ARGUMENTS) write(info_message,'(a45,i3,a33)') & 'Re-initialization of level set ', l, & ' undone due to imminent pinch-off' - call CCTK_INFO(info_message) + call CCTK_INFO(trim(info_message)) f(:,:,:,l) = fbak(:,:,:,l) eh_mask(:,:,:,l) = eh_mask_bak(:,:,:,l) re_initialize_undone(l) = .true. |