ParallelIO

#define __PIO_FILE__ "pionfget_mod.F90"

!>

!! @file 

!! @brief Read Routines for non-decomposed NetCDF data.

!<

module pionfget_mod

  use iso_c_binding

#ifdef TIMING

  use perf_mod, only : t_startf, t_stopf      ! _EXTERNAL

#endif

  use pio_kinds, only: i4,r4,r8

  use pio_types, only : file_desc_t, var_desc_t

  use pio_support, only : replace_c_null

  implicit none

  private

!>

!! @defgroup PIO_get_var PIO_get_var

!! @brief Reads non-decomposed data from a NetCDF file

!! @details The get_var interface is provided as a simplified interface to

!!  read variables from a NetCDF format file.   The variable is read on the 

!!  root IO task and broadcast in its entirety to all tasks.  

!<

  public :: get_var

  interface get_var

     module procedure get_var_{DIMS}d_{TYPE}, get_var_vdesc_{DIMS}d_{TYPE}

     !  DIMS 1,2,3,4,5

     module procedure get_vara_{DIMS}d_{TYPE}, get_vara_vdesc_{DIMS}d_{TYPE}

     module procedure get_var1_{TYPE}, get_var1_vdesc_{TYPE}

  end interface

​

 character(len=*), parameter :: modName='pionfget_mod'

​

 interface

    integer(C_INT) function PIOc_get_var_text (ncid, varid, ival) &

         bind(C,name="PIOc_get_var_text")

      use iso_c_binding

      integer(C_INT), value :: ncid

      integer(C_INT), value :: varid

      character(C_CHAR) :: ival(*)

    end function PIOc_get_var_text

 end interface

 interface

    integer(C_INT) function PIOc_get_var_int (ncid, varid, ival) &

         bind(C,name="PIOc_get_var_int")

      use iso_c_binding

      integer(C_INT), value :: ncid

      integer(C_INT), value :: varid

      integer(C_INT) :: ival(*)

    end function PIOc_get_var_int

 end interface

 interface