write_run_config_summary Subroutine

   subroutine write_run_config_summary(mesh, flow, rad, params, case_file)
      type(mesh_t), intent(in) :: mesh
      type(flow_mpi_t), intent(in) :: flow
      type(radiation_mpi_t), intent(in) :: rad
      type(case_params_t), intent(in) :: params
      character(len=*), intent(in) :: case_file

      integer :: unit_id, ios
      character(len=1024) :: filename

      if (flow%rank /= 0) return

      call write_run_config_summary_to_unit(output_unit, mesh, flow, rad, params, case_file)

      filename = trim(params%output_dir) // '/run_config_summary.txt'
      open(newunit=unit_id, file=trim(filename), status='replace', action='write', iostat=ios)
      if (ios /= 0) then
         write(output_unit,'(a,a)') 'warning: could not write run configuration summary: ', trim(filename)
         return
      end if
      call write_run_config_summary_to_unit(unit_id, mesh, flow, rad, params, case_file)
      close(unit_id)
   end subroutine write_run_config_summary