Calculate_HCF

Uses

- iso_fortran_env
- core_allocate
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.

Interfaces

interface

private module function Calculate_HCF_mu_Exponential(Temperature) result(Viscosity)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=real64),	intent(in)			::	Temperature

Return Value real(kind=real64)

interface

private module function Calculate_HCF_mu_Exponential_Supercooled(Temperature) result(Viscosity)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=real64),	intent(in)			::	Temperature

Return Value real(kind=real64)

interface

private module function Calculate_Impedance_Base(Omega, thetaI) result(Impedance)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=real64),	intent(in)			::	Omega
real(kind=real64),	intent(in)			::	thetaI

Return Value real(kind=real64)

interface

private module function Calculate_Kflh_Base_BC(self, h) result(Kflh)

Arguments

Type	Intent	Optional	Attributes		Name
class(Type_HCF_Base_BC),	intent(in)			::	self
real(kind=real64),	intent(in)			::	h

Return Value real(kind=real64)

interface

private module function Calculate_Kflh_Base_DVGCH(self, h) result(Kflh)

Arguments

Type	Intent	Optional	Attributes		Name
class(Type_HCF_Base_DVGCH),	intent(in)			::	self
real(kind=real64),	intent(in)			::	h

Return Value real(kind=real64)

interface

private module function Calculate_Kflh_Base_Durner(self, h) result(Kflh)

Arguments

Type	Intent	Optional	Attributes		Name
class(Type_HCF_Base_Durner),	intent(in)			::	self
real(kind=real64),	intent(in)			::	h

Return Value real(kind=real64)

interface

private module function Calculate_Kflh_Base_Impedance_BC(self, h, thetaI) result(Kflh)

Arguments

Type	Intent		Name
class(Type_HCF_Base_Impedance_BC),	intent(in)	::	self
real(kind=real64),	intent(in)	::	h
real(kind=real64),	intent(in)	::	thetaI

Return Value real(kind=real64)

interface

private module function Calculate_Kflh_Base_Impedance_DVGCH(self, h, thetaI) result(Kflh)

Arguments

Type	Intent		Name
class(Type_HCF_Base_Impedance_DVGCH),	intent(in)	::	self
real(kind=real64),	intent(in)	::	h
real(kind=real64),	intent(in)	::	thetaI

Return Value real(kind=real64)

interface

private module function Calculate_Kflh_Base_Impedance_Durner(self, h, thetaI) result(Kflh)

Arguments

Type	Intent		Name
class(Type_HCF_Base_Impedance_Durner),	intent(in)	::	self
real(kind=real64),	intent(in)	::	h
real(kind=real64),	intent(in)	::	thetaI

Return Value real(kind=real64)

interface

private module function Calculate_Kflh_Base_Impedance_KO(self, h, thetaI) result(Kflh)

Arguments

Type	Intent		Name
class(Type_HCF_Base_Impedance_KO),	intent(in)	::	self
real(kind=real64),	intent(in)	::	h
real(kind=real64),	intent(in)	::	thetaI

Return Value real(kind=real64)

interface

private module function Calculate_Kflh_Base_Impedance_MVG(self, h, thetaI) result(Kflh)

Arguments

Type	Intent		Name
class(Type_HCF_Base_Impedance_MVG),	intent(in)	::	self
real(kind=real64),	intent(in)	::	h
real(kind=real64),	intent(in)	::	thetaI

Return Value real(kind=real64)

interface

private module function Calculate_Kflh_Base_Impedance_VG(self, h, thetaI) result(Kflh)

Arguments

Type	Intent		Name
class(Type_HCF_Base_Impedance_VG),	intent(in)	::	self
real(kind=real64),	intent(in)	::	h
real(kind=real64),	intent(in)	::	thetaI

Return Value real(kind=real64)

interface

private module function Calculate_Kflh_Base_Impedance_Viscosity_BC(self, h, thetaI, Temperature) result(Kflh)

Arguments

Type	Intent		Name
class(Type_HCF_Base_Impedance_Viscosity_BC),	intent(in)	::	self
real(kind=real64),	intent(in)	::	h
real(kind=real64),	intent(in)	::	thetaI
real(kind=real64),	intent(in)	::	Temperature

Return Value real(kind=real64)

interface

private module function Calculate_Kflh_Base_Impedance_Viscosity_DVGCH(self, h, thetaI, Temperature) result(Kflh)

Arguments

Type	Intent		Name
class(Type_HCF_Base_Impedance_Viscosity_DVGCH),	intent(in)	::	self
real(kind=real64),	intent(in)	::	h
real(kind=real64),	intent(in)	::	thetaI
real(kind=real64),	intent(in)	::	Temperature

Return Value real(kind=real64)

interface

private module function Calculate_Kflh_Base_Impedance_Viscosity_Durner(self, h, thetaI, Temperature) result(Kflh)

Arguments

Type	Intent		Name
class(Type_HCF_Base_Impedance_Viscosity_Durner),	intent(in)	::	self
real(kind=real64),	intent(in)	::	h
real(kind=real64),	intent(in)	::	thetaI
real(kind=real64),	intent(in)	::	Temperature

Return Value real(kind=real64)

interface

private module function Calculate_Kflh_Base_Impedance_Viscosity_KO(self, h, thetaI, Temperature) result(Kflh)

Arguments

Type	Intent		Name
class(Type_HCF_Base_Impedance_Viscosity_KO),	intent(in)	::	self
real(kind=real64),	intent(in)	::	h
real(kind=real64),	intent(in)	::	thetaI
real(kind=real64),	intent(in)	::	Temperature

Return Value real(kind=real64)

interface

private module function Calculate_Kflh_Base_Impedance_Viscosity_MVG(self, h, thetaI, Temperature) result(Kflh)

Arguments

Type	Intent		Name
class(Type_HCF_Base_Impedance_Viscosity_MVG),	intent(in)	::	self
real(kind=real64),	intent(in)	::	h
real(kind=real64),	intent(in)	::	thetaI
real(kind=real64),	intent(in)	::	Temperature

Return Value real(kind=real64)

interface

private module function Calculate_Kflh_Base_Impedance_Viscosity_VG(self, h, thetaI, Temperature) result(Kflh)

Arguments

Type	Intent		Name
class(Type_HCF_Base_Impedance_Viscosity_VG),	intent(in)	::	self
real(kind=real64),	intent(in)	::	h
real(kind=real64),	intent(in)	::	thetaI
real(kind=real64),	intent(in)	::	Temperature

Return Value real(kind=real64)

interface

private module function Calculate_Kflh_Base_KO(self, h) result(Kflh)

Arguments

Type	Intent	Optional	Attributes		Name
class(Type_HCF_Base_KO),	intent(in)			::	self
real(kind=real64),	intent(in)			::	h

Return Value real(kind=real64)

interface

private module function Calculate_Kflh_Base_MVG(self, h) result(Kflh)

Arguments

Type	Intent	Optional	Attributes		Name
class(Type_HCF_Base_MVG),	intent(in)			::	self
real(kind=real64),	intent(in)			::	h

Return Value real(kind=real64)

interface

private module function Calculate_Kflh_Base_VG(self, h) result(Kflh)

Arguments

Type	Intent	Optional	Attributes		Name
class(Type_HCF_Base_VG),	intent(in)			::	self
real(kind=real64),	intent(in)			::	h

Return Value real(kind=real64)

interface

private module function Calculate_Kflh_Base_Viscosity_BC(self, h, Temperature) result(Kflh)

Arguments

Type	Intent		Name
class(Type_HCF_Base_Viscosity_BC),	intent(in)	::	self
real(kind=real64),	intent(in)	::	h
real(kind=real64),	intent(in)	::	Temperature

Return Value real(kind=real64)

interface

private module function Calculate_Kflh_Base_Viscosity_DVGCH(self, h, Temperature) result(Kflh)

Arguments

Type	Intent		Name
class(Type_HCF_Base_Viscosity_DVGCH),	intent(in)	::	self
real(kind=real64),	intent(in)	::	h
real(kind=real64),	intent(in)	::	Temperature

Return Value real(kind=real64)

interface

private module function Calculate_Kflh_Base_Viscosity_Durner(self, h, Temperature) result(Kflh)

Arguments

Type	Intent		Name
class(Type_HCF_Base_Viscosity_Durner),	intent(in)	::	self
real(kind=real64),	intent(in)	::	h
real(kind=real64),	intent(in)	::	Temperature

Return Value real(kind=real64)

interface

private module function Calculate_Kflh_Base_Viscosity_KO(self, h, Temperature) result(Kflh)

Arguments

Type	Intent		Name
class(Type_HCF_Base_Viscosity_KO),	intent(in)	::	self
real(kind=real64),	intent(in)	::	h
real(kind=real64),	intent(in)	::	Temperature

Return Value real(kind=real64)

interface

private module function Calculate_Kflh_Base_Viscosity_MVG(self, h, Temperature) result(Kflh)

Arguments

Type	Intent		Name
class(Type_HCF_Base_Viscosity_MVG),	intent(in)	::	self
real(kind=real64),	intent(in)	::	h
real(kind=real64),	intent(in)	::	Temperature

Return Value real(kind=real64)

interface

private module function Calculate_Kflh_Base_Viscosity_VG(self, h, Temperature) result(Kflh)

Arguments

Type	Intent		Name
class(Type_HCF_Base_Viscosity_VG),	intent(in)	::	self
real(kind=real64),	intent(in)	::	h
real(kind=real64),	intent(in)	::	Temperature

Return Value real(kind=real64)

interface

private module function Calculate_Kflh_Impedance(self, thetaI) result(Kflh)

Arguments

Type	Intent	Optional	Attributes		Name
class(Type_HCF_Impedance),	intent(in)			::	self
real(kind=real64),	intent(in)			::	thetaI

Return Value real(kind=real64)

interface

private module function Calculate_Kflh_Impedance_Viscosity(self, thetaI, Temperature) result(Kflh)

Arguments

Type	Intent		Name
class(Type_HCF_Impedance_Viscosity),	intent(in)	::	self
real(kind=real64),	intent(in)	::	thetaI
real(kind=real64),	intent(in)	::	Temperature

Return Value real(kind=real64)

interface

private module function Calculate_Kflh_Viscosity(self, Temperature) result(Kflh)

Arguments

Type	Intent	Optional	Attributes		Name
class(Type_HCF_Viscosity),	intent(in)			::	self
real(kind=real64),	intent(in)			::	Temperature

Return Value real(kind=real64)

interface

private module function Calculate_kr_BC_Base(alpha1, n1, l, h) result(kr)

Arguments

Type	Intent		Name
real(kind=real64),	intent(in)	::	alpha1
real(kind=real64),	intent(in)	::	n1
real(kind=real64),	intent(in)	::	l
real(kind=real64),	intent(in)	::	h

Return Value real(kind=real64)

interface

private module function Calculate_kr_Base_BC(self, h) result(kr)

Arguments

Type	Intent	Optional	Attributes		Name
class(Type_HCF_Base_BC),	intent(in)			::	self
real(kind=real64),	intent(in)			::	h

Return Value real(kind=real64)

interface

private module function Calculate_kr_Base_DVGCH(self, h) result(kr)

Arguments

Type	Intent	Optional	Attributes		Name
class(Type_HCF_Base_DVGCH),	intent(in)			::	self
real(kind=real64),	intent(in)			::	h

Return Value real(kind=real64)

interface

private module function Calculate_kr_Base_Durner(self, h) result(kr)

Arguments

Type	Intent	Optional	Attributes		Name
class(Type_HCF_Base_Durner),	intent(in)			::	self
real(kind=real64),	intent(in)			::	h

Return Value real(kind=real64)

interface

private module function Calculate_kr_Base_Impedance_BC(self, h) result(kr)

Arguments

Type	Intent	Optional	Attributes		Name
class(Type_HCF_Base_Impedance_BC),	intent(in)			::	self
real(kind=real64),	intent(in)			::	h

Return Value real(kind=real64)

interface

private module function Calculate_kr_Base_Impedance_DVGCH(self, h) result(kr)

Arguments

Type	Intent	Optional	Attributes		Name
class(Type_HCF_Base_Impedance_DVGCH),	intent(in)			::	self
real(kind=real64),	intent(in)			::	h

Return Value real(kind=real64)

interface

private module function Calculate_kr_Base_Impedance_Durner(self, h) result(kr)

Arguments

Type	Intent	Optional	Attributes		Name
class(Type_HCF_Base_Impedance_Durner),	intent(in)			::	self
real(kind=real64),	intent(in)			::	h

Return Value real(kind=real64)

interface

private module function Calculate_kr_Base_Impedance_KO(self, h) result(kr)

Arguments

Type	Intent	Optional	Attributes		Name
class(Type_HCF_Base_Impedance_KO),	intent(in)			::	self
real(kind=real64),	intent(in)			::	h

Return Value real(kind=real64)

interface

private module function Calculate_kr_Base_Impedance_MVG(self, h) result(kr)

Arguments

Type	Intent	Optional	Attributes		Name
class(Type_HCF_Base_Impedance_MVG),	intent(in)			::	self
real(kind=real64),	intent(in)			::	h

Return Value real(kind=real64)

interface

private module function Calculate_kr_Base_Impedance_VG(self, h) result(kr)

Arguments

Type	Intent	Optional	Attributes		Name
class(Type_HCF_Base_Impedance_VG),	intent(in)			::	self
real(kind=real64),	intent(in)			::	h

Return Value real(kind=real64)

interface

private module function Calculate_kr_Base_Impedance_Viscosity_BC(self, h) result(kr)

Arguments

Type	Intent	Optional	Attributes		Name
class(Type_HCF_Base_Impedance_Viscosity_BC),	intent(in)			::	self
real(kind=real64),	intent(in)			::	h

Return Value real(kind=real64)

interface

private module function Calculate_kr_Base_Impedance_Viscosity_DVGCH(self, h) result(kr)

Arguments

Type	Intent	Optional	Attributes		Name
class(Type_HCF_Base_Impedance_Viscosity_DVGCH),	intent(in)			::	self
real(kind=real64),	intent(in)			::	h

Return Value real(kind=real64)

interface

private module function Calculate_kr_Base_Impedance_Viscosity_Durner(self, h) result(kr)

Arguments

