From 603622886b6335703fa50e02097e68599d19e25b Mon Sep 17 00:00:00 2001 From: Grzegorz Kowal Date: Fri, 8 Feb 2019 13:33:11 -0200 Subject: [PATCH] EVOLUTION: Fix intermediate times in evolve_ssprk3_m(). Signed-off-by: Grzegorz Kowal --- sources/evolution.F90 | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/sources/evolution.F90 b/sources/evolution.F90 index ee67f5f..3063bae 100644 --- a/sources/evolution.F90 +++ b/sources/evolution.F90 @@ -1880,7 +1880,7 @@ module evolution ! local variables ! integer :: i - real(kind=8) :: ds, dh + real(kind=8) :: ds real(kind=8) :: tm, dtm ! !------------------------------------------------------------------------------- @@ -2034,8 +2034,7 @@ module evolution ! ! prepare times ! - dh = 0.5d+00 * dt - tm = time + dh + tm = time + dt dtm = ds ! update fluxes @@ -2085,7 +2084,7 @@ module evolution ! prepare times ! - tm = time + dh + i * ds + tm = time + (i - n) * ds dtm = ds ! update fluxes