ncd_pio_init

INTERFACE:

   subroutine ncd_pio_init()

DESCRIPTION:

Initial PIO

USES:

     use seq_io_mod      , only : seq_io_getiosys, seq_io_getiotype

ARGUMENTS:

     implicit none

REVISION HISTORY:

LOCAL VARIABLES:

     character(len=*),parameter :: subname='ncd_pio_init' ! subroutine name
  -----------------------------------------------------------------------