Type	Intent	Optional	Attributes		Name
class(Type_HCF_Base_Impedance_Viscosity_Durner),	intent(in)			::	self
real(kind=real64),	intent(in)			::	h

Return Value real(kind=real64)

interface

private module function Calculate_kr_Base_Impedance_Viscosity_KO(self, h) result(kr)

Arguments

Type	Intent	Optional	Attributes		Name
class(Type_HCF_Base_Impedance_Viscosity_KO),	intent(in)			::	self
real(kind=real64),	intent(in)			::	h

Return Value real(kind=real64)

interface

private module function Calculate_kr_Base_Impedance_Viscosity_MVG(self, h) result(kr)

Arguments

Type	Intent	Optional	Attributes		Name
class(Type_HCF_Base_Impedance_Viscosity_MVG),	intent(in)			::	self
real(kind=real64),	intent(in)			::	h

Return Value real(kind=real64)

interface

private module function Calculate_kr_Base_Impedance_Viscosity_VG(self, h) result(kr)

Arguments

Type	Intent	Optional	Attributes		Name
class(Type_HCF_Base_Impedance_Viscosity_VG),	intent(in)			::	self
real(kind=real64),	intent(in)			::	h

Return Value real(kind=real64)

interface

private module function Calculate_kr_Base_KO(self, h) result(kr)

Arguments

Type	Intent	Optional	Attributes		Name
class(Type_HCF_Base_KO),	intent(in)			::	self
real(kind=real64),	intent(in)			::	h

Return Value real(kind=real64)

interface

private module function Calculate_kr_Base_MVG(self, h) result(kr)

Arguments

Type	Intent	Optional	Attributes		Name
class(Type_HCF_Base_MVG),	intent(in)			::	self
real(kind=real64),	intent(in)			::	h

Return Value real(kind=real64)

interface

private module function Calculate_kr_Base_VG(self, h) result(kr)

Arguments

Type	Intent	Optional	Attributes		Name
class(Type_HCF_Base_VG),	intent(in)			::	self
real(kind=real64),	intent(in)			::	h

Return Value real(kind=real64)

interface

private module function Calculate_kr_Base_Viscosity_BC(self, h) result(kr)

Arguments

Type	Intent	Optional	Attributes		Name
class(Type_HCF_Base_Viscosity_BC),	intent(in)			::	self
real(kind=real64),	intent(in)			::	h

Return Value real(kind=real64)

interface

private module function Calculate_kr_Base_Viscosity_DVGCH(self, h) result(kr)

Arguments

Type	Intent	Optional	Attributes		Name
class(Type_HCF_Base_Viscosity_DVGCH),	intent(in)			::	self
real(kind=real64),	intent(in)			::	h

Return Value real(kind=real64)

interface

private module function Calculate_kr_Base_Viscosity_Durner(self, h) result(kr)

Arguments

Type	Intent	Optional	Attributes		Name
class(Type_HCF_Base_Viscosity_Durner),	intent(in)			::	self
real(kind=real64),	intent(in)			::	h

Return Value real(kind=real64)

interface

private module function Calculate_kr_Base_Viscosity_KO(self, h) result(kr)

Arguments

Type	Intent	Optional	Attributes		Name
class(Type_HCF_Base_Viscosity_KO),	intent(in)			::	self
real(kind=real64),	intent(in)			::	h

Return Value real(kind=real64)

interface

private module function Calculate_kr_Base_Viscosity_MVG(self, h) result(kr)

Arguments

Type	Intent	Optional	Attributes		Name
class(Type_HCF_Base_Viscosity_MVG),	intent(in)			::	self
real(kind=real64),	intent(in)			::	h

Return Value real(kind=real64)

interface

private module function Calculate_kr_Base_Viscosity_VG(self, h) result(kr)

Arguments

Type	Intent	Optional	Attributes		Name
class(Type_HCF_Base_Viscosity_VG),	intent(in)			::	self
real(kind=real64),	intent(in)			::	h

Return Value real(kind=real64)

interface

private module function Calculate_kr_DVGCH_Base(alpha1, n1, m1, w1, n2, m2, w2, l, h) result(kr)

Arguments

Type	Intent		Name
real(kind=real64),	intent(in)	::	alpha1
real(kind=real64),	intent(in)	::	n1
real(kind=real64),	intent(in)	::	m1
real(kind=real64),	intent(in)	::	w1
real(kind=real64),	intent(in)	::	n2
real(kind=real64),	intent(in)	::	m2
real(kind=real64),	intent(in)	::	w2
real(kind=real64),	intent(in)	::	l
real(kind=real64),	intent(in)	::	h

Return Value real(kind=real64)

interface

private module function Calculate_kr_Durner_Base(alpha1, n1, m1, w1, alpha2, n2, m2, w2, l, h) result(kr)

Arguments

Type	Intent		Name
real(kind=real64),	intent(in)	::	alpha1
real(kind=real64),	intent(in)	::	n1
real(kind=real64),	intent(in)	::	m1
real(kind=real64),	intent(in)	::	w1
real(kind=real64),	intent(in)	::	alpha2
real(kind=real64),	intent(in)	::	n2
real(kind=real64),	intent(in)	::	m2
real(kind=real64),	intent(in)	::	w2
real(kind=real64),	intent(in)	::	l
real(kind=real64),	intent(in)	::	h

Return Value real(kind=real64)

interface

private module function Calculate_kr_KO_Base(alpha1, n1, l, h) result(kr)

Arguments

Type	Intent		Name
real(kind=real64),	intent(in)	::	alpha1
real(kind=real64),	intent(in)	::	n1
real(kind=real64),	intent(in)	::	l
real(kind=real64),	intent(in)	::	h

Return Value real(kind=real64)

interface

private module function Calculate_kr_MVG_Base(thetaS, thetaR, alpha1, n1, m1, l, hcrit, h) result(kr)

Arguments

Type	Intent		Name
real(kind=real64),	intent(in)	::	thetaS
real(kind=real64),	intent(in)	::	thetaR
real(kind=real64),	intent(in)	::	alpha1
real(kind=real64),	intent(in)	::	n1
real(kind=real64),	intent(in)	::	m1
real(kind=real64),	intent(in)	::	l
real(kind=real64),	intent(in)	::	hcrit
real(kind=real64),	intent(in)	::	h

Return Value real(kind=real64)

interface

private module function Calculate_kr_VG_Base(alpha1, n1, m1, l, h) result(kr)

Arguments

Type	Intent		Name
real(kind=real64),	intent(in)	::	alpha1
real(kind=real64),	intent(in)	::	n1
real(kind=real64),	intent(in)	::	m1
real(kind=real64),	intent(in)	::	l
real(kind=real64),	intent(in)	::	h

Return Value real(kind=real64)

interface

private module function Construct_Type_HCF_Base_BC(Ks, alpha1, n1, l, nsize) result(structure_HCF)

Arguments

Type	Intent		Name
real(kind=real64),	intent(in)	::	Ks
real(kind=real64),	intent(in)	::	alpha1
real(kind=real64),	intent(in)	::	n1
real(kind=real64),	intent(in)	::	l
integer(kind=int32),	intent(in)	::	nsize

Return Value class(Abstract_HCF), allocatable

interface

private module function Construct_Type_HCF_Base_BC_minimal() result(structure_HCF)

Arguments
None
Return Value class(Abstract_HCF), allocatable

interface

private module function Construct_Type_HCF_Base_DVGCH(Ks, alpha1, n1, w1, n2, l, nsize) result(structure_HCF)

Arguments

Type	Intent		Name
real(kind=real64),	intent(in)	::	Ks
real(kind=real64),	intent(in)	::	alpha1
real(kind=real64),	intent(in)	::	n1
real(kind=real64),	intent(in)	::	w1
real(kind=real64),	intent(in)	::	n2
real(kind=real64),	intent(in)	::	l
integer(kind=int32),	intent(in)	::	nsize

Return Value class(Abstract_HCF), allocatable

interface

private module function Construct_Type_HCF_Base_DVGCH_minimal() result(structure_HCF)

Arguments
None
Return Value class(Abstract_HCF), allocatable

interface

private module function Construct_Type_HCF_Base_Durner(Ks, alpha1, n1, w1, alpha2, n2, l, nsize) result(structure_HCF)

Arguments

Type	Intent		Name
real(kind=real64),	intent(in)	::	Ks
real(kind=real64),	intent(in)	::	alpha1
real(kind=real64),	intent(in)	::	n1
real(kind=real64),	intent(in)	::	w1
real(kind=real64),	intent(in)	::	alpha2
real(kind=real64),	intent(in)	::	n2
real(kind=real64),	intent(in)	::	l
integer(kind=int32),	intent(in)	::	nsize

Return Value class(Abstract_HCF), allocatable

interface

private module function Construct_Type_HCF_Base_Durner_minimal() result(structure_HCF)

Arguments
None
Return Value class(Abstract_HCF), allocatable

interface

private module function Construct_Type_HCF_Base_Impedance_BC(Ks, alpha1, n1, l, Omega, nsize) result(structure_HCF)

Arguments

Type	Intent		Name
real(kind=real64),	intent(in)	::	Ks
real(kind=real64),	intent(in)	::	alpha1
real(kind=real64),	intent(in)	::	n1
real(kind=real64),	intent(in)	::	l
real(kind=real64),	intent(in)	::	Omega
integer(kind=int32),	intent(in)	::	nsize

Return Value class(Abstract_HCF), allocatable

interface

private module function Construct_Type_HCF_Base_Impedance_BC_minimal() result(structure_HCF)

Arguments
None
Return Value class(Abstract_HCF), allocatable

interface

private module function Construct_Type_HCF_Base_Impedance_DVGCH(Ks, alpha1, n1, w1, n2, l, Omega, nsize) result(structure_HCF)

Arguments

Type	Intent		Name
real(kind=real64),	intent(in)	::	Ks
real(kind=real64),	intent(in)	::	alpha1
real(kind=real64),	intent(in)	::	n1
real(kind=real64),	intent(in)	::	w1
real(kind=real64),	intent(in)	::	n2
real(kind=real64),	intent(in)	::	l
real(kind=real64),	intent(in)	::	Omega
integer(kind=int32),	intent(in)	::	nsize

Return Value class(Abstract_HCF), allocatable

interface

private module function Construct_Type_HCF_Base_Impedance_DVGCH_minimal() result(structure_HCF)

Arguments
None
Return Value class(Abstract_HCF), allocatable

interface

private module function Construct_Type_HCF_Base_Impedance_Durner(Ks, alpha1, n1, w1, alpha2, n2, l, Omega, nsize) result(structure_HCF)

Arguments

Type	Intent		Name
real(kind=real64),	intent(in)	::	Ks
real(kind=real64),	intent(in)	::	alpha1
real(kind=real64),	intent(in)	::	n1
real(kind=real64),	intent(in)	::	w1
real(kind=real64),	intent(in)	::	alpha2
real(kind=real64),	intent(in)	::	n2
real(kind=real64),	intent(in)	::	l
real(kind=real64),	intent(in)	::	Omega
integer(kind=int32),	intent(in)	::	nsize

Return Value class(Abstract_HCF), allocatable

interface

private module function Construct_Type_HCF_Base_Impedance_Durner_minimal() result(structure_HCF)

Arguments
None
Return Value class(Abstract_HCF), allocatable

interface

private module function Construct_Type_HCF_Base_Impedance_KO(Ks, alpha1, n1, l, Omega, nsize) result(structure_HCF)

Arguments

Type	Intent		Name
real(kind=real64),	intent(in)	::	Ks
real(kind=real64),	intent(in)	::	alpha1
real(kind=real64),	intent(in)	::	n1
real(kind=real64),	intent(in)	::	l
real(kind=real64),	intent(in)	::	Omega
integer(kind=int32),	intent(in)	::	nsize

Return Value class(Abstract_HCF), allocatable

interface

private module function Construct_Type_HCF_Base_Impedance_KO_minimal() result(structure_HCF)

Arguments
None
Return Value class(Abstract_HCF), allocatable

interface

private module function Construct_Type_HCF_Base_Impedance_MVG(Ks, thetaS, thetaR, alpha1, n1, l, hcrit, Omega, nsize) result(structure_HCF)

Arguments

Type	Intent		Name
real(kind=real64),	intent(in)	::	Ks
real(kind=real64),	intent(in)	::	thetaS
real(kind=real64),	intent(in)	::	thetaR
real(kind=real64),	intent(in)	::	alpha1
real(kind=real64),	intent(in)	::	n1
real(kind=real64),	intent(in)	::	l
real(kind=real64),	intent(in)	::	hcrit
real(kind=real64),	intent(in)	::	Omega
integer(kind=int32),	intent(in)	::	nsize

Return Value class(Abstract_HCF), allocatable

interface

private module function Construct_Type_HCF_Base_Impedance_MVG_minimal() result(structure_HCF)

Arguments
None
Return Value class(Abstract_HCF), allocatable

interface

private module function Construct_Type_HCF_Base_Impedance_VG(Ks, alpha1, n1, l, Omega, nsize) result(structure_HCF)

Arguments

Type	Intent		Name
real(kind=real64),	intent(in)	::	Ks
real(kind=real64),	intent(in)	::	alpha1
real(kind=real64),	intent(in)	::	n1
real(kind=real64),	intent(in)	::	l
real(kind=real64),	intent(in)	::	Omega
integer(kind=int32),	intent(in)	::	nsize

Return Value class(Abstract_HCF), allocatable

interface

private module function Construct_Type_HCF_Base_Impedance_VG_minimal() result(structure_HCF)

Arguments
None
Return Value class(Abstract_HCF), allocatable

interface

private module function Construct_Type_HCF_Base_Impedance_Viscosity_BC(Ks, alpha1, n1, l, Omega, useViscosity, nsize) result(structure_HCF)

Arguments

Type	Intent		Name
real(kind=real64),	intent(in)	::	Ks
real(kind=real64),	intent(in)	::	alpha1
real(kind=real64),	intent(in)	::	n1
real(kind=real64),	intent(in)	::	l
real(kind=real64),	intent(in)	::	Omega
integer(kind=int32),	intent(in)	::	useViscosity
integer(kind=int32),	intent(in)	::	nsize

Return Value class(Abstract_HCF), allocatable

interface

