ncd_pio_openfile

INTERFACE:

   subroutine ncd_pio_openfile(file, fname, mode)

DESCRIPTION:

Open a NetCDF PIO file

ARGUMENTS:

     implicit none
     type(file_desc_t), intent(inout) :: file   ! Output PIO file handle
     character(len=*) , intent(in)    :: fname  ! Input filename to open
     integer          , intent(in)    :: mode   ! file mode

REVISION HISTORY:

LOCAL VARIABLES:

     integer :: ierr
     character(len=*),parameter :: subname='ncd_pio_openfile' ! subroutine name
  -----------------------------------------------------------------------