UpdateGRK3_MultiSetModel3D_t Subroutine

  1. SELF_MultiSetModel3D_t.f90
  2. SELF_MultiSetModel3D_t
  3. UpdateGRK3_MultiSetModel3D_t

public subroutine UpdateGRK3_MultiSetModel3D_t(this, m)

Stage m of the low-storage RK3 update, for every set with elements on this rank.

Arguments

TypeIntentOptionalAttributesName
class(MultiSetModel3D_t), intent(inout) :: this
integer, intent(in) :: m

Contents

Source Code

UpdateGRK3_MultiSetModel3D_t

Source Code

  subroutine UpdateGRK3_MultiSetModel3D_t(this,m)
    !! Stage m of the low-storage RK3 update, for every set with elements on this rank.
    implicit none
    class(MultiSetModel3D_t),intent(inout) :: this
    integer,intent(in) :: m
    ! Local
    integer :: k

    call this%SyncSetClocks()
    do k = 1,this%nSets
      if(this%sets(k)%mesh%nElem > 0) call this%sets(k)%model%UpdateGRK3(m)
    enddo

  endsubroutine UpdateGRK3_MultiSetModel3D_t