diff options
-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,:) + & |