From 82e03729620659d183f3fcf4b074a5e939dc7d4b Mon Sep 17 00:00:00 2001 From: schnetter Date: Mon, 12 Feb 2007 20:46:51 +0000 Subject: Do not abort during paramcheck if there are not enough ghost zones; print a warning only. git-svn-id: https://svn.cct.lsu.edu/repos/numrel/LSUThorns/SummationByParts/trunk@82 f69c4107-0314-4c4f-9ad4-17e986b73f4a --- src/CheckGridSizes.F90 | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/src/CheckGridSizes.F90 b/src/CheckGridSizes.F90 index b6af08e..b4366d9 100644 --- a/src/CheckGridSizes.F90 +++ b/src/CheckGridSizes.F90 @@ -19,7 +19,6 @@ subroutine SBP_CheckGridSizes(CCTK_ARGUMENTS) integer, dimension(3) :: bc integer, dimension(3,3) :: np character(len=128) :: info_message - character(len=1), dimension(3) :: dir = (/ '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 @@ -55,10 +54,12 @@ 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)') & - 'Your local gridsize in the ', dir(i), & + '-direction is to small to run with ', order, & ' order finite differences' - call CCTK_WARN(0,info_message) + ! This is a warning only since this thorn may be active, but + ! never called to calculate finite differences + call CCTK_WARN(1,info_message) end if end do end subroutine SBP_CheckGridSizes -- cgit v1.2.3