fluxmethod_advection_diffusion_1d Subroutine

public subroutine fluxmethod_advection_diffusion_1d(this)

Arguments

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

Calls

proc~~fluxmethod_advection_diffusion_1d~~CallsGraph proc~fluxmethod_advection_diffusion_1d fluxmethod_advection_diffusion_1d interface~fluxmethod_advection_diffusion_1d_gpu fluxmethod_advection_diffusion_1d_gpu proc~fluxmethod_advection_diffusion_1d->interface~fluxmethod_advection_diffusion_1d_gpu

Contents


Source Code

  subroutine fluxmethod_advection_diffusion_1d(this)
    implicit none
    class(advection_diffusion_1d),intent(inout) :: this
    ! Local
    integer :: ndof

    ndof = this%solution%nelem*this%solution%nvar*(this%solution%interp%N+1)

    call fluxmethod_advection_diffusion_1d_gpu(this%solution%interior_gpu, &
                                               this%solutiongradient%interior_gpu,this%flux%interior_gpu, &
                                               this%u,this%nu,ndof)

  endsubroutine fluxmethod_advection_diffusion_1d