report_init_times Subroutine

public subroutine report_init_times(unit)

Report the time spent in each initialisation level

Arguments

Type IntentOptional Attributes Name
integer, intent(in), optional :: unit

Contents

Source Code

report_init_times

Source Code

  subroutine report_init_times(unit)
    implicit none
    integer, intent(in), optional :: unit
    integer :: ilevel
    do ilevel = 1, size(init_levels)
       call init_levels(ilevel)%report_time(unit)
    end do
  end subroutine report_init_times