diff options
| author | diener <diener@f69c4107-0314-4c4f-9ad4-17e986b73f4a> | 2007-10-30 18:59:28 +0000 |
|---|---|---|
| committer | diener <diener@f69c4107-0314-4c4f-9ad4-17e986b73f4a> | 2007-10-30 18:59:28 +0000 |
| commit | 23f018c56740fbccef729433191456caa489a7ad (patch) | |
| tree | 894d826b5e1c8c123d723c955f1bc5e94bbed256 | |
| parent | cad3c5138ec4d783e0465b629e6cffbf9d026006 (diff) | |
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
| -rw-r--r-- | src/Derivatives_4_2.F90 | 2 |
1 files changed, 1 insertions, 1 deletions
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,:) + & |