From 23f018c56740fbccef729433191456caa489a7ad Mon Sep 17 00:00:00 2001 From: diener Date: Tue, 30 Oct 2007 18:59:28 +0000 Subject: Move check for domain size to the right place. git-svn-id: https://svn.cct.lsu.edu/repos/numrel/LSUThorns/SummationByParts/trunk@91 f69c4107-0314-4c4f-9ad4-17e986b73f4a --- src/Derivatives_4_2.F90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Derivatives_4_2.F90 b/src/Derivatives_4_2.F90 index 3a9465e..5478ffd 100644 --- a/src/Derivatives_4_2.F90 +++ b/src/Derivatives_4_2.F90 @@ -346,7 +346,6 @@ subroutine up_deriv_gf_4_2 ( var, ni, nj, nk, dir, bb, gsize, delta, up, dvar ) if ( bb(2) == 0 ) then jr = nj - gsize else - if (jl > jr+1) call CCTK_WARN (0, "domain too small") where ( up(:,nj-3,:) < zero ) dvar(:,nj-3,:) = - ( q2(1,4) * var(:,nj,:) + & q2(2,4) * var(:,nj-1,:) + & @@ -399,6 +398,7 @@ subroutine up_deriv_gf_4_2 ( var, ni, nj, nk, dir, bb, gsize, delta, up, dvar ) end where jr = nj - 4 end if + if (jl > jr+1) call CCTK_WARN (0, "domain too small") where ( up(:,jl:jr,:) < zero ) dvar(:,jl:jr,:) = ( a1(-2) * var(:,jl-2:jr-2,:) + & a1(-1) * var(:,jl-1:jr-1,:) + & -- cgit v1.2.3