ParallelIO

#define __PIO_FILE__ "pionfatt_mod.F90"

!>

!! @file 

!! @brief NetCDF attribute interface to PIO

!<

module pionfatt_mod

  use pio_kinds, only : r4, r8, i4, pio_offset_kind

  use pio_types

  use pio_support, only : replace_c_null

  use iso_c_binding

  implicit none

​

​

  !>

  !! @private

  !<

  public :: put_att

  interface put_att

     module procedure put_att_id_{TYPE}, put_att_desc_{TYPE}, put_att_vid_{TYPE}

     ! TYPE real,int,double

     module procedure put_att_1d_id_{TYPE}

     ! TYPE real,int,double

     module procedure put_att_1d_desc_{TYPE}

     ! TYPE real,int,double

     module procedure put_att_1d_vid_{TYPE}

  end interface

​

​

  !>

  !! @private

  !<

  public :: get_att

  interface get_att

     module procedure get_att_{TYPE}, get_att_desc_{TYPE}, get_att_id_{TYPE}

     ! TYPE real,int,double

     module procedure get_att_1d_{TYPE}, get_att_desc_1d_{TYPE}, get_att_1d_id_{TYPE}

  end interface

​

  !>

  !!  @public 

  !!  @defgroup PIO_put_att PIO_put_att

  !!  @brief Writes an netcdf attribute to a file 

  !<

  !>

  !! @public 

  !! @defgroup PIO_get_att PIO_get_att

  !! @brief Reads  an netcdf attribute from a file 

  !<

​

  private :: modName

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