private module function Construct_Type_HCF_Base_Impedance_Viscosity_BC_minimal() result(structure_HCF)

Arguments
None
Return Value class(Abstract_HCF), allocatable

interface

private module function Construct_Type_HCF_Base_Impedance_Viscosity_DVGCH(Ks, alpha1, n1, w1, n2, l, Omega, useViscosity, nsize) result(structure_HCF)

Arguments

Type	Intent		Name
real(kind=real64),	intent(in)	::	Ks
real(kind=real64),	intent(in)	::	alpha1
real(kind=real64),	intent(in)	::	n1
real(kind=real64),	intent(in)	::	w1
real(kind=real64),	intent(in)	::	n2
real(kind=real64),	intent(in)	::	l
real(kind=real64),	intent(in)	::	Omega
integer(kind=int32),	intent(in)	::	useViscosity
integer(kind=int32),	intent(in)	::	nsize

Return Value class(Abstract_HCF), allocatable

interface

private module function Construct_Type_HCF_Base_Impedance_Viscosity_DVGCH_minimal() result(structure_HCF)

Arguments
None
Return Value class(Abstract_HCF), allocatable

interface

private module function Construct_Type_HCF_Base_Impedance_Viscosity_Durner(Ks, alpha1, n1, w1, alpha2, n2, l, Omega, useViscosity, nsize) result(structure_HCF)

Arguments

Type	Intent		Name
real(kind=real64),	intent(in)	::	Ks
real(kind=real64),	intent(in)	::	alpha1
real(kind=real64),	intent(in)	::	n1
real(kind=real64),	intent(in)	::	w1
real(kind=real64),	intent(in)	::	alpha2
real(kind=real64),	intent(in)	::	n2
real(kind=real64),	intent(in)	::	l
real(kind=real64),	intent(in)	::	Omega
integer(kind=int32),	intent(in)	::	useViscosity
integer(kind=int32),	intent(in)	::	nsize

Return Value class(Abstract_HCF), allocatable

interface

private module function Construct_Type_HCF_Base_Impedance_Viscosity_Durner_minimal() result(structure_HCF)

Arguments
None
Return Value class(Abstract_HCF), allocatable

interface

private module function Construct_Type_HCF_Base_Impedance_Viscosity_KO(Ks, alpha1, n1, l, Omega, useViscosity, nsize) result(structure_HCF)

Arguments

Type	Intent		Name
real(kind=real64),	intent(in)	::	Ks
real(kind=real64),	intent(in)	::	alpha1
real(kind=real64),	intent(in)	::	n1
real(kind=real64),	intent(in)	::	l
real(kind=real64),	intent(in)	::	Omega
integer(kind=int32),	intent(in)	::	useViscosity
integer(kind=int32),	intent(in)	::	nsize

Return Value class(Abstract_HCF), allocatable

interface

private module function Construct_Type_HCF_Base_Impedance_Viscosity_KO_minimal() result(structure_HCF)

Arguments
None
Return Value class(Abstract_HCF), allocatable

interface

private module function Construct_Type_HCF_Base_Impedance_Viscosity_MVG(Ks, thetaS, thetaR, alpha1, n1, l, hcrit, Omega, useViscosity, nsize) result(structure_HCF)

Arguments

Type	Intent		Name
real(kind=real64),	intent(in)	::	Ks
real(kind=real64),	intent(in)	::	thetaS
real(kind=real64),	intent(in)	::	thetaR
real(kind=real64),	intent(in)	::	alpha1
real(kind=real64),	intent(in)	::	n1
real(kind=real64),	intent(in)	::	l
real(kind=real64),	intent(in)	::	hcrit
real(kind=real64),	intent(in)	::	Omega
integer(kind=int32),	intent(in)	::	useViscosity
integer(kind=int32),	intent(in)	::	nsize

Return Value class(Abstract_HCF), allocatable

interface

private module function Construct_Type_HCF_Base_Impedance_Viscosity_MVG_minimal() result(structure_HCF)

Arguments
None
Return Value class(Abstract_HCF), allocatable

interface

private module function Construct_Type_HCF_Base_Impedance_Viscosity_VG(Ks, alpha1, n1, l, Omega, useViscosity, nsize) result(structure_HCF)

Arguments

Type	Intent		Name
real(kind=real64),	intent(in)	::	Ks
real(kind=real64),	intent(in)	::	alpha1
real(kind=real64),	intent(in)	::	n1
real(kind=real64),	intent(in)	::	l
real(kind=real64),	intent(in)	::	Omega
integer(kind=int32),	intent(in)	::	useViscosity
integer(kind=int32),	intent(in)	::	nsize

Return Value class(Abstract_HCF), allocatable

interface

private module function Construct_Type_HCF_Base_Impedance_Viscosity_VG_minimal() result(structure_HCF)

Arguments
None
Return Value class(Abstract_HCF), allocatable

interface

private module function Construct_Type_HCF_Base_KO(Ks, alpha1, n1, l, nsize) result(structure_HCF)

Arguments

Type	Intent		Name
real(kind=real64),	intent(in)	::	Ks
real(kind=real64),	intent(in)	::	alpha1
real(kind=real64),	intent(in)	::	n1
real(kind=real64),	intent(in)	::	l
integer(kind=int32),	intent(in)	::	nsize

Return Value class(Abstract_HCF), allocatable

interface

private module function Construct_Type_HCF_Base_KO_minimal() result(structure_HCF)

Arguments
None
Return Value class(Abstract_HCF), allocatable

interface

private module function Construct_Type_HCF_Base_MVG(Ks, thetaS, thetaR, alpha1, n1, l, hcrit, nsize) result(structure_HCF)

Arguments

Type	Intent		Name
real(kind=real64),	intent(in)	::	Ks
real(kind=real64),	intent(in)	::	thetaS
real(kind=real64),	intent(in)	::	thetaR
real(kind=real64),	intent(in)	::	alpha1
real(kind=real64),	intent(in)	::	n1
real(kind=real64),	intent(in)	::	l
real(kind=real64),	intent(in)	::	hcrit
integer(kind=int32),	intent(in)	::	nsize

Return Value class(Abstract_HCF), allocatable

interface

private module function Construct_Type_HCF_Base_MVG_minimal() result(structure_HCF)

Arguments
None
Return Value class(Abstract_HCF), allocatable

interface

private module function Construct_Type_HCF_Base_VG(Ks, alpha1, n1, l, nsize) result(structure_HCF)

Arguments

Type	Intent		Name
real(kind=real64),	intent(in)	::	Ks
real(kind=real64),	intent(in)	::	alpha1
real(kind=real64),	intent(in)	::	n1
real(kind=real64),	intent(in)	::	l
integer(kind=int32),	intent(in)	::	nsize

Return Value class(Abstract_HCF), allocatable

interface

private module function Construct_Type_HCF_Base_VG_minimal() result(structure_HCF)

Arguments
None
Return Value class(Abstract_HCF), allocatable

interface

private module function Construct_Type_HCF_Base_Viscosity_BC(Ks, alpha1, n1, l, useViscosity, nsize) result(structure_HCF)

Arguments

Type	Intent		Name
real(kind=real64),	intent(in)	::	Ks
real(kind=real64),	intent(in)	::	alpha1
real(kind=real64),	intent(in)	::	n1
real(kind=real64),	intent(in)	::	l
integer(kind=int32),	intent(in)	::	useViscosity
integer(kind=int32),	intent(in)	::	nsize

Return Value class(Abstract_HCF), allocatable

interface

private module function Construct_Type_HCF_Base_Viscosity_BC_minimal() result(structure_HCF)

Arguments
None
Return Value class(Abstract_HCF), allocatable

interface

private module function Construct_Type_HCF_Base_Viscosity_DVGCH(Ks, alpha1, n1, w1, n2, l, useViscosity, nsize) result(structure_HCF)

Arguments

Type	Intent		Name
real(kind=real64),	intent(in)	::	Ks
real(kind=real64),	intent(in)	::	alpha1
real(kind=real64),	intent(in)	::	n1
real(kind=real64),	intent(in)	::	w1
real(kind=real64),	intent(in)	::	n2
real(kind=real64),	intent(in)	::	l
integer(kind=int32),	intent(in)	::	useViscosity
integer(kind=int32),	intent(in)	::	nsize

Return Value class(Abstract_HCF), allocatable

interface

private module function Construct_Type_HCF_Base_Viscosity_DVGCH_minimal() result(structure_HCF)

Arguments
None
Return Value class(Abstract_HCF), allocatable

interface

private module function Construct_Type_HCF_Base_Viscosity_Durner(Ks, alpha1, n1, w1, alpha2, n2, l, useViscosity, nsize) result(structure_HCF)

Arguments

Type	Intent		Name
real(kind=real64),	intent(in)	::	Ks
real(kind=real64),	intent(in)	::	alpha1
real(kind=real64),	intent(in)	::	n1
real(kind=real64),	intent(in)	::	w1
real(kind=real64),	intent(in)	::	alpha2
real(kind=real64),	intent(in)	::	n2
real(kind=real64),	intent(in)	::	l
integer(kind=int32),	intent(in)	::	useViscosity
integer(kind=int32),	intent(in)	::	nsize

Return Value class(Abstract_HCF), allocatable

interface

private module function Construct_Type_HCF_Base_Viscosity_Durner_minimal() result(structure_HCF)

Arguments
None
Return Value class(Abstract_HCF), allocatable

interface

private module function Construct_Type_HCF_Base_Viscosity_KO(Ks, alpha1, n1, l, useViscosity, nsize) result(structure_HCF)

Arguments

Type	Intent		Name
real(kind=real64),	intent(in)	::	Ks
real(kind=real64),	intent(in)	::	alpha1
real(kind=real64),	intent(in)	::	n1
real(kind=real64),	intent(in)	::	l
integer(kind=int32),	intent(in)	::	useViscosity
integer(kind=int32),	intent(in)	::	nsize

Return Value class(Abstract_HCF), allocatable

interface

private module function Construct_Type_HCF_Base_Viscosity_KO_minimal() result(structure_HCF)

Arguments
None
Return Value class(Abstract_HCF), allocatable

interface

private module function Construct_Type_HCF_Base_Viscosity_MVG(Ks, thetaS, thetaR, alpha1, n1, l, hcrit, useViscosity, nsize) result(structure_HCF)

Arguments

Type	Intent		Name
real(kind=real64),	intent(in)	::	Ks
real(kind=real64),	intent(in)	::	thetaS
real(kind=real64),	intent(in)	::	thetaR
real(kind=real64),	intent(in)	::	alpha1
real(kind=real64),	intent(in)	::	n1
real(kind=real64),	intent(in)	::	l
real(kind=real64),	intent(in)	::	hcrit
integer(kind=int32),	intent(in)	::	useViscosity
integer(kind=int32),	intent(in)	::	nsize

Return Value class(Abstract_HCF), allocatable

interface

private module function Construct_Type_HCF_Base_Viscosity_MVG_minimal() result(structure_HCF)

Arguments
None
Return Value class(Abstract_HCF), allocatable

interface

private module function Construct_Type_HCF_Base_Viscosity_VG(Ks, alpha1, n1, l, useViscosity, nsize) result(structure_HCF)

Arguments

Type	Intent		Name
real(kind=real64),	intent(in)	::	Ks
real(kind=real64),	intent(in)	::	alpha1
real(kind=real64),	intent(in)	::	n1
real(kind=real64),	intent(in)	::	l
integer(kind=int32),	intent(in)	::	useViscosity
integer(kind=int32),	intent(in)	::	nsize

Return Value class(Abstract_HCF), allocatable

interface

private module function Construct_Type_HCF_Base_Viscosity_VG_minimal() result(structure_HCF)

Arguments
None
Return Value class(Abstract_HCF), allocatable

interface

private module function Construct_Type_HCF_Impedance(Ks, Omega, nsize) result(structure_HCF)

Arguments

Type	Intent		Name
real(kind=real64),	intent(in)	::	Ks
real(kind=real64),	intent(in)	::	Omega
integer(kind=int32),	intent(in)	::	nsize

Return Value class(Abstract_HCF), allocatable

interface

private module function Construct_Type_HCF_Impedance_Viscosity(Ks, Omega, useViscosity, nsize) result(structure_HCF)

Arguments

Type	Intent		Name
real(kind=real64),	intent(in)	::	Ks
real(kind=real64),	intent(in)	::	Omega
integer(kind=int32),	intent(in)	::	useViscosity
integer(kind=int32),	intent(in)	::	nsize

Return Value class(Abstract_HCF), allocatable

interface

private module function Construct_Type_HCF_Impedance_Viscosity_minimal() result(structure_HCF)

Arguments
None
Return Value class(Abstract_HCF), allocatable

interface

private module function Construct_Type_HCF_Impedance_minimal() result(structure_HCF)

Arguments
None
Return Value class(Abstract_HCF), allocatable

interface

private module function Construct_Type_HCF_Viscosity(Ks, useViscosity, nsize) result(structure_HCF)

Arguments

Type	Intent		Name
real(kind=real64),	intent(in)	::	Ks
integer(kind=int32),	intent(in)	::	useViscosity
integer(kind=int32),	intent(in)	::	nsize

Return Value class(Abstract_HCF), allocatable

interface

private module function Construct_Type_HCF_Viscosity_minimal() result(structure_HCF)

Arguments
None
Return Value class(Abstract_HCF), allocatable

interface

private module subroutine Set_Calculate_Viscosity_Base(Calculate_Viscosity_Type, Calculate_Viscosity)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=int32),	intent(in)			::	Calculate_Viscosity_Type
procedure(Abstract_Calculate_Viscosity),	intent(inout),		pointer	::	Calculate_Viscosity

public interface Type_HCF

private function Construct_Type_HCF(useHCFType, Ks, thetaS, thetaR, alpha1, n1, w1, alpha2, n2, l, hcrit, Omega, useViscosity, nsize) result(structure_HCF)

Arguments

