radiation_finalize Subroutine

   subroutine radiation_finalize(context)
      type(radiation_context_t), intent(inout) :: context
      if (allocated(context%species_name)) deallocate(context%species_name)
      if (allocated(context%species_index)) deallocate(context%species_index)
      if (allocated(context%scalar_name)) deallocate(context%scalar_name)
      context%enabled = .false.
      context%model = 'none'
      context%rad_rank = -1
      context%rad_size = 0
      context%n_wavenumbers = 0
      context%wn_first = 0
      context%wn_last = -1
      context%nlocal_wavenumbers = 0
      context%ncells = 0
      context%nfaces = 0
      context%n_species = 0
      context%n_scalars = 0
      context%mesh_cached = .false.
      context%debug = .false.
      context%write_diagnostics = .true.
      context%setup_written = .false.
      context%diagnostics_initialized = .false.
      context%setup_file = ''
      context%diagnostics_file = ''
   end subroutine radiation_finalize