boundaryflux_advection_diffusion_1d Subroutine

  1. SELF_advection_diffusion_1d.f90
  2. self_advection_diffusion_1d
  3. boundaryflux_advection_diffusion_1d

public subroutine boundaryflux_advection_diffusion_1d(this)

Arguments

TypeIntentOptionalAttributesName
class(advection_diffusion_1d), intent(inout) :: this

Calls

proc~~boundaryflux_advection_diffusion_1d~~CallsGraph proc~boundaryflux_advection_diffusion_1d boundaryflux_advection_diffusion_1d interface~boundaryflux_advection_diffusion_1d_gpu boundaryflux_advection_diffusion_1d_gpu proc~boundaryflux_advection_diffusion_1d->interface~boundaryflux_advection_diffusion_1d_gpu

Contents

Source Code

boundaryflux_advection_diffusion_1d

Source Code

  subroutine boundaryflux_advection_diffusion_1d(this)
    ! this method uses an linear upwind solver for the
    ! advective flux and the bassi-rebay method for the
    ! diffusive fluxes
    implicit none
    class(advection_diffusion_1d),intent(inout) :: this
    ! Local
    integer :: ndof

    ndof = this%solution%nelem*this%solution%nvar*2
    call boundaryflux_advection_diffusion_1d_gpu(this%solution%boundary_gpu, &
                                                 this%solution%extBoundary_gpu,this%solutionGradient%avgBoundary_gpu, &
                                                 this%flux%boundarynormal_gpu,this%u,this%nu,ndof)

  endsubroutine boundaryflux_advection_diffusion_1d