type_properties_manager

type, public :: type_properties_manager

Inherits

Help

Inherited by

Help

Components

Type	Visibility	Attributes		Name		Initial
type(type_material_manager),	public		::	materials

Type-Bound Procedures

generic, public :: calc_dQw_dT => calculate_dQw_dT, calculate_dQw_dT_array

private pure elemental subroutine calculate_dQw_dT(ptrs, state)

Arguments

Type	Intent	Optional	Attributes		Name
type(type_material_pointers),	intent(in)			::	ptrs
type(type_state),	intent(inout)			::	state

private pure subroutine calculate_dQw_dT_array(ptrs, states)

Arguments

Type	Intent	Optional	Attributes		Name
type(type_material_pointers),	intent(in)			::	ptrs
type(type_state),	intent(inout)			::	states(:)

generic, public :: calc_hcf => calculate_hcf_scalar, calculate_hcf_array

private function calculate_hcf_scalar(self, material_id, state) result(val)

Arguments

Type	Intent		Name
class(type_properties_manager),	intent(in)	::	self
integer(kind=int32),	intent(in)	::	material_id
type(type_state),	intent(inout)	::	state

Return Value real(kind=real64)

private function calculate_hcf_array(self, material_id, states) result(vals)

Arguments

Type	Intent		Name
class(type_properties_manager),	intent(in)	::	self
integer(kind=int32),	intent(in)	::	material_id
type(type_state),	intent(inout)	::	states(:)

Return Value real(kind=real64), (size(states))

generic, public :: calc_hydraulic => calc_hydraulic_properties_scalar, calc_hydraulic_properties_array

private subroutine calc_hydraulic_properties_scalar(self, material_id, state, kflh)

Arguments

Type	Intent		Name
class(type_properties_manager),	intent(in)	::	self
integer(kind=int32),	intent(in)	::	material_id
type(type_state),	intent(inout)	::	state
real(kind=real64),	intent(inout)	::	kflh

private subroutine calc_hydraulic_properties_array(self, material_id, states, kflhs)

Arguments

Type	Intent		Name
class(type_properties_manager),	intent(in)	::	self
integer(kind=int32),	intent(in)	::	material_id
type(type_state),	intent(inout)	::	states(:)
real(kind=real64),	intent(inout)	::	kflhs(size(states))

procedure, private, pass(self) :: calc_hydraulic_properties_array

private subroutine calc_hydraulic_properties_array(self, material_id, states, kflhs)

Arguments

Type	Intent		Name
class(type_properties_manager),	intent(in)	::	self
integer(kind=int32),	intent(in)	::	material_id
type(type_state),	intent(inout)	::	states(:)
real(kind=real64),	intent(inout)	::	kflhs(size(states))

procedure, private, pass(self) :: calc_hydraulic_properties_impl_array

private subroutine calc_hydraulic_properties_impl_array(self, ptrs, states, kflhs)

Arguments

Type	Intent		Name
class(type_properties_manager),	intent(in)	::	self
type(type_material_pointers),	intent(in)	::	ptrs
type(type_state),	intent(inout)	::	states(:)
real(kind=real64),	intent(inout)	::	kflhs(size(states))

procedure, private, pass(self) :: calc_hydraulic_properties_impl_scalar

private subroutine calc_hydraulic_properties_impl_scalar(self, state, ptrs, kflh)

Arguments

Type	Intent		Name
class(type_properties_manager),	intent(in)	::	self
type(type_state),	intent(inout)	::	state
type(type_material_pointers),	intent(in)	::	ptrs
real(kind=real64),	intent(inout)	::	kflh

procedure, private, pass(self) :: calc_hydraulic_properties_scalar

private subroutine calc_hydraulic_properties_scalar(self, material_id, state, kflh)

Arguments

Type	Intent		Name
class(type_properties_manager),	intent(in)	::	self
integer(kind=int32),	intent(in)	::	material_id
type(type_state),	intent(inout)	::	state
real(kind=real64),	intent(inout)	::	kflh

generic, public :: calc_qw => calculate_qw_scalar, calculate_qw_array

private function calculate_qw_scalar(self, material_id, state) result(val)

