ParallelIO

!>

!! @file

!! @brief The driver for PIO unit tests

!<

​

Program pio_unit_test_driver

  use pio

  use global_vars

  use basic_tests

  use ncdf_tests

#ifdef TIMING

  use perf_mod

#endif

  Implicit None

​

  ! local variables

  character(len=str_len) :: err_msg

  integer :: fail_cnt, test_cnt, ios, test_id, ierr, test_val 

  logical :: ltest_netcdf, ltest_pnetcdf

  logical :: ltest_netcdf4p, ltest_netcdf4c

  namelist/piotest_nml/  ltest_netcdf,     &

       ltest_netcdf4p,     &

       ltest_netcdf4c,     &

       ltest_pnetcdf,    &

       stride

#if defined( _NETCDF4) && defined(LOGGING)

  integer, external :: nc_set_log_level2

#endif

  ! Set up MPI

  call MPI_Init(ierr)

  call MPI_Comm_rank(MPI_COMM_WORLD, my_rank, ierr)

  call MPI_Comm_size(MPI_COMM_WORLD, ntasks , ierr)

#ifdef TIMING

  call t_initf('gptl.nl')

#endif

​

  !! call MPI_Errhandler_set(MPI_COMM_WORLD, MPI_ERRORS_RETURN, ierr)

  master_task = my_rank.eq.0

​

  if (master_task) then

     ltest_netcdf     = .false.

     ltest_netcdf4p     = .false.

     ltest_netcdf4c     = .false.

     ltest_pnetcdf    = .false.

     stride           = 1

​

     open(615, file="input.nl")

     read(615, nml=piotest_nml, iostat=ios)

     if (ios.ne.0) then

        print*, "ERROR reading input.nl, exiting!"

     end if