Type	Intent	Optional		Name
integer(kind=int32),	intent(in)		::	useHCFType
real(kind=real64),	intent(in)		::	Ks
real(kind=real64),	intent(in),	optional	::	thetaS
real(kind=real64),	intent(in),	optional	::	thetaR
real(kind=real64),	intent(in),	optional	::	alpha1
real(kind=real64),	intent(in),	optional	::	n1
real(kind=real64),	intent(in),	optional	::	w1
real(kind=real64),	intent(in),	optional	::	alpha2
real(kind=real64),	intent(in),	optional	::	n2
real(kind=real64),	intent(in),	optional	::	l
real(kind=real64),	intent(in),	optional	::	hcrit
real(kind=real64),	intent(in),	optional	::	Omega
integer(kind=int32),	intent(in),	optional	::	useViscosity
integer(kind=int32),	intent(in)		::	nsize

Return Value class(Abstract_HCF), allocatable

private function Construct_Type_HCF_minimal(useHCFType) result(structure_HCF)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=int32),	intent(in)			::	useHCFType

Return Value class(Abstract_HCF), allocatable

public interface Type_HCF_Base_BC

private interface Construct_Type_HCF_Base_BC()

Arguments
None
private interface Construct_Type_HCF_Base_BC_minimal()

Arguments
None

public interface Type_HCF_Base_DVGCH

private interface Construct_Type_HCF_Base_DVGCH()

Arguments
None
private interface Construct_Type_HCF_Base_DVGCH_minimal()

Arguments
None

public interface Type_HCF_Base_Durner

private interface Construct_Type_HCF_Base_Durner()

Arguments
None
private interface Construct_Type_HCF_Base_Durner_minimal()

Arguments
None

public interface Type_HCF_Base_KO

private interface Construct_Type_HCF_Base_KO()

Arguments
None
private interface Construct_Type_HCF_Base_KO_minimal()

Arguments
None

public interface Type_HCF_Base_MVG

private interface Construct_Type_HCF_Base_MVG()

Arguments
None
private interface Construct_Type_HCF_Base_MVG_minimal()

Arguments
None

public interface Type_HCF_Base_VG

private interface Construct_Type_HCF_Base_VG()

Arguments
None
private interface Construct_Type_HCF_Base_VG_minimal()

Arguments
None

public interface Type_HCF_Base_Viscosity_BC

private interface Construct_Type_HCF_Base_Viscosity_BC()

Arguments
None
private interface Construct_Type_HCF_Base_Viscosity_BC_minimal()

Arguments
None

public interface Type_HCF_Base_Viscosity_DVGCH

private interface Construct_Type_HCF_Base_Viscosity_DVGCH()

Arguments
None
private interface Construct_Type_HCF_Base_Viscosity_DVGCH_minimal()

Arguments
None

public interface Type_HCF_Base_Viscosity_Durner

private interface Construct_Type_HCF_Base_Viscosity_Durner()

Arguments
None
private interface Construct_Type_HCF_Base_Viscosity_Durner_minimal()

Arguments
None

public interface Type_HCF_Base_Viscosity_KO

private interface Construct_Type_HCF_Base_Viscosity_KO()

Arguments
None
private interface Construct_Type_HCF_Base_Viscosity_KO_minimal()

Arguments
None

public interface Type_HCF_Base_Viscosity_MVG

private interface Construct_Type_HCF_Base_Viscosity_MVG()

Arguments
None
private interface Construct_Type_HCF_Base_Viscosity_MVG_minimal()

Arguments
None

public interface Type_HCF_Base_Viscosity_VG

private interface Construct_Type_HCF_Base_Viscosity_VG()

Arguments
None
private interface Construct_Type_HCF_Base_Viscosity_VG_minimal()

Arguments
None

public interface Type_HCF_Impedance

private interface Construct_Type_HCF_Impedance()

Arguments
None
private interface Construct_Type_HCF_Impedance_minimal()

Arguments
None

public interface Type_HCF_Impedance_Viscosity

private interface Construct_Type_HCF_Impedance_Viscosity()

Arguments
None
private interface Construct_Type_HCF_Impedance_Viscosity_minimal()

Arguments
None

public interface Type_HCF_Viscosity

private interface Construct_Type_HCF_Viscosity()

Arguments
None
private interface Construct_Type_HCF_Viscosity_minimal()

Arguments
None

interface

private module subroutine Update_Kflh_Base_BC(self, arr_h)

Arguments

Type	Intent	Optional	Attributes		Name
class(Type_HCF_Base_BC),	intent(inout)			::	self
real(kind=real64),	intent(in)			::	arr_h(:)

interface

private module subroutine Update_Kflh_Base_DVGCH(self, arr_h)

Arguments

Type	Intent	Optional	Attributes		Name
class(Type_HCF_Base_DVGCH),	intent(inout)			::	self
real(kind=real64),	intent(in)			::	arr_h(:)

interface

private module subroutine Update_Kflh_Base_Durner(self, arr_h)

Arguments

Type	Intent	Optional	Attributes		Name
class(Type_HCF_Base_Durner),	intent(inout)			::	self
real(kind=real64),	intent(in)			::	arr_h(:)

interface

private module subroutine Update_Kflh_Base_Impedance_BC(self, arr_h, arr_thetaI)

Arguments

Type	Intent		Name
class(Type_HCF_Base_Impedance_BC),	intent(inout)	::	self
real(kind=real64),	intent(in)	::	arr_h(:)
real(kind=real64),	intent(in)	::	arr_thetaI(:)

interface

private module subroutine Update_Kflh_Base_Impedance_DVGCH(self, arr_h, arr_thetaI)

Arguments

Type	Intent		Name
class(Type_HCF_Base_Impedance_DVGCH),	intent(inout)	::	self
real(kind=real64),	intent(in)	::	arr_h(:)
real(kind=real64),	intent(in)	::	arr_thetaI(:)

interface

private module subroutine Update_Kflh_Base_Impedance_Durner(self, arr_h, arr_thetaI)

Arguments

Type	Intent		Name
class(Type_HCF_Base_Impedance_Durner),	intent(inout)	::	self
real(kind=real64),	intent(in)	::	arr_h(:)
real(kind=real64),	intent(in)	::	arr_thetaI(:)

interface

private module subroutine Update_Kflh_Base_Impedance_KO(self, arr_h, arr_thetaI)

Arguments

Type	Intent		Name
class(Type_HCF_Base_Impedance_KO),	intent(inout)	::	self
real(kind=real64),	intent(in)	::	arr_h(:)
real(kind=real64),	intent(in)	::	arr_thetaI(:)

interface

private module subroutine Update_Kflh_Base_Impedance_MVG(self, arr_h, arr_thetaI)

Arguments

Type	Intent		Name
class(Type_HCF_Base_Impedance_MVG),	intent(inout)	::	self
real(kind=real64),	intent(in)	::	arr_h(:)
real(kind=real64),	intent(in)	::	arr_thetaI(:)

interface

private module subroutine Update_Kflh_Base_Impedance_VG(self, arr_h, arr_thetaI)

Arguments

Type	Intent		Name
class(Type_HCF_Base_Impedance_VG),	intent(inout)	::	self
real(kind=real64),	intent(in)	::	arr_h(:)
real(kind=real64),	intent(in)	::	arr_thetaI(:)

interface

private module subroutine Update_Kflh_Base_Impedance_Viscosity_BC(self, arr_h, arr_thetaI, arr_Temperature)

Arguments

Type	Intent		Name
class(Type_HCF_Base_Impedance_Viscosity_BC),	intent(inout)	::	self
real(kind=real64),	intent(in)	::	arr_h(:)
real(kind=real64),	intent(in)	::	arr_thetaI(:)
real(kind=real64),	intent(in)	::	arr_Temperature(:)

interface

private module subroutine Update_Kflh_Base_Impedance_Viscosity_DVGCH(self, arr_h, arr_thetaI, arr_Temperature)

Arguments

Type	Intent		Name
class(Type_HCF_Base_Impedance_Viscosity_DVGCH),	intent(inout)	::	self
real(kind=real64),	intent(in)	::	arr_h(:)
real(kind=real64),	intent(in)	::	arr_thetaI(:)
real(kind=real64),	intent(in)	::	arr_Temperature(:)

interface

private module subroutine Update_Kflh_Base_Impedance_Viscosity_Durner(self, arr_h, arr_thetaI, arr_Temperature)

Arguments

Type	Intent		Name
class(Type_HCF_Base_Impedance_Viscosity_Durner),	intent(inout)	::	self
real(kind=real64),	intent(in)	::	arr_h(:)
real(kind=real64),	intent(in)	::	arr_thetaI(:)
real(kind=real64),	intent(in)	::	arr_Temperature(:)

interface

private module subroutine Update_Kflh_Base_Impedance_Viscosity_KO(self, arr_h, arr_thetaI, arr_Temperature)

Arguments

Type	Intent		Name
class(Type_HCF_Base_Impedance_Viscosity_KO),	intent(inout)	::	self
real(kind=real64),	intent(in)	::	arr_h(:)
real(kind=real64),	intent(in)	::	arr_thetaI(:)
real(kind=real64),	intent(in)	::	arr_Temperature(:)

interface

private module subroutine Update_Kflh_Base_Impedance_Viscosity_MVG(self, arr_h, arr_thetaI, arr_Temperature)

Arguments

Type	Intent		Name
class(Type_HCF_Base_Impedance_Viscosity_MVG),	intent(inout)	::	self
real(kind=real64),	intent(in)	::	arr_h(:)
real(kind=real64),	intent(in)	::	arr_thetaI(:)
real(kind=real64),	intent(in)	::	arr_Temperature(:)

interface

private module subroutine Update_Kflh_Base_Impedance_Viscosity_VG(self, arr_h, arr_thetaI, arr_Temperature)

Arguments

Type	Intent		Name
class(Type_HCF_Base_Impedance_Viscosity_VG),	intent(inout)	::	self
real(kind=real64),	intent(in)	::	arr_h(:)
real(kind=real64),	intent(in)	::	arr_thetaI(:)
real(kind=real64),	intent(in)	::	arr_Temperature(:)

interface

private module subroutine Update_Kflh_Base_KO(self, arr_h)

Arguments

Type	Intent	Optional	Attributes		Name
class(Type_HCF_Base_KO),	intent(inout)			::	self
real(kind=real64),	intent(in)			::	arr_h(:)

interface

private module subroutine Update_Kflh_Base_MVG(self, arr_h)

Arguments

Type	Intent	Optional	Attributes		Name
class(Type_HCF_Base_MVG),	intent(inout)			::	self
real(kind=real64),	intent(in)			::	arr_h(:)

interface

private module subroutine Update_Kflh_Base_VG(self, arr_h)

Arguments

Type	Intent	Optional	Attributes		Name
class(Type_HCF_Base_VG),	intent(inout)			::	self
real(kind=real64),	intent(in)			::	arr_h(:)

interface

private module subroutine Update_Kflh_Base_Viscosity_BC(self, arr_h, arr_Temperature)

Arguments

Type	Intent		Name
class(Type_HCF_Base_Viscosity_BC),	intent(inout)	::	self
real(kind=real64),	intent(in)	::	arr_h(:)
real(kind=real64),	intent(in)	::	arr_Temperature(:)

interface

private module subroutine Update_Kflh_Base_Viscosity_DVGCH(self, arr_h, arr_Temperature)

Arguments

Type	Intent		Name
class(Type_HCF_Base_Viscosity_DVGCH),	intent(inout)	::	self
real(kind=real64),	intent(in)	::	arr_h(:)
real(kind=real64),	intent(in)	::	arr_Temperature(:)

interface

private module subroutine Update_Kflh_Base_Viscosity_Durner(self, arr_h, arr_Temperature)

Arguments

Type	Intent		Name
class(Type_HCF_Base_Viscosity_Durner),	intent(inout)	::	self
real(kind=real64),	intent(in)	::	arr_h(:)
real(kind=real64),	intent(in)	::	arr_Temperature(:)

interface

private module subroutine Update_Kflh_Base_Viscosity_KO(self, arr_h, arr_Temperature)

Arguments

Type	Intent		Name
class(Type_HCF_Base_Viscosity_KO),	intent(inout)	::	self
real(kind=real64),	intent(in)	::	arr_h(:)
real(kind=real64),	intent(in)	::	arr_Temperature(:)

interface

private module subroutine Update_Kflh_Base_Viscosity_MVG(self, arr_h, arr_Temperature)

Arguments

Type	Intent		Name
class(Type_HCF_Base_Viscosity_MVG),	intent(inout)	::	self
real(kind=real64),	intent(in)	::	arr_h(:)
real(kind=real64),	intent(in)	::	arr_Temperature(:)

interface

private module subroutine Update_Kflh_Base_Viscosity_VG(self, arr_h, arr_Temperature)

Arguments

Type	Intent		Name
class(Type_HCF_Base_Viscosity_VG),	intent(inout)	::	self
real(kind=real64),	intent(in)	::	arr_h(:)
real(kind=real64),	intent(in)	::	arr_Temperature(:)

interface

private module subroutine Update_Kflh_Impedance(self, arr_thetaI)

Arguments

Type	Intent	Optional	Attributes		Name
class(Type_HCF_Impedance),	intent(inout)			::	self
real(kind=real64),	intent(in)			::	arr_thetaI(:)

interface

private module subroutine Update_Kflh_Impedance_Viscosity(self, arr_thetaI, arr_Temperature)

Arguments

Type	Intent		Name
class(Type_HCF_Impedance_Viscosity),	intent(inout)	::	self
real(kind=real64),	intent(in)	::	arr_thetaI(:)
real(kind=real64),	intent(in)	::	arr_Temperature(:)

interface

private module subroutine Update_Kflh_Viscosity(self, arr_Temperature)

Arguments

Type	Intent	Optional	Attributes		Name
class(Type_HCF_Viscosity),	intent(inout)			::	self
real(kind=real64),	intent(in)			::	arr_Temperature(:)

Abstract Interfaces

abstract interface

private function Abstract_Calculate_Impedance(Omega, thetaI) result(Impedance)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=real64),	intent(in)			::	Omega
real(kind=real64),	intent(in)			::	thetaI

Return Value real(kind=real64)

abstract interface

private function Abstract_Calculate_Kflh_Base(self, h) result(Kflh)

Arguments

Type	Intent	Optional	Attributes		Name
class(Abstract_HCF_Base),	intent(in)			::	self
real(kind=real64),	intent(in)			::	h

Return Value real(kind=real64)

abstract interface

private function Abstract_Calculate_Kflh_Base_Impedance(self, h, thetaI) result(Kflh)

Arguments

