TwoPointVector3D Derived Type

  1. SELF_TwoPointVector_3D.f90
  2. SELF_TwoPointVector_3D
  3. TwoPointVector3D

type, public, extends(TwoPointVector3D_t) :: TwoPointVector3D


Inherits

type~~twopointvector3d~2~~InheritsGraph type~twopointvector3d~2 TwoPointVector3D c_ptr c_ptr type~twopointvector3d~2->c_ptr interior_gpu type~twopointvector3d_t TwoPointVector3D_t type~twopointvector3d~2->type~twopointvector3d_t type~self_dataobj SELF_DataObj type~twopointvector3d_t->type~self_dataobj type~lagrange Lagrange type~self_dataobj->type~lagrange interp type~metadata Metadata type~self_dataobj->type~metadata meta EquationParser EquationParser type~self_dataobj->EquationParser eqn type~lagrange_t Lagrange_t type~lagrange->type~lagrange_t type~lagrange_t->c_ptr blas_handle

Contents

Variables

Type-Bound Procedures

Source Code

TwoPointVector3D

Components

TypeVisibilityAttributesNameInitial
integer, public :: M
integer, public :: N
character(len=3), public :: backend ="gpu"
type(EquationParser), public, allocatable:: eqn(:)
real(kind=prec), public, pointer, contiguous, dimension(:,:,:,:,:,:,:):: interior
type(c_ptr), public :: interior_gpu
type(Lagrange), public, pointer:: interp
type(Metadata), public, allocatable:: meta(:)
integer, public :: nElem
integer, public :: nVar

Type-Bound Procedures

generic, public :: Divergence => Divergence_TwoPointVector3D_t, Divergence_TwoPointVector3D

  • public subroutine Divergence_TwoPointVector3D_t(this, df)

    Computes the split-form (two-point) divergence of a 3-D vector field in the reference element (computational coordinates).

    Read more…

    Arguments

    TypeIntentOptionalAttributesName
    class(TwoPointVector3D_t), intent(in) :: this
    real(kind=prec), intent(out) :: df(1:this%N+1,1:this%N+1,1:this%N+1,1:this%nElem,1:this%nVar)

  • public subroutine Divergence_TwoPointVector3D(this, df)

    GPU implementation of the reference-element split-form divergence. df must be a device pointer to a scalar field of size (N+1)^3 * nElem * nVar.

    Arguments

    TypeIntentOptionalAttributesName
    class(TwoPointVector3D), intent(in) :: this
    type(c_ptr), intent(inout) :: df

procedure, private :: Divergence_TwoPointVector3D

  • public subroutine Divergence_TwoPointVector3D(this, df)

    GPU implementation of the reference-element split-form divergence. df must be a device pointer to a scalar field of size (N+1)^3 * nElem * nVar.

    Arguments

    TypeIntentOptionalAttributesName
    class(TwoPointVector3D), intent(in) :: this
    type(c_ptr), intent(inout) :: df

procedure, public :: Free => Free_TwoPointVector3D

procedure, public :: Init => Init_TwoPointVector3D

  • public subroutine Init_TwoPointVector3D(this, interp, nVar, nElem)

    Arguments

    TypeIntentOptionalAttributesName
    class(TwoPointVector3D), intent(out) :: this
    type(Lagrange), intent(in), target:: interp
    integer, intent(in) :: nVar
    integer, intent(in) :: nElem

procedure, public :: SetDescription => SetDescription_DataObj

  • public subroutine SetDescription_DataObj(this, ivar, description)

    Set the description of the ivar-th variable

    Arguments

    TypeIntentOptionalAttributesName
    class(SELF_DataObj), intent(inout) :: this
    integer, intent(in) :: ivar
    character, intent(in) :: description

generic, public :: SetEquation => SetEquation_DataObj

  • public subroutine SetEquation_DataObj(this, ivar, eqnChar)

    Sets the equation parser for the ivar-th variable

    Arguments

    TypeIntentOptionalAttributesName
    class(SELF_DataObj), intent(inout) :: this
    integer, intent(in) :: ivar
    character, intent(in) :: eqnChar

procedure, public :: SetName => SetName_DataObj

  • public subroutine SetName_DataObj(this, ivar, name)

    Set the name of the ivar-th variable

    Arguments

    TypeIntentOptionalAttributesName
    class(SELF_DataObj), intent(inout) :: this
    integer, intent(in) :: ivar
    character, intent(in) :: name

procedure, public :: SetUnits => SetUnits_DataObj

  • public subroutine SetUnits_DataObj(this, ivar, units)

    Set the units of the ivar-th variable

    Arguments

    TypeIntentOptionalAttributesName
    class(SELF_DataObj), intent(inout) :: this
    integer, intent(in) :: ivar
    character, intent(in) :: units

procedure, public :: UpdateDevice => UpdateDevice_TwoPointVector3D

procedure, public :: UpdateHost => UpdateHost_TwoPointVector3D

Source Code

  type,extends(TwoPointVector3D_t),public :: TwoPointVector3D
    character(3) :: backend = "gpu"
    type(c_ptr) :: interior_gpu

  contains

    procedure,public :: Init => Init_TwoPointVector3D
    procedure,public :: Free => Free_TwoPointVector3D

    procedure,public :: UpdateHost => UpdateHost_TwoPointVector3D
    procedure,public :: UpdateDevice => UpdateDevice_TwoPointVector3D

    generic,public :: Divergence => Divergence_TwoPointVector3D
    procedure,private :: Divergence_TwoPointVector3D

  endtype TwoPointVector3D