Arguments

Type	Intent		Name
class(type_properties_manager),	intent(in)	::	self
integer(kind=int32),	intent(in)	::	material_id
type(type_state),	intent(inout)	::	state

Return Value real(kind=real64)

private function calculate_qw_array(self, material_id, states) result(vals)

Arguments

Type	Intent		Name
class(type_properties_manager),	intent(in)	::	self
integer(kind=int32),	intent(in)	::	material_id
type(type_state),	intent(inout)	::	states(:)

Return Value real(kind=real64), (size(states))

generic, public :: calc_thc => calculate_thc_scalar, calculate_thc_array

private function calculate_thc_scalar(self, material_id, state) result(val)

Arguments

Type	Intent		Name
class(type_properties_manager),	intent(in)	::	self
integer(kind=int32),	intent(in)	::	material_id
type(type_state),	intent(inout)	::	state

Return Value real(kind=real64)

private function calculate_thc_array(self, material_id, states) result(vals)

Arguments

Type	Intent		Name
class(type_properties_manager),	intent(in)	::	self
integer(kind=int32),	intent(in)	::	material_id
type(type_state),	intent(inout)	::	states(:)

Return Value real(kind=real64), (size(states))

generic, public :: calc_thermal => calc_thermal_properties_scalar, calc_thermal_properties_array

private subroutine calc_thermal_properties_scalar(self, material_id, state, thc, vhc)

Arguments

Type	Intent		Name
class(type_properties_manager),	intent(in)	::	self
integer(kind=int32),	intent(in)	::	material_id
type(type_state),	intent(inout)	::	state
real(kind=real64),	intent(inout)	::	thc
real(kind=real64),	intent(inout)	::	vhc

private subroutine calc_thermal_properties_array(self, material_id, states, thcs, vhcs)

Arguments

Type	Intent		Name
class(type_properties_manager),	intent(in)	::	self
integer(kind=int32),	intent(in)	::	material_id
type(type_state),	intent(inout)	::	states(:)
real(kind=real64),	intent(inout)	::	thcs(size(states))
real(kind=real64),	intent(inout)	::	vhcs(size(states))

procedure, private, pass(self) :: calc_thermal_properties_array

private subroutine calc_thermal_properties_array(self, material_id, states, thcs, vhcs)

Arguments

Type	Intent		Name
class(type_properties_manager),	intent(in)	::	self
integer(kind=int32),	intent(in)	::	material_id
type(type_state),	intent(inout)	::	states(:)
real(kind=real64),	intent(inout)	::	thcs(size(states))
real(kind=real64),	intent(inout)	::	vhcs(size(states))

procedure, private, pass(self) :: calc_thermal_properties_impl_array

private subroutine calc_thermal_properties_impl_array(self, ptrs, states, thcs, vhcs)

Arguments

Type	Intent		Name
class(type_properties_manager),	intent(in)	::	self
type(type_material_pointers),	intent(in)	::	ptrs
type(type_state),	intent(inout)	::	states(:)
real(kind=real64),	intent(inout)	::	thcs(size(states))
real(kind=real64),	intent(inout)	::	vhcs(size(states))

procedure, private, pass(self) :: calc_thermal_properties_impl_scalar

private subroutine calc_thermal_properties_impl_scalar(self, state, ptrs, thc, vhc)

Arguments

Type	Intent		Name
class(type_properties_manager),	intent(in)	::	self
type(type_state),	intent(inout)	::	state
type(type_material_pointers),	intent(in)	::	ptrs
real(kind=real64),	intent(inout)	::	thc
real(kind=real64),	intent(inout)	::	vhc

procedure, private, pass(self) :: calc_thermal_properties_scalar

private subroutine calc_thermal_properties_scalar(self, material_id, state, thc, vhc)

Arguments

Type	Intent		Name
class(type_properties_manager),	intent(in)	::	self
integer(kind=int32),	intent(in)	::	material_id
type(type_state),	intent(inout)	::	state
real(kind=real64),	intent(inout)	::	thc
real(kind=real64),	intent(inout)	::	vhc

generic, public :: calc_vhc => calculate_vhc_scalar, calculate_vhc_array

