type_bc_thermal_dirichlet Derived Type

type, public, extends(abst_bc_thermal) :: type_bc_thermal_dirichlet


Inherits

type~~type_bc_thermal_dirichlet~~InheritsGraph type~type_bc_thermal_dirichlet type_bc_thermal_dirichlet type~abst_bc_thermal abst_bc_thermal type~type_bc_thermal_dirichlet->type~abst_bc_thermal

Components

Type Visibility Attributes Name Initial
character(len=:), public, allocatable :: boundary_name
logical, private :: is_uniform
integer(kind=int32), public :: material_id

Type-Bound Procedures

procedure, public, pass(self) :: apply_crs => apply_crs_thermal_dirichlet

  • interface

    private module subroutine apply_crs_thermal_dirichlet(self, current_time, A, b, domain, mode)

    Arguments

    Type IntentOptional Attributes Name
    class(type_bc_thermal_dirichlet), intent(in) :: self
    real(kind=real64), intent(in) :: current_time
    type(type_crs), intent(inout), optional :: A
    real(kind=real64), intent(inout) :: b(:)
    type(type_domain), intent(in) :: domain
    integer(kind=int32), intent(in), optional :: mode

procedure, public, pass(self) :: apply_dense => apply_dense_thermal_dirichlet

  • interface

    private module subroutine apply_dense_thermal_dirichlet(self, current_time, A, b, domain, mode)

    Arguments

    Type IntentOptional Attributes Name
    class(type_bc_thermal_dirichlet), intent(in) :: self
    real(kind=real64), intent(in) :: current_time
    real(kind=real64), intent(inout), optional :: A(:,:)
    real(kind=real64), intent(inout) :: b(:)
    type(type_domain), intent(in) :: domain
    integer(kind=int32), intent(in), optional :: mode

procedure, public, pass(self) :: initialize => initialize_type_bc_thermal_dirichlet

  • interface

    private module subroutine initialize_type_bc_thermal_dirichlet(self, input, domain, id, i_material, time_conv)

    Arguments

    Type IntentOptional Attributes Name
    class(type_bc_thermal_dirichlet), intent(inout) :: self
    type(type_input), intent(in) :: input
    type(type_domain), intent(in) :: domain
    integer(kind=int32), intent(in) :: id
    integer(kind=int32), intent(in) :: i_material
    real(kind=real64), intent(in) :: time_conv

Source Code

    type, extends(abst_bc_thermal) :: type_bc_thermal_dirichlet
        logical, private :: is_uniform
    contains
        procedure, pass(self) :: initialize  => initialize_type_bc_thermal_dirichlet !&
        procedure, pass(self) :: apply_dense => apply_dense_thermal_dirichlet !&
        procedure, pass(self) :: apply_crs   => apply_crs_thermal_dirichlet !&
    end type type_bc_thermal_dirichlet