diff options
Diffstat (limited to 'src/EHFinder_FindSurface.F90')
| -rw-r--r-- | src/EHFinder_FindSurface.F90 | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/src/EHFinder_FindSurface.F90 b/src/EHFinder_FindSurface.F90 index 43dbbbc..0090a49 100644 --- a/src/EHFinder_FindSurface.F90 +++ b/src/EHFinder_FindSurface.F90 @@ -63,7 +63,7 @@ subroutine EHFinder_FindSurface(CCTK_ARGUMENTS) ! Write an info message about what is going on. write(info_message,'(a26,i3,a14,i3)') 'Finding points on surface ', sn, & ' in level set ',l - call CCTK_INFO ( info_message ) + call CCTK_INFO ( trim(info_message) ) ! Find information about the local and global properties of the 2D ! Grid arrays. @@ -406,9 +406,9 @@ subroutine EHFinder_FindSurface(CCTK_ARGUMENTS) ! handling character strings that are continued on several lines. if ( interp_handle .lt. 0 ) then warn_message = 'Cannot get handle for interpolation. ' - warn_message = warn_message//'Forgot to activate an implementation ' - warn_message = warn_message//'providing interpolation operators?' - call CCTK_WARN( 0, warn_message ) + warn_message = trim(warn_message)//'Forgot to activate an implementation ' + warn_message = trim(warn_message)//'providing interpolation operators?' + call CCTK_WARN( 0, trim(warn_message) ) end if ! Write the required interpolation order parameter into a fortran string. @@ -424,9 +424,9 @@ subroutine EHFinder_FindSurface(CCTK_ARGUMENTS) call CCTK_CoordSystemHandle ( coord_system_handle, 'cart3d' ) if ( coord_system_handle .lt. 0) then warn_message = 'Cannot get handle for cart3d coordinate system. ' - warn_message = warn_message//'Forgot to activate an implementation ' - warn_message = warn_message//'providing coordinates?' - call CCTK_WARN( 0, warn_message ) + warn_message = trim(warn_message)//'Forgot to activate an implementation ' + warn_message = trim(warn_message)//'providing coordinates?' + call CCTK_WARN( 0, trim(warn_message) ) endif ! Get pointers to the grid arrays containing the interpolation points. @@ -581,7 +581,7 @@ subroutine EHFinder_FindSurface(CCTK_ARGUMENTS) ! print a warning. if ( k .gt. 15 ) then warn_message = 'Newton iteration did not converge! Area may be inaccurate' - call CCTK_WARN(1, warn_message ) + call CCTK_WARN(1, trim(warn_message) ) end if drdtheta = zero @@ -939,7 +939,7 @@ subroutine EHFinder_InfoSurfaces(CCTK_ARGUMENTS) write(info_message,'(a10,i3,a23,i3)') 'There are ',surface_counter, & ' surfaces in level set ',levelset_counter end if - call CCTK_INFO(info_message) + call CCTK_INFO( trim(info_message) ) integrate_counter = surface_counter |