diff options
Diffstat (limited to 'src/Derivatives_2_1.F90')
| -rw-r--r-- | src/Derivatives_2_1.F90 | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/src/Derivatives_2_1.F90 b/src/Derivatives_2_1.F90 index 4a0adc1..8192a71 100644 --- a/src/Derivatives_2_1.F90 +++ b/src/Derivatives_2_1.F90 @@ -134,23 +134,23 @@ subroutine up_deriv_gf_2_1 ( var, ni, nj, nk, dir, bb, gsize, delta, up, dvar ) if ( first ) then a1(-1) = -1.000000000000000000000000000000000000000_wp a1(0) = 1.000000000000000000000000000000000000000_wp - a1(1) = 0_wp + a1(1) = 0.0_wp - q1(1,1) = 0_wp - q1(2,1) = 0_wp - q1(3,1) = 0_wp + q1(1,1) = 0.0_wp + q1(2,1) = 0.0_wp + q1(3,1) = 0.0_wp q1(1,2) = -1.000000000000000000000000000000000000000_wp q1(2,2) = 1.000000000000000000000000000000000000000_wp - q1(3,2) = 0_wp + q1(3,2) = 0.0_wp - a2(-1) = 0_wp + a2(-1) = 0.0_wp a2(0) = -1.000000000000000000000000000000000000000_wp a2(1) = 1.000000000000000000000000000000000000000_wp q2(1,1) = -2.000000000000000000000000000000000000000_wp q2(2,1) = 2.000000000000000000000000000000000000000_wp - q2(3,1) = 0_wp - q2(1,2) = 0_wp + q2(3,1) = 0.0_wp + q2(1,2) = 0.0_wp q2(2,2) = -1.000000000000000000000000000000000000000_wp q2(3,2) = 1.000000000000000000000000000000000000000_wp |