EVOLUTION: Fix intermediate times in evolve_ssprk3_m().
Signed-off-by: Grzegorz Kowal <grzegorz@amuncode.org>
This commit is contained in:
parent
3c649ec71f
commit
603622886b
@ -1880,7 +1880,7 @@ module evolution
|
|||||||
! local variables
|
! local variables
|
||||||
!
|
!
|
||||||
integer :: i
|
integer :: i
|
||||||
real(kind=8) :: ds, dh
|
real(kind=8) :: ds
|
||||||
real(kind=8) :: tm, dtm
|
real(kind=8) :: tm, dtm
|
||||||
!
|
!
|
||||||
!-------------------------------------------------------------------------------
|
!-------------------------------------------------------------------------------
|
||||||
@ -2034,8 +2034,7 @@ module evolution
|
|||||||
!
|
!
|
||||||
! prepare times
|
! prepare times
|
||||||
!
|
!
|
||||||
dh = 0.5d+00 * dt
|
tm = time + dt
|
||||||
tm = time + dh
|
|
||||||
dtm = ds
|
dtm = ds
|
||||||
|
|
||||||
! update fluxes
|
! update fluxes
|
||||||
@ -2085,7 +2084,7 @@ module evolution
|
|||||||
|
|
||||||
! prepare times
|
! prepare times
|
||||||
!
|
!
|
||||||
tm = time + dh + i * ds
|
tm = time + (i - n) * ds
|
||||||
dtm = ds
|
dtm = ds
|
||||||
|
|
||||||
! update fluxes
|
! update fluxes
|
||||||
|
Loading…
x
Reference in New Issue
Block a user