type_thermal_crs Derived Type

type, public, extends(abst_thermal) :: type_thermal_crs


Inherits

type~~type_thermal_crs~~InheritsGraph type~type_thermal_crs type_thermal_crs type~abst_thermal abst_thermal type~type_thermal_crs->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 type~type_variable type_variable type~abst_thermal->type~type_variable Qw, Qice, Si type~abst_matrix abst_matrix type~type_crs->type~abst_matrix

Components

Type Visibility Attributes Name Initial
real(kind=real64), public, allocatable :: FT(:)
type(type_crs), public :: KT_star
real(kind=real64), public, allocatable :: PHIT(:)

Nonlinear solver
type(type_variable), public :: Qice
type(type_variable), public :: Qw
type(type_variable), public :: Si
character(len=:), public, allocatable :: algorithm

Solver
procedure(abst_assemble_global_thermal), public, nopass, pointer :: assemble_global => null()
integer(kind=int32), public :: order
class(abst_solver), public, allocatable :: solver

Constructor

public interface type_thermal_crs


Type-Bound Procedures

procedure, public :: compute => compute_type_thermal_crs

procedure, public :: shift => shift_type_thermal_crs

  • interface

    private module subroutine shift_type_thermal_crs(self)

    Arguments

    Type IntentOptional Attributes Name
    class(type_thermal_crs), intent(inout) :: self

procedure, public :: solve => solve_type_thermal_crs

procedure, public :: update => update_type_thermal_crs

  • interface

    private module subroutine update_type_thermal_crs(self, domain, property, temperature, porosity, controls)

    Arguments

    Type IntentOptional Attributes Name
    class(type_thermal_crs), intent(inout) :: self
    type(type_domain), intent(inout), target :: domain
    type(type_properties_manager), intent(inout) :: property
    real(kind=real64), intent(in) :: temperature(:)
    real(kind=real64), intent(in) :: porosity(:)
    type(type_controls), intent(in) :: controls

Source Code

    type, extends(abst_thermal) :: type_thermal_crs
    contains
        procedure :: update => update_type_thermal_crs
        procedure :: shift => shift_type_thermal_crs
        procedure :: solve => solve_type_thermal_crs
        procedure :: compute => compute_type_thermal_crs
    end type type_thermal_crs