Type	Intent		Name
class(Abstract_HCF_Base_Impedance),	intent(in)	::	self
real(kind=real64),	intent(in)	::	h
real(kind=real64),	intent(in)	::	thetaI

Return Value real(kind=real64)

abstract interface

private function Abstract_Calculate_Kflh_Base_Impedance_Viscosity(self, h, thetaI, Temperature) result(Kflh)

Arguments

Type	Intent		Name
class(Abstract_HCF_Base_Impedance_Viscosity),	intent(in)	::	self
real(kind=real64),	intent(in)	::	h
real(kind=real64),	intent(in)	::	thetaI
real(kind=real64),	intent(in)	::	Temperature

Return Value real(kind=real64)

abstract interface

private function Abstract_Calculate_Kflh_Base_Viscosity(self, h, Temperature) result(Kflh)

Arguments

Type	Intent		Name
class(Abstract_HCF_Base_Viscosity),	intent(in)	::	self
real(kind=real64),	intent(in)	::	h
real(kind=real64),	intent(in)	::	Temperature

Return Value real(kind=real64)

abstract interface

private function Abstract_Calculate_Kflh_Impedance(self, thetaI) result(Kflh)

Arguments

Type	Intent	Optional	Attributes		Name
class(Abstract_HCF_Impedance),	intent(in)			::	self
real(kind=real64),	intent(in)			::	thetaI

Return Value real(kind=real64)

abstract interface

private function Abstract_Calculate_Kflh_Impedance_Viscosity(self, thetaI, Temperature) result(Kflh)

Arguments

Type	Intent		Name
class(Abstract_HCF_Impedance_Viscosity),	intent(in)	::	self
real(kind=real64),	intent(in)	::	thetaI
real(kind=real64),	intent(in)	::	Temperature

Return Value real(kind=real64)

abstract interface

private function Abstract_Calculate_Kflh_Viscosity(self, Temperature) result(Kflh)

Arguments

Type	Intent	Optional	Attributes		Name
class(Abstract_HCF_Viscosity),	intent(in)			::	self
real(kind=real64),	intent(in)			::	Temperature

Return Value real(kind=real64)

abstract interface

private function Abstract_Calculate_Viscosity(Temperature) result(Viscosity)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=real64),	intent(in)			::	Temperature

Return Value real(kind=real64)

abstract interface

private function Abstract_Calculate_kr_HCF_Base(self, h) result(kr)

Arguments

Type	Intent	Optional	Attributes		Name
class(Abstract_HCF_Base),	intent(in)			::	self
real(kind=real64),	intent(in)			::	h

Return Value real(kind=real64)

abstract interface

private function Abstract_Calculate_kr_HCF_Base_Impedance(self, h) result(kr)

Arguments

Type	Intent	Optional	Attributes		Name
class(Abstract_HCF_Base_Impedance),	intent(in)			::	self
real(kind=real64),	intent(in)			::	h

Return Value real(kind=real64)

abstract interface

private function Abstract_Calculate_kr_HCF_Base_Impedance_Viscosity(self, h) result(kr)

Arguments

Type	Intent	Optional	Attributes		Name
class(Abstract_HCF_Base_Impedance_Viscosity),	intent(in)			::	self
real(kind=real64),	intent(in)			::	h

Return Value real(kind=real64)

abstract interface

private function Abstract_Calculate_kr_HCF_Base_Viscosity(self, h) result(kr)

Arguments

Type	Intent	Optional	Attributes		Name
class(Abstract_HCF_Base_Viscosity),	intent(in)			::	self
real(kind=real64),	intent(in)			::	h

Return Value real(kind=real64)

abstract interface

private subroutine Abstract_Set_Calculate_HCF_Viscosity(Calculate_Viscosity_Type, Calculate_Viscosity)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=int32),	intent(in)			::	Calculate_Viscosity_Type
procedure(Abstract_Calculate_Viscosity),	intent(inout),		pointer	::	Calculate_Viscosity

abstract interface

private subroutine Abstract_Update_Kflh_Base(self, arr_h)

Arguments

Type	Intent	Optional	Attributes		Name
class(Abstract_HCF_Base),	intent(inout)			::	self
real(kind=real64),	intent(in)			::	arr_h(:)

abstract interface

private subroutine Abstract_Update_Kflh_Base_Impedance(self, arr_h, arr_thetaI)

Arguments

Type	Intent		Name
class(Abstract_HCF_Base_Impedance),	intent(inout)	::	self
real(kind=real64),	intent(in)	::	arr_h(:)
real(kind=real64),	intent(in)	::	arr_thetaI(:)

abstract interface

private subroutine Abstract_Update_Kflh_Base_Impedance_Viscosity(self, arr_h, arr_thetaI, arr_Temperature)

Arguments

Type	Intent		Name
class(Abstract_HCF_Base_Impedance_Viscosity),	intent(inout)	::	self
real(kind=real64),	intent(in)	::	arr_h(:)
real(kind=real64),	intent(in)	::	arr_thetaI(:)
real(kind=real64),	intent(in)	::	arr_Temperature(:)

abstract interface

private subroutine Abstract_Update_Kflh_Base_Viscosity(self, arr_h, arr_Temperature)

Arguments

Type	Intent		Name
class(Abstract_HCF_Base_Viscosity),	intent(inout)	::	self
real(kind=real64),	intent(in)	::	arr_h(:)
real(kind=real64),	intent(in)	::	arr_Temperature(:)

abstract interface

private subroutine Abstract_Update_Kflh_Impedance(self, arr_thetaI)

Arguments

Type	Intent	Optional	Attributes		Name
class(Abstract_HCF_Impedance),	intent(inout)			::	self
real(kind=real64),	intent(in)			::	arr_thetaI(:)

abstract interface

private subroutine Abstract_Update_Kflh_Impedance_Viscosity(self, arr_thetaI, arr_Temperature)

Arguments

Type	Intent		Name
class(Abstract_HCF_Impedance_Viscosity),	intent(inout)	::	self
real(kind=real64),	intent(in)	::	arr_thetaI(:)
real(kind=real64),	intent(in)	::	arr_Temperature(:)

abstract interface

private subroutine Abstract_Update_Kflh_Viscosity(self, arr_Temperature)

Arguments

Type	Intent	Optional	Attributes		Name
class(Abstract_HCF_Viscosity),	intent(inout)			::	self
real(kind=real64),	intent(in)			::	arr_Temperature(:)

Derived Types

type, public, abstract :: Abstract_HCF

get/set

Components

Type	Visibility	Attributes		Name
real(kind=real64),	public,	allocatable	::	Kflh(:)
real(kind=real64),	public		::	Ks	saturated hydraulic conductivity
integer(kind=int32),	public		::	nsize

type, private, abstract, extends(Abstract_HCF) :: Abstract_HCF_Base

Components

Type	Visibility	Attributes		Name
real(kind=real64),	public,	allocatable	::	Kflh(:)
real(kind=real64),	public		::	Ks	saturated hydraulic conductivity
real(kind=real64),	public		::	alpha1
real(kind=real64),	public		::	l
real(kind=real64),	public		::	n1
integer(kind=int32),	public		::	nsize
real(kind=real64),	public		::	thetaR	residual water content
real(kind=real64),	public		::	thetaS	saturated water content

Type-Bound Procedures

procedure(Abstract_Calculate_Kflh_Base), public, deferred, pass(self) :: Calculate_Kflh
procedure(Abstract_Calculate_kr_HCF_Base), public, deferred, pass(self) :: Calculate_kr
procedure(Abstract_Update_Kflh_Base), public, deferred, pass(self) :: Update_Kflh

type, private, abstract, extends(Abstract_HCF) :: Abstract_HCF_Base_Impedance

Components

Type	Visibility	Attributes		Name
real(kind=real64),	public,	allocatable	::	Kflh(:)
real(kind=real64),	public		::	Ks	saturated hydraulic conductivity
real(kind=real64),	public		::	Omega
real(kind=real64),	public		::	alpha1
real(kind=real64),	public		::	l
real(kind=real64),	public		::	n1
integer(kind=int32),	public		::	nsize
real(kind=real64),	public		::	thetaR	residual water content
real(kind=real64),	public		::	thetaS	saturated water content

Type-Bound Procedures

procedure(Abstract_Calculate_Impedance), public, deferred, nopass :: Calculate_Impedance
procedure(Abstract_Calculate_Kflh_Base_Impedance), public, deferred, pass(self) :: Calculate_Kflh
procedure(Abstract_Calculate_kr_HCF_Base_Impedance), public, deferred, pass(self) :: Calculate_kr
procedure(Abstract_Update_Kflh_Base_Impedance), public, deferred, pass(self) :: Update_Kflh

type, private, abstract, extends(Abstract_HCF) :: Abstract_HCF_Base_Impedance_Viscosity

Components

Type	Visibility	Attributes		Name		Initial
procedure(Abstract_Calculate_Viscosity),	public,	nopass, pointer	::	Calculate_Viscosity	=>	null()
real(kind=real64),	public,	allocatable	::	Kflh(:)
real(kind=real64),	public		::	Ks			saturated hydraulic conductivity
real(kind=real64),	public		::	Omega
real(kind=real64),	public		::	alpha1
real(kind=real64),	public		::	kzero
real(kind=real64),	public		::	l
real(kind=real64),	public		::	n1
integer(kind=int32),	public		::	nsize
real(kind=real64),	public		::	thetaR			residual water content
real(kind=real64),	public		::	thetaS			saturated water content

Type-Bound Procedures

procedure(Abstract_Calculate_Impedance), public, deferred, nopass :: Calculate_Impedance
procedure(Abstract_Calculate_Kflh_Base_Impedance_Viscosity), public, deferred, pass(self) :: Calculate_Kflh
procedure(Abstract_Calculate_kr_HCF_Base_Impedance_Viscosity), public, deferred, pass(self) :: Calculate_kr
procedure(Abstract_Set_Calculate_HCF_Viscosity), public, deferred, nopass :: Set_Calculate_Viscosity
procedure(Abstract_Update_Kflh_Base_Impedance_Viscosity), public, deferred, pass(self) :: Update_Kflh

type, private, abstract, extends(Abstract_HCF) :: Abstract_HCF_Base_Viscosity

Components

Type	Visibility	Attributes		Name		Initial
procedure(Abstract_Calculate_Viscosity),	public,	nopass, pointer	::	Calculate_Viscosity	=>	null()
real(kind=real64),	public,	allocatable	::	Kflh(:)
real(kind=real64),	public		::	Ks			saturated hydraulic conductivity
real(kind=real64),	public		::	alpha1
real(kind=real64),	public		::	kzero
real(kind=real64),	public		::	l
real(kind=real64),	public		::	n1
integer(kind=int32),	public		::	nsize
real(kind=real64),	public		::	thetaR			residual water content
real(kind=real64),	public		::	thetaS			saturated water content

Type-Bound Procedures

procedure(Abstract_Calculate_Kflh_Base_Viscosity), public, deferred, pass(self) :: Calculate_Kflh
procedure(Abstract_Calculate_kr_HCF_Base_Viscosity), public, deferred, pass(self) :: Calculate_kr
procedure(Abstract_Set_Calculate_HCF_Viscosity), public, deferred, nopass :: Set_Calculate_Viscosity
procedure(Abstract_Update_Kflh_Base_Viscosity), public, deferred, pass(self) :: Update_Kflh

type, private, abstract, extends(Abstract_HCF) :: Abstract_HCF_Impedance

Components

Type	Visibility	Attributes		Name
real(kind=real64),	public,	allocatable	::	Kflh(:)
real(kind=real64),	public		::	Ks	saturated hydraulic conductivity
real(kind=real64),	public		::	Omega	Impedance factor
integer(kind=int32),	public		::	nsize

Type-Bound Procedures

procedure(Abstract_Calculate_Impedance), public, deferred, nopass :: Calculate_Impedance
procedure(Abstract_Calculate_Kflh_Impedance), public, deferred, pass(self) :: Calculate_Kflh
procedure(Abstract_Update_Kflh_Impedance), public, deferred, pass(self) :: Update_Kflh

type, private, abstract, extends(Abstract_HCF) :: Abstract_HCF_Impedance_Viscosity

Components

Type	Visibility	Attributes		Name		Initial
procedure(Abstract_Calculate_Viscosity),	public,	nopass, pointer	::	Calculate_Viscosity	=>	null()
real(kind=real64),	public,	allocatable	::	Kflh(:)
real(kind=real64),	public		::	Ks			saturated hydraulic conductivity
real(kind=real64),	public		::	Omega
real(kind=real64),	public		::	alpha1
real(kind=real64),	public		::	kzero
real(kind=real64),	public		::	l
real(kind=real64),	public		::	n1
integer(kind=int32),	public		::	nsize
real(kind=real64),	public		::	thetaR			residual water content
real(kind=real64),	public		::	thetaS			saturated water content

Type-Bound Procedures

procedure(Abstract_Calculate_Impedance), public, deferred, nopass :: Calculate_Impedance
procedure(Abstract_Calculate_Kflh_Impedance_Viscosity), public, deferred, pass(self) :: Calculate_Kflh
procedure(Abstract_Set_Calculate_HCF_Viscosity), public, deferred, nopass :: Set_Calculate_Viscosity
procedure(Abstract_Update_Kflh_Impedance_Viscosity), public, deferred, pass(self) :: Update_Kflh

type, private, abstract, extends(Abstract_HCF) :: Abstract_HCF_Viscosity

Components

Type	Visibility	Attributes		Name		Initial
procedure(Abstract_Calculate_Viscosity),	public,	nopass, pointer	::	Calculate_Viscosity	=>	null()
real(kind=real64),	public,	allocatable	::	Kflh(:)
real(kind=real64),	public		::	Ks			saturated hydraulic conductivity
real(kind=real64),	public		::	kzero
integer(kind=int32),	public		::	nsize

Type-Bound Procedures

procedure(Abstract_Calculate_Kflh_Viscosity), public, deferred, pass(self) :: Calculate_Kflh
procedure(Abstract_Set_Calculate_HCF_Viscosity), public, deferred, nopass :: Set_Calculate_Viscosity
procedure(Abstract_Update_Kflh_Viscosity), public, deferred, pass(self) :: Update_Kflh

type, public, extends(Abstract_HCF_Base) :: Type_HCF_Base_BC

Components

