MappedDivergence_MappedVector3D Subroutine

  1. SELF_MappedVector_3D.f90
  2. SELF_MappedVector_3D
  3. MappedDivergence_MappedVector3D

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~contravariantprojection_3d_gpu ContravariantProjection_3D_gpu proc~mappeddivergence_mappedvector3d->interface~contravariantprojection_3d_gpu interface~divergence_3d_gpu Divergence_3D_gpu proc~mappeddivergence_mappedvector3d->interface~divergence_3d_gpu interface~jacobianweight_3d_gpu JacobianWeight_3D_gpu proc~mappeddivergence_mappedvector3d->interface~jacobianweight_3d_gpu

Contents

Source Code

MappedDivergence_MappedVector3D

Source Code

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

    ! Contravariant projection
    call ContravariantProjection_3D_gpu(this%interior_gpu, &
                                        this%geometry%dsdx%interior_gpu,this%interp%N,this%nvar,this%nelem)

    call Divergence_3D_gpu(this%interior_gpu,df,this%interp%dMatrix_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_MappedVector3D