PreStepHook_MultiSetModel3D_t Subroutine

  1. SELF_MultiSetModel3D_t.f90
  2. SELF_MultiSetModel3D_t
  3. PreStepHook_MultiSetModel3D_t

public subroutine PreStepHook_MultiSetModel3D_t(this)

Run every set's PreStepHook, empty sets included, after syncing the set clocks.

Arguments

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

Contents

Source Code

PreStepHook_MultiSetModel3D_t

Source Code

  subroutine PreStepHook_MultiSetModel3D_t(this)
    !! Run every set's PreStepHook, empty sets included, after syncing the set clocks.
    implicit none
    class(MultiSetModel3D_t),intent(inout) :: this
    ! Local
    integer :: k

    call this%SyncSetClocks()
    do k = 1,this%nSets
      call this%sets(k)%model%PreStepHook()
    enddo

  endsubroutine PreStepHook_MultiSetModel3D_t