ObserverSourcePairClass Derived Type

type, public :: ObserverSourcePairClass


Components

Type Visibility Attributes Name Initial
real(kind=RP), public, dimension(:,:,:), allocatable :: rVect
real(kind=RP), public, dimension(:,:), allocatable :: r
real(kind=RP), public, dimension(:,:), allocatable :: re
real(kind=RP), public, dimension(:,:,:), allocatable :: reUnitVect
real(kind=RP), public, dimension(:,:), allocatable :: reStar
real(kind=RP), public, dimension(:,:,:), allocatable :: reStarUnitVect
real(kind=RP), public :: tDelay
integer, public :: faceIDinMesh
integer, public :: elementSide
real(kind=RP), public :: normalCorrection
real(kind=RP), public, dimension(:,:), allocatable :: Pacc
real(kind=RP), public, dimension(:), allocatable :: tInterp

Type-Bound Procedures

procedure, public :: construct => ObserverSourcePairConstruct

  • public subroutine ObserverSourcePairConstruct(self, x, f, fID, FirstCall, elementSide)

    Arguments

    Type IntentOptional Attributes Name
    class(ObserverSourcePairClass) :: self
    real(kind=RP), intent(in), dimension(NDIM) :: x
    type(face), intent(in) :: f
    integer, intent(in) :: fID
    logical, intent(in) :: FirstCall
    integer, intent(in) :: elementSide

procedure, public :: destruct => ObserverSourcePairDestruct

procedure, public :: allocPacc => ObserverSourcePairAllocSolution

procedure, public :: interpolateSolF => ObserverSourcePairInterpolateSolFirst

  • public subroutine ObserverSourcePairInterpolateSolFirst(self, N, M, tobserver, tsource, nd)

    Arguments

    Type IntentOptional Attributes Name
    class(ObserverSourcePairClass) :: self
    integer, intent(in) :: N
    integer, intent(in) :: M
    real(kind=RP), intent(in), dimension(N) :: tobserver
    real(kind=RP), intent(in), dimension(:) :: tsource
    integer, intent(out) :: nd

procedure, public :: newUpdate => ObserverSourcePairNewUpdate

  • public subroutine ObserverSourcePairNewUpdate(self, N, NDiscard, M, tsource, sameDelay)

    Arguments

    Type IntentOptional Attributes Name
    class(ObserverSourcePairClass) :: self
    integer, intent(in) :: N
    integer, intent(in) :: NDiscard
    integer, intent(in) :: M
    real(kind=RP), intent(in), dimension(:) :: tsource
    logical, intent(in) :: sameDelay

procedure, public :: interpolateSolS => ObserverSourcePairInterpolateSolSecond

procedure, public :: updateOneStep => ObserverSourcePairUpdateOneStep

procedure, public :: FWHSurfaceIntegral

  • public function FWHSurfaceIntegral(self, f, isSolid) result(Pacc)

    Arguments

    Type IntentOptional Attributes Name
    class(ObserverSourcePairClass) :: self
    class(Face), intent(in) :: f
    logical, intent(in) :: isSolid

    Return Value real(kind=RP), dimension(3)