Type	Visibility	Attributes		Name
real(kind=real64),	public,	allocatable	::	Kflh(:)
real(kind=real64),	public		::	Ks	saturated hydraulic conductivity
real(kind=real64),	public		::	alpha1
real(kind=real64),	public		::	l
real(kind=real64),	public		::	n1
integer(kind=int32),	public		::	nsize
real(kind=real64),	public		::	thetaR	residual water content
real(kind=real64),	public		::	thetaS	saturated water content

Constructor

private interface Construct_Type_HCF_Base_BC ()
private interface Construct_Type_HCF_Base_BC_minimal ()

Type-Bound Procedures

procedure, public :: Calculate_Kflh => Calculate_Kflh_Base_BC
procedure, public :: Calculate_kr => Calculate_kr_Base_BC
procedure, public :: Update_Kflh => Update_Kflh_Base_BC

type, public, extends(Abstract_HCF_Base) :: Type_HCF_Base_DVGCH

Components

Type	Visibility	Attributes		Name
real(kind=real64),	public,	allocatable	::	Kflh(:)
real(kind=real64),	public		::	Ks	saturated hydraulic conductivity
real(kind=real64),	public		::	alpha1
real(kind=real64),	public		::	l
real(kind=real64),	public		::	m1
real(kind=real64),	public		::	m2
real(kind=real64),	public		::	n1
real(kind=real64),	public		::	n2
integer(kind=int32),	public		::	nsize
real(kind=real64),	public		::	thetaR	residual water content
real(kind=real64),	public		::	thetaS	saturated water content
real(kind=real64),	public		::	w1
real(kind=real64),	public		::	w2

Constructor

private interface Construct_Type_HCF_Base_DVGCH ()
private interface Construct_Type_HCF_Base_DVGCH_minimal ()

Type-Bound Procedures

procedure, public :: Calculate_Kflh => Calculate_Kflh_Base_DVGCH
procedure, public :: Calculate_kr => Calculate_kr_Base_DVGCH
procedure, public :: Update_Kflh => Update_Kflh_Base_DVGCH

type, public, extends(Abstract_HCF_Base) :: Type_HCF_Base_Durner

Components

Type	Visibility	Attributes		Name
real(kind=real64),	public,	allocatable	::	Kflh(:)
real(kind=real64),	public		::	Ks	saturated hydraulic conductivity
real(kind=real64),	public		::	alpha1
real(kind=real64),	public		::	alpha2
real(kind=real64),	public		::	l
real(kind=real64),	public		::	m1
real(kind=real64),	public		::	m2
real(kind=real64),	public		::	n1
real(kind=real64),	public		::	n2
integer(kind=int32),	public		::	nsize
real(kind=real64),	public		::	thetaR	residual water content
real(kind=real64),	public		::	thetaS	saturated water content
real(kind=real64),	public		::	w1
real(kind=real64),	public		::	w2

Constructor

private interface Construct_Type_HCF_Base_Durner ()
private interface Construct_Type_HCF_Base_Durner_minimal ()

Type-Bound Procedures

procedure, public :: Calculate_Kflh => Calculate_Kflh_Base_Durner
procedure, public :: Calculate_kr => Calculate_kr_Base_Durner
procedure, public :: Update_Kflh => Update_Kflh_Base_Durner

type, public, extends(Abstract_HCF_Base_Impedance) :: Type_HCF_Base_Impedance_BC

Components

Type	Visibility	Attributes		Name
real(kind=real64),	public,	allocatable	::	Kflh(:)
real(kind=real64),	public		::	Ks	saturated hydraulic conductivity
real(kind=real64),	public		::	Omega
real(kind=real64),	public		::	alpha1
real(kind=real64),	public		::	l
real(kind=real64),	public		::	n1
integer(kind=int32),	public		::	nsize
real(kind=real64),	public		::	thetaR	residual water content
real(kind=real64),	public		::	thetaS	saturated water content

Constructor

private interface Construct_Type_HCF_Base_Impedance_BC ()
private interface Construct_Type_HCF_Base_Impedance_BC_minimal ()

Type-Bound Procedures

procedure, public, nopass :: Calculate_Impedance => Calculate_Impedance_Base
procedure, public :: Calculate_Kflh => Calculate_Kflh_Base_Impedance_BC
procedure, public :: Calculate_kr => Calculate_kr_Base_Impedance_BC
procedure, public :: Update_Kflh => Update_Kflh_Base_Impedance_BC

type, public, extends(Abstract_HCF_Base_Impedance) :: Type_HCF_Base_Impedance_DVGCH

Components

Type	Visibility	Attributes		Name
real(kind=real64),	public,	allocatable	::	Kflh(:)
real(kind=real64),	public		::	Ks	saturated hydraulic conductivity
real(kind=real64),	public		::	Omega
real(kind=real64),	public		::	alpha1
real(kind=real64),	public		::	l
real(kind=real64),	public		::	m1
real(kind=real64),	public		::	m2
real(kind=real64),	public		::	n1
real(kind=real64),	public		::	n2
integer(kind=int32),	public		::	nsize
real(kind=real64),	public		::	thetaR	residual water content
real(kind=real64),	public		::	thetaS	saturated water content
real(kind=real64),	public		::	w1
real(kind=real64),	public		::	w2

Constructor

private interface Construct_Type_HCF_Base_Impedance_DVGCH ()
private interface Construct_Type_HCF_Base_Impedance_DVGCH_minimal ()

Type-Bound Procedures

procedure, public, nopass :: Calculate_Impedance => Calculate_Impedance_Base
procedure, public :: Calculate_Kflh => Calculate_Kflh_Base_Impedance_DVGCH
procedure, public :: Calculate_kr => Calculate_kr_Base_Impedance_DVGCH
procedure, public :: Update_Kflh => Update_Kflh_Base_Impedance_DVGCH

type, public, extends(Abstract_HCF_Base_Impedance) :: Type_HCF_Base_Impedance_Durner

Components

Type	Visibility	Attributes		Name
real(kind=real64),	public,	allocatable	::	Kflh(:)
real(kind=real64),	public		::	Ks	saturated hydraulic conductivity
real(kind=real64),	public		::	Omega
real(kind=real64),	public		::	alpha1
real(kind=real64),	public		::	alpha2
real(kind=real64),	public		::	l
real(kind=real64),	public		::	m1
real(kind=real64),	public		::	m2
real(kind=real64),	public		::	n1
real(kind=real64),	public		::	n2
integer(kind=int32),	public		::	nsize
real(kind=real64),	public		::	thetaR	residual water content
real(kind=real64),	public		::	thetaS	saturated water content
real(kind=real64),	public		::	w1
real(kind=real64),	public		::	w2

Constructor

private interface Construct_Type_HCF_Base_Impedance_Durner ()
private interface Construct_Type_HCF_Base_Impedance_Durner_minimal ()

Type-Bound Procedures

procedure, public, nopass :: Calculate_Impedance => Calculate_Impedance_Base
procedure, public :: Calculate_Kflh => Calculate_Kflh_Base_Impedance_Durner
procedure, public :: Calculate_kr => Calculate_kr_Base_Impedance_Durner
procedure, public :: Update_Kflh => Update_Kflh_Base_Impedance_Durner

type, public, extends(Abstract_HCF_Base_Impedance) :: Type_HCF_Base_Impedance_KO

Components

Type	Visibility	Attributes		Name
real(kind=real64),	public,	allocatable	::	Kflh(:)
real(kind=real64),	public		::	Ks	saturated hydraulic conductivity
real(kind=real64),	public		::	Omega
real(kind=real64),	public		::	alpha1
real(kind=real64),	public		::	l
real(kind=real64),	public		::	n1
integer(kind=int32),	public		::	nsize
real(kind=real64),	public		::	thetaR	residual water content
real(kind=real64),	public		::	thetaS	saturated water content

Constructor

private interface Construct_Type_HCF_Base_Impedance_KO ()
private interface Construct_Type_HCF_Base_Impedance_KO_minimal ()

Type-Bound Procedures

procedure, public, nopass :: Calculate_Impedance => Calculate_Impedance_Base
procedure, public :: Calculate_Kflh => Calculate_Kflh_Base_Impedance_KO
procedure, public :: Calculate_kr => Calculate_kr_Base_Impedance_KO
procedure, public :: Update_Kflh => Update_Kflh_Base_Impedance_KO

type, public, extends(Abstract_HCF_Base_Impedance) :: Type_HCF_Base_Impedance_MVG

Components

Type	Visibility	Attributes		Name
real(kind=real64),	public,	allocatable	::	Kflh(:)
real(kind=real64),	public		::	Ks	saturated hydraulic conductivity
real(kind=real64),	public		::	Omega
real(kind=real64),	public		::	alpha1
real(kind=real64),	public		::	hcrit
real(kind=real64),	public		::	l
real(kind=real64),	public		::	m1
real(kind=real64),	public		::	n1
integer(kind=int32),	public		::	nsize
real(kind=real64),	public		::	thetaR	residual water content
real(kind=real64),	public		::	thetaS	saturated water content

Constructor

private interface Construct_Type_HCF_Base_Impedance_MVG ()
private interface Construct_Type_HCF_Base_Impedance_MVG_minimal ()

Type-Bound Procedures

procedure, public, nopass :: Calculate_Impedance => Calculate_Impedance_Base
procedure, public :: Calculate_Kflh => Calculate_Kflh_Base_Impedance_MVG
procedure, public :: Calculate_kr => Calculate_kr_Base_Impedance_MVG
procedure, public :: Update_Kflh => Update_Kflh_Base_Impedance_MVG

type, public, extends(Abstract_HCF_Base_Impedance) :: Type_HCF_Base_Impedance_VG

Components

Type	Visibility	Attributes		Name
real(kind=real64),	public,	allocatable	::	Kflh(:)
real(kind=real64),	public		::	Ks	saturated hydraulic conductivity
real(kind=real64),	public		::	Omega
real(kind=real64),	public		::	alpha1
real(kind=real64),	public		::	l
real(kind=real64),	public		::	m1
real(kind=real64),	public		::	n1
integer(kind=int32),	public		::	nsize
real(kind=real64),	public		::	thetaR	residual water content
real(kind=real64),	public		::	thetaS	saturated water content

Constructor

private interface Construct_Type_HCF_Base_Impedance_VG ()
private interface Construct_Type_HCF_Base_Impedance_VG_minimal ()

Type-Bound Procedures

procedure, public, nopass :: Calculate_Impedance => Calculate_Impedance_Base
procedure, public :: Calculate_Kflh => Calculate_Kflh_Base_Impedance_VG
procedure, public :: Calculate_kr => Calculate_kr_Base_Impedance_VG
procedure, public :: Update_Kflh => Update_Kflh_Base_Impedance_VG

type, public, extends(Abstract_HCF_Base_Impedance_Viscosity) :: Type_HCF_Base_Impedance_Viscosity_BC

Components

Type	Visibility	Attributes		Name		Initial
procedure(Abstract_Calculate_Viscosity),	public,	nopass, pointer	::	Calculate_Viscosity	=>	null()
real(kind=real64),	public,	allocatable	::	Kflh(:)
real(kind=real64),	public		::	Ks			saturated hydraulic conductivity
real(kind=real64),	public		::	Omega
real(kind=real64),	public		::	alpha1
real(kind=real64),	public		::	kzero
real(kind=real64),	public		::	l
real(kind=real64),	public		::	n1
integer(kind=int32),	public		::	nsize
real(kind=real64),	public		::	thetaR			residual water content
real(kind=real64),	public		::	thetaS			saturated water content

Constructor

private interface Construct_Type_HCF_Base_Impedance_Viscosity_BC ()
private interface Construct_Type_HCF_Base_Impedance_Viscosity_BC_minimal ()

Type-Bound Procedures

procedure, public, nopass :: Calculate_Impedance => Calculate_Impedance_Base
procedure, public :: Calculate_Kflh => Calculate_Kflh_Base_Impedance_Viscosity_BC
procedure, public :: Calculate_kr => Calculate_kr_Base_Impedance_Viscosity_BC
procedure, public, nopass :: Set_Calculate_Viscosity => Set_Calculate_Viscosity_Base
procedure, public :: Update_Kflh => Update_Kflh_Base_Impedance_Viscosity_BC

type, public, extends(Abstract_HCF_Base_Impedance_Viscosity) :: Type_HCF_Base_Impedance_Viscosity_DVGCH

Components

Type	Visibility	Attributes		Name		Initial
procedure(Abstract_Calculate_Viscosity),	public,	nopass, pointer	::	Calculate_Viscosity	=>	null()
real(kind=real64),	public,	allocatable	::	Kflh(:)
real(kind=real64),	public		::	Ks			saturated hydraulic conductivity
real(kind=real64),	public		::	Omega
real(kind=real64),	public		::	alpha1
real(kind=real64),	public		::	kzero
real(kind=real64),	public		::	l
real(kind=real64),	public		::	m1
real(kind=real64),	public		::	m2
real(kind=real64),	public		::	n1
real(kind=real64),	public		::	n2
integer(kind=int32),	public		::	nsize
real(kind=real64),	public		::	thetaR			residual water content
real(kind=real64),	public		::	thetaS			saturated water content
real(kind=real64),	public		::	w1
real(kind=real64),	public		::	w2

Constructor

private interface Construct_Type_HCF_Base_Impedance_Viscosity_DVGCH ()
private interface Construct_Type_HCF_Base_Impedance_Viscosity_DVGCH_minimal ()

Type-Bound Procedures

procedure, public, nopass :: Calculate_Impedance => Calculate_Impedance_Base
procedure, public :: Calculate_Kflh => Calculate_Kflh_Base_Impedance_Viscosity_DVGCH
procedure, public :: Calculate_kr => Calculate_kr_Base_Impedance_Viscosity_DVGCH
procedure, public, nopass :: Set_Calculate_Viscosity => Set_Calculate_Viscosity_Base
procedure, public :: Update_Kflh => Update_Kflh_Base_Impedance_Viscosity_DVGCH

type, public, extends(Abstract_HCF_Base_Impedance_Viscosity) :: Type_HCF_Base_Impedance_Viscosity_Durner

Components

