Abstract_HCF_Viscosity Derived Type

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


Inherits

type~~abstract_hcf_viscosity~~InheritsGraph type~abstract_hcf_viscosity Abstract_HCF_Viscosity type~abstract_hcf Abstract_HCF type~abstract_hcf_viscosity->type~abstract_hcf

Inherited by

type~~abstract_hcf_viscosity~~InheritedByGraph type~abstract_hcf_viscosity Abstract_HCF_Viscosity type~type_hcf_viscosity Type_HCF_Viscosity type~type_hcf_viscosity->type~abstract_hcf_viscosity

Components

Type Visibility Attributes Name Initial
procedure(Abstract_Calculate_Viscosity), public, nopass, pointer :: Calculate_Viscosity => null()
real(kind=real64), public, allocatable :: Kflh(:)
real(kind=real64), public :: Ks

saturated hydraulic conductivity
real(kind=real64), public :: kzero
integer(kind=int32), public :: nsize

Type-Bound Procedures

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

  • function Abstract_Calculate_Kflh_Viscosity(self, Temperature) result(Kflh) Prototype

    Arguments

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

    Return Value real(kind=real64)

procedure(Abstract_Set_Calculate_HCF_Viscosity), public, deferred, nopass :: Set_Calculate_Viscosity

  • subroutine Abstract_Set_Calculate_HCF_Viscosity(Calculate_Viscosity_Type, Calculate_Viscosity) Prototype

    Arguments

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

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

  • subroutine Abstract_Update_Kflh_Viscosity(self, arr_Temperature) Prototype

    Arguments

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

Source Code

    type, abstract, extends(Abstract_HCF) :: Abstract_HCF_Viscosity
        real(real64) :: kzero
        procedure(Abstract_Calculate_Viscosity), nopass, pointer :: Calculate_Viscosity => null()
    contains
        procedure(Abstract_Set_Calculate_HCF_Viscosity), nopass, deferred :: Set_Calculate_Viscosity
        procedure(Abstract_Calculate_Kflh_Viscosity), pass(self), deferred :: Calculate_Kflh
        procedure(Abstract_Update_Kflh_Viscosity), pass(self), deferred :: Update_Kflh
    end type Abstract_HCF_Viscosity