calculate_qw_array Function

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

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) :: states(:)

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


Calls

proc~~calculate_qw_array~~CallsGraph proc~calculate_qw_array type_properties_manager%calculate_qw_array none~calc_water_content type_properties_manager%calc_water_content proc~calculate_qw_array->none~calc_water_content proc~get_pointers_for_region type_properties_manager%get_pointers_for_region proc~calculate_qw_array->proc~get_pointers_for_region proc~calculate_water_content type_properties_manager%calculate_water_content none~calc_water_content->proc~calculate_water_content proc~calculate_water_content_array type_properties_manager%calculate_water_content_array none~calc_water_content->proc~calculate_water_content_array 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 calc calc proc~calculate_water_content->calc proc~calculate_water_content_array->proc~calculate_water_content

Called by

proc~~calculate_qw_array~~CalledByGraph proc~calculate_qw_array type_properties_manager%calculate_qw_array none~calc_qw type_properties_manager%calc_qw none~calc_qw->proc~calculate_qw_array proc~get_observations_si get_observations_si proc~get_observations_si->none~calc_qw proc~get_observations_thc get_observations_thc proc~get_observations_thc->none~calc_qw proc~get_observations_vhc get_observations_vhc proc~get_observations_vhc->none~calc_qw proc~interpolate_observations_si interpolate_observations_si proc~interpolate_observations_si->none~calc_qw proc~interpolate_observations_thc interpolate_observations_thc proc~interpolate_observations_thc->none~calc_qw proc~interpolate_observations_vhc interpolate_observations_vhc proc~interpolate_observations_vhc->none~calc_qw proc~update_type_thermal_crs update_type_thermal_crs proc~update_type_thermal_crs->none~calc_qw interface~update_type_thermal_crs type_thermal_crs%update_type_thermal_crs interface~update_type_thermal_crs->proc~update_type_thermal_crs

Source Code

    function calculate_qw_array(self, material_id, states) result(vals)
        implicit none
        class(type_properties_manager), intent(in) :: self
        type(type_state), intent(inout) :: states(:)
        integer(int32), intent(in) :: material_id
        real(real64) :: vals(size(states))

        type(type_material_pointers) :: ptrs
        integer(int32) :: i

        call self%get_pointers_for_region(calc_thermal, material_id, ptrs)
        call self%calc_water_content(ptrs, states)
        do i = 1, size(states)
            vals(i) = states(i)%water_content
        end do
    end function calculate_qw_array