Type	Visibility	Attributes		Name		Initial
procedure(Abstract_Calculate_Viscosity),	public,	nopass, pointer	::	Calculate_Viscosity	=>	null()
real(kind=real64),	public,	allocatable	::	Kflh(:)
real(kind=real64),	public		::	Ks			saturated hydraulic conductivity
real(kind=real64),	public		::	Omega
real(kind=real64),	public		::	alpha1
real(kind=real64),	public		::	alpha2
real(kind=real64),	public		::	kzero
real(kind=real64),	public		::	l
real(kind=real64),	public		::	m1
real(kind=real64),	public		::	m2
real(kind=real64),	public		::	n1
real(kind=real64),	public		::	n2
integer(kind=int32),	public		::	nsize
real(kind=real64),	public		::	thetaR			residual water content
real(kind=real64),	public		::	thetaS			saturated water content
real(kind=real64),	public		::	w1
real(kind=real64),	public		::	w2

Constructor

private interface Construct_Type_HCF_Base_Impedance_Viscosity_Durner ()
private interface Construct_Type_HCF_Base_Impedance_Viscosity_Durner_minimal ()

Type-Bound Procedures

procedure, public, nopass :: Calculate_Impedance => Calculate_Impedance_Base
procedure, public :: Calculate_Kflh => Calculate_Kflh_Base_Impedance_Viscosity_Durner
procedure, public :: Calculate_kr => Calculate_kr_Base_Impedance_Viscosity_Durner
procedure, public, nopass :: Set_Calculate_Viscosity => Set_Calculate_Viscosity_Base
procedure, public :: Update_Kflh => Update_Kflh_Base_Impedance_Viscosity_Durner

type, public, extends(Abstract_HCF_Base_Impedance_Viscosity) :: Type_HCF_Base_Impedance_Viscosity_KO

Components

Type	Visibility	Attributes		Name		Initial
procedure(Abstract_Calculate_Viscosity),	public,	nopass, pointer	::	Calculate_Viscosity	=>	null()
real(kind=real64),	public,	allocatable	::	Kflh(:)
real(kind=real64),	public		::	Ks			saturated hydraulic conductivity
real(kind=real64),	public		::	Omega
real(kind=real64),	public		::	alpha1
real(kind=real64),	public		::	kzero
real(kind=real64),	public		::	l
real(kind=real64),	public		::	n1
integer(kind=int32),	public		::	nsize
real(kind=real64),	public		::	thetaR			residual water content
real(kind=real64),	public		::	thetaS			saturated water content

Constructor

private interface Construct_Type_HCF_Base_Impedance_Viscosity_KO ()
private interface Construct_Type_HCF_Base_Impedance_Viscosity_KO_minimal ()

Type-Bound Procedures

procedure, public, nopass :: Calculate_Impedance => Calculate_Impedance_Base
procedure, public :: Calculate_Kflh => Calculate_Kflh_Base_Impedance_Viscosity_KO
procedure, public :: Calculate_kr => Calculate_kr_Base_Impedance_Viscosity_KO
procedure, public, nopass :: Set_Calculate_Viscosity => Set_Calculate_Viscosity_Base
procedure, public :: Update_Kflh => Update_Kflh_Base_Impedance_Viscosity_KO

type, public, extends(Abstract_HCF_Base_Impedance_Viscosity) :: Type_HCF_Base_Impedance_Viscosity_MVG

Components

Type	Visibility	Attributes		Name		Initial
procedure(Abstract_Calculate_Viscosity),	public,	nopass, pointer	::	Calculate_Viscosity	=>	null()
real(kind=real64),	public,	allocatable	::	Kflh(:)
real(kind=real64),	public		::	Ks			saturated hydraulic conductivity
real(kind=real64),	public		::	Omega
real(kind=real64),	public		::	alpha1
real(kind=real64),	public		::	hcrit
real(kind=real64),	public		::	kzero
real(kind=real64),	public		::	l
real(kind=real64),	public		::	m1
real(kind=real64),	public		::	n1
integer(kind=int32),	public		::	nsize
real(kind=real64),	public		::	thetaR			residual water content
real(kind=real64),	public		::	thetaS			saturated water content

Constructor

private interface Construct_Type_HCF_Base_Impedance_Viscosity_MVG ()
private interface Construct_Type_HCF_Base_Impedance_Viscosity_MVG_minimal ()

Type-Bound Procedures

procedure, public, nopass :: Calculate_Impedance => Calculate_Impedance_Base
procedure, public :: Calculate_Kflh => Calculate_Kflh_Base_Impedance_Viscosity_MVG
procedure, public :: Calculate_kr => Calculate_kr_Base_Impedance_Viscosity_MVG
procedure, public, nopass :: Set_Calculate_Viscosity => Set_Calculate_Viscosity_Base
procedure, public :: Update_Kflh => Update_Kflh_Base_Impedance_Viscosity_MVG

type, public, extends(Abstract_HCF_Base_Impedance_Viscosity) :: Type_HCF_Base_Impedance_Viscosity_VG

Components

Type	Visibility	Attributes		Name		Initial
procedure(Abstract_Calculate_Viscosity),	public,	nopass, pointer	::	Calculate_Viscosity	=>	null()
real(kind=real64),	public,	allocatable	::	Kflh(:)
real(kind=real64),	public		::	Ks			saturated hydraulic conductivity
real(kind=real64),	public		::	Omega
real(kind=real64),	public		::	alpha1
real(kind=real64),	public		::	kzero
real(kind=real64),	public		::	l
real(kind=real64),	public		::	m1
real(kind=real64),	public		::	n1
integer(kind=int32),	public		::	nsize
real(kind=real64),	public		::	thetaR			residual water content
real(kind=real64),	public		::	thetaS			saturated water content

Constructor

private interface Construct_Type_HCF_Base_Impedance_Viscosity_VG ()
private interface Construct_Type_HCF_Base_Impedance_Viscosity_VG_minimal ()

Type-Bound Procedures

procedure, public, nopass :: Calculate_Impedance => Calculate_Impedance_Base
procedure, public :: Calculate_Kflh => Calculate_Kflh_Base_Impedance_Viscosity_VG
procedure, public :: Calculate_kr => Calculate_kr_Base_Impedance_Viscosity_VG
procedure, public, nopass :: Set_Calculate_Viscosity => Set_Calculate_Viscosity_Base
procedure, public :: Update_Kflh => Update_Kflh_Base_Impedance_Viscosity_VG

type, public, extends(Abstract_HCF_Base) :: Type_HCF_Base_KO

Components

Type	Visibility	Attributes		Name
real(kind=real64),	public,	allocatable	::	Kflh(:)
real(kind=real64),	public		::	Ks	saturated hydraulic conductivity
real(kind=real64),	public		::	alpha1
real(kind=real64),	public		::	l
real(kind=real64),	public		::	n1
integer(kind=int32),	public		::	nsize
real(kind=real64),	public		::	thetaR	residual water content
real(kind=real64),	public		::	thetaS	saturated water content

Constructor

private interface Construct_Type_HCF_Base_KO ()
private interface Construct_Type_HCF_Base_KO_minimal ()

Type-Bound Procedures

procedure, public :: Calculate_Kflh => Calculate_Kflh_Base_KO
procedure, public :: Calculate_kr => Calculate_kr_Base_KO
procedure, public :: Update_Kflh => Update_Kflh_Base_KO

type, public, extends(Abstract_HCF_Base) :: Type_HCF_Base_MVG

Components

Type	Visibility	Attributes		Name
real(kind=real64),	public,	allocatable	::	Kflh(:)
real(kind=real64),	public		::	Ks	saturated hydraulic conductivity
real(kind=real64),	public		::	alpha1
real(kind=real64),	public		::	hcrit
real(kind=real64),	public		::	l
real(kind=real64),	public		::	m1
real(kind=real64),	public		::	n1
integer(kind=int32),	public		::	nsize
real(kind=real64),	public		::	thetaR	residual water content
real(kind=real64),	public		::	thetaS	saturated water content

Constructor

private interface Construct_Type_HCF_Base_MVG ()
private interface Construct_Type_HCF_Base_MVG_minimal ()

Type-Bound Procedures

procedure, public :: Calculate_Kflh => Calculate_Kflh_Base_MVG
procedure, public :: Calculate_kr => Calculate_kr_Base_MVG
procedure, public :: Update_Kflh => Update_Kflh_Base_MVG

type, public, extends(Abstract_HCF_Base) :: Type_HCF_Base_VG

Components

Type	Visibility	Attributes		Name
real(kind=real64),	public,	allocatable	::	Kflh(:)
real(kind=real64),	public		::	Ks	saturated hydraulic conductivity
real(kind=real64),	public		::	alpha1
real(kind=real64),	public		::	l
real(kind=real64),	public		::	m1
real(kind=real64),	public		::	n1
integer(kind=int32),	public		::	nsize
real(kind=real64),	public		::	thetaR	residual water content
real(kind=real64),	public		::	thetaS	saturated water content

Constructor

private interface Construct_Type_HCF_Base_VG ()
private interface Construct_Type_HCF_Base_VG_minimal ()

Type-Bound Procedures

procedure, public :: Calculate_Kflh => Calculate_Kflh_Base_VG
procedure, public :: Calculate_kr => Calculate_kr_Base_VG
procedure, public :: Update_Kflh => Update_Kflh_Base_VG

type, public, extends(Abstract_HCF_Base_Viscosity) :: Type_HCF_Base_Viscosity_BC

Components

Type	Visibility	Attributes		Name		Initial
procedure(Abstract_Calculate_Viscosity),	public,	nopass, pointer	::	Calculate_Viscosity	=>	null()
real(kind=real64),	public,	allocatable	::	Kflh(:)
real(kind=real64),	public		::	Ks			saturated hydraulic conductivity
real(kind=real64),	public		::	alpha1
real(kind=real64),	public		::	kzero
real(kind=real64),	public		::	l
real(kind=real64),	public		::	n1
integer(kind=int32),	public		::	nsize
real(kind=real64),	public		::	thetaR			residual water content
real(kind=real64),	public		::	thetaS			saturated water content

Constructor

private interface Construct_Type_HCF_Base_Viscosity_BC ()
private interface Construct_Type_HCF_Base_Viscosity_BC_minimal ()

Type-Bound Procedures

procedure, public :: Calculate_Kflh => Calculate_Kflh_Base_Viscosity_BC
procedure, public :: Calculate_kr => Calculate_kr_Base_Viscosity_BC
procedure, public, nopass :: Set_Calculate_Viscosity => Set_Calculate_Viscosity_Base
procedure, public :: Update_Kflh => Update_Kflh_Base_Viscosity_BC

type, public, extends(Abstract_HCF_Base_Viscosity) :: Type_HCF_Base_Viscosity_DVGCH

Components

Type	Visibility	Attributes		Name		Initial
procedure(Abstract_Calculate_Viscosity),	public,	nopass, pointer	::	Calculate_Viscosity	=>	null()
real(kind=real64),	public,	allocatable	::	Kflh(:)
real(kind=real64),	public		::	Ks			saturated hydraulic conductivity
real(kind=real64),	public		::	alpha1
real(kind=real64),	public		::	kzero
real(kind=real64),	public		::	l
real(kind=real64),	public		::	m1
real(kind=real64),	public		::	m2
real(kind=real64),	public		::	n1
real(kind=real64),	public		::	n2
integer(kind=int32),	public		::	nsize
real(kind=real64),	public		::	thetaR			residual water content
real(kind=real64),	public		::	thetaS			saturated water content
real(kind=real64),	public		::	w1
real(kind=real64),	public		::	w2

Constructor

private interface Construct_Type_HCF_Base_Viscosity_DVGCH ()
private interface Construct_Type_HCF_Base_Viscosity_DVGCH_minimal ()

Type-Bound Procedures

procedure, public :: Calculate_Kflh => Calculate_Kflh_Base_Viscosity_DVGCH
procedure, public :: Calculate_kr => Calculate_kr_Base_Viscosity_DVGCH
procedure, public, nopass :: Set_Calculate_Viscosity => Set_Calculate_Viscosity_Base
procedure, public :: Update_Kflh => Update_Kflh_Base_Viscosity_DVGCH

type, public, extends(Abstract_HCF_Base_Viscosity) :: Type_HCF_Base_Viscosity_Durner

Components

Type	Visibility	Attributes		Name		Initial
procedure(Abstract_Calculate_Viscosity),	public,	nopass, pointer	::	Calculate_Viscosity	=>	null()
real(kind=real64),	public,	allocatable	::	Kflh(:)
real(kind=real64),	public		::	Ks			saturated hydraulic conductivity
real(kind=real64),	public		::	alpha1
real(kind=real64),	public		::	alpha2
real(kind=real64),	public		::	kzero
real(kind=real64),	public		::	l
real(kind=real64),	public		::	m1
real(kind=real64),	public		::	m2
real(kind=real64),	public		::	n1
real(kind=real64),	public		::	n2
integer(kind=int32),	public		::	nsize
real(kind=real64),	public		::	thetaR			residual water content
real(kind=real64),	public		::	thetaS			saturated water content
real(kind=real64),	public		::	w1
real(kind=real64),	public		::	w2

Constructor

private interface Construct_Type_HCF_Base_Viscosity_Durner ()
private interface Construct_Type_HCF_Base_Viscosity_Durner_minimal ()

Type-Bound Procedures

procedure, public :: Calculate_Kflh => Calculate_Kflh_Base_Viscosity_Durner
procedure, public :: Calculate_kr => Calculate_kr_Base_Viscosity_Durner
procedure, public, nopass :: Set_Calculate_Viscosity => Set_Calculate_Viscosity_Base
procedure, public :: Update_Kflh => Update_Kflh_Base_Viscosity_Durner

type, public, extends(Abstract_HCF_Base_Viscosity) :: Type_HCF_Base_Viscosity_KO

Components

Type	Visibility	Attributes		Name		Initial
procedure(Abstract_Calculate_Viscosity),	public,	nopass, pointer	::	Calculate_Viscosity	=>	null()
real(kind=real64),	public,	allocatable	::	Kflh(:)
real(kind=real64),	public		::	Ks			saturated hydraulic conductivity
real(kind=real64),	public		::	alpha1
real(kind=real64),	public		::	kzero
real(kind=real64),	public		::	l
real(kind=real64),	public		::	n1
integer(kind=int32),	public		::	nsize
real(kind=real64),	public		::	thetaR			residual water content
real(kind=real64),	public		::	thetaS			saturated water content

