Type_HCF_Impedance Derived Type

type, public, extends(Abstract_HCF_Impedance) :: Type_HCF_Impedance


Inherits

type~~type_hcf_impedance~~InheritsGraph type~type_hcf_impedance Type_HCF_Impedance type~abstract_hcf_impedance Abstract_HCF_Impedance type~type_hcf_impedance->type~abstract_hcf_impedance type~abstract_hcf Abstract_HCF type~abstract_hcf_impedance->type~abstract_hcf

Components

Type Visibility Attributes Name Initial
real(kind=real64), public, allocatable :: Kflh(:)
real(kind=real64), public :: Ks

saturated hydraulic conductivity
real(kind=real64), public :: Omega

Impedance factor
integer(kind=int32), public :: nsize

Constructor

public interface Type_HCF_Impedance


Type-Bound Procedures

procedure, public, nopass :: Calculate_Impedance => Calculate_Impedance_Base

  • interface

    private module function Calculate_Impedance_Base(Omega, thetaI) result(Impedance)

    Arguments

    Type IntentOptional Attributes Name
    real(kind=real64), intent(in) :: Omega
    real(kind=real64), intent(in) :: thetaI

    Return Value real(kind=real64)

procedure, public :: Calculate_Kflh => Calculate_Kflh_Impedance

  • interface

    private module function Calculate_Kflh_Impedance(self, thetaI) result(Kflh)

    Arguments

    Type IntentOptional Attributes Name
    class(Type_HCF_Impedance), intent(in) :: self
    real(kind=real64), intent(in) :: thetaI

    Return Value real(kind=real64)

procedure, public :: Update_Kflh => Update_Kflh_Impedance

  • interface

    private module subroutine Update_Kflh_Impedance(self, arr_thetaI)

    Arguments

    Type IntentOptional Attributes Name
    class(Type_HCF_Impedance), intent(inout) :: self
    real(kind=real64), intent(in) :: arr_thetaI(:)

Source Code

    type, extends(Abstract_HCF_Impedance) :: Type_HCF_Impedance
    contains
        procedure, nopass :: Calculate_Impedance => Calculate_Impedance_Base
        procedure :: Calculate_Kflh => Calculate_Kflh_Impedance
        procedure :: Update_Kflh => Update_Kflh_Impedance
    end type Type_HCF_Impedance