Calculate the HLL flux given the left an right state.
Properly treat porosity and penalty terms. Currently they are completely ignored!
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(atl_euler_type), | intent(in) | :: | euler | |||
real(kind=rk), | intent(in) | :: | state_left(:,:) | The state on the face from its left limit (in conservative variables). |
||
real(kind=rk), | intent(in) | :: | state_right(:,:) | The state on the face from its right limit (in conservative variables). |
||
real(kind=rk), | intent(in) | :: | material_left(:,:) | The left value of the characteristic function (stemming from penalization) |
||
real(kind=rk), | intent(in) | :: | material_right(:,:) | The right value of the characteristic function (stemming from penalization) |
||
integer, | intent(in) | :: | nPoints | Number of points to evaluate the flux at. |
||
real(kind=rk), | intent(out) | :: | flux(:,:) | Resulting flux for the left element (in conservative variables). |
Type | Visibility | Attributes | Name | Initial | |||
---|---|---|---|---|---|---|---|
real(kind=rk), | private | :: | fcl(5) | ||||
real(kind=rk), | private | :: | fcr(5) | ||||
real(kind=rk), | private | :: | priml(5) | ||||
real(kind=rk), | private | :: | primr(5) | ||||
real(kind=rk), | private | :: | hl | ||||
real(kind=rk), | private | :: | hr | ||||
real(kind=rk), | private | :: | sqrt_rho_r | ||||
real(kind=rk), | private | :: | sqrt_rho_l | ||||
real(kind=rk), | private | :: | u_mean | ||||
real(kind=rk), | private | :: | v_mean | ||||
real(kind=rk), | private | :: | w_mean | ||||
real(kind=rk), | private | :: | h_mean | ||||
real(kind=rk), | private | :: | c_mean | ||||
real(kind=rk), | private | :: | sr | ||||
real(kind=rk), | private | :: | sl | ||||
real(kind=rk), | private | :: | cr | ||||
real(kind=rk), | private | :: | cl | ||||
real(kind=rk), | private | :: | isen_coeff | ||||
real(kind=rk), | private | :: | icm1 | ||||
integer, | private | :: | iPoint | ||||
integer, | private | :: | mm | ||||
integer, | private | :: | mr |