abst_thermal Derived Type

type, public, abstract :: abst_thermal


Inherits

type~~abst_thermal~~InheritsGraph type~abst_thermal abst_thermal abst_solver abst_solver type~abst_thermal->abst_solver solver type~type_crs type_crs type~abst_thermal->type~type_crs KT_star_0, KT_l, KT_old, CT_l, CT_old type~type_variable type_variable type~abst_thermal->type~type_variable T, Qw, Qice, D_Qice, Si type~abst_matrix abst_matrix type~type_crs->type~abst_matrix

Inherited by

type~~abst_thermal~~InheritedByGraph type~abst_thermal abst_thermal type~type_ftdss type_ftdss type~type_ftdss->type~abst_thermal Thermal type~type_thermal_3phase_2d type_thermal_3phase_2d type~type_thermal_3phase_2d->type~abst_thermal

Components

Type Visibility Attributes Name Initial
type(type_crs), public :: CT_l
type(type_crs), public, allocatable :: CT_old(:)
type(type_variable), public :: D_Qice
real(kind=real64), public, allocatable :: FT(:)
real(kind=real64), public, allocatable :: FT_old(:)
type(type_crs), public :: KT_l
type(type_crs), public :: KT_old
type(type_crs), public :: KT_star_0
real(kind=real64), public, allocatable :: PHIT(:)
real(kind=real64), public, allocatable :: PHIT_old(:)

Solver
type(type_variable), public :: Qice
type(type_variable), public :: Qw
type(type_variable), public :: Si
type(type_variable), public :: T
integer(kind=int32), public :: order
class(abst_solver), public, allocatable :: solver

Type-Bound Procedures

procedure(abst_assemble), public, deferred, pass(self) :: assemble

  • subroutine abst_assemble(self, domain, Property, Porosity, dt, step, iter) Prototype

    Arguments

    Type IntentOptional Attributes Name
    class(abst_thermal), intent(inout) :: self
    type(type_domain), intent(inout) :: domain
    type(type_proereties_manager), intent(inout) :: Property
    real(kind=real64), intent(in) :: Porosity(:)
    real(kind=real64), intent(in) :: dt
    integer(kind=int32), intent(in) :: step
    integer(kind=int32), intent(in) :: iter

Source Code

    type, abstract :: abst_thermal
        type(type_variable) :: T
        type(type_variable) :: Qw
        type(type_variable) :: Qice
        type(type_variable) :: D_Qice
        type(type_variable) :: Si

        type(type_crs) :: KT_star_0
        type(type_crs) :: KT_l
        type(type_crs) :: KT_old
        type(type_crs) :: CT_l
        type(type_crs), allocatable :: CT_old(:)

        real(real64), allocatable :: FT(:)
        real(real64), allocatable :: FT_old(:)
        real(real64), allocatable :: PHIT(:)
        real(real64), allocatable :: PHIT_old(:)

        !! Solver
        class(abst_solver), allocatable :: solver
        integer(int32) :: order
    contains
        ! procedure(Abstract_Update), pass(self), deferred :: Update
        procedure(abst_assemble), pass(self), deferred :: assemble
    end type abst_thermal