type_variable Derived Type

type, public :: type_variable


Inherited by

type~~type_variable~~InheritedByGraph type~type_variable type_variable type~abst_thermal abst_thermal type~abst_thermal->type~type_variable Qw, Qice, Si type~type_ftdss type_ftdss type~type_ftdss->type~type_variable phi, T, P type~type_ftdss->type~abst_thermal thermal type~type_thermal_crs type_thermal_crs type~type_thermal_crs->type~abst_thermal

Components

Type Visibility Attributes Name Initial
real(kind=real64), public, allocatable :: dif(:)
integer(kind=int32), public :: length
real(kind=real64), public, allocatable :: new(:)
real(kind=real64), public, allocatable :: old(:,:)
real(kind=real64), public, allocatable :: pre(:)
integer(kind=int32), public :: rank

Type-Bound Procedures

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

  • private subroutine initialize_type_variable(self, length, rank)

    Arguments

    Type IntentOptional Attributes Name
    class(type_variable), intent(inout) :: self
    integer(kind=int32), intent(in) :: length
    integer(kind=int32), intent(in) :: rank

procedure, public, pass(self) :: set => type_variable_set

  • private subroutine type_variable_set(self, value)

    Arguments

    Type IntentOptional Attributes Name
    class(type_variable), intent(inout) :: self
    real(kind=real64), intent(in) :: value(:)

procedure, public, pass(self) :: shift => type_variable_shift

  • private subroutine type_variable_shift(self, reverse)

    Arguments

    Type IntentOptional Attributes Name
    class(type_variable), intent(inout) :: self
    logical, intent(in), optional :: reverse

Source Code

    type :: type_variable
        integer(int32)             :: rank !&
        integer(int32)             :: length !&
        real(real64),  allocatable :: new(:) !&
        real(real64),  allocatable :: pre(:) !&
        real(real64),  allocatable :: old(:, :) !&
        real(real64),  allocatable :: dif(:) !&
    contains
        procedure, pass(self) :: initialize => initialize_type_variable !&
        procedure, pass(self) :: shift      => type_variable_shift !&
        procedure, pass(self) :: set        => type_variable_set !&
    end type type_variable