gkowal/amun-code
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

EVOLUTION: Fix intermediate times in evolve_ssprk3_m().

Browse Source 
Signed-off-by: Grzegorz Kowal <grzegorz@amuncode.org>
This commit is contained in:
Grzegorz Kowal 2019-02-08 13:33:11 -02:00
parent 3c649ec71f
commit 603622886b
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
sources/evolution.F90
View File

@ -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