create_type_hcf_base_viscosity Function

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


Calls

proc~~create_type_hcf_base_viscosity~~CallsGraph proc~create_type_hcf_base_viscosity create_type_hcf_base_viscosity proc~construct_hcf_base construct_hcf_base proc~create_type_hcf_base_viscosity->proc~construct_hcf_base proc~construct_hcf_viscosity construct_hcf_viscosity proc~create_type_hcf_base_viscosity->proc~construct_hcf_viscosity interface~construct_type_hcf_base_bc construct_type_hcf_base_bc proc~construct_hcf_base->interface~construct_type_hcf_base_bc interface~construct_type_hcf_base_durner construct_type_hcf_base_durner proc~construct_hcf_base->interface~construct_type_hcf_base_durner interface~construct_type_hcf_base_dvgch construct_type_hcf_base_dvgch proc~construct_hcf_base->interface~construct_type_hcf_base_dvgch interface~construct_type_hcf_base_ko construct_type_hcf_base_ko proc~construct_hcf_base->interface~construct_type_hcf_base_ko interface~construct_type_hcf_base_mvg construct_type_hcf_base_mvg proc~construct_hcf_base->interface~construct_type_hcf_base_mvg interface~construct_type_hcf_base_vg construct_type_hcf_base_vg proc~construct_hcf_base->interface~construct_type_hcf_base_vg interface~construct_type_hcf_viscosity construct_type_hcf_viscosity proc~construct_hcf_viscosity->interface~construct_type_hcf_viscosity proc~construct_type_hcf_base_bc construct_type_hcf_base_bc interface~construct_type_hcf_base_bc->proc~construct_type_hcf_base_bc proc~construct_type_hcf_base_durner construct_type_hcf_base_durner interface~construct_type_hcf_base_durner->proc~construct_type_hcf_base_durner proc~construct_type_hcf_base_dvgch construct_type_hcf_base_dvgch interface~construct_type_hcf_base_dvgch->proc~construct_type_hcf_base_dvgch proc~construct_type_hcf_base_ko construct_type_hcf_base_ko interface~construct_type_hcf_base_ko->proc~construct_type_hcf_base_ko proc~construct_type_hcf_base_mvg construct_type_hcf_base_mvg interface~construct_type_hcf_base_mvg->proc~construct_type_hcf_base_mvg proc~construct_type_hcf_base_vg construct_type_hcf_base_vg interface~construct_type_hcf_base_vg->proc~construct_type_hcf_base_vg proc~construct_type_hcf_viscosity construct_type_hcf_viscosity interface~construct_type_hcf_viscosity->proc~construct_type_hcf_viscosity calc_viscosity calc_viscosity proc~construct_type_hcf_viscosity->calc_viscosity

Called by

proc~~create_type_hcf_base_viscosity~~CalledByGraph proc~create_type_hcf_base_viscosity create_type_hcf_base_viscosity proc~initialize_holder_hcfs initialize_holder_hcfs proc~initialize_holder_hcfs->proc~create_type_hcf_base_viscosity interface~initialize_holder_hcfs holder_hcfs%initialize_holder_hcfs interface~initialize_holder_hcfs->proc~initialize_holder_hcfs

Source Code

    function create_type_hcf_base_viscosity(input, material_id) result(property)
        implicit none
        type(type_input), intent(in) :: input
        integer(int32), intent(in) :: material_id
        class(abst_hcf), allocatable :: property

        if (allocated(property)) deallocate (property)
        allocate (type_hcf_base_viscosity :: property)

        property%k_s = input%basic%materials(material_id)%hydraulic%hydraulic_conductivity
        property%base = construct_hcf_base(input, material_id)
        property%viscosity = construct_hcf_viscosity(input, material_id)

    end function create_type_hcf_base_viscosity