MPI-AMRVAC
3.1
The MPI - Adaptive Mesh Refinement - Versatile Advection Code
|
Module with Roe-type Riemann solver for hydrodynamics. More...
Functions/Subroutines | |
subroutine, public | rhd_roe_init () |
subroutine | rhd_average (wL, wR, x, ixL, idim, wroe, workroe) |
Calculate the Roe average of w, assignment of variables: rho -> rho, m -> v, e -> h. More... | |
subroutine | average2 (wL, wR, x, ixL, idim, wroe, tmp, tmp2) |
subroutine | rhd_get_eigenjump (wL, wR, wroe, x, ixL, il, idim, smalla, a, jump, workroe) |
Calculate the il-th characteristic speed and the jump in the il-th characteristic variable in the idim direction within ixL. The eigenvalues and the L=R**(-1) matrix is calculated from wroe. jump(il)=Sum_il L(il,iw)*(wR(iw)-wL(iw)) More... | |
subroutine | geteigenjump2 (wL, wR, wroe, x, ixL, il, idim, smalla, a, jump, csound, dpperc2, dvperc) |
subroutine | rhd_rtimes (q, wroe, ixL, iw, il, idim, rq, workroe) |
Multiply q by R(il,iw), where R is the right eigenvalue matrix at wroe. More... | |
subroutine | rtimes2 (q, wroe, ixL, iw, il, idim, rq, csound) |
subroutine | rhd_average_iso (wL, wR, x, ixL, idim, wroe, workroe) |
subroutine | average2_iso (wL, wR, x, ixL, idim, wroe, tmp) |
subroutine | rhd_get_eigenjump_iso (wL, wR, wroe, x, ixL, il, idim, smalla, a, jump, workroe) |
subroutine | geteigenjump2_iso (wL, wR, wroe, x, ixL, il, idim, smalla, a, jump, csound) |
subroutine | rhd_rtimes_iso (q, wroe, ixL, iw, il, idim, rq, workroe) |
subroutine | rtimes2_iso (q, wroe, ixL, iw, il, idim, rq, csound) |
Module with Roe-type Riemann solver for hydrodynamics.
subroutine mod_rhd_roe::average2 | ( | double precision, dimension(ixg^t,nw) | wL, |
double precision, dimension(ixg^t,nw) | wR, | ||
double precision, dimension(ixg^t,ndim), intent(in) | x, | ||
integer | ix, | ||
integer | L, | ||
integer | idim, | ||
double precision, dimension(ixg^t,nw) | wroe, | ||
double precision, dimension(ixg^t) | tmp, | ||
double precision, dimension(ixg^t) | tmp2 | ||
) |
Definition at line 97 of file mod_rhd_roe.t.
subroutine mod_rhd_roe::average2_iso | ( | double precision, dimension(ixg^t,nw) | wL, |
double precision, dimension(ixg^t,nw) | wR, | ||
double precision, dimension(ixg^t,1:ndim), intent(in) | x, | ||
integer | ix, | ||
integer | L, | ||
integer | idim, | ||
double precision, dimension(ixg^t,nw) | wroe, | ||
double precision, dimension(ixg^t) | tmp | ||
) |
Definition at line 311 of file mod_rhd_roe.t.
subroutine mod_rhd_roe::geteigenjump2 | ( | double precision, dimension(ixg^t,nw) | wL, |
double precision, dimension(ixg^t,nw) | wR, | ||
double precision, dimension(ixg^t,nw) | wroe, | ||
double precision, dimension(ixg^t,ndim), intent(in) | x, | ||
integer | ix, | ||
integer | L, | ||
integer | il, | ||
integer | idim, | ||
double precision, dimension(ixg^t) | smalla, | ||
double precision, dimension(ixg^t) | a, | ||
double precision, dimension(ixg^t) | jump, | ||
double precision, dimension(ixg^t) | csound, | ||
double precision, dimension(ixg^t) | dpperc2, | ||
double precision, dimension(ixg^t) | dvperc | ||
) |
subroutine mod_rhd_roe::geteigenjump2_iso | ( | double precision, dimension(ixg^t,nw) | wL, |
double precision, dimension(ixg^t,nw) | wR, | ||
double precision, dimension(ixg^t,nw) | wroe, | ||
double precision, dimension(ixg^t,1:ndim), intent(in) | x, | ||
integer | ix, | ||
integer | L, | ||
integer | il, | ||
integer | idim, | ||
double precision, dimension(ixg^t) | smalla, | ||
double precision, dimension(ixg^t) | a, | ||
double precision, dimension(ixg^t) | jump, | ||
double precision, dimension(ixg^t) | csound | ||
) |
subroutine mod_rhd_roe::rhd_average | ( | double precision, dimension(ixg^t, nw), intent(in) | wL, |
double precision, dimension(ixg^t, nw), intent(in) | wR, | ||
double precision, dimension(ixg^t, 1:^nd), intent(in) | x, | ||
integer, intent(in) | ix, | ||
integer, intent(in) | L, | ||
integer, intent(in) | idim, | ||
double precision, dimension(ixg^t, nw), intent(inout) | wroe, | ||
double precision, dimension(ixg^t, nworkroe), intent(inout) | workroe | ||
) |
Calculate the Roe average of w, assignment of variables: rho -> rho, m -> v, e -> h.
Definition at line 61 of file mod_rhd_roe.t.
subroutine mod_rhd_roe::rhd_average_iso | ( | double precision, dimension(ixg^t, nw), intent(in) | wL, |
double precision, dimension(ixg^t, nw), intent(in) | wR, | ||
double precision, dimension(ixg^t, 1:^nd), intent(in) | x, | ||
integer, intent(in) | ix, | ||
integer, intent(in) | L, | ||
integer, intent(in) | idim, | ||
double precision, dimension(ixg^t, nw), intent(inout) | wroe, | ||
double precision, dimension(ixg^t, nworkroe), intent(inout) | workroe | ||
) |
subroutine mod_rhd_roe::rhd_get_eigenjump | ( | double precision, dimension(ixg^t,nw) | wL, |
double precision, dimension(ixg^t,nw) | wR, | ||
double precision, dimension(ixg^t,nw) | wroe, | ||
double precision, dimension(ixg^t,ndim), intent(in) | x, | ||
integer, intent(in) | ix, | ||
integer, intent(in) | L, | ||
integer, intent(in) | il, | ||
integer, intent(in) | idim, | ||
double precision, dimension(ixg^t) | smalla, | ||
double precision, dimension(ixg^t) | a, | ||
double precision, dimension(ixg^t) | jump, | ||
double precision, dimension(ixg^t,nworkroe) | workroe | ||
) |
Calculate the il-th characteristic speed and the jump in the il-th characteristic variable in the idim direction within ixL. The eigenvalues and the L=R**(-1) matrix is calculated from wroe. jump(il)=Sum_il L(il,iw)*(wR(iw)-wL(iw))
Definition at line 117 of file mod_rhd_roe.t.
subroutine mod_rhd_roe::rhd_get_eigenjump_iso | ( | double precision, dimension(ixg^t,nw) | wL, |
double precision, dimension(ixg^t,nw) | wR, | ||
double precision, dimension(ixg^t,nw) | wroe, | ||
double precision, dimension(ixg^t,1:ndim), intent(in) | x, | ||
integer, intent(in) | ix, | ||
integer, intent(in) | L, | ||
integer, intent(in) | il, | ||
integer, intent(in) | idim, | ||
double precision, dimension(ixg^t) | smalla, | ||
double precision, dimension(ixg^t) | a, | ||
double precision, dimension(ixg^t) | jump, | ||
double precision, dimension(ixg^t,nworkroe) | workroe | ||
) |
subroutine, public mod_rhd_roe::rhd_roe_init |
subroutine mod_rhd_roe::rhd_rtimes | ( | double precision, dimension(ixg^t), intent(in) | q, |
double precision, dimension(ixg^t,nw), intent(in) | wroe, | ||
integer, intent(in) | ix, | ||
integer, intent(in) | L, | ||
integer, intent(in) | iw, | ||
integer, intent(in) | il, | ||
integer, intent(in) | idim, | ||
double precision, dimension(ixg^t), intent(inout) | rq, | ||
double precision, dimension(ixg^t,nworkroe), intent(inout) | workroe | ||
) |
Multiply q by R(il,iw), where R is the right eigenvalue matrix at wroe.
Definition at line 223 of file mod_rhd_roe.t.
subroutine mod_rhd_roe::rhd_rtimes_iso | ( | double precision, dimension(ixg^t), intent(in) | q, |
double precision, dimension(ixg^t,nw), intent(in) | wroe, | ||
integer, intent(in) | ix, | ||
integer, intent(in) | L, | ||
integer, intent(in) | iw, | ||
integer, intent(in) | il, | ||
integer, intent(in) | idim, | ||
double precision, dimension(ixg^t), intent(inout) | rq, | ||
double precision, dimension(ixg^t,nworkroe), intent(inout) | workroe | ||
) |
subroutine mod_rhd_roe::rtimes2 | ( | double precision, dimension(ixg^t) | q, |
double precision, dimension(ixg^t,nw) | wroe, | ||
integer | ix, | ||
integer | L, | ||
integer | iw, | ||
integer | il, | ||
integer | idim, | ||
double precision, dimension(ixg^t) | rq, | ||
double precision, dimension(ixg^t) | csound | ||
) |
Definition at line 235 of file mod_rhd_roe.t.
subroutine mod_rhd_roe::rtimes2_iso | ( | double precision, dimension(ixg^t) | q, |
double precision, dimension(ixg^t,nw) | wroe, | ||
integer | ix, | ||
integer | L, | ||
integer | iw, | ||
integer | il, | ||
integer | idim, | ||
double precision, dimension(ixg^t) | rq, | ||
double precision, dimension(ixg^t) | csound | ||
) |
Definition at line 484 of file mod_rhd_roe.t.