MappedDGDerivative_MappedScalar1D Subroutine

  1. SELF_MappedScalar_1D.f90
  2. SELF_MappedScalar_1D
  3. MappedDGDerivative_MappedScalar1D

public subroutine MappedDGDerivative_MappedScalar1D(this, df)

Arguments

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

Calls

proc~~mappeddgderivative_mappedscalar1d~~CallsGraph proc~mappeddgderivative_mappedscalar1d MappedDGDerivative_MappedScalar1D self_blas_matrixop_1d self_blas_matrixop_1d proc~mappeddgderivative_mappedscalar1d->self_blas_matrixop_1d interface~dgderivative_boundarycontribution_1d_gpu DGDerivative_BoundaryContribution_1D_gpu proc~mappeddgderivative_mappedscalar1d->interface~dgderivative_boundarycontribution_1d_gpu interface~jacobianweight_1d_gpu JacobianWeight_1D_gpu proc~mappeddgderivative_mappedscalar1d->interface~jacobianweight_1d_gpu

Contents

Source Code

MappedDGDerivative_MappedScalar1D

Source Code

  subroutine MappedDGDerivative_MappedScalar1D(this,dF)
    implicit none
    class(MappedScalar1D),intent(in) :: this
    type(c_ptr),intent(inout) :: df
    ! Local
    integer :: iEl,iVar,i,ii
    real(prec) :: dfloc

    call self_blas_matrixop_1d(this%interp%dgMatrix_gpu, &
                               this%interior_gpu, &
                               df,this%N+1,this%N+1, &
                               this%nvar*this%nelem,this%blas_handle)

    call DGDerivative_BoundaryContribution_1D_gpu(this%interp%bMatrix_gpu, &
                                                  this%interp%qWeights_gpu, &
                                                  this%boundarynormal_gpu,df, &
                                                  this%N,this%nVar,this%nelem)

    call JacobianWeight_1D_gpu(df,this%geometry%dxds%interior_gpu,this%N,this%nVar,this%nelem)

  endsubroutine MappedDGDerivative_MappedScalar1D