diff options
Diffstat (limited to 'src/Derivatives2_4_2.F90')
| -rw-r--r-- | src/Derivatives2_4_2.F90 | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/Derivatives2_4_2.F90 b/src/Derivatives2_4_2.F90 index 1827966..443775f 100644 --- a/src/Derivatives2_4_2.F90 +++ b/src/Derivatives2_4_2.F90 @@ -179,10 +179,10 @@ subroutine deriv2_gf_4_2 ( var, ni, nj, nk, dir, bb, gsize, delta, dvar2 ) q(5,3) * var(:,:,nk-4) + & q(6,3) * var(:,:,nk-5) ) * idel2 dvar2(:,:,nk-1) = ( q(1,2) * var(:,:,nk) + & - q(2,2) * var(:,:,nk-1) * & - q(3,2) * var(:,:,nk-2) * & - q(4,2) * var(:,:,nk-3) * & - q(5,2) * var(:,:,nk-4) * & + q(2,2) * var(:,:,nk-1) + & + q(3,2) * var(:,:,nk-2) + & + q(4,2) * var(:,:,nk-3) + & + q(5,2) * var(:,:,nk-4) + & q(6,2) * var(:,:,nk-5) ) * idel2 dvar2(:,:,nk) = ( q(1,1) * var(:,:,nk) + & q(2,1) * var(:,:,nk-1) + & |