set_parameters_by_cli Subroutine

   subroutine set_parameters_by_cli(this,cli)
      class(test_support), intent(inout) :: this
      type(cli_options), intent(in) :: cli

      logical :: is_present
      integer :: comm_size, status,error_code,rc

      this%extra_info = .false.
      this%read_barrier = cli%read_barrier
      this%do_reads = cli%do_reads
      this%netcdf_reads = cli%netcdf_reads
      this%scatter_3d = cli%scatter_3d
      this%split_file = cli%split_file
      this%nx = cli%nx
      this%ny = cli%ny
      this%im_world = cli%im_world
      this%lm = cli%lm
      this%num_readers = cli%num_readers
      this%num_arrays = cli%num_arrays
      this%n_trials = cli%n_trials
      this%random = cli%random_data

      this%read_counter = 0
      this%read_3d_time = 0
      this%read_2d_time = 0
      this%open_file_time = 0
      this%close_file_time = 0
      this%data_volume = 0.d0
      this%time_reading = 0.d0
      this%mpi_time = 0.0
      call MPI_COMM_SIZE(MPI_COMM_WORLD,comm_size,status)
      _VERIFY(status)
      if (comm_size /= (this%nx*this%ny*6)) then
         call MPI_Abort(mpi_comm_world,error_code,status)
         _VERIFY(status)
      endif

   end subroutine set_parameters_by_cli