UpdateSolution_MultiSetModel3D_t Subroutine

  1. SELF_MultiSetModel3D_t.f90
  2. SELF_MultiSetModel3D_t
  3. UpdateSolution_MultiSetModel3D_t

public subroutine UpdateSolution_MultiSetModel3D_t(this, dt)

Forward-Euler update of every set with elements on this rank. dt defaults to the parent's time step.

Arguments

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

Contents

Source Code

UpdateSolution_MultiSetModel3D_t

Source Code

  subroutine UpdateSolution_MultiSetModel3D_t(this,dt)
    !! Forward-Euler update of every set with elements on this rank. dt defaults to the
    !! parent's time step.
    implicit none
    class(MultiSetModel3D_t),intent(inout) :: this
    real(prec),optional,intent(in) :: dt
    ! Local
    integer :: k

    call this%SyncSetClocks()
    do k = 1,this%nSets
      if(this%sets(k)%mesh%nElem == 0) cycle
      if(present(dt)) then
        call this%sets(k)%model%UpdateSolution(dt)
      else
        call this%sets(k)%model%UpdateSolution()
      endif
    enddo

  endsubroutine UpdateSolution_MultiSetModel3D_t