calculate_hcf Module


Uses

  • module~~calculate_hcf~~UsesGraph module~calculate_hcf calculate_hcf iso_fortran_env iso_fortran_env module~calculate_hcf->iso_fortran_env module~module_core module_core module~calculate_hcf->module~module_core module~module_input module_input module~calculate_hcf->module~module_input core_check_nan core_check_nan module~module_core->core_check_nan module~core_allocate core_allocate module~module_core->module~core_allocate module~core_check_range core_check_range module~module_core->module~core_check_range module~core_deallocate core_deallocate module~module_core->module~core_deallocate module~core_error core_error module~module_core->module~core_error module~core_fortran_utils core_fortran_utils module~module_core->module~core_fortran_utils module~core_string_utils core_string_utils module~module_core->module~core_string_utils module~core_types core_types module~module_core->module~core_types module~core_unique core_unique module~module_core->module~core_unique module~core_vtk core_vtk module~module_core->module~core_vtk module~core_vtk_vtk_constants core_vtk_vtk_constants module~module_core->module~core_vtk_vtk_constants module~inout_input inout_input module~module_input->module~inout_input module~core_allocate->iso_fortran_env module~core_allocate->module~core_error module~core_check_range->iso_fortran_env module~core_deallocate->iso_fortran_env module~core_deallocate->module~core_error module~core_error->iso_fortran_env stdlib_logger stdlib_logger module~core_error->stdlib_logger module~core_fortran_utils_memory_stats_wrapper core_fortran_utils_memory_stats_wrapper module~core_fortran_utils->module~core_fortran_utils_memory_stats_wrapper module~core_fortran_utils_signal_flag_wrapper core_fortran_utils_signal_flag_wrapper module~core_fortran_utils->module~core_fortran_utils_signal_flag_wrapper module~core_fortran_utils_system_info_wrapper core_fortran_utils_system_info_wrapper module~core_fortran_utils->module~core_fortran_utils_system_info_wrapper module~core_string_utils->iso_fortran_env module~core_string_utils->module~core_allocate module~core_types_array core_types_array module~core_types->module~core_types_array module~core_types_gauss core_types_gauss module~core_types->module~core_types_gauss module~core_types_pointer core_types_pointer module~core_types->module~core_types_pointer module~core_types_variable core_types_variable module~core_types->module~core_types_variable module~core_types_vector core_types_vector module~core_types->module~core_types_vector module~module_type_matrix module_type_matrix module~core_types->module~module_type_matrix module~core_unique->iso_fortran_env module~core_unique->module~core_allocate stdlib_sorting stdlib_sorting module~core_unique->stdlib_sorting module~core_vtk->iso_fortran_env module~core_vtk->module~core_allocate module~core_vtk->module~core_deallocate module~core_vtk->module~core_types module~core_vtk->module~core_unique module~core_vtk->module~core_vtk_vtk_constants iso_c_binding iso_c_binding module~core_vtk->iso_c_binding module~core_vtk_vtk_wrapper core_vtk_vtk_wrapper module~core_vtk->module~core_vtk_vtk_wrapper module~core_vtk_vtu_wrapper core_vtk_vtu_wrapper module~core_vtk->module~core_vtk_vtu_wrapper module~core_vtk->stdlib_sorting module~core_vtk_vtk_constants->iso_fortran_env module~inout_input->iso_fortran_env module~inout_input->module~module_core json_module json_module module~inout_input->json_module module~inout_project_settings inout_project_settings module~inout_input->module~inout_project_settings module~inout_input->stdlib_logger stdlib_strings stdlib_strings module~inout_input->stdlib_strings module~core_fortran_utils_memory_stats_wrapper->iso_fortran_env module~core_c_utils core_c_utils module~core_fortran_utils_memory_stats_wrapper->module~core_c_utils module~core_fortran_utils_signal_flag_wrapper->iso_fortran_env module~core_fortran_utils_signal_flag_wrapper->iso_c_binding module~core_fortran_utils_signal_flag_wrapper->stdlib_logger module~core_c_utils_signal_flag core_c_utils_signal_flag module~core_fortran_utils_signal_flag_wrapper->module~core_c_utils_signal_flag module~core_fortran_utils_system_info_wrapper->iso_fortran_env module~core_fortran_utils_system_info_wrapper->iso_c_binding module~core_fortran_utils_system_info_wrapper->stdlib_strings module~core_fortran_utils_system_info_wrapper->module~core_c_utils module~core_types_array->iso_fortran_env module~core_types_array->module~core_allocate module~core_types_array->module~core_deallocate module~core_types_gauss->iso_fortran_env module~core_types_pointer->iso_fortran_env module~core_types_variable->iso_fortran_env module~core_types_variable->module~core_allocate module~core_types_vector->iso_fortran_env module~core_vtk_vtk_wrapper->iso_c_binding module~core_vtk_vtu_wrapper->iso_c_binding module~inout_project_settings->iso_fortran_env module~inout_project_settings->module~module_core module~core_types_matrix core_types_matrix module~module_type_matrix->module~core_types_matrix module~core_types_matrix_coo core_types_matrix_coo module~module_type_matrix->module~core_types_matrix_coo module~core_types_matrix_crs core_types_matrix_crs module~module_type_matrix->module~core_types_matrix_crs module~core_types_matrix_dense core_types_matrix_dense module~module_type_matrix->module~core_types_matrix_dense module~core_c_utils->iso_c_binding module~core_c_utils->module~core_c_utils_signal_flag module~core_c_utils_memory_stats core_c_utils_memory_stats module~core_c_utils->module~core_c_utils_memory_stats module~core_c_utils_system_info core_c_utils_system_info module~core_c_utils->module~core_c_utils_system_info module~core_c_utils_signal_flag->iso_c_binding module~core_types_matrix->iso_fortran_env module~core_types_matrix_coo->iso_fortran_env module~core_types_matrix_coo->module~core_allocate module~core_types_matrix_coo->module~core_deallocate module~core_types_matrix_coo->module~core_types_matrix module~core_types_matrix_crs->iso_fortran_env module~core_types_matrix_crs->module~core_allocate module~core_types_matrix_crs->module~core_deallocate module~core_types_matrix_crs->module~core_types_matrix module~core_types_matrix_dense->iso_fortran_env module~core_types_matrix_dense->module~core_allocate module~core_types_matrix_dense->module~core_deallocate module~core_types_matrix_dense->module~core_types_matrix module~core_c_utils_memory_stats->iso_c_binding module~core_c_utils_system_info->iso_c_binding

