CCLDiffDerivation Derived Type

type, public, extends(Derivation) :: CCLDiffDerivation

Calculates the Chang-Cooper-Langdon diffusion coefficient for f0 Coulomb collisions assuming that the passed variables are the single harmonic f0 and the ccl interpolation weight


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(:) :: v2dv

v^2 dv vector used for outer integration
real(kind=rk), private, allocatable, dimension(:) :: vdvPlus

v_{m+1/2}(v_{m+1}-v_m) vector used for inner integration
real(kind=rk), private, allocatable, dimension(:) :: vStar

(v_m+v_{m+1})/2 vector

integer(kind=ik), private :: numV

Type-Bound Procedures

procedure, public :: isDefined => isDefinedObject

  • interface

    private pure module function isDefinedObject(this) result(defined)

    Getter for userDefined

    Arguments

    Type IntentOptional Attributes Name
    class(Object), intent(in) :: this

    Return Value logical

procedure, public :: makeDefined => makeDefinedObject

  • interface

    private pure module subroutine makeDefinedObject(this)

    Set userDefined to .true.

    Arguments

    Type IntentOptional Attributes Name
    class(Object), intent(inout) :: this

procedure, public :: makeUndefined => makeUndefinedObject

  • interface

    private pure module subroutine makeUndefinedObject(this)

    Set userDefined to .false.

    Arguments

    Type IntentOptional Attributes Name
    class(Object), intent(inout) :: this

procedure, public :: init => initCCLDiff

  • interface

    private module subroutine initCCLDiff(this, vSpaceObj)

    Initialize Chang-Cooper-Langdon diffusion coefficient derivation

    Arguments

    Type IntentOptional Attributes Name
    class(CCLDiffDerivation), intent(inout) :: this
    type(VSpace), intent(in) :: vSpaceObj

procedure, public :: calculate => calculateCCLDiff

  • interface

    private module function calculateCCLDiff(this, inputArray, indices) result(output)

    Arguments

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

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