calc_thermal_properties_impl_array Subroutine

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

Type Bound

type_properties_manager

Arguments

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

Calls

proc~~calc_thermal_properties_impl_array~~CallsGraph proc~calc_thermal_properties_impl_array type_properties_manager%calc_thermal_properties_impl_array none~calc_dqw_dt type_properties_manager%calc_dQw_dT proc~calc_thermal_properties_impl_array->none~calc_dqw_dt none~calc_water_content type_properties_manager%calc_water_content proc~calc_thermal_properties_impl_array->none~calc_water_content proc~calculate_thc_impl_scalar type_properties_manager%calculate_thc_impl_scalar proc~calc_thermal_properties_impl_array->proc~calculate_thc_impl_scalar proc~calculate_vhc_impl_scalar type_properties_manager%calculate_vhc_impl_scalar proc~calc_thermal_properties_impl_array->proc~calculate_vhc_impl_scalar proc~calculate_dqw_dt type_properties_manager%calculate_dQw_dT none~calc_dqw_dt->proc~calculate_dqw_dt proc~calculate_dqw_dt_array type_properties_manager%calculate_dQw_dT_array none~calc_dqw_dt->proc~calculate_dqw_dt_array 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 calc calc proc~calculate_thc_impl_scalar->calc proc~calculate_thc_impl_scalar->proc~calculate_water_content proc~calculate_vhc_impl_scalar->calc proc~calculate_vhc_impl_scalar->proc~calculate_dqw_dt proc~calculate_vhc_impl_scalar->proc~calculate_water_content proc~calculate_dqw_dt->calc deriv deriv proc~calculate_dqw_dt->deriv proc~calculate_dqw_dt_array->proc~calculate_dqw_dt proc~calculate_water_content->calc proc~calculate_water_content_array->proc~calculate_water_content

Called by

proc~~calc_thermal_properties_impl_array~~CalledByGraph proc~calc_thermal_properties_impl_array type_properties_manager%calc_thermal_properties_impl_array proc~calc_thermal_properties_array type_properties_manager%calc_thermal_properties_array proc~calc_thermal_properties_array->proc~calc_thermal_properties_impl_array

Source Code

    subroutine calc_thermal_properties_impl_array(self, ptrs, states, thcs, vhcs)
        class(type_properties_manager), intent(in) :: self
        type(type_material_pointers), intent(in) :: ptrs
        type(type_state), intent(inout) :: states(:)
        real(real64), intent(inout) :: thcs(size(states))
        real(real64), intent(inout) :: vhcs(size(states))

        integer(int32) :: i

        call self%calc_water_content(ptrs, states)
        call self%calc_dQw_dT(ptrs, states)

        do i = 1, size(states)
            thcs(i) = self%calculate_thc_impl_scalar(ptrs, states(i))
            vhcs(i) = self%calculate_vhc_impl_scalar(ptrs, states(i))
        end do
    end subroutine calc_thermal_properties_impl_array