MappedDivergence_MappedVector3D Subroutine

public subroutine MappedDivergence_MappedVector3D(this, df)

Arguments

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

Calls

proc~~mappeddivergence_mappedvector3d~~CallsGraph proc~mappeddivergence_mappedvector3d MappedDivergence_MappedVector3D interface~mappedcontravariantdivergence_3d_gpu MappedContravariantDivergence_3D_gpu proc~mappeddivergence_mappedvector3d->interface~mappedcontravariantdivergence_3d_gpu

Contents


Source Code

  subroutine MappedDivergence_MappedVector3D(this,df)
    ! Strong Form Operator
    !    !
    implicit none
    class(MappedVector3D),intent(in) :: this
    type(c_ptr),intent(inout) :: df

    ! Fused contravariant projection + interior divergence, with the Jacobian
    ! weight folded into the epilogue (strong form has no boundary term).
    call MappedContravariantDivergence_3D_gpu(this%geometry%dsdx%interior_gpu,this%interp%dMatrix_gpu, &
                                              this%interior_gpu,df,this%geometry%J%interior_gpu, &
                                              this%interp%N,this%nvar,this%nelem)

  endsubroutine MappedDivergence_MappedVector3D