diff options
author | schnetter <schnetter@f69c4107-0314-4c4f-9ad4-17e986b73f4a> | 2007-02-12 20:46:51 +0000 |
---|---|---|
committer | schnetter <schnetter@f69c4107-0314-4c4f-9ad4-17e986b73f4a> | 2007-02-12 20:46:51 +0000 |
commit | 82e03729620659d183f3fcf4b074a5e939dc7d4b (patch) | |
tree | 70878077b4bb7d42352ef9b4cdabc5c42d23e0d1 | |
parent | 7fb71203958220c0d3c11b7aeadcd60cb4df74a2 (diff) |
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
-rw-r--r-- | src/CheckGridSizes.F90 | 7 |
1 files 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 |