private function calculate_vhc_scalar(self, material_id, state) result(val)

Arguments

Type	Intent		Name
class(type_properties_manager),	intent(in)	::	self
integer(kind=int32),	intent(in)	::	material_id
type(type_state),	intent(inout)	::	state

Return Value real(kind=real64)

private function calculate_vhc_array(self, material_id, states) result(vals)

Arguments

Type	Intent		Name
class(type_properties_manager),	intent(in)	::	self
integer(kind=int32),	intent(in)	::	material_id
type(type_state),	intent(inout)	::	states(:)

Return Value real(kind=real64), (size(states))

generic, public :: calc_water_content => calculate_water_content, calculate_water_content_array

private pure elemental subroutine calculate_water_content(ptrs, state)

Arguments

Type	Intent	Optional	Attributes		Name
type(type_material_pointers),	intent(in)			::	ptrs
type(type_state),	intent(inout)			::	state

private pure subroutine calculate_water_content_array(ptrs, states)

Arguments

Type	Intent	Optional	Attributes		Name
type(type_material_pointers),	intent(in)			::	ptrs
type(type_state),	intent(inout)			::	states(:)

procedure, private, nopass :: calculate_dQw_dT

private pure elemental subroutine calculate_dQw_dT(ptrs, state)

Arguments

Type	Intent	Optional	Attributes		Name
type(type_material_pointers),	intent(in)			::	ptrs
type(type_state),	intent(inout)			::	state

procedure, private, nopass :: calculate_dQw_dT_array

private pure subroutine calculate_dQw_dT_array(ptrs, states)

Arguments

Type	Intent	Optional	Attributes		Name
type(type_material_pointers),	intent(in)			::	ptrs
type(type_state),	intent(inout)			::	states(:)

procedure, private, pass(self) :: calculate_hcf_array

private function calculate_hcf_array(self, material_id, states) result(vals)

Arguments

Type	Intent		Name
class(type_properties_manager),	intent(in)	::	self
integer(kind=int32),	intent(in)	::	material_id
type(type_state),	intent(inout)	::	states(:)

Return Value real(kind=real64), (size(states))

procedure, private, pass(self) :: calculate_hcf_impl_array

private function calculate_hcf_impl_array(self, ptrs, states) result(vals)

Arguments

Type	Intent		Name
class(type_properties_manager),	intent(in)	::	self
type(type_material_pointers),	intent(in)	::	ptrs
type(type_state),	intent(inout)	::	states(:)

Return Value real(kind=real64), (size(states))

procedure, private, pass(self) :: calculate_hcf_impl_scalar

private function calculate_hcf_impl_scalar(self, ptrs, state) result(val)

Arguments

Type	Intent		Name
class(type_properties_manager),	intent(in)	::	self
type(type_material_pointers),	intent(in)	::	ptrs
type(type_state),	intent(inout)	::	state

Return Value real(kind=real64)

procedure, private, pass(self) :: calculate_hcf_scalar

private function calculate_hcf_scalar(self, material_id, state) result(val)

Arguments

Type	Intent		Name
class(type_properties_manager),	intent(in)	::	self
integer(kind=int32),	intent(in)	::	material_id
type(type_state),	intent(inout)	::	state

Return Value real(kind=real64)

procedure, private, pass(self) :: calculate_qw_array

private function calculate_qw_array(self, material_id, states) result(vals)

Arguments

Type	Intent		Name
class(type_properties_manager),	intent(in)	::	self
integer(kind=int32),	intent(in)	::	material_id
type(type_state),	intent(inout)	::	states(:)

Return Value real(kind=real64), (size(states))

procedure, private, pass(self) :: calculate_qw_scalar

private function calculate_qw_scalar(self, material_id, state) result(val)

Arguments

Type	Intent		Name
class(type_properties_manager),	intent(in)	::	self
integer(kind=int32),	intent(in)	::	material_id
type(type_state),	intent(inout)	::	state

Return Value real(kind=real64)

procedure, private, pass(self) :: calculate_thc_array

private function calculate_thc_array(self, material_id, states) result(vals)

Arguments

