Extrapolation Derived Type

type, public, abstract, extends(Object) :: Extrapolation

Abstract Extrapolation object, responsible for extrapolating fluid quantites onto x grid boundaries


Components

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

True only if user explicitly sets it to true
logical, private :: leftBoundary = .false.
logical, private :: staggeredVars = .false.
logical, private :: active = .false.
integer(kind=ik), private :: haloWidth = 0

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 :: setOnBoundary

  • interface

    private module subroutine setOnBoundary(this, partObj, gridObj, numProc)

    Check if this processor has the boundary corresponding with this extrapolation and set active

    Arguments

    Type IntentOptional Attributes Name
    class(Extrapolation), intent(inout) :: this
    type(Partition), intent(in) :: partObj
    type(Grid), intent(in) :: gridObj
    integer(kind=ik), intent(in) :: numProc

procedure, public :: setLeftBoundary

  • interface

    private module subroutine setLeftBoundary(this, leftBoundary)

    Setter for leftBoundary

    Arguments

    Type IntentOptional Attributes Name
    class(Extrapolation), intent(inout) :: this
    logical, intent(in) :: leftBoundary

procedure, public :: setStaggeredVars

  • interface

    private module subroutine setStaggeredVars(this, stagVars)

    Setter for staggeredVars

    Arguments

    Type IntentOptional Attributes Name
    class(Extrapolation), intent(inout) :: this
    logical, intent(in) :: stagVars

procedure, public :: setHaloWidth

  • interface

    private module subroutine setHaloWidth(this, haloWidth)

    Setter for haloWidth

    Arguments

    Type IntentOptional Attributes Name
    class(Extrapolation), intent(inout) :: this
    integer(kind=ik), intent(in) :: haloWidth

procedure, public :: hasBoundary

  • interface

    private pure module function hasBoundary(this) result(active)

    Getter for active

    Arguments

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

    Return Value logical

procedure, public :: isLeftBoundary

  • interface

    private pure module function isLeftBoundary(this) result(leftBoundary)

    Getter for leftBoundary

    Arguments

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

    Return Value logical

procedure, public :: usesStaggeredVars

  • interface

    private pure module function usesStaggeredVars(this) result(staggeredVars)

    Getter for staggeredVars

    Arguments

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

    Return Value logical

procedure, public :: getHaloWidth

  • interface

    private pure module function getHaloWidth(this) result(haloWidth)

    Getter for haloWidth

    Arguments

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

    Return Value integer(kind=ik)

procedure(extrap), public, deferred :: extrapolate

  • pure function extrap(this, input) result(res) Prototype

    Abstract routine for extrapolation

    Arguments

    Type IntentOptional Attributes Name
    class(Extrapolation), intent(in) :: this
    real(kind=rk), intent(in), dimension(:) :: input

    Return Value real(kind=rk)