restore_step_backup Subroutine

   subroutine restore_step_backup(backup, fields, species, energy, transport, stats, time, dt, chemistry_accum_dt)
      type(step_backup_t), intent(in) :: backup
      type(flow_fields_t), intent(inout) :: fields
      type(species_fields_t), intent(inout) :: species
      type(energy_fields_t), intent(inout) :: energy
      type(transport_properties_t), intent(inout) :: transport
      type(solver_stats_t), intent(inout) :: stats
      real(rk), intent(inout) :: time, dt, chemistry_accum_dt

      if (.not. backup%valid) call fatal_error('main', 'attempted to restore an invalid step backup')
      fields = backup%fields
      species = backup%species
      energy = backup%energy
      transport = backup%transport
      stats = backup%stats
      time = backup%time
      dt = backup%dt
      chemistry_accum_dt = backup%chemistry_accum_dt
   end subroutine restore_step_backup