abst_vhc Derived Type

type, public, abstract :: abst_vhc


Inherited by

type~~abst_vhc~~InheritedByGraph type~abst_vhc abst_vhc type~holder_vhcs holder_vhcs type~holder_vhcs->type~abst_vhc p type~type_vhc_3phase type_vhc_3phase type~type_vhc_3phase->type~abst_vhc type~type_vhc_3phase_apparent type_vhc_3phase_apparent type~type_vhc_3phase_apparent->type~abst_vhc type~type_material_manager type_material_manager type~type_material_manager->type~holder_vhcs vhc type~type_proereties_manager type_proereties_manager type~type_proereties_manager->type~type_material_manager materials type~type_ftdss type_ftdss type~type_ftdss->type~type_proereties_manager property

Components

Type Visibility Attributes Name Initial
real(kind=real64), public :: material1

soil, rock, concrete
real(kind=real64), public :: material2

water
real(kind=real64), public :: material3

ice
real(kind=real64), public :: material4

gas
integer(kind=int32), public :: material_id

Type-Bound Procedures

procedure(abst_calc_vhc_gauss_point_holder), public, deferred, pass(self) :: calc_gauss_point_holder

  • function abst_calc_vhc_gauss_point_holder(self, state, DEN, LatentHeat, dQi_dT) result(VHC) Prototype

    Arguments

    Type IntentOptional Attributes Name
    class(abst_vhc), intent(in) :: self
    type(type_gauss_point_state), intent(in) :: state
    type(holder_dens), intent(in), optional :: DEN
    real(kind=real64), intent(in), optional :: LatentHeat
    real(kind=real64), intent(in), optional :: dQi_dT

    Return Value real(kind=real64)

procedure(abst_calc_vhc_gauss_point_ptr), public, deferred, pass(self) :: calc_gauss_point_ptr

  • function abst_calc_vhc_gauss_point_ptr(self, state, DEN, LatentHeat, dQi_dT) result(VHC) Prototype

    Arguments

    Type IntentOptional Attributes Name
    class(abst_vhc), intent(in) :: self
    type(type_gauss_point_state), intent(in) :: state
    class(abst_den), intent(in), optional, pointer :: DEN
    real(kind=real64), intent(in), optional :: LatentHeat
    real(kind=real64), intent(in), optional :: dQi_dT

    Return Value real(kind=real64)

Source Code

    type, abstract :: abst_vhc
        integer(int32) :: material_id
        real(real64) :: material1 !! soil, rock, concrete
        real(real64) :: material2 !! water
        real(real64) :: material3 !! ice
        real(real64) :: material4 !! gas
    contains
        procedure(abst_calc_vhc_gauss_point_holder), pass(self), deferred :: calc_gauss_point_holder
        procedure(abst_calc_vhc_gauss_point_ptr), pass(self), deferred :: calc_gauss_point_ptr
    end type abst_vhc