reset_init_times Subroutine

public subroutine reset_init_times()

Reset the time spent in each initialisation level

Arguments

None

Contents

Source Code


Source Code

  subroutine reset_init_times()
    implicit none
    init_levels%time_init(1) = 0.
    init_levels%time_init(2) = 0.
  end subroutine reset_init_times