Type	Intent		Name
class(type_properties_manager),	intent(in)	::	self
integer(kind=int32),	intent(in)	::	material_id
type(type_state),	intent(inout)	::	states(:)

Return Value real(kind=real64), (size(states))

procedure, private, pass(self) :: calculate_thc_impl_array

private function calculate_thc_impl_array(self, ptrs, states) result(vals)

Arguments

Type	Intent		Name
class(type_properties_manager),	intent(in)	::	self
type(type_material_pointers),	intent(in)	::	ptrs
type(type_state),	intent(inout)	::	states(:)

Return Value real(kind=real64), (size(states))

procedure, private, pass(self) :: calculate_thc_impl_scalar

private function calculate_thc_impl_scalar(self, ptrs, state) result(val)

Arguments

Type	Intent		Name
class(type_properties_manager),	intent(in)	::	self
type(type_material_pointers),	intent(in)	::	ptrs
type(type_state),	intent(inout)	::	state

Return Value real(kind=real64)

procedure, private, pass(self) :: calculate_thc_scalar

private function calculate_thc_scalar(self, material_id, state) result(val)

Arguments

Type	Intent		Name
class(type_properties_manager),	intent(in)	::	self
integer(kind=int32),	intent(in)	::	material_id
type(type_state),	intent(inout)	::	state

Return Value real(kind=real64)

procedure, private, pass(self) :: calculate_vhc_array

private function calculate_vhc_array(self, material_id, states) result(vals)

Arguments

Type	Intent		Name
class(type_properties_manager),	intent(in)	::	self
integer(kind=int32),	intent(in)	::	material_id
type(type_state),	intent(inout)	::	states(:)

Return Value real(kind=real64), (size(states))

procedure, private, pass(self) :: calculate_vhc_impl_array

private function calculate_vhc_impl_array(self, ptrs, states) result(vals)

Arguments

Type	Intent		Name
class(type_properties_manager),	intent(in)	::	self
type(type_material_pointers),	intent(in)	::	ptrs
type(type_state),	intent(inout)	::	states(:)

Return Value real(kind=real64), (size(states))

procedure, private, pass(self) :: calculate_vhc_impl_scalar

private function calculate_vhc_impl_scalar(self, ptrs, state) result(val)

Arguments

Type	Intent		Name
class(type_properties_manager),	intent(in)	::	self
type(type_material_pointers),	intent(in)	::	ptrs
type(type_state),	intent(inout)	::	state

Return Value real(kind=real64)

procedure, private, pass(self) :: calculate_vhc_scalar

private function calculate_vhc_scalar(self, material_id, state) result(val)

Arguments

Type	Intent		Name
class(type_properties_manager),	intent(in)	::	self
integer(kind=int32),	intent(in)	::	material_id
type(type_state),	intent(inout)	::	state

Return Value real(kind=real64)

procedure, private, nopass :: calculate_water_content

private pure elemental subroutine calculate_water_content(ptrs, state)

Arguments

Type	Intent	Optional	Attributes		Name
type(type_material_pointers),	intent(in)			::	ptrs
type(type_state),	intent(inout)			::	state

procedure, private, nopass :: calculate_water_content_array

private pure subroutine calculate_water_content_array(ptrs, states)

Arguments

Type	Intent	Optional	Attributes		Name
type(type_material_pointers),	intent(in)			::	ptrs
type(type_state),	intent(inout)			::	states(:)

procedure, public, pass(self) :: get_phase_dens

private function get_phase_dens(self, material_id) result(phase_property)

Arguments

Type	Intent	Optional	Attributes		Name
class(type_properties_manager),	intent(in)			::	self
integer(kind=int32),	intent(in)			::	material_id

Return Value type(type_phase_property)

procedure, public, pass(self) :: get_phase_sphs

private function get_phase_sphs(self, material_id) result(phase_property)

Arguments

Type	Intent	Optional	Attributes		Name
class(type_properties_manager),	intent(in)			::	self
integer(kind=int32),	intent(in)			::	material_id

Return Value type(type_phase_property)

procedure, public, pass(self) :: get_phase_thcs

private function get_phase_thcs(self, material_id) result(phase_property)

Arguments

