PlaneSampling_t Derived Type

type, public :: PlaneSampling_t


Components

Type Visibility Attributes Name Initial
logical, public, allocatable :: active(:)
integer, public, allocatable :: rank(:)
integer, public :: ID
integer, public :: nVariables
integer, public :: interval
integer, public :: bufferSize
integer, public :: bufferLine
integer, public :: intervalCount
integer, public :: N(2)
integer, public :: nNodes
integer, public, allocatable :: eID(:)
real(kind=RP), public, allocatable :: lxi(:,:)
real(kind=RP), public, allocatable :: leta(:,:)
real(kind=RP), public, allocatable :: lzeta(:,:)
real(kind=RP), public, allocatable :: values(:,:,:)
real(kind=RP), public, allocatable :: x(:,:)
real(kind=RP), public, allocatable :: xi(:,:)
logical, public :: disturbanceData = .false.
character(len=STR_LEN_MONITORS), public, allocatable :: fileName(:)
character(len=STR_LEN_MONITORS), public :: planeName
character(len=STR_LEN_MONITORS), public :: fileInput
character(len=STR_LEN_MONITORS), public, allocatable :: variable(:)

Type-Bound Procedures

procedure, public :: Initialization => Plane_Initialization

  • private subroutine Plane_Initialization(self, mesh, ID, solution_file, FirstCall)

    Arguments

    Type IntentOptional Attributes Name
    class(PlaneSampling_t) :: self
    class(HexMesh) :: mesh
    integer :: ID
    character(len=*) :: solution_file
    logical, intent(in) :: FirstCall

procedure, public :: Update => Plane_Update

  • private subroutine Plane_Update(self, mesh, bufferPosition, t)

    Arguments

    Type IntentOptional Attributes Name
    class(PlaneSampling_t) :: self
    class(HexMesh) :: mesh
    integer :: bufferPosition
    real(kind=RP) :: t

procedure, public :: UpdateInterp => Plane_UpdateLagrangeInterp

  • private subroutine Plane_UpdateLagrangeInterp(self, mesh)

    Arguments

    Type IntentOptional Attributes Name
    class(PlaneSampling_t) :: self
    class(HexMesh) :: mesh

procedure, public :: WriteToFile => Plane_WriteToFile

  • private subroutine Plane_WriteToFile(self, no_of_lines)

    Arguments

    Type IntentOptional Attributes Name
    class(PlaneSampling_t) :: self
    integer :: no_of_lines

procedure, public :: LookInOtherPartitions => Plane_LookInOtherPartitions

  • private subroutine Plane_LookInOtherPartitions(self, i)

    Arguments

    Type IntentOptional Attributes Name
    class(PlaneSampling_t) :: self
    integer, intent(in) :: i

procedure, public :: destruct => Plane_Destruct

  • private elemental subroutine Plane_Destruct(self)

    Arguments

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

procedure, public :: copy => Plane_Assign

  • private elemental subroutine Plane_Assign(to, from)

    Arguments

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

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

  • private elemental subroutine Plane_Assign(to, from)

    Arguments

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

Source Code

   type PlaneSampling_t
      logical      , allocatable      :: active(:)
      integer      , allocatable      :: rank (:)
      integer                         :: ID
      integer                         :: nVariables
      integer                         :: interval
      integer                         :: bufferSize
      integer                         :: bufferLine
      integer                         :: intervalCount
      integer                         :: N(2)
      integer                         :: nNodes
      integer      , allocatable      :: eID (:)
      real(kind=RP), allocatable      :: lxi(:,:) , leta(:,:), lzeta(:,:)
      real(kind=RP), allocatable      :: values(:,:,:)
      real(kind=RP), allocatable      :: x(:,:)
      real(kind=RP), allocatable      :: xi(:,:)
      logical                         :: disturbanceData =.false.
      character(len=STR_LEN_MONITORS),  allocatable :: fileName (:)
      character(len=STR_LEN_MONITORS)               :: planeName
      character(len=STR_LEN_MONITORS)               :: fileInput
      character(len=STR_LEN_MONITORS),  allocatable :: variable (:)
      contains
         procedure   :: Initialization => Plane_Initialization
         procedure   :: Update         => Plane_Update
		 procedure   :: UpdateInterp   => Plane_UpdateLagrangeInterp
         procedure   :: WriteToFile    => Plane_WriteToFile
         procedure   :: LookInOtherPartitions => Plane_LookInOtherPartitions
         procedure   :: destruct       => Plane_Destruct
         procedure   :: copy           => Plane_Assign
         generic     :: assignment(=)  => copy
   end type PlaneSampling_t