diff options
Diffstat (limited to 'src/CheckGridSizes.F90')
| -rw-r--r-- | src/CheckGridSizes.F90 | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/CheckGridSizes.F90 b/src/CheckGridSizes.F90 index b4366d9..978cc68 100644 --- a/src/CheckGridSizes.F90 +++ b/src/CheckGridSizes.F90 @@ -19,6 +19,7 @@ subroutine SBP_CheckGridSizes(CCTK_ARGUMENTS) integer, dimension(3) :: bc integer, dimension(3,3) :: np character(len=128) :: info_message + character(len=1), dimension(3) :: direction = (/ 'x', 'y', 'z' /) bc(1) = cctk_bbox(1)+cctk_bbox(2)+1 ! 0 processor boundaries -> bc = 3 bc(2) = cctk_bbox(3)+cctk_bbox(4)+1 ! 1 processor boundary -> bc = 2 @@ -53,9 +54,9 @@ subroutine SBP_CheckGridSizes(CCTK_ARGUMENTS) do i = 1, 3 if ( cctk_lsh(i) < np(bc(i),i) ) then - write(info_message,'(a27,a1,a35,i1,a25)') & + write(info_message,'(a1,a35,i1,a25)') & - '-direction is to small to run with ', order, & + direction(i), '-direction is to small to run with ', order, & ' order finite differences' ! This is a warning only since this thorn may be active, but ! never called to calculate finite differences |