Used by

  • module~~calculate_hcf~~UsedByGraph module~calculate_hcf calculate_hcf module~calculate_hcf_base calculate_hcf_base module~calculate_hcf_base->module~calculate_hcf module~calculate_hcf_bc calculate_hcf_bc module~calculate_hcf_bc->module~calculate_hcf module~calculate_hcf_durner calculate_hcf_durner module~calculate_hcf_durner->module~calculate_hcf module~calculate_hcf_dvgch calculate_hcf_dvgch module~calculate_hcf_dvgch->module~calculate_hcf module~calculate_hcf_impedance calculate_hcf_impedance module~calculate_hcf_impedance->module~calculate_hcf module~calculate_hcf_ko calculate_hcf_ko module~calculate_hcf_ko->module~calculate_hcf module~calculate_hcf_mvg Calculate_hcf_mvg module~calculate_hcf_mvg->module~calculate_hcf module~calculate_hcf_vg calculate_hcf_vg module~calculate_hcf_vg->module~calculate_hcf module~calculate_hcf_viscosity calculate_hcf_viscosity module~calculate_hcf_viscosity->module~calculate_hcf module~module_calculate module_calculate module~module_calculate->module~calculate_hcf module~control_iteration control_iteration module~control_iteration->module~module_calculate module~hydraulic_hydraulic_assemble hydraulic_hydraulic_assemble module~hydraulic_hydraulic_assemble->module~module_calculate module~module_control module_control module~hydraulic_hydraulic_assemble->module~module_control module~module_properties module_properties module~hydraulic_hydraulic_assemble->module~module_properties module~main_hydraulic main_hydraulic module~main_hydraulic->module~module_calculate module~main_hydraulic->module~hydraulic_hydraulic_assemble module~main_hydraulic->module~module_control module~main_hydraulic->module~module_properties module~main_thermal main_thermal module~main_thermal->module~module_calculate module~main_thermal->module~module_control module~main_thermal->module~module_properties module~properties_material_manager properties_material_manager module~properties_material_manager->module~module_calculate module~properties_properties_manager properties_properties_manager module~properties_properties_manager->module~module_calculate module~properties_properties_manager->module~properties_material_manager module~properties_properties_manager->module~module_control module~main_hydraulic_crs main_hydraulic_crs module~main_hydraulic_crs->module~main_hydraulic module~main_thermal_crs main_thermal_crs module~main_thermal_crs->module~main_thermal module~module_control->module~control_iteration module~module_hydraulic module_hydraulic module~module_hydraulic->module~main_hydraulic module~module_properties->module~properties_material_manager module~module_properties->module~properties_properties_manager module~module_thermal module_thermal module~module_thermal->module~main_thermal module~input_output input_output module~input_output->module~module_control module~input_output->module~module_properties module~main_ftdss Main_FTDSS module~main_ftdss->module~module_control module~main_ftdss->module~module_hydraulic module~main_ftdss->module~module_properties module~main_ftdss->module~module_thermal module~module_output module_output module~main_ftdss->module~module_output module~input_output_base input_output_base module~input_output_base->module~input_output module~input_output_obaservation input_output_obaservation module~input_output_obaservation->module~input_output module~input_output_overall_base input_output_overall_base module~input_output_overall_base->module~input_output module~input_output_overall_vtk input_output_overall_vtk module~input_output_overall_vtk->module~input_output module~input_output_overall_vtu input_output_overall_vtu module~input_output_overall_vtu->module~input_output module~input_output_system_logger input_output_system_logger module~input_output_system_logger->module~input_output module~module_output->module~input_output