Constructor

private interface Construct_Type_HCF_Base_Viscosity_KO ()
private interface Construct_Type_HCF_Base_Viscosity_KO_minimal ()

Type-Bound Procedures

procedure, public :: Calculate_Kflh => Calculate_Kflh_Base_Viscosity_KO
procedure, public :: Calculate_kr => Calculate_kr_Base_Viscosity_KO
procedure, public, nopass :: Set_Calculate_Viscosity => Set_Calculate_Viscosity_Base
procedure, public :: Update_Kflh => Update_Kflh_Base_Viscosity_KO

type, public, extends(Abstract_HCF_Base_Viscosity) :: Type_HCF_Base_Viscosity_MVG

Components

Type	Visibility	Attributes		Name		Initial
procedure(Abstract_Calculate_Viscosity),	public,	nopass, pointer	::	Calculate_Viscosity	=>	null()
real(kind=real64),	public,	allocatable	::	Kflh(:)
real(kind=real64),	public		::	Ks			saturated hydraulic conductivity
real(kind=real64),	public		::	alpha1
real(kind=real64),	public		::	hcrit
real(kind=real64),	public		::	kzero
real(kind=real64),	public		::	l
real(kind=real64),	public		::	m1
real(kind=real64),	public		::	n1
integer(kind=int32),	public		::	nsize
real(kind=real64),	public		::	thetaR			residual water content
real(kind=real64),	public		::	thetaS			saturated water content

Constructor

private interface Construct_Type_HCF_Base_Viscosity_MVG ()
private interface Construct_Type_HCF_Base_Viscosity_MVG_minimal ()

Type-Bound Procedures

procedure, public :: Calculate_Kflh => Calculate_Kflh_Base_Viscosity_MVG
procedure, public :: Calculate_kr => Calculate_kr_Base_Viscosity_MVG
procedure, public, nopass :: Set_Calculate_Viscosity => Set_Calculate_Viscosity_Base
procedure, public :: Update_Kflh => Update_Kflh_Base_Viscosity_MVG

type, public, extends(Abstract_HCF_Base_Viscosity) :: Type_HCF_Base_Viscosity_VG

Components

Type	Visibility	Attributes		Name		Initial
procedure(Abstract_Calculate_Viscosity),	public,	nopass, pointer	::	Calculate_Viscosity	=>	null()
real(kind=real64),	public,	allocatable	::	Kflh(:)
real(kind=real64),	public		::	Ks			saturated hydraulic conductivity
real(kind=real64),	public		::	alpha1
real(kind=real64),	public		::	kzero
real(kind=real64),	public		::	l
real(kind=real64),	public		::	m1
real(kind=real64),	public		::	n1
integer(kind=int32),	public		::	nsize
real(kind=real64),	public		::	thetaR			residual water content
real(kind=real64),	public		::	thetaS			saturated water content

Constructor

private interface Construct_Type_HCF_Base_Viscosity_VG ()
private interface Construct_Type_HCF_Base_Viscosity_VG_minimal ()

Type-Bound Procedures

procedure, public :: Calculate_Kflh => Calculate_Kflh_Base_Viscosity_VG
procedure, public :: Calculate_kr => Calculate_kr_Base_Viscosity_VG
procedure, public, nopass :: Set_Calculate_Viscosity => Set_Calculate_Viscosity_Base
procedure, public :: Update_Kflh => Update_Kflh_Base_Viscosity_VG

type, public, extends(Abstract_HCF_Impedance) :: Type_HCF_Impedance

Components

Type	Visibility	Attributes		Name
real(kind=real64),	public,	allocatable	::	Kflh(:)
real(kind=real64),	public		::	Ks	saturated hydraulic conductivity
real(kind=real64),	public		::	Omega	Impedance factor
integer(kind=int32),	public		::	nsize

Constructor

private interface Construct_Type_HCF_Impedance ()
private interface Construct_Type_HCF_Impedance_minimal ()

Type-Bound Procedures

procedure, public, nopass :: Calculate_Impedance => Calculate_Impedance_Base
procedure, public :: Calculate_Kflh => Calculate_Kflh_Impedance
procedure, public :: Update_Kflh => Update_Kflh_Impedance

type, public, extends(Abstract_HCF_Impedance_Viscosity) :: Type_HCF_Impedance_Viscosity

Components

Type	Visibility	Attributes		Name		Initial
procedure(Abstract_Calculate_Viscosity),	public,	nopass, pointer	::	Calculate_Viscosity	=>	null()
real(kind=real64),	public,	allocatable	::	Kflh(:)
real(kind=real64),	public		::	Ks			saturated hydraulic conductivity
real(kind=real64),	public		::	Omega
real(kind=real64),	public		::	alpha1
real(kind=real64),	public		::	kzero
real(kind=real64),	public		::	l
real(kind=real64),	public		::	n1
integer(kind=int32),	public		::	nsize
real(kind=real64),	public		::	thetaR			residual water content
real(kind=real64),	public		::	thetaS			saturated water content

Constructor

private interface Construct_Type_HCF_Impedance_Viscosity ()
private interface Construct_Type_HCF_Impedance_Viscosity_minimal ()

Type-Bound Procedures

procedure, public, nopass :: Calculate_Impedance => Calculate_Impedance_Base
procedure, public, pass :: Calculate_Kflh => Calculate_Kflh_Impedance_Viscosity
procedure, public, nopass :: Set_Calculate_Viscosity => Set_Calculate_Viscosity_Base
procedure, public, pass :: Update_Kflh => Update_Kflh_Impedance_Viscosity

type, public, extends(Abstract_HCF_Viscosity) :: Type_HCF_Viscosity

Components

Type	Visibility	Attributes		Name		Initial
procedure(Abstract_Calculate_Viscosity),	public,	nopass, pointer	::	Calculate_Viscosity	=>	null()
real(kind=real64),	public,	allocatable	::	Kflh(:)
real(kind=real64),	public		::	Ks			saturated hydraulic conductivity
real(kind=real64),	public		::	kzero
integer(kind=int32),	public		::	nsize

Constructor

private interface Construct_Type_HCF_Viscosity ()
private interface Construct_Type_HCF_Viscosity_minimal ()

Type-Bound Procedures

procedure, public :: Calculate_Kflh => Calculate_Kflh_Viscosity
procedure, public, nopass :: Set_Calculate_Viscosity => Set_Calculate_Viscosity_Base
procedure, public :: Update_Kflh => Update_Kflh_Viscosity

Functions

private function Construct_Type_HCF(useHCFType, Ks, thetaS, thetaR, alpha1, n1, w1, alpha2, n2, l, hcrit, Omega, useViscosity, nsize) result(structure_HCF)

Arguments

Type	Intent	Optional		Name
integer(kind=int32),	intent(in)		::	useHCFType
real(kind=real64),	intent(in)		::	Ks
real(kind=real64),	intent(in),	optional	::	thetaS
real(kind=real64),	intent(in),	optional	::	thetaR
real(kind=real64),	intent(in),	optional	::	alpha1
real(kind=real64),	intent(in),	optional	::	n1
real(kind=real64),	intent(in),	optional	::	w1
real(kind=real64),	intent(in),	optional	::	alpha2
real(kind=real64),	intent(in),	optional	::	n2
real(kind=real64),	intent(in),	optional	::	l
real(kind=real64),	intent(in),	optional	::	hcrit
real(kind=real64),	intent(in),	optional	::	Omega
integer(kind=int32),	intent(in),	optional	::	useViscosity
integer(kind=int32),	intent(in)		::	nsize

Return Value class(Abstract_HCF), allocatable

private function Construct_Type_HCF_minimal(useHCFType) result(structure_HCF)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=int32),	intent(in)			::	useHCFType

Calculate_HCF Module

Contents

Interfaces

Abstract Interfaces

Derived Types

Functions

Uses

Used by

Descendants:

Interfaces

interface

private module function Calculate_HCF_mu_Exponential(Temperature) result(Viscosity) Implementation →

Arguments

Return Value real(kind=real64)

interface

private module function Calculate_HCF_mu_Exponential_Supercooled(Temperature) result(Viscosity) Implementation →

Arguments

Return Value real(kind=real64)

interface

private module function Calculate_Impedance_Base(Omega, thetaI) result(Impedance) Implementation →

Arguments

Return Value real(kind=real64)

interface

private module function Calculate_Kflh_Base_BC(self, h) result(Kflh) Implementation →

Arguments

Return Value real(kind=real64)

interface

private module function Calculate_Kflh_Base_DVGCH(self, h) result(Kflh) Implementation →

Arguments

Return Value real(kind=real64)

interface

private module function Calculate_Kflh_Base_Durner(self, h) result(Kflh) Implementation →

Arguments

Return Value real(kind=real64)

interface

private module function Calculate_Kflh_Base_Impedance_BC(self, h, thetaI) result(Kflh) Implementation →

Arguments

Return Value real(kind=real64)

interface

private module function Calculate_Kflh_Base_Impedance_DVGCH(self, h, thetaI) result(Kflh) Implementation →

Arguments

Return Value real(kind=real64)

interface

private module function Calculate_Kflh_Base_Impedance_Durner(self, h, thetaI) result(Kflh) Implementation →

Arguments

Return Value real(kind=real64)

interface

private module function Calculate_Kflh_Base_Impedance_KO(self, h, thetaI) result(Kflh) Implementation →

Arguments

Return Value real(kind=real64)

interface

private module function Calculate_Kflh_Base_Impedance_MVG(self, h, thetaI) result(Kflh) Implementation →

Arguments

Return Value real(kind=real64)

interface

private module function Calculate_Kflh_Base_Impedance_VG(self, h, thetaI) result(Kflh) Implementation →

Arguments

Return Value real(kind=real64)

interface

private module function Calculate_Kflh_Base_Impedance_Viscosity_BC(self, h, thetaI, Temperature) result(Kflh) Implementation →

Arguments

Return Value real(kind=real64)

interface

private module function Calculate_Kflh_Base_Impedance_Viscosity_DVGCH(self, h, thetaI, Temperature) result(Kflh) Implementation →

Arguments

Return Value real(kind=real64)

interface

private module function Calculate_Kflh_Base_Impedance_Viscosity_Durner(self, h, thetaI, Temperature) result(Kflh) Implementation →

Arguments

Return Value real(kind=real64)

interface

private module function Calculate_Kflh_Base_Impedance_Viscosity_KO(self, h, thetaI, Temperature) result(Kflh) Implementation →

Arguments

Return Value real(kind=real64)

interface

private module function Calculate_Kflh_Base_Impedance_Viscosity_MVG(self, h, thetaI, Temperature) result(Kflh) Implementation →

Arguments

Return Value real(kind=real64)

interface

private module function Calculate_Kflh_Base_Impedance_Viscosity_VG(self, h, thetaI, Temperature) result(Kflh) Implementation →

private module function Calculate_HCF_mu_Exponential(Temperature) result(Viscosity)

private module function Calculate_HCF_mu_Exponential_Supercooled(Temperature) result(Viscosity)

private module function Calculate_Impedance_Base(Omega, thetaI) result(Impedance)

private module function Calculate_Kflh_Base_BC(self, h) result(Kflh)

private module function Calculate_Kflh_Base_DVGCH(self, h) result(Kflh)

private module function Calculate_Kflh_Base_Durner(self, h) result(Kflh)

private module function Calculate_Kflh_Base_Impedance_BC(self, h, thetaI) result(Kflh)

private module function Calculate_Kflh_Base_Impedance_DVGCH(self, h, thetaI) result(Kflh)

private module function Calculate_Kflh_Base_Impedance_Durner(self, h, thetaI) result(Kflh)

private module function Calculate_Kflh_Base_Impedance_KO(self, h, thetaI) result(Kflh)

private module function Calculate_Kflh_Base_Impedance_MVG(self, h, thetaI) result(Kflh)

private module function Calculate_Kflh_Base_Impedance_VG(self, h, thetaI) result(Kflh)

private module function Calculate_Kflh_Base_Impedance_Viscosity_BC(self, h, thetaI, Temperature) result(Kflh)

private module function Calculate_Kflh_Base_Impedance_Viscosity_DVGCH(self, h, thetaI, Temperature) result(Kflh)

private module function Calculate_Kflh_Base_Impedance_Viscosity_Durner(self, h, thetaI, Temperature) result(Kflh)

private module function Calculate_Kflh_Base_Impedance_Viscosity_KO(self, h, thetaI, Temperature) result(Kflh)

private module function Calculate_Kflh_Base_Impedance_Viscosity_MVG(self, h, thetaI, Temperature) result(Kflh)

private module function Calculate_Kflh_Base_Impedance_Viscosity_VG(self, h, thetaI, Temperature) result(Kflh)

private module function Calculate_Kflh_Base_KO(self, h) result(Kflh)

private module function Calculate_Kflh_Base_MVG(self, h) result(Kflh)

private module function Calculate_Kflh_Base_VG(self, h) result(Kflh)

private module function Calculate_Kflh_Base_Viscosity_BC(self, h, Temperature) result(Kflh)

private module function Calculate_Kflh_Base_Viscosity_DVGCH(self, h, Temperature) result(Kflh)

private module function Calculate_Kflh_Base_Viscosity_Durner(self, h, Temperature) result(Kflh)

private module function Calculate_Kflh_Base_Viscosity_KO(self, h, Temperature) result(Kflh)

private module function Calculate_Kflh_Base_Viscosity_MVG(self, h, Temperature) result(Kflh)

private module function Calculate_Kflh_Base_Viscosity_VG(self, h, Temperature) result(Kflh)

private module function Calculate_Kflh_Impedance(self, thetaI) result(Kflh)

private module function Calculate_Kflh_Impedance_Viscosity(self, thetaI, Temperature) result(Kflh)

private module function Calculate_Kflh_Viscosity(self, Temperature) result(Kflh)

private module function Calculate_kr_BC_Base(alpha1, n1, l, h) result(kr)

private module function Calculate_kr_Base_BC(self, h) result(kr)

private module function Calculate_kr_Base_DVGCH(self, h) result(kr)

private module function Calculate_kr_Base_Durner(self, h) result(kr)

private module function Calculate_kr_Base_Impedance_BC(self, h) result(kr)