SyncSetClocks Subroutine

  1. SELF_MultiSetModel3D_t.f90
  2. SELF_MultiSetModel3D_t
  3. SyncSetClocks

public subroutine SyncSetClocks(this)

Copy the parent's simulation time and time step to every set model.

Arguments

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

Contents

Source Code

SyncSetClocks

Source Code

  subroutine SyncSetClocks(this)
    !! Copy the parent's simulation time and time step to every set model.
    implicit none
    class(MultiSetModel3D_t),intent(inout) :: this
    ! Local
    integer :: k

    do k = 1,this%nSets
      this%sets(k)%model%t = this%t
      this%sets(k)%model%dt = this%dt
    enddo

  endsubroutine SyncSetClocks