Interfaces

interface

  • private pure elemental module function calc_impedance_exp(self, q_ice) result(kr)

    Arguments

    Type IntentOptional Attributes Name
    class(type_hcf_impedance_exp), intent(in) :: self
    real(kind=real64), intent(in) :: q_ice

    Return Value real(kind=real64)

interface

  • private pure elemental module function calc_kflh_base(self, state) result(kflh)

    Arguments

    Type IntentOptional Attributes Name
    class(type_hcf_base), intent(in) :: self
    type(type_state), intent(in) :: state

    Return Value real(kind=real64)

interface

  • private pure elemental module function calc_kflh_base_impedance(self, state) result(kflh)

    Arguments

    Type IntentOptional Attributes Name
    class(type_hcf_base_impedance), intent(in) :: self
    type(type_state), intent(in) :: state

    Return Value real(kind=real64)

interface

interface

  • private pure elemental module function calc_kflh_base_viscosity(self, state) result(kflh)

    Arguments

    Type IntentOptional Attributes Name
    class(type_hcf_base_viscosity), intent(in) :: self
    type(type_state), intent(in) :: state

    Return Value real(kind=real64)

interface

  • private pure elemental module function calc_kflh_impedance(self, state) result(kflh)

    Arguments

    Type IntentOptional Attributes Name
    class(type_hcf_impedance), intent(in) :: self
    type(type_state), intent(in) :: state

    Return Value real(kind=real64)

interface

  • private pure elemental module function calc_kflh_impedance_viscosity(self, state) result(kflh)

    Arguments

    Type IntentOptional Attributes Name
    class(type_hcf_impedance_viscosity), intent(in) :: self
    type(type_state), intent(in) :: state

    Return Value real(kind=real64)

interface

  • private pure elemental module function calc_kflh_viscosity(self, state) result(kflh)

    Arguments

    Type IntentOptional Attributes Name
    class(type_hcf_viscosity), intent(in) :: self
    type(type_state), intent(in) :: state

    Return Value real(kind=real64)

interface

  • private pure elemental module function calc_kr_base_bc(self, h) result(kr)

    Arguments

    Type IntentOptional Attributes Name
    class(type_hcf_base_bc), intent(in) :: self
    real(kind=real64), intent(in) :: h

    Return Value real(kind=real64)

interface

  • private pure elemental module function calc_kr_base_durner(self, h) result(kr)

    Arguments

    Type IntentOptional Attributes Name
    class(type_hcf_base_durner), intent(in) :: self
    real(kind=real64), intent(in) :: h

    Return Value real(kind=real64)

