UpdateSolution_DGModel1D Subroutine

  1. SELF_DGModel1D.f90
  2. SELF_DGModel1D
  3. UpdateSolution_DGModel1D

public subroutine UpdateSolution_DGModel1D(this, dt)

Computes a solution update as , where dt is either provided through the interface or taken as the Model's stored time step size (model % dt)

Arguments

TypeIntentOptionalAttributesName
class(DGModel1D), intent(inout) :: this
real(kind=prec), intent(in), optional :: dt

Calls

proc~~updatesolution_dgmodel1d~~CallsGraph proc~updatesolution_dgmodel1d UpdateSolution_DGModel1D interface~updatesolution_gpu UpdateSolution_gpu proc~updatesolution_dgmodel1d->interface~updatesolution_gpu

Contents

Source Code

UpdateSolution_DGModel1D

Source Code

  subroutine UpdateSolution_DGModel1D(this,dt)
    !! Computes a solution update as , where dt is either provided through the interface
    !! or taken as the Model's stored time step size (model % dt)
    implicit none
    class(DGModel1D),intent(inout) :: this
    real(prec),optional,intent(in) :: dt
    ! Local
    real(prec) :: dtLoc
    integer :: ndof

    if(present(dt)) then
      dtLoc = dt
    else
      dtLoc = this%dt
    endif
    ndof = this%solution%nvar*this%solution%nelem*(this%solution%interp%N+1)

    call UpdateSolution_gpu(this%solution%interior_gpu,this%dsdt%interior_gpu,dtLoc,ndof)

  endsubroutine UpdateSolution_DGModel1D