Abstract_HCF_Base Derived Type

type, private, abstract, extends(Abstract_HCF) :: Abstract_HCF_Base


Inherits

type~~abstract_hcf_base~~InheritsGraph type~abstract_hcf_base Abstract_HCF_Base type~abstract_hcf Abstract_HCF type~abstract_hcf_base->type~abstract_hcf

Inherited by

type~~abstract_hcf_base~~InheritedByGraph type~abstract_hcf_base Abstract_HCF_Base type~type_hcf_base_bc Type_HCF_Base_BC type~type_hcf_base_bc->type~abstract_hcf_base type~type_hcf_base_durner Type_HCF_Base_Durner type~type_hcf_base_durner->type~abstract_hcf_base type~type_hcf_base_dvgch Type_HCF_Base_DVGCH type~type_hcf_base_dvgch->type~abstract_hcf_base type~type_hcf_base_ko Type_HCF_Base_KO type~type_hcf_base_ko->type~abstract_hcf_base type~type_hcf_base_mvg Type_HCF_Base_MVG type~type_hcf_base_mvg->type~abstract_hcf_base type~type_hcf_base_vg Type_HCF_Base_VG type~type_hcf_base_vg->type~abstract_hcf_base

Components

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

saturated hydraulic conductivity
real(kind=real64), public :: alpha1
real(kind=real64), public :: l
real(kind=real64), public :: n1
integer(kind=int32), public :: nsize
real(kind=real64), public :: thetaR

residual water content
real(kind=real64), public :: thetaS

saturated water content

Type-Bound Procedures

procedure(Abstract_Calculate_Kflh_Base), public, deferred, pass(self) :: Calculate_Kflh

  • function Abstract_Calculate_Kflh_Base(self, h) result(Kflh) Prototype

    Arguments

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

    Return Value real(kind=real64)

procedure(Abstract_Calculate_kr_HCF_Base), public, deferred, pass(self) :: Calculate_kr

  • function Abstract_Calculate_kr_HCF_Base(self, h) result(kr) Prototype

    Arguments

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

    Return Value real(kind=real64)

procedure(Abstract_Update_Kflh_Base), public, deferred, pass(self) :: Update_Kflh

  • subroutine Abstract_Update_Kflh_Base(self, arr_h) Prototype

    Arguments

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

Source Code

    type, abstract, extends(Abstract_HCF) :: Abstract_HCF_Base
        real(real64) :: thetaS !! saturated water content
        real(real64) :: thetaR !! residual water content
        real(real64) :: alpha1
        real(real64) :: n1
        real(real64) :: l
    contains
        procedure(Abstract_Calculate_kr_HCF_Base), pass(self), deferred :: Calculate_kr
        procedure(Abstract_Calculate_Kflh_Base), pass(self), deferred :: Calculate_Kflh
        procedure(Abstract_Update_Kflh_Base), pass(self), deferred :: Update_Kflh
    end type Abstract_HCF_Base