calculate_thc_scalar Function

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

Type Bound

type_properties_manager

Arguments

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


Calls

proc~~calculate_thc_scalar~~CallsGraph proc~calculate_thc_scalar type_properties_manager%calculate_thc_scalar proc~calculate_thc_impl_scalar type_properties_manager%calculate_thc_impl_scalar proc~calculate_thc_scalar->proc~calculate_thc_impl_scalar proc~get_pointers_for_region type_properties_manager%get_pointers_for_region proc~calculate_thc_scalar->proc~get_pointers_for_region calc calc proc~calculate_thc_impl_scalar->calc proc~calculate_water_content type_properties_manager%calculate_water_content proc~calculate_thc_impl_scalar->proc~calculate_water_content proc~get_den_ptr type_material_manager%get_den_ptr proc~get_pointers_for_region->proc~get_den_ptr proc~get_gcc_ptr type_material_manager%get_gcc_ptr proc~get_pointers_for_region->proc~get_gcc_ptr proc~get_hcf_ptr type_material_manager%get_hcf_ptr proc~get_pointers_for_region->proc~get_hcf_ptr proc~get_thc_ptr type_material_manager%get_thc_ptr proc~get_pointers_for_region->proc~get_thc_ptr proc~get_vhc_ptr type_material_manager%get_vhc_ptr proc~get_pointers_for_region->proc~get_vhc_ptr proc~get_wrf_ptr type_material_manager%get_wrf_ptr proc~get_pointers_for_region->proc~get_wrf_ptr proc~calculate_water_content->calc

Called by

proc~~calculate_thc_scalar~~CalledByGraph proc~calculate_thc_scalar type_properties_manager%calculate_thc_scalar none~calc_thc type_properties_manager%calc_thc none~calc_thc->proc~calculate_thc_scalar proc~get_observations_thc get_observations_thc proc~get_observations_thc->none~calc_thc proc~interpolate_observations_thc interpolate_observations_thc proc~interpolate_observations_thc->none~calc_thc

Source Code

    function calculate_thc_scalar(self, material_id, state) result(val)
        implicit none
        class(type_properties_manager), intent(in) :: self
        integer(int32), intent(in) :: material_id
        type(type_state), intent(inout) :: state
        real(real64) :: val

        type(type_material_pointers) :: ptrs

        call self%get_pointers_for_region(calc_thermal, material_id, ptrs)
        val = self%calculate_thc_impl_scalar(ptrs, state)
    end function calculate_thc_scalar