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