Set_Calculate_Viscosity_Base Module Subroutine

module subroutine Set_Calculate_Viscosity_Base(Calculate_Viscosity_Type, Calculate_Viscosity)

Arguments

Type IntentOptional Attributes Name
integer(kind=int32), intent(in) :: Calculate_Viscosity_Type
procedure(Abstract_Calculate_Viscosity), intent(inout), pointer :: Calculate_Viscosity

Called by

proc~~set_calculate_viscosity_base~~CalledByGraph proc~set_calculate_viscosity_base Set_Calculate_Viscosity_Base interface~set_calculate_viscosity_base Type_HCF_Viscosity%Set_Calculate_Viscosity_Base interface~set_calculate_viscosity_base->proc~set_calculate_viscosity_base

Source Code

    module subroutine Set_Calculate_Viscosity_Base(Calculate_Viscosity_Type, Calculate_Viscosity)
        implicit none
        integer(int32), intent(in) :: Calculate_Viscosity_Type
        procedure(Abstract_Calculate_Viscosity), pointer, intent(inout) :: Calculate_Viscosity

        select case (Calculate_Viscosity_Type)
        case (1)
            Calculate_Viscosity => Calculate_HCF_mu_Exponential
        case (2)
            Calculate_Viscosity => Calculate_HCF_mu_Exponential_Supercooled
        case default
            Calculate_Viscosity => null()
        end select

    end subroutine Set_Calculate_Viscosity_Base