type_thermal_3phase_2d Derived Type

type, public, extends(abst_thermal) :: type_thermal_3phase_2d


Inherits

type~~type_thermal_3phase_2d~~InheritsGraph type~type_thermal_3phase_2d type_thermal_3phase_2d type~abst_thermal abst_thermal type~type_thermal_3phase_2d->type~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

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

Constructor

public interface type_thermal_3phase_2d


Type-Bound Procedures

procedure, public :: assemble => assemble_type_thermal_3phase_2d

  • interface

    private module subroutine assemble_type_thermal_3phase_2d(self, domain, Property, Porosity, dt, step, iter)

    Arguments

    Type IntentOptional Attributes Name
    class(type_thermal_3phase_2d), 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, extends(abst_thermal) :: type_thermal_3phase_2d
    contains
        ! procedure :: Update => type_thermal_3phase_2d_Update
        procedure :: assemble => assemble_type_thermal_3phase_2d
    end type type_thermal_3phase_2d