iapws__r797 Module

Module for IAPWS R7-97: Not fully implemented - under development.

Uses

- stdlib_kinds
- iapws__r283
- ieee_arithmetic
Help

Graph Key

Nodes of different colours represent the following:

Solid arrows point from a submodule to the (sub)module which it is descended from. Dashed arrows point from a module or program unit to modules which it uses.
Where possible, edges connecting nodes are given different colours to make them easier to distinguish in large graphs.

Used by

Help

Graph Key

Nodes of different colours represent the following:

Solid arrows point from a submodule to the (sub)module which it is descended from. Dashed arrows point from a module or program unit to modules which it uses.
Where possible, edges connecting nodes are given different colours to make them easier to distinguish in large graphs.

Functions

public pure elemental function iapws_r797_v(P, T) result(res)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(in)			::	P
real(kind=dp),	intent(in)			::	T

Return Value real(kind=dp)

Subroutines

public pure subroutine Tsat(ps, Ts)

Compute the saturation temperature at pressure ps. Validity range 611.213 Pa <= ps <= 22.064 MPa.

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(in)			::	ps(:)	Saturation pressure in MPa.
real(kind=dp),	intent(out)			::	Ts(:)	Saturation temperature in K. Filled with nan if out of validity range.

public pure subroutine psat(Ts, ps)

Compute the saturation pressure at temperature Ts. Validity range 273.13 K <= Ts <= 647.096 K.

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(in)			::	Ts(:)	Saturation temperature in K.
real(kind=dp),	intent(out)			::	ps(:)	Saturation pressure in MPa. Filled with nan if out of validity range.