iapws__g704 Module

Module for IAPWS G7-04. EFGH coefficients for gases in heavywater. ai and bi coefficients for water


Uses

  • module~~iapws__g704~~UsesGraph module~iapws__g704 iapws__g704 ieee_arithmetic ieee_arithmetic module~iapws__g704->ieee_arithmetic module~iapws__r283 iapws__r283 module~iapws__g704->module~iapws__r283 stdlib_kinds stdlib_kinds module~iapws__g704->stdlib_kinds module~iapws__r283->stdlib_kinds

Used by

  • module~~iapws__g704~~UsedByGraph module~iapws__g704 iapws__g704 module~capi__g704 capi__g704 module~capi__g704->module~iapws__g704 module~iapws iapws module~iapws->module~iapws__g704 module~capi capi module~iapws->module~capi module~capi->module~capi__g704

Derived Types

type, public ::  gas_type

Derived type containing a allocatable string for representing a gas.

Components

Type Visibility Attributes Name Initial
character(len=:), public, allocatable :: gas

Gas

Functions

public function gases(heavywater) result(list_gases)

Returns the list of available gases.

Arguments

Type IntentOptional Attributes Name
integer(kind=int32), intent(in) :: heavywater

Flag if D2O (1) is used or H2O(0).

Return Value type(gas_type), pointer, (:)

Available gases.

public function gases2(heavywater) result(str_gases)

Returns the available gases as a string.

Arguments

Type IntentOptional Attributes Name
integer(kind=int32), intent(in) :: heavywater

Flag if D2O (1) is used or H2O(0).

Return Value character(len=:), pointer

Available gases

public pure function ngases(heavywater) result(n)

Returns the number of gases.

Arguments

Type IntentOptional Attributes Name
integer(kind=int32), intent(in) :: heavywater

Flag if D2O (1) is used or H2O(0).

Return Value integer(kind=int32)

Number of gases.


Subroutines

public pure subroutine kd(T, gas, heavywater, k)

Compute the vapor-liquid constant kd for a given temperature.

Arguments

Type IntentOptional Attributes Name
real(kind=dp), intent(in) :: T(:)

Temperature in °C.
character(len=*), intent(in) :: gas

Gas.
integer(kind=int32), intent(in) :: heavywater

Flag if D2O (1) is used or H2O(0).
real(kind=dp), intent(out) :: k(:)

Vapor-liquid constant. Filled with NaNs if gas not found.

public pure subroutine kh(T, gas, heavywater, k)

Compute the henry constant kH for a given temperature.

Arguments

Type IntentOptional Attributes Name
real(kind=dp), intent(in) :: T(:)

Temperature in °C.
character(len=*), intent(in) :: gas

Gas.
integer(kind=int32), intent(in) :: heavywater

Flag if D2O (1) is used or H2O(0).
real(kind=dp), intent(out) :: k(:)

Henry constant. Filled with NaNs if gas not found.