Scrambler
1
|
Module containing various Riemann Solvers. More...
Public Member Functions | |
REAL(KIND=qPREC) function | calc_flux (wl, wr, f, lambda_max) |
Calculate flux based on solver selected. | |
REAL(KIND=qPREC) function | HLLC_ISO (wl, wr, f, lambda_max) |
Calculate Isothermal version of the HLLC flux. | |
REAL(KIND=qPREC) function | HLLD_ISO (wl, wr, f, lambda_max) |
Calculate Isothermal version of the HLLD flux. | |
REAL(KIND=qPREC) function | HLLD (wl, wr, f, lambda_max) |
Calculate HLLD flux for an ideal eos. | |
REAL(KIND=qPREC) function | HLLC (wl, wr, f, lambda_max) |
Calculate HLLC flux for an ideal gas eos. | |
REAL(KIND=qPREC) function | HLL (wleft, wright, f, lambda_max) |
Calculate HLL flux for an ideal EOS. | |
REAL(KIND=qPREC) function | HLL_MHD (wleft, wright, f, lambda_max) |
Calculate HLL flux for an ideal EOS. | |
REAL(KIND=qPREC) function | ExactRS (wl, wr, f, lambda_max) |
Calculate the exact solution given an ideal EOS. | |
subroutine | riemann (WLeft, WRight, WMiddle, max_speed) |
Calculate interface state for exact riemann solver. | |
subroutine | vacuum_solve (Left, Right, Middle, UM, S, max_speed) |
Routine for solving for interface state. | |
subroutine | STARPU (Left, Right, CL, CR, PM, UM) |
Calculate velocity of interface state. | |
subroutine | SAMPLE (PM, UM, S, Left, Right, Middle, CL, CR, max_speed) |
No idea. | |
subroutine | guessp (Left, Right, CL, CR, PM) |
Completely clueless. | |
subroutine | PREFUN (F, FD, Pstar, WK, CK) |
Called before having any fun. | |
Public Attributes | |
INTEGER, parameter, public | iHLL = 3 |
INTEGER, parameter, public | iHLLC = 2 |
INTEGER, parameter, public | iHLLD = 6 |
INTEGER, parameter, public | iExactRS = 1 |
INTEGER, parameter, public | iHLLC_ISO = 4 |
INTEGER, parameter, public | iHLLD_ISO = 8 |
INTEGER, parameter, public | iHLL_MHD = 7 |
Module containing various Riemann Solvers.
Definition at line 33 of file riemann_solvers.f90.
REAL(KIND=qPREC) function calc_flux | ( | REAL(KIND=qPrec), dimension(:) | wl, |
REAL(KIND=qPrec), dimension(:) | wr, | ||
REAL(KIND=qPrec), dimension(:) | f, | ||
REAL(KIND=qPREC), optional | lambda_max | ||
) |
Calculate flux based on solver selected.
wl | left primitive state |
wr | right primitive state |
f | flux |
lambda_max | optional H-viscosity parameter |
Definition at line 47 of file riemann_solvers.f90.
REAL(KIND=qPREC) function HLLC_ISO | ( | REAL(KIND=qPrec), dimension(:) | wl, |
REAL(KIND=qPrec), dimension(:) | wr, | ||
REAL(KIND=qPrec), dimension(:) | f, | ||
REAL(KIND=qPREC), optional | lambda_max | ||
) |
Calculate Isothermal version of the HLLC flux.
wl | left primitive state |
wr | right primitive state |
f | flux |
lambda_max | optional H-viscosity parameter |
Definition at line 126 of file riemann_solvers.f90.
REAL(KIND=qPREC) function HLLD_ISO | ( | REAL(KIND=qPrec), dimension(:) | wl, |
REAL(KIND=qPrec), dimension(:) | wr, | ||
REAL(KIND=qPrec), dimension(:) | f, | ||
REAL(KIND=qPREC), optional | lambda_max | ||
) |
Calculate Isothermal version of the HLLD flux.
wl | left primitive state |
wr | right primitive state |
f | flux |
lambda_max | optional H-viscosity parameter |
Definition at line 217 of file riemann_solvers.f90.
REAL(KIND=qPREC) function HLLD | ( | REAL(KIND=qPrec), dimension(:) | wl, |
REAL(KIND=qPrec), dimension(:) | wr, | ||
REAL(KIND=qPrec), dimension(:) | f, | ||
REAL(KIND=qPREC), optional | lambda_max | ||
) |
Calculate HLLD flux for an ideal eos.
wl | left primitive state |
wr | right primitive state |
f | flux |
lambda_max | optional H-viscosity parameter |
Definition at line 386 of file riemann_solvers.f90.
REAL(KIND=qPREC) function HLLC | ( | REAL(KIND=qPrec), dimension(:) | wl, |
REAL(KIND=qPrec), dimension(:) | wr, | ||
REAL(KIND=qPrec), dimension(:) | f, | ||
REAL(KIND=qPREC), optional | lambda_max | ||
) |
Calculate HLLC flux for an ideal gas eos.
wl | left primitive state |
wr | right primitive state |
f | flux |
lambda_max | optional H-viscosity parameter |
Definition at line 569 of file riemann_solvers.f90.
REAL(KIND=qPREC) function HLL | ( | REAL(KIND=qPrec), dimension(:) | wleft, |
REAL(KIND=qPrec), dimension(:) | wright, | ||
REAL(KIND=qPrec), dimension(:) | f, | ||
REAL(KIND=qPREC), optional | lambda_max | ||
) |
Calculate HLL flux for an ideal EOS.
wleft | left primitive state |
wright | right primitive state |
f | flux |
lambda_max | optional H-viscosity parameter |
Definition at line 663 of file riemann_solvers.f90.
REAL(KIND=qPREC) function HLL_MHD | ( | REAL(KIND=qPrec), dimension(:) | wleft, |
REAL(KIND=qPrec), dimension(:) | wright, | ||
REAL(KIND=qPrec), dimension(:) | f, | ||
REAL(KIND=qPREC), optional | lambda_max | ||
) |
Calculate HLL flux for an ideal EOS.
wleft | left primitive state |
wright | right primitive state |
f | flux |
lambda_max | optional H-viscosity parameter |
Definition at line 729 of file riemann_solvers.f90.
REAL(KIND=qPREC) function ExactRS | ( | REAL(KIND=qPrec), dimension(:) | wl, |
REAL(KIND=qPrec), dimension(:) | wr, | ||
REAL(KIND=qPrec), dimension(:) | f, | ||
REAL(KIND=qPREC), optional | lambda_max | ||
) |
Calculate the exact solution given an ideal EOS.
wl | left primitive state |
wr | right primitive state |
f | flux |
lambda_max | optional H-viscosity parameter |
Definition at line 794 of file riemann_solvers.f90.
subroutine riemann | ( | REAL(KIND=qPrec), dimension(:) | WLeft, |
REAL(KIND=qPrec), dimension(:) | WRight, | ||
REAL(KIND=qPrec), dimension(:) | WMiddle, | ||
REAL(KIND=qPrec) | max_speed | ||
) |
Calculate interface state for exact riemann solver.
WLeft | left primitive state |
WRight | right primitive state |
WMiddle | interface primitive state |
Definition at line 812 of file riemann_solvers.f90.
subroutine vacuum_solve | ( | REAL(KIND=qPrec), dimension(3) | Left, |
REAL(KIND=qPrec), dimension(3) | Right, | ||
REAL(KIND=qPrec), dimension(3) | Middle, | ||
REAL(KIND=qPrec) | UM, | ||
REAL(KIND=qPrec) | S, | ||
REAL(KIND=qPrec) | max_speed | ||
) |
Routine for solving for interface state.
Left | Left primitive state |
Right | Right primitive state |
Middle | interface primitive state |
UM | velocity of interface state |
S | Sample speed |
Definition at line 836 of file riemann_solvers.f90.
subroutine STARPU | ( | REAL(KIND=qPrec), dimension(3) | Left, |
REAL(KIND=qPrec), dimension(3) | Right, | ||
REAL(KIND=qPrec) | CL, | ||
REAL(KIND=qPrec) | CR, | ||
REAL(KIND=qPrec) | PM, | ||
REAL(KIND=qPrec) | UM | ||
) |
Calculate velocity of interface state.
Definition at line 920 of file riemann_solvers.f90.
subroutine SAMPLE | ( | REAL(KIND=qPrec) | PM, |
REAL(KIND=qPrec) | UM, | ||
REAL(KIND=qPrec) | S, | ||
REAL(KIND=qPrec), dimension(3) | Left, | ||
REAL(KIND=qPrec), dimension(3) | Right, | ||
REAL(KIND=qPrec), dimension(3) | Middle, | ||
REAL(KIND=qPrec) | CL, | ||
REAL(KIND=qPrec) | CR, | ||
REAL(KIND=qPREC) | max_speed | ||
) |
No idea.
Definition at line 954 of file riemann_solvers.f90.
subroutine guessp | ( | REAL(KIND=qPrec), dimension(3) | Left, |
REAL(KIND=qPrec), dimension(3) | Right, | ||
REAL(KIND=qPrec) | CL, | ||
REAL(KIND=qPrec) | CR, | ||
REAL(KIND=qPrec) | PM | ||
) |
Completely clueless.
Definition at line 1030 of file riemann_solvers.f90.
subroutine PREFUN | ( | REAL(KIND=qPrec) | F, |
REAL(KIND=qPrec) | FD, | ||
REAL(KIND=qPrec) | Pstar, | ||
REAL(KIND=qPrec), dimension(3) | WK, | ||
REAL(KIND=qPrec) | CK | ||
) |
Called before having any fun.
Definition at line 1058 of file riemann_solvers.f90.
INTEGER, parameter, public iHLL = 3 |
Definition at line 39 of file riemann_solvers.f90.
INTEGER, parameter, public iHLLC = 2 |
Definition at line 39 of file riemann_solvers.f90.
INTEGER, parameter, public iHLLD = 6 |
Definition at line 39 of file riemann_solvers.f90.
INTEGER, parameter, public iExactRS = 1 |
Definition at line 39 of file riemann_solvers.f90.
INTEGER, parameter, public iHLLC_ISO = 4 |
Definition at line 39 of file riemann_solvers.f90.
INTEGER, parameter, public iHLLD_ISO = 8 |
Definition at line 39 of file riemann_solvers.f90.
INTEGER, parameter, public iHLL_MHD = 7 |
Definition at line 39 of file riemann_solvers.f90.