setgradientboundarycondition_advection_diffusion_1d Subroutine

  subroutine setgradientboundarycondition_advection_diffusion_1d(this)
    !! Gradient boundary conditions are set to periodic boundary conditions
    implicit none
    class(advection_diffusion_1d),intent(inout) :: this

    call setboundarycondition_advection_diffusion_1d_gpu(this%solutiongradient%extboundary_gpu, &
                                                         this%solutiongradient%boundary_gpu,this%solution%nelem,this%solution%nvar)

  endsubroutine setgradientboundarycondition_advection_diffusion_1d