write_init_times Subroutine

public subroutine write_init_times()

Uses

Write the init times to .init_times

Arguments

None

Contents

Source Code


Source Code

  subroutine write_init_times()
    use mp, only: proc0
    use file_utils, only: open_output_file, close_output_file
    implicit none
    integer :: unit
    if (.not. proc0) return
    call open_output_file(unit, '.init_times')
    call report_init_times(unit)
    call close_output_file(unit)
  end subroutine write_init_times