Type	Intent	Optional	Attributes		Name
class(type_properties_manager),	intent(in)			::	self
integer(kind=int32),	intent(in)			::	material_id

Return Value type(type_phase_property)

procedure, public, pass(self) :: get_phase_vhcs

private function get_phase_vhcs(self, material_id) result(phase_property)

Arguments

Type	Intent	Optional	Attributes		Name
class(type_properties_manager),	intent(in)			::	self
integer(kind=int32),	intent(in)			::	material_id

Return Value type(type_phase_property)

procedure, private, pass(self) :: get_pointers_for_region

private subroutine get_pointers_for_region(self, target_id, material_id, ptrs)

Arguments

Type	Intent		Name
class(type_properties_manager),	intent(in)	::	self
integer(kind=int32),	intent(in)	::	target_id
integer(kind=int32),	intent(in)	::	material_id
type(type_material_pointers),	intent(inout)	::	ptrs

procedure, public :: initialize => initialize_properties_manager

private subroutine initialize_properties_manager(self, input, ierr)

Arguments

Type	Intent		Name
class(type_properties_manager),	intent(inout)	::	self
type(type_input),	intent(in)	::	input
integer(kind=int32),	intent(inout)	::	ierr

Source Code

    type :: type_properties_manager
        type(type_material_manager) :: materials
    contains
        procedure, public :: initialize => initialize_properties_manager

        ! --- Public Generic Interfaces (API remains unchanged) ---
        generic, public :: calc_thc => calculate_thc_scalar, calculate_thc_array
        generic, public :: calc_vhc => calculate_vhc_scalar, calculate_vhc_array
        generic, public :: calc_qw => calculate_qw_scalar, calculate_qw_array
        generic, public :: calc_water_content => calculate_water_content, calculate_water_content_array
        generic, public :: calc_dQw_dT => calculate_dQw_dT, calculate_dQw_dT_array
        generic, public :: calc_thermal => calc_thermal_properties_scalar, calc_thermal_properties_array
        generic, public :: calc_hcf => calculate_hcf_scalar, calculate_hcf_array
        generic, public :: calc_hydraulic => calc_hydraulic_properties_scalar, calc_hydraulic_properties_array

        ! --- Wrapper Procedures (Public facing) ---
        procedure, private, pass(self) :: calculate_thc_scalar
        procedure, private, pass(self) :: calculate_thc_array
        procedure, private, pass(self) :: calculate_vhc_scalar
        procedure, private, pass(self) :: calculate_vhc_array
        procedure, private, pass(self) :: calculate_qw_scalar
        procedure, private, pass(self) :: calculate_qw_array
        procedure, private, pass(self) :: calc_thermal_properties_scalar
        procedure, private, pass(self) :: calc_thermal_properties_array
        procedure, private, pass(self) :: calculate_hcf_scalar
        procedure, private, pass(self) :: calculate_hcf_array
        procedure, private, pass(self) :: calc_hydraulic_properties_scalar
        procedure, private, pass(self) :: calc_hydraulic_properties_array

        ! --- Implementation Procedures (Private, do the actual work) ---
        procedure, private, pass(self) :: calculate_thc_impl_scalar
        procedure, private, pass(self) :: calculate_thc_impl_array
        procedure, private, pass(self) :: calculate_vhc_impl_scalar
        procedure, private, pass(self) :: calculate_vhc_impl_array
        procedure, private, pass(self) :: calc_thermal_properties_impl_scalar
        procedure, private, pass(self) :: calc_thermal_properties_impl_array
        procedure, private, pass(self) :: calculate_hcf_impl_scalar
        procedure, private, pass(self) :: calculate_hcf_impl_array
        procedure, private, pass(self) :: calc_hydraulic_properties_impl_scalar
        procedure, private, pass(self) :: calc_hydraulic_properties_impl_array

        procedure, private, nopass :: calculate_water_content
        procedure, private, nopass :: calculate_water_content_array
        procedure, private, nopass :: calculate_dQw_dT
        procedure, private, nopass :: calculate_dQw_dT_array

        procedure, public, pass(self) :: get_phase_dens
        procedure, public, pass(self) :: get_phase_vhcs
        procedure, public, pass(self) :: get_phase_thcs
        procedure, public, pass(self) :: get_phase_sphs

        procedure, private, pass(self) :: get_pointers_for_region
    end type type_properties_manager

