shr_wv_sat_mod Module

Derived Types

type, public :: ShrWVSatTableSpec

Components

Type	Visibility	Attributes		Name		Initial
integer,	public		::	table_size
real(kind=rk),	public		::	minimum
real(kind=rk),	public		::	spacing

Functions

public pure function shr_wv_sat_get_scheme_idx(name) result(idx)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	name

Return Value integer

public pure function shr_wv_sat_valid_idx(idx) result(status)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	idx

Return Value logical

public function shr_wv_sat_set_default(name) result(status)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	name

Return Value logical

public elemental function shr_wv_sat_svp_to_qsat(es, p) result(qs)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=rk),	intent(in)			::	es
real(kind=rk),	intent(in)			::	p

Return Value real(kind=rk)

public elemental function shr_wv_sat_svp_to_qmmr(es, p) result(qs)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=rk),	intent(in)			::	es
real(kind=rk),	intent(in)			::	p

Return Value real(kind=rk)

public elemental function shr_wv_sat_svp_liquid(t, idx) result(es)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=rk),	intent(in)			::	t
integer,	intent(in),	optional		::	idx

Return Value real(kind=rk)

public elemental function shr_wv_sat_svp_ice(t, idx) result(es)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=rk),	intent(in)			::	t
integer,	intent(in),	optional		::	idx

Return Value real(kind=rk)

public elemental function shr_wv_sat_svp_mixed(t, idx) result(es)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=rk),	intent(in)			::	t
integer,	intent(in),	optional		::	idx

Return Value real(kind=rk)

Subroutines

public subroutine shr_wv_sat_init(tmelt_in, h2otrip_in, ttrice_in, epsilo_in, errstring)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=rk),	intent(in)			::	tmelt_in
real(kind=rk),	intent(in)			::	h2otrip_in
real(kind=rk),	intent(in)			::	ttrice_in
real(kind=rk),	intent(in)			::	epsilo_in
character(len=*),	intent(out)			::	errstring

public subroutine shr_wv_sat_final()

Arguments

None

public subroutine shr_wv_sat_make_tables(liquid_spec_in, ice_spec_in, mixed_spec_in)

Arguments

Type	Intent	Optional	Attributes		Name
type(ShrWVSatTableSpec),	intent(in),	optional		::	liquid_spec_in
type(ShrWVSatTableSpec),	intent(in),	optional		::	ice_spec_in
type(ShrWVSatTableSpec),	intent(in),	optional		::	mixed_spec_in

public elemental subroutine shr_wv_sat_qsat_liquid(t, p, es, qs, idx)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=rk),	intent(in)			::	t
real(kind=rk),	intent(in)			::	p
real(kind=rk),	intent(out)			::	es
real(kind=rk),	intent(out)			::	qs
integer,	intent(in),	optional		::	idx

public elemental subroutine shr_wv_sat_qsat_ice(t, p, es, qs, idx)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=rk),	intent(in)			::	t
real(kind=rk),	intent(in)			::	p
real(kind=rk),	intent(out)			::	es
real(kind=rk),	intent(out)			::	qs
integer,	intent(in),	optional		::	idx

public elemental subroutine shr_wv_sat_qsat_mixed(t, p, es, qs, idx)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=rk),	intent(in)			::	t
real(kind=rk),	intent(in)			::	p
real(kind=rk),	intent(out)			::	es
real(kind=rk),	intent(out)			::	qs
integer,	intent(in),	optional		::	idx