interface

  • private pure elemental module function calc_kr_base_dvgch(self, h) result(kr)

    Arguments

    Type IntentOptional Attributes Name
    class(type_hcf_base_dvgch), intent(in) :: self
    real(kind=real64), intent(in) :: h

    Return Value real(kind=real64)

interface

  • private pure elemental module function calc_kr_base_ko(self, h) result(kr)

    Arguments

    Type IntentOptional Attributes Name
    class(type_hcf_base_ko), intent(in) :: self
    real(kind=real64), intent(in) :: h

    Return Value real(kind=real64)

interface

  • private pure elemental module function calc_kr_base_mvg(self, h) result(kr)

    Arguments

    Type IntentOptional Attributes Name
    class(type_hcf_base_mvg), intent(in) :: self
    real(kind=real64), intent(in) :: h

    Return Value real(kind=real64)

interface

  • private pure elemental module function calc_kr_base_vg(self, h) result(kr)

    Arguments

    Type IntentOptional Attributes Name
    class(type_hcf_base_vg), intent(in) :: self
    real(kind=real64), intent(in) :: h

    Return Value real(kind=real64)

interface

  • private pure elemental module function calc_viscosity_exp(self, temperature) result(kr)

    Arguments

    Type IntentOptional Attributes Name
    class(type_hcf_viscosity_exp), intent(in) :: self
    real(kind=real64), intent(in) :: temperature

    Return Value real(kind=real64)

interface

  • private pure elemental module function calc_viscosity_supercool(self, temperature) result(kr)

    Arguments

    Type IntentOptional Attributes Name
    class(type_hcf_viscosity_supercool), intent(in) :: self
    real(kind=real64), intent(in) :: temperature

    Return Value real(kind=real64)

interface

  • private module function construct_type_hcf_base_bc(alpha1, n1, l) result(structure)

    Arguments

    Type IntentOptional Attributes Name
    real(kind=real64), intent(in) :: alpha1
    real(kind=real64), intent(in) :: n1
    real(kind=real64), intent(in) :: l

    Return Value class(abst_hcf_base), allocatable

interface

  • private module function construct_type_hcf_base_durner(alpha1, n1, w1, alpha2, n2, l) result(structure)

    Arguments

    Type IntentOptional Attributes Name
    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

    Return Value class(abst_hcf_base), allocatable

interface

  • private module function construct_type_hcf_base_dvgch(alpha1, n1, w1, n2, l) result(structure)

    Arguments

    Type IntentOptional Attributes Name
    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

    Return Value class(abst_hcf_base), allocatable

interface

  • private module function construct_type_hcf_base_ko(alpha1, n1, l) result(structure)

    Arguments

    Type IntentOptional Attributes Name
    real(kind=real64), intent(in) :: alpha1
    real(kind=real64), intent(in) :: n1
    real(kind=real64), intent(in) :: l

    Return Value class(abst_hcf_base), allocatable

interface

  • private module function construct_type_hcf_base_mvg(theta_s, theta_r, alpha1, n1, l, h_crit) result(structure)

    Arguments

    Type IntentOptional Attributes Name
    real(kind=real64), intent(in) :: theta_s
    real(kind=real64), intent(in) :: theta_r
    real(kind=real64), intent(in) :: alpha1
    real(kind=real64), intent(in) :: n1
    real(kind=real64), intent(in) :: l
    real(kind=real64), intent(in) :: h_crit

    Return Value class(abst_hcf_base), allocatable

interface

  • private module function construct_type_hcf_base_vg(alpha1, n1, l) result(structure)

    Arguments

    Type IntentOptional Attributes Name
    real(kind=real64), intent(in) :: alpha1
    real(kind=real64), intent(in) :: n1
    real(kind=real64), intent(in) :: l

    Return Value class(abst_hcf_base), allocatable

interface

  • private module function construct_type_hcf_impedance(omega) result(structure)

    Arguments

    Type IntentOptional Attributes Name
    real(kind=real64), intent(in) :: omega

    Return Value class(abst_hcf_impedance), allocatable

interface

  • private module function construct_type_hcf_viscosity(water_viscosity_model) result(structure)

    Arguments

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

    Return Value class(abst_hcf_viscosity), allocatable

