d03pwf calculates a numerical flux function using a modified HLL (Harten–Lax–van Leer) Approximate Riemann Solver for the Euler equations in conservative form. It is designed primarily for use with the upwind discretization schemes d03pff, d03plf or d03psf, but may also be applicable to other conservative upwind schemes requiring numerical flux functions.

2 Specification

Fortran Interface

Subroutine d03pwf (

uleft, uright, gamma, flux, ifail)

Integer, Intent (Inout)	::	ifail
Real (Kind=nag_wp), Intent (In)	::	uleft(3), uright(3), gamma
Real (Kind=nag_wp), Intent (Out)	::	flux(3)

C Header Interface

#include <nag.h>

void	d03pwf_ (const double uleft[], const double uright[], const double gamma, double flux[], Integer ifail)

The routine may be called by the names d03pwf or nagf_pde_dim1_parab_euler_hll.

3 Description

d03pwf calculates a numerical flux function at a single spatial point using a modified HLL (Harten–Lax–van Leer) Approximate Riemann Solver (see Toro (1992), Toro (1996) and Toro et al. (1994)) for the Euler equations (for a perfect gas) in conservative form. You must supply the left and right solution values at the point where the numerical flux is required, i.e., the initial left and right states of the Riemann problem defined below. In d03pff, d03plf and d03psf, the left and right solution values are derived automatically from the solution values at adjacent spatial points and supplied to the subroutine argument numflx from which you may call d03pwf.

The Euler equations for a perfect gas in conservative form are:

\frac{\partial U}{\partial t} + \frac{\partial F}{\partial x} = 0,

(1)

with

U = [\begin{matrix} ρ \\ m \\ e \end{matrix}] and F = [\begin{matrix} m \\ \frac{m^{2}}{ρ} + (γ - 1) (e - \frac{m^{2}}{2 ρ}) \\ \frac{m e}{ρ} + \frac{m}{ρ} (γ - 1) (e - \frac{m^{2}}{2 ρ}) \end{matrix}],

(2)

where

ρ

is the density,

m

is the momentum,

e

is the specific total energy and

γ

is the (constant) ratio of specific heats. The pressure

p

is given by

p = (γ - 1) (e - \frac{ρ u^{2}}{2}),

(3)

where

u = m / ρ

is the velocity.

The routine calculates an approximation to the numerical flux function

F (U_{L}, U_{R}) = F (U^{*} (U_{L}, U_{R}))

, where

U = U_{L}

and

U = U_{R}

are the left and right solution values, and

U^{*} (U_{L}, U_{R})

is the intermediate state

ω (0)

arising from the similarity solution

U (y, t) = ω (y / t)

of the Riemann problem defined by

\frac{\partial U}{\partial t} + \frac{\partial F}{\partial y} = 0,

(4)

with

U

and

F

as in (2), and initial piecewise constant values

U = U_{L}

for

y < 0

and

U = U_{R}

for

y > 0

. The spatial domain is

- \infty < y < \infty

, where

y = 0

is the point at which the numerical flux is required.

4 References

Toro E F (1992) The weighted average flux method applied to the Euler equations Phil. Trans. R. Soc. Lond. A341 499–530

Toro E F (1996) Riemann Solvers and Upwind Methods for Fluid Dynamics Springer–Verlag

Toro E F, Spruce M and Spears W (1994) Restoration of the contact surface in the HLL Riemann solver J. Shock Waves 4 25–34

5 Arguments

1: $uleft (3)$ – Real (Kind=nag_wp) array Input

On entry:

uleft (i)

must contain the left value of the component

U_{i}

, for

i = 1, 2, 3

. That is,

uleft (1)

must contain the left value of

ρ

uleft (2)

must contain the left value of

m

and

uleft (3)

must contain the left value of

e

Constraints:

$uleft (1) \geq 0.0$ ;
Left pressure, $pl \geq 0.0$ , where $pl$ is calculated using (3).

2: $uright (3)$ – Real (Kind=nag_wp) array Input

On entry:

uright (i)

must contain the right value of the component

U_{i}

, for

i = 1, 2, 3

. That is,

uright (1)

must contain the right value of

ρ

uright (2)

must contain the right value of

m

and

uright (3)

must contain the right value of

e

Constraints:

$uright (1) \geq 0.0$ ;
Right pressure, $pr \geq 0.0$ , where $pr$ is calculated using (3).

3: $gamma$ – Real (Kind=nag_wp) Input

