Residuals_t Derived Type

type, public :: Residuals_t


Components

Type Visibility Attributes Name Initial
logical, public :: active
real(kind=RP), public, allocatable :: values(:,:)
real(kind=RP), public, allocatable :: CPUtime(:)
character(len=STR_LEN_MONITORS), public :: fileName
logical, public :: memory = .FALSE.
real(kind=RP), public, allocatable :: totMemory(:)

Type-Bound Procedures

procedure, public :: Initialization => Residuals_Initialization

  • private subroutine Residuals_Initialization(self, solution_file, FirstCall, monitorMem)

    Arguments

    Type IntentOptional Attributes Name
    class(Residuals_t) :: self
    character(len=*) :: solution_file
    logical, intent(in) :: FirstCall
    logical, intent(in) :: monitorMem

procedure, public :: Update => Residuals_Update

  • private subroutine Residuals_Update(self, mesh, maxResiduals, bufferPosition)

    Arguments

    Type IntentOptional Attributes Name
    class(Residuals_t) :: self
    class(HexMesh), intent(in) :: mesh
    real(kind=RP) :: maxResiduals(NCONS)
    integer :: bufferPosition

procedure, public :: WriteLabel => Residuals_WriteLabel

  • private subroutine Residuals_WriteLabel(self)

    Arguments

    Type IntentOptional Attributes Name
    class(Residuals_t) :: self

procedure, public :: WriteValues => Residuals_WriteValue

  • private subroutine Residuals_WriteValue(self, bufferLine)

    Arguments

    Type IntentOptional Attributes Name
    class(Residuals_t) :: self
    integer :: bufferLine

procedure, public :: WriteToFile => Residuals_WriteToFile

  • private subroutine Residuals_WriteToFile(self, iter, t, TotalSimuTime, SolverSimuTime, no_of_lines)

    Arguments

    Type IntentOptional Attributes Name
    class(Residuals_t) :: self
    integer :: iter(:)
    real(kind=RP) :: t(:)
    real(kind=RP) :: TotalSimuTime(:)
    real(kind=RP) :: SolverSimuTime(:)
    integer :: no_of_lines

procedure, public :: destruct => Residuals_Destruct

  • private pure subroutine Residuals_Destruct(self)

    Arguments

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

procedure, public :: copy => Residuals_Assign

  • private elemental subroutine Residuals_Assign(to, from)

    Arguments

    Type IntentOptional Attributes Name
    class(Residuals_t), intent(inout) :: to
    type(Residuals_t), intent(in) :: from

generic, public :: assignment(=) => copy

  • private elemental subroutine Residuals_Assign(to, from)

    Arguments

    Type IntentOptional Attributes Name
    class(Residuals_t), intent(inout) :: to
    type(Residuals_t), intent(in) :: from

Source Code

   type Residuals_t
      logical                         :: active
      real(kind=RP), allocatable      :: values(:,:)
      real(kind=RP), allocatable      :: CPUtime(:)
      character(len=STR_LEN_MONITORS) :: fileName
	  logical                         :: memory =.FALSE.
	  real(kind=RP), allocatable      :: totMemory(:)
      contains
         procedure   :: Initialization => Residuals_Initialization
         procedure   :: Update         => Residuals_Update
         procedure   :: WriteLabel     => Residuals_WriteLabel
         procedure   :: WriteValues    => Residuals_WriteValue
         procedure   :: WriteToFile    => Residuals_WriteToFile
         procedure   :: destruct       => Residuals_Destruct
         procedure   :: copy           => Residuals_Assign
         generic     :: assignment(=)  => copy
   end type Residuals_t