type_properties_manager Derived Type

Contents

Variables

Type-Bound Procedures

Source Code

type, public :: type_properties_manager

Inherits

Inherited by

Components

Type-Bound Procedures

generic, public :: calc_dQw_dT => calculate_dQw_dT, calculate_dQw_dT_array

private pure elemental subroutine calculate_dQw_dT(ptrs, state)

Arguments

private pure subroutine calculate_dQw_dT_array(ptrs, states)

Arguments

generic, public :: calc_hcf => calculate_hcf_scalar, calculate_hcf_array

private function calculate_hcf_scalar(self, material_id, state) result(val)

Arguments

Return Value real(kind=real64)

private function calculate_hcf_array(self, material_id, states) result(vals)

Arguments

Return Value real(kind=real64), (size(states))

generic, public :: calc_hydraulic => calc_hydraulic_properties_scalar, calc_hydraulic_properties_array

private subroutine calc_hydraulic_properties_scalar(self, material_id, state, kflh)

Arguments

private subroutine calc_hydraulic_properties_array(self, material_id, states, kflhs)

Arguments

procedure, private, pass(self) :: calc_hydraulic_properties_array

private subroutine calc_hydraulic_properties_array(self, material_id, states, kflhs)

Arguments

procedure, private, pass(self) :: calc_hydraulic_properties_impl_array

private subroutine calc_hydraulic_properties_impl_array(self, ptrs, states, kflhs)

Arguments

procedure, private, pass(self) :: calc_hydraulic_properties_impl_scalar

private subroutine calc_hydraulic_properties_impl_scalar(self, state, ptrs, kflh)

Arguments

procedure, private, pass(self) :: calc_hydraulic_properties_scalar

private subroutine calc_hydraulic_properties_scalar(self, material_id, state, kflh)

Arguments

generic, public :: calc_qw => calculate_qw_scalar, calculate_qw_array

private function calculate_qw_scalar(self, material_id, state) result(val)

Arguments

Return Value real(kind=real64)

private function calculate_qw_array(self, material_id, states) result(vals)

Arguments

Return Value real(kind=real64), (size(states))

generic, public :: calc_thc => calculate_thc_scalar, calculate_thc_array

private function calculate_thc_scalar(self, material_id, state) result(val)

Arguments

Return Value real(kind=real64)

private function calculate_thc_array(self, material_id, states) result(vals)

Arguments

Return Value real(kind=real64), (size(states))

generic, public :: calc_thermal => calc_thermal_properties_scalar, calc_thermal_properties_array

private subroutine calc_thermal_properties_scalar(self, material_id, state, thc, vhc)

Arguments

private subroutine calc_thermal_properties_array(self, material_id, states, thcs, vhcs)

Arguments

procedure, private, pass(self) :: calc_thermal_properties_array

private subroutine calc_thermal_properties_array(self, material_id, states, thcs, vhcs)

Arguments

procedure, private, pass(self) :: calc_thermal_properties_impl_array

private subroutine calc_thermal_properties_impl_array(self, ptrs, states, thcs, vhcs)

Arguments

procedure, private, pass(self) :: calc_thermal_properties_impl_scalar

private subroutine calc_thermal_properties_impl_scalar(self, state, ptrs, thc, vhc)

Arguments

procedure, private, pass(self) :: calc_thermal_properties_scalar

private subroutine calc_thermal_properties_scalar(self, material_id, state, thc, vhc)

Arguments

generic, public :: calc_vhc => calculate_vhc_scalar, calculate_vhc_array

private function calculate_vhc_scalar(self, material_id, state) result(val)

Arguments

Return Value real(kind=real64)

private function calculate_vhc_array(self, material_id, states) result(vals)

Arguments

Return Value real(kind=real64), (size(states))

generic, public :: calc_water_content => calculate_water_content, calculate_water_content_array

private pure elemental subroutine calculate_water_content(ptrs, state)

Arguments