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

SCHEMES: Polish riemann_hll().

Browse Source 
Signed-off-by: Grzegorz Kowal <grzegorz@amuncode.org>
This commit is contained in:
Grzegorz Kowal 2022-01-20 12:51:34 -03:00
parent f52539e34a
commit 982637c745
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
sources/schemes.F90
View File

@ -928,10 +928,11 @@ module schemes
!
! References:
!
! [1] Harten, A., Lax, P. D. & Van Leer, B.
! [1] Harten, A., Lax, P. D., Van Leer, B.
! "On Upstream Differencing and Godunov-Type Schemes for Hyperbolic
! Conservation Laws",
! SIAM Review, 1983, Volume 25, Number 1, pp. 35-61
! SIAM Review, 1983, Volume 25, Number 1, pp. 35-61,
! https://doi.org/10.1137/1025002
!
!===============================================================================
!
@ -976,10 +977,10 @@ module schemes
else ! sl < 0 < sr
wl(:) = sl * ul(:,i) - fl(:,i)
wr(:) = sr * ur(:,i) - fr(:,i)
wl = sl * ul(:,i) - fl(:,i)
wr = sr * ur(:,i) - fr(:,i)
fi(:,i) = (sl * wr(:) - sr * wl(:)) / (sr - sl)
fi(:,i) = (sl * wr - sr * wl) / (sr - sl)
end if ! sl < 0 < sr