cold_ion_ij_int_derivation_class Module

Houses Shkarofsky I and J integral for a drifting delta function derivation object


Uses

Used by


Interfaces

interface

  • private module function calculateColdIJInt(this, inputArray, indices) result(output)

    Arguments

    Type IntentOptional Attributes Name
    class(ColdIonIJIntDerivation), intent(inout) :: this
    type(RealArray), intent(in), dimension(:) :: inputArray
    integer(kind=ik), intent(in), dimension(:) :: indices

    Return Value real(kind=rk), allocatable, dimension(:)

interface

  • private module subroutine initColdIJInt(this, gridObj, ind, isJInt)

    Initialize col dion Shkarofsky I/J integral derivation derivation

    Arguments

    Type IntentOptional Attributes Name
    class(ColdIonIJIntDerivation), intent(inout) :: this
    type(Grid), intent(in) :: gridObj
    integer(kind=ik), intent(in) :: ind

    Index of integral
    logical, intent(in), optional :: isJInt

    If true the lower triangular J integral is calculated instead of the I integral. Defaults to false.

Derived Types

type, public, extends(Derivation) ::  ColdIonIJIntDerivation

Calculates the Shkarofsky I or J integrals for cold drifting ions (normalized to ion density). The passed variable is assumed to be the ion flow velocity

Components

Type Visibility Attributes Name Initial
logical, public :: userDefined = .false.

True only if user explicitly sets it to true
real(kind=rk), private, allocatable, dimension(:) :: vGridCopy

Local copy of velocity grid
integer(kind=ik), private :: ind

Integral index
integer(kind=ik), private, allocatable, dimension(:) :: lGridCopy

Local copy of l harmonic grid
logical, private :: isJInt

True if the calculated integral is the J integral instead of the I integral.

Type-Bound Procedures

procedure, public :: isDefined => isDefinedObject
procedure, public :: makeDefined => makeDefinedObject
procedure, public :: makeUndefined => makeUndefinedObject
procedure, public :: init => initColdIJInt
procedure, public :: calculate => calculateColdIJInt