diff --git a/src/summary.F90 b/src/summary.F90
index b33546e661..35c62ae039 100644
--- a/src/summary.F90
+++ b/src/summary.F90
@@ -717,63 +717,4 @@ contains
 
   end subroutine write_tallies
 
-!===============================================================================
-! WRITE_TIMING
-!===============================================================================
-
-  subroutine write_timing(file_id)
-    integer(HID_T), intent(in) :: file_id
-
-    integer(8)     :: total_particles
-    integer(HID_T) :: time_group
-    real(8)        :: speed
-
-    time_group = create_group(file_id, "timing")
-
-    ! Write timing data
-    call write_dataset(time_group, "time_initialize", time_initialize%elapsed)
-    call write_dataset(time_group, "time_read_xs", time_read_xs%elapsed)
-    call write_dataset(time_group, "time_transport", time_transport%elapsed)
-    call write_dataset(time_group, "time_bank", time_bank%elapsed)
-    call write_dataset(time_group, "time_bank_sample", time_bank_sample%elapsed)
-    call write_dataset(time_group, "time_bank_sendrecv", time_bank_sendrecv%elapsed)
-    call write_dataset(time_group, "time_tallies", time_tallies%elapsed)
-    call write_dataset(time_group, "time_inactive", time_inactive%elapsed)
-    call write_dataset(time_group, "time_active", time_active%elapsed)
-    call write_dataset(time_group, "time_finalize", time_finalize%elapsed)
-    call write_dataset(time_group, "time_total", time_total%elapsed)
-
-    ! Add descriptions to timing data
-    call write_attribute_string(time_group, "time_initialize", "description", &
-         "Total time elapsed for initialization (s)")
-    call write_attribute_string(time_group, "time_read_xs", "description", &
-         "Time reading cross-section libraries (s)")
-    call write_attribute_string(time_group, "time_transport", "description", &
-         "Time in transport only (s)")
-    call write_attribute_string(time_group, "time_bank", "description", &
-         "Total time synchronizing fission bank (s)")
-    call write_attribute_string(time_group, "time_bank_sample", "description", &
-         "Time between generations sampling source sites (s)")
-    call write_attribute_string(time_group, "time_bank_sendrecv", "description", &
-         "Time between generations SEND/RECVing source sites (s)")
-    call write_attribute_string(time_group, "time_tallies", "description", &
-         "Time between batches accumulating tallies (s)")
-    call write_attribute_string(time_group, "time_inactive", "description", &
-         "Total time in inactive batches (s)")
-    call write_attribute_string(time_group, "time_active", "description", &
-         "Total time in active batches (s)")
-    call write_attribute_string(time_group, "time_finalize", "description", &
-         "Total time for finalization (s)")
-    call write_attribute_string(time_group, "time_total", "description", &
-         "Total time elapsed (s)")
-
-    ! Write calculation rate
-    total_particles = n_particles * n_batches * gen_per_batch
-    speed = real(total_particles) / (time_inactive%elapsed + &
-         time_active%elapsed)
-    call write_dataset(time_group, "neutrons_per_second", speed)
-
-    call close_group(time_group)
-  end subroutine write_timing
-
 end module summary