MappedDivergence_MappedTwoPointVector3D Subroutine

  1. SELF_MappedTwoPointVector_3D.f90
  2. SELF_MappedTwoPointVector_3D
  3. MappedDivergence_MappedTwoPointVector3D

public subroutine MappedDivergence_MappedTwoPointVector3D(this, df)

GPU implementation of the physical-space split-form divergence for a 3-D two-point vector on a curvilinear mesh.

interior_gpu must already contain pre-projected SCALAR contravariant two-point fluxes. Applies the reference-element split-form sum then divides by J.

Arguments

TypeIntentOptionalAttributesName
class(MappedTwoPointVector3D), intent(inout) :: this
type(c_ptr), intent(out) :: df

Calls

proc~~mappeddivergence_mappedtwopointvector3d~~CallsGraph proc~mappeddivergence_mappedtwopointvector3d MappedDivergence_MappedTwoPointVector3D interface~twopointvectordivergence_3d_gpu TwoPointVectorDivergence_3D_gpu proc~mappeddivergence_mappedtwopointvector3d->interface~twopointvectordivergence_3d_gpu interface~jacobianweight_3d_gpu JacobianWeight_3D_gpu proc~mappeddivergence_mappedtwopointvector3d->interface~jacobianweight_3d_gpu

Contents

Source Code

MappedDivergence_MappedTwoPointVector3D

Source Code

  subroutine MappedDivergence_MappedTwoPointVector3D(this,df)
    !! GPU implementation of the physical-space split-form divergence for
    !! a 3-D two-point vector on a curvilinear mesh.
    !!
    !! interior_gpu must already contain pre-projected SCALAR contravariant
    !! two-point fluxes.  Applies the reference-element split-form sum then
    !! divides by J.
    implicit none
    class(MappedTwoPointVector3D),intent(inout) :: this
    type(c_ptr),intent(out) :: df

    call TwoPointVectorDivergence_3D_gpu(this%interior_gpu,df, &
                                         this%interp%dSplitMatrix_gpu, &
                                         this%interp%N,this%nVar,this%nElem)

    call JacobianWeight_3D_gpu(df,this%geometry%J%interior_gpu, &
                               this%interp%N,this%nVar,this%nElem)

  endsubroutine MappedDivergence_MappedTwoPointVector3D