On entry: the ratio of specific heats,

γ

Constraint:

gamma > 0.0

4: $flux (3)$ – Real (Kind=nag_wp) array Output

On exit:

flux (i)

contains the numerical flux component

{\hat{F}}_{i}

, for

i = 1, 2, 3

5: $ifail$ – Integer Input/Output

On entry: ifail must be set to

0

- 1

1

to set behaviour on detection of an error; these values have no effect when no error is detected.

A value of

0

causes the printing of an error message and program execution will be halted; otherwise program execution continues. A value of

- 1

means that an error message is printed while a value of

1

means that it is not.

If halting is not appropriate, the value

- 1

1

is recommended. If message printing is undesirable, then the value

1

is recommended. Otherwise, the value

0

is recommended. When the value $- 1$ or $1$ is used it is essential to test the value of ifail on exit.

On exit:

ifail = 0

unless the routine detects an error or a warning has been flagged (see Section 6).

Note: if the left and/or right values of

ρ

p

(from (3)) are found to be negative, then the routine will terminate with an error exit (

ifail = 2

). If the routine is being called from the numflx etc., then a soft fail option (

ifail = 1

- 1

) is recommended so that a recalculation of the current time step can be forced using the numflx argument ires (see d03pff or d03plf).

6 Error Indicators and Warnings

If on entry

ifail = 0

- 1

, explanatory error messages are output on the current error message unit (as defined by x04aaf).

Errors or warnings detected by the routine:

$ifail = 1$: On entry, $gamma = 〈value〉$ .
Constraint: $gamma > 0.0$ .

$ifail = 2$: Left pressure value $pl < 0.0$ : $pl = 〈value〉$ .

On entry, $uleft (1) = 〈value〉$ .
Constraint: $uleft (1) \geq 0.0$ .

On entry, $uright (1) = 〈value〉$ .
Constraint: $uright (1) \geq 0.0$ .

Right pressure value $pr < 0.0$ : $pr = 〈value〉$ .

$ifail = - 99$: An unexpected error has been triggered by this routine. Please contact NAG.
See Section 7 in the Introduction to the NAG Library FL Interface for further information.

$ifail = - 399$: Your licence key may have expired or may not have been installed correctly.
See Section 8 in the Introduction to the NAG Library FL Interface for further information.

$ifail = - 999$: Dynamic memory allocation failed.
See Section 9 in the Introduction to the NAG Library FL Interface for further information.

7 Accuracy

d03pwf performs an exact calculation of the HLL (Harten–Lax–van Leer) numerical flux function, and so the result will be accurate to machine precision.

8 Parallelism and Performance

d03pwf is not thread safe and should not be called from a multithreaded user program. Please see Section 1 in FL Interface Multithreading for more information on thread safety.

d03pwf is not threaded in any implementation.

9 Further Comments

d03pwf must only be used to calculate the numerical flux for the Euler equations in exactly the form given by (2), with

uleft (i)

and

uright (i)

containing the left and right values of

ρ, m

and

e

, for

i = 1, 2, 3

, respectively. The time taken is independent of the input arguments.

10 Example

This example uses d03plf and d03pwf to solve the Euler equations in the domain

0 \leq x \leq 1

for

0 < t \leq 0.035

with initial conditions for the primitive variables

ρ (x, t)

u (x, t)

and

p (x, t)

given by

\begin{array}{llcrlcrl} ρ (x, 0) = 5.99924, & u (x, 0) = 19.5975, & p (x, 0) = 460.894, & for ​ x < 0.5, \\ ρ (x, 0) = 5.99242, & u (x, 0) = - 6.19633, & p (x, 0) = 46.095, & for ​ x > 0.5 . \end{array}

This test problem is taken from Toro (1996) and its solution represents the collision of two strong shocks travelling in opposite directions, consisting of a left facing shock (travelling slowly to the right), a right travelling contact discontinuity and a right travelling shock wave. There is an exact solution to this problem (see Toro (1996)) but the calculation is lengthy and has therefore been omitted.

d03pw: FL CL CPP AD

NAG FL Interfaced03pwf (dim1_​parab_​euler_​hll)

▸▿ Contents

1 Purpose

2 Specification

3 Description

4 References

5 Arguments

6 Error Indicators and Warnings

7 Accuracy

8 Parallelism and Performance

9 Further Comments

10 Example

10.1 Program Text

10.2 Program Data

10.3 Program Results

NAG FL Interface
d03pwf (dim1_parab_euler_hll)