interface

  • private module subroutine initialize_holder_hcfs(self, input, material_id)

    Arguments

    Type IntentOptional Attributes Name
    class(holder_hcfs), intent(inout) :: self
    type(type_input), intent(in) :: input
    integer(kind=int32), intent(in) :: material_id

Abstract Interfaces

abstract interface

  • private pure elemental function abst_calc_base_kr(self, h) result(kr)

    Arguments

    Type IntentOptional Attributes Name
    class(abst_hcf_base), intent(in) :: self
    real(kind=real64), intent(in) :: h

    Return Value real(kind=real64)

abstract interface

  • private pure elemental function abst_calc_impedance_kr(self, q_ice) result(kr)

    Arguments

    Type IntentOptional Attributes Name
    class(abst_hcf_impedance), intent(in) :: self
    real(kind=real64), intent(in) :: q_ice

    Return Value real(kind=real64)

abstract interface

  • private pure elemental function abst_calc_kflh(self, state) result(kflh)

    Arguments

    Type IntentOptional Attributes Name
    class(abst_hcf), intent(in) :: self
    type(type_state), intent(in) :: state

    Return Value real(kind=real64)

abstract interface

  • private pure elemental function abst_calc_viscosity_kr(self, temperature) result(kr)

    Arguments

    Type IntentOptional Attributes Name
    class(abst_hcf_viscosity), intent(in) :: self
    real(kind=real64), intent(in) :: temperature

    Return Value real(kind=real64)


Derived Types

type, public, abstract ::  abst_hcf

Components

Type Visibility Attributes Name Initial
class(abst_hcf_base), private, allocatable :: base
class(abst_hcf_impedance), private, allocatable :: impedance
real(kind=real64), private :: k_s
class(abst_hcf_viscosity), private, allocatable :: viscosity

Type-Bound Procedures

procedure(abst_calc_kflh), public, deferred, pass(self) :: calc_kflh

type, private, abstract ::  abst_hcf_base

Components

Type Visibility Attributes Name Initial
real(kind=real64), private :: alpha1
real(kind=real64), private :: alpha2
real(kind=real64), private :: h_crit
real(kind=real64), private :: l
real(kind=real64), private :: m1
real(kind=real64), private :: m2
real(kind=real64), private :: n1
real(kind=real64), private :: n2
real(kind=real64), private :: theta_r
real(kind=real64), private :: theta_s
real(kind=real64), private :: w1
real(kind=real64), private :: w2

Type-Bound Procedures

procedure(abst_calc_base_kr), public, deferred, pass(self) :: calc_kr

type, private, abstract ::  abst_hcf_impedance

Components

Type Visibility Attributes Name Initial
real(kind=real64), private :: omega

Impedance factor

Type-Bound Procedures

procedure(abst_calc_impedance_kr), public, deferred, pass(self) :: calc_impedance

type, private, abstract ::  abst_hcf_viscosity

Components

Type Visibility Attributes Name Initial
real(kind=real64), private :: mu_zero

Type-Bound Procedures

procedure(abst_calc_viscosity_kr), public, deferred, pass(self) :: calc_viscosity

type, public ::  holder_hcfs

Components

Type Visibility Attributes Name Initial
class(abst_hcf), public, allocatable :: p

Type-Bound Procedures

procedure, public, pass(self) :: initialize => initialize_holder_hcfs

type, public, extends(abst_hcf) ::  type_hcf_base

Type-Bound Procedures

procedure, public :: calc_kflh => calc_kflh_base

type, private, extends(abst_hcf_base) ::  type_hcf_base_bc

Type-Bound Procedures

procedure, public :: calc_kr => calc_kr_base_bc

type, private, extends(abst_hcf_base) ::  type_hcf_base_durner

Type-Bound Procedures

procedure, public :: calc_kr => calc_kr_base_durner

type, private, extends(abst_hcf_base) ::  type_hcf_base_dvgch

Type-Bound Procedures

procedure, public :: calc_kr => calc_kr_base_dvgch

type, public, extends(abst_hcf) ::  type_hcf_base_impedance

Type-Bound Procedures

procedure, public :: calc_kflh => calc_kflh_base_impedance

type, public, extends(abst_hcf) ::  type_hcf_base_impedance_viscosity

Type-Bound Procedures

procedure, public :: calc_kflh => calc_kflh_base_impedance_viscosity

