diff options
author | diener <diener@f69c4107-0314-4c4f-9ad4-17e986b73f4a> | 2007-10-18 16:17:16 +0000 |
---|---|---|
committer | diener <diener@f69c4107-0314-4c4f-9ad4-17e986b73f4a> | 2007-10-18 16:17:16 +0000 |
commit | a3fe6b12fe51b96ca0e2abb0e4b16c9ae04bf0fd (patch) | |
tree | 57052ccdaed62630c4e3e4a620451599898b5bb1 | |
parent | 93d997291d78ca3cebf36f33673b75ffcd8a4ba6 (diff) |
Fix error message.
git-svn-id: https://svn.cct.lsu.edu/repos/numrel/LSUThorns/SummationByParts/trunk@88 f69c4107-0314-4c4f-9ad4-17e986b73f4a
-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 |