central_diff_grad_derivation_class Module

Houses derivation object that returns values proportional to centrally differenced gradient of given variable


Uses

Used by


Interfaces

interface

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

    Arguments

    Type IntentOptional Attributes Name
    class(CentralDiffDerivation), 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 initCentralDiffDeriv(this, refGeometry, refPartition, procRank, varPowers, multConst)

    Initialize central difference derivation object

    Arguments

    Type IntentOptional Attributes Name
    class(CentralDiffDerivation), intent(inout) :: this
    type(Geometry), intent(in) :: refGeometry

    Geometry object used to calculate central difference
    type(Partition), intent(in) :: refPartition

    Partition object used to calculate central difference
    integer(kind=ik), intent(in) :: procRank

    Current processor rank
    real(kind=rk), intent(in), optional, dimension(:) :: varPowers

    Optional fluid variable powers
    real(kind=rk), intent(in), optional :: multConst

    Optional multiplicative constant - default 1

Derived Types

type, public, extends(Derivation) ::  CentralDiffDerivation

Returns equal to the central difference of the first passed (fluid) variable, optionally multiplied by a constant and product of fluid variables raised to corresponding powers

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

Powers corresponding to each fluid variable - indices in calculate must conform to size of this + 1
real(kind=rk), private :: multConst

Multiplicative constant - default 1
real(kind=rk), private, allocatable, dimension(:) :: leftMult
real(kind=rk), private, allocatable, dimension(:) :: centralMult
real(kind=rk), private, allocatable, dimension(:) :: rightMult

Type-Bound Procedures

procedure, public :: isDefined => isDefinedObject
procedure, public :: makeDefined => makeDefinedObject
procedure, public :: makeUndefined => makeUndefinedObject
procedure, public :: init => initCentralDiffDeriv
procedure, public :: calculate => calculateCentralDiffDeriv