type, private, extends(abst_hcf_base) ::  type_hcf_base_ko

Type-Bound Procedures

procedure, public :: calc_kr => calc_kr_base_ko

type, private, extends(abst_hcf_base) ::  type_hcf_base_mvg

Type-Bound Procedures

procedure, public :: calc_kr => calc_kr_base_mvg

type, private, extends(abst_hcf_base) ::  type_hcf_base_vg

Type-Bound Procedures

procedure, public :: calc_kr => calc_kr_base_vg

type, public, extends(abst_hcf) ::  type_hcf_base_viscosity

Type-Bound Procedures

procedure, public :: calc_kflh => calc_kflh_base_viscosity

type, public, extends(abst_hcf) ::  type_hcf_impedance

Type-Bound Procedures

procedure, public :: calc_kflh => calc_kflh_impedance

type, private, extends(abst_hcf_impedance) ::  type_hcf_impedance_exp

Type-Bound Procedures

procedure, public :: calc_impedance => calc_impedance_exp

type, public, extends(abst_hcf) ::  type_hcf_impedance_viscosity

Type-Bound Procedures

procedure, public :: calc_kflh => calc_kflh_impedance_viscosity

type, public, extends(abst_hcf) ::  type_hcf_viscosity

Type-Bound Procedures

procedure, public :: calc_kflh => calc_kflh_viscosity

type, private, extends(abst_hcf_viscosity) ::  type_hcf_viscosity_exp

Type-Bound Procedures

procedure, public :: calc_viscosity => calc_viscosity_exp

type, private, extends(abst_hcf_viscosity) ::  type_hcf_viscosity_supercool

Type-Bound Procedures

procedure, public :: calc_viscosity => calc_viscosity_supercool

Functions

private function construct_hcf_base(input, material_id) result(property)

Arguments

Type IntentOptional Attributes Name
type(type_input), intent(in) :: input
integer(kind=int32), intent(in) :: material_id

Return Value class(abst_hcf_base), allocatable

private function construct_hcf_impedance(input, material_id) result(property)

Arguments

Type IntentOptional Attributes Name
type(type_input), intent(in) :: input
integer(kind=int32), intent(in) :: material_id

Return Value class(abst_hcf_impedance), allocatable

private function construct_hcf_viscosity(input, material_id) result(property)

Arguments

Type IntentOptional Attributes Name
type(type_input), intent(in) :: input
integer(kind=int32), intent(in) :: material_id

Return Value class(abst_hcf_viscosity), allocatable

private function create_type_hcf_base(input, material_id) result(property)

Arguments

Type IntentOptional Attributes Name
type(type_input), intent(in) :: input
integer(kind=int32), intent(in) :: material_id

Return Value class(abst_hcf), allocatable

private function create_type_hcf_base_impedance(input, material_id) result(property)

Arguments

Type IntentOptional Attributes Name
type(type_input), intent(in) :: input
integer(kind=int32), intent(in) :: material_id

Return Value class(abst_hcf), allocatable

private function create_type_hcf_base_impedance_viscosity(input, material_id) result(property)

Arguments

Type IntentOptional Attributes Name
type(type_input), intent(in) :: input
integer(kind=int32), intent(in) :: material_id

Return Value class(abst_hcf), allocatable

private function create_type_hcf_base_viscosity(input, material_id) result(property)

Arguments

Type IntentOptional Attributes Name
type(type_input), intent(in) :: input
integer(kind=int32), intent(in) :: material_id

Return Value class(abst_hcf), allocatable

private function create_type_hcf_impedance(input, material_id) result(property)

Arguments

Type IntentOptional Attributes Name
type(type_input), intent(in) :: input
integer(kind=int32), intent(in) :: material_id

Return Value class(abst_hcf), allocatable

private function create_type_hcf_impedance_viscosity(input, material_id) result(property)

Arguments

Type IntentOptional Attributes Name
type(type_input), intent(in) :: input
integer(kind=int32), intent(in) :: material_id

Return Value class(abst_hcf), allocatable

private function create_type_hcf_viscosity(input, material_id) result(property)

Arguments

Type IntentOptional Attributes Name
type(type_input), intent(in) :: input
integer(kind=int32), intent(in) :: material_id

Return Value class(abst_hcf), allocatable