calc_hydraulic_properties_impl_array Subroutine

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

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

Calls

proc~~calc_hydraulic_properties_impl_array~~CallsGraph proc~calc_hydraulic_properties_impl_array type_properties_manager%calc_hydraulic_properties_impl_array calc_kflh calc_kflh proc~calc_hydraulic_properties_impl_array->calc_kflh

Called by

proc~~calc_hydraulic_properties_impl_array~~CalledByGraph proc~calc_hydraulic_properties_impl_array type_properties_manager%calc_hydraulic_properties_impl_array proc~calc_hydraulic_properties_array type_properties_manager%calc_hydraulic_properties_array proc~calc_hydraulic_properties_array->proc~calc_hydraulic_properties_impl_array none~calc_hydraulic type_properties_manager%calc_hydraulic none~calc_hydraulic->proc~calc_hydraulic_properties_array proc~process_element_hydraulic_linear_1 process_element_hydraulic_linear_1 proc~process_element_hydraulic_linear_1->none~calc_hydraulic proc~hydraulic_assemble_system_linear_1 hydraulic_assemble_system_linear_1 proc~hydraulic_assemble_system_linear_1->proc~process_element_hydraulic_linear_1 proc~hydraulic_assemble_system_linear_1_parallel hydraulic_assemble_system_linear_1_parallel proc~hydraulic_assemble_system_linear_1_parallel->proc~process_element_hydraulic_linear_1

Source Code

    subroutine calc_hydraulic_properties_impl_array(self, ptrs, states, kflhs)
        class(type_properties_manager), intent(in) :: self
        type(type_material_pointers), intent(in) :: ptrs
        type(type_state), intent(inout) :: states(:)
        real(real64), intent(inout) :: kflhs(size(states))

        integer(int32) :: i

        do i = 1, size(states)
            kflhs(i) = ptrs%hcf%calc_kflh(states(i))
            states(i)%density_water = ptrs%den%material2
            states(i)%density_ice = ptrs%den%material3
        end do
    end subroutine calc_hydraulic_properties_impl_array