diff --git a/configure.ac b/configure.ac index a07698a4e0c..2cada4a2e42 100644 --- a/configure.ac +++ b/configure.ac @@ -211,7 +211,7 @@ fi AM_CONDITIONAL([HAVE_PAPI], [test "x$have_papi" = xyes]) AC_CONFIG_FILES(src/flib/piodarray.F90:src/flib/piodarray.F90.in2) -AC_CONFIG_FILES(src/flib/pionfatt_mod.F90:src/flib/pionfatt_mod.F90.in2) +#AC_CONFIG_FILES(src/flib/pionfatt_mod.F90:src/flib/pionfatt_mod.F90.in2) AC_CONFIG_FILES(src/flib/pionfget_mod.F90:src/flib/pionfget_mod.F90.in2) AC_CONFIG_FILES(src/flib/pionfput_mod.F90:src/flib/pionfput_mod.F90.in2) diff --git a/src/flib/pionfatt_mod.F90.in2 b/src/flib/pionfatt_mod.F90.in2 deleted file mode 100644 index bb68372e3f5..00000000000 --- a/src/flib/pionfatt_mod.F90.in2 +++ /dev/null @@ -1,1009 +0,0 @@ -!=================================================== -! DO NOT EDIT THIS FILE, it was generated using genf90/src/genf90/genf90.pl -! Any changes you make to this file may be lost -!=================================================== -#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 -# 18 "/home/ed/tmp/ParallelIO/src/flib/pionfatt_mod.F90.in" - interface put_att - module procedure put_att_id_text, put_att_desc_text, put_att_vid_text - module procedure put_att_id_real, put_att_desc_real, put_att_vid_real - module procedure put_att_id_double, put_att_desc_double, put_att_vid_double - module procedure put_att_id_int, put_att_desc_int, put_att_vid_int - ! TYPE real,int,double - module procedure put_att_1d_id_real - ! TYPE real,int,double - module procedure put_att_1d_id_int - ! TYPE real,int,double - module procedure put_att_1d_id_double - ! TYPE real,int,double - module procedure put_att_1d_desc_real - ! TYPE real,int,double - module procedure put_att_1d_desc_int - ! TYPE real,int,double - module procedure put_att_1d_desc_double - ! TYPE real,int,double - module procedure put_att_1d_vid_real - ! TYPE real,int,double - module procedure put_att_1d_vid_int - ! TYPE real,int,double - module procedure put_att_1d_vid_double - end interface - - - !> - !! @private - !< - public :: get_att -# 33 "/home/ed/tmp/ParallelIO/src/flib/pionfatt_mod.F90.in" - interface get_att - module procedure get_att_text, get_att_desc_text, get_att_id_text - module procedure get_att_real, get_att_desc_real, get_att_id_real - module procedure get_att_double, get_att_desc_double, get_att_id_double - module procedure get_att_int, get_att_desc_int, get_att_id_int - ! TYPE real,int,double - module procedure get_att_1d_real, get_att_desc_1d_real, get_att_1d_id_real - ! TYPE real,int,double - module procedure get_att_1d_int, get_att_desc_1d_int, get_att_1d_id_int - ! TYPE real,int,double - module procedure get_att_1d_double, get_att_desc_1d_double, get_att_1d_id_double - 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' -# 52 "/home/ed/tmp/ParallelIO/src/flib/pionfatt_mod.F90.in" - interface - !> @brief Write a netCDF text attribute. -# 54 "/home/ed/tmp/ParallelIO/src/flib/pionfatt_mod.F90.in" - integer(C_INT) function PIOc_put_att_text (ncid, varid, name, len, op) & - bind(C,name="PIOc_put_att_text") - use iso_c_binding - integer(C_INT), value :: ncid - integer(C_INT), value :: varid - character(C_CHAR) :: name(*) - integer(C_SIZE_T), value :: len - character(C_char) :: op -# 62 "/home/ed/tmp/ParallelIO/src/flib/pionfatt_mod.F90.in" - end function PIOc_put_att_text - end interface -# 64 "/home/ed/tmp/ParallelIO/src/flib/pionfatt_mod.F90.in" - interface -# 65 "/home/ed/tmp/ParallelIO/src/flib/pionfatt_mod.F90.in" - integer(C_INT) function PIOc_get_att_text (ncid, varid, name, op) & - bind(C,name="PIOc_get_att_text") - use iso_c_binding - integer(C_INT), value :: ncid - integer(C_INT), value :: varid - character(C_CHAR) :: name(*) - character(C_char) :: op(*) -# 72 "/home/ed/tmp/ParallelIO/src/flib/pionfatt_mod.F90.in" - end function PIOc_get_att_text - end interface - - -# 76 "/home/ed/tmp/ParallelIO/src/flib/pionfatt_mod.F90.in" - interface -# 77 "/home/ed/tmp/ParallelIO/src/flib/pionfatt_mod.F90.in" - integer(C_INT) function PIOc_put_att_int (ncid, varid, name, xtype, len, op) & - bind(C,name="PIOc_put_att_int") - use iso_c_binding - integer(C_INT), value :: ncid - integer(C_INT), value :: varid - character(C_CHAR) :: name(*) - integer(C_INT), value :: xtype - integer(C_SIZE_T), value :: len - integer(C_INT) :: op -# 86 "/home/ed/tmp/ParallelIO/src/flib/pionfatt_mod.F90.in" - end function PIOc_put_att_int - end interface -# 88 "/home/ed/tmp/ParallelIO/src/flib/pionfatt_mod.F90.in" - interface -# 89 "/home/ed/tmp/ParallelIO/src/flib/pionfatt_mod.F90.in" - integer(C_INT) function PIOc_put_att_float (ncid, varid, name, xtype, len, op) & - bind(C,name="PIOc_put_att_float") - use iso_c_binding - integer(C_INT), value :: ncid - integer(C_INT), value :: varid - character(C_CHAR) :: name(*) - integer(C_INT), value :: xtype - integer(C_SIZE_T), value :: len - real(C_FLOAT) :: op -# 98 "/home/ed/tmp/ParallelIO/src/flib/pionfatt_mod.F90.in" - end function PIOc_put_att_float - end interface -# 100 "/home/ed/tmp/ParallelIO/src/flib/pionfatt_mod.F90.in" - interface -# 101 "/home/ed/tmp/ParallelIO/src/flib/pionfatt_mod.F90.in" - integer(C_INT) function PIOc_put_att_double (ncid, varid, name, xtype, len, op) & - bind(C,name="PIOc_put_att_double") - use iso_c_binding - integer(C_INT), value :: ncid - integer(C_INT), value :: varid - character(C_CHAR) :: name(*) - integer(C_INT), value :: xtype - integer(C_SIZE_T), value :: len - real(C_DOUBLE) :: op -# 110 "/home/ed/tmp/ParallelIO/src/flib/pionfatt_mod.F90.in" - end function PIOc_put_att_double - end interface - - -# 114 "/home/ed/tmp/ParallelIO/src/flib/pionfatt_mod.F90.in" - interface -# 115 "/home/ed/tmp/ParallelIO/src/flib/pionfatt_mod.F90.in" - integer(C_INT) function PIOc_get_att_int (ncid, varid, name, op) & - bind(C,name="PIOc_get_att_int") - use iso_c_binding - integer(C_INT), value :: ncid - integer(C_INT), value :: varid - character(C_CHAR) :: name(*) - integer(C_INT), intent(out) :: op -# 122 "/home/ed/tmp/ParallelIO/src/flib/pionfatt_mod.F90.in" - end function PIOc_get_att_int - end interface - -# 125 "/home/ed/tmp/ParallelIO/src/flib/pionfatt_mod.F90.in" - interface -# 126 "/home/ed/tmp/ParallelIO/src/flib/pionfatt_mod.F90.in" - integer(C_INT) function PIOc_get_att_float (ncid, varid, name, op) & - bind(C,name="PIOc_get_att_float") - use iso_c_binding - integer(C_INT), value :: ncid - integer(C_INT), value :: varid - character(C_CHAR) :: name(*) - real(C_FLOAT), intent(out) :: op -# 133 "/home/ed/tmp/ParallelIO/src/flib/pionfatt_mod.F90.in" - end function PIOc_get_att_float - end interface - -# 136 "/home/ed/tmp/ParallelIO/src/flib/pionfatt_mod.F90.in" - interface -# 137 "/home/ed/tmp/ParallelIO/src/flib/pionfatt_mod.F90.in" - integer(C_INT) function PIOc_get_att_double (ncid, varid, name, op) & - bind(C,name="PIOc_get_att_double") - use iso_c_binding - integer(C_INT), value :: ncid - integer(C_INT), value :: varid - character(C_CHAR) :: name(*) - real(C_DOUBLE), intent(out) :: op -# 144 "/home/ed/tmp/ParallelIO/src/flib/pionfatt_mod.F90.in" - end function PIOc_get_att_double - end interface - - -# 148 "/home/ed/tmp/ParallelIO/src/flib/pionfatt_mod.F90.in" -contains - - !> - !! @public - !! @ingroup PIO_put_att - !! @brief Writes an netcdf attribute to a file - !! @details - !! @param File @copydoc file_desc_t - !! @param varid : The netcdf variable identifier - !! @param name : name of the attribute to add - !! @param var : The value for the netcdf attribute - !! @retval ierr @copydoc error_return - !< -# 161 "/home/ed/tmp/ParallelIO/src/flib/pionfatt_mod.F90.in" - integer function put_att_desc_text (File, vdesc, name, values) result(ierr) - type (File_desc_t), intent(in) :: File - type(var_desc_t), intent(in) :: vdesc - character(len=*), intent(in) :: name - character(len=*), intent(in) :: values - - ierr = put_att_id_text (File%fh,vdesc%varid,name,values) - -# 169 "/home/ed/tmp/ParallelIO/src/flib/pionfatt_mod.F90.in" - end function put_att_desc_text -# 161 "/home/ed/tmp/ParallelIO/src/flib/pionfatt_mod.F90.in" - integer function put_att_desc_real (File, vdesc, name, values) result(ierr) - type (File_desc_t), intent(in) :: File - type(var_desc_t), intent(in) :: vdesc - character(len=*), intent(in) :: name - real(r4), intent(in) :: values - - ierr = put_att_id_real (File%fh,vdesc%varid,name,values) - -# 169 "/home/ed/tmp/ParallelIO/src/flib/pionfatt_mod.F90.in" - end function put_att_desc_real -# 161 "/home/ed/tmp/ParallelIO/src/flib/pionfatt_mod.F90.in" - integer function put_att_desc_double (File, vdesc, name, values) result(ierr) - type (File_desc_t), intent(in) :: File - type(var_desc_t), intent(in) :: vdesc - character(len=*), intent(in) :: name - real(r8), intent(in) :: values - - ierr = put_att_id_double (File%fh,vdesc%varid,name,values) - -# 169 "/home/ed/tmp/ParallelIO/src/flib/pionfatt_mod.F90.in" - end function put_att_desc_double -# 161 "/home/ed/tmp/ParallelIO/src/flib/pionfatt_mod.F90.in" - integer function put_att_desc_int (File, vdesc, name, values) result(ierr) - type (File_desc_t), intent(in) :: File - type(var_desc_t), intent(in) :: vdesc - character(len=*), intent(in) :: name - integer(i4), intent(in) :: values - - ierr = put_att_id_int (File%fh,vdesc%varid,name,values) - -# 169 "/home/ed/tmp/ParallelIO/src/flib/pionfatt_mod.F90.in" - end function put_att_desc_int -# 170 "/home/ed/tmp/ParallelIO/src/flib/pionfatt_mod.F90.in" - integer function put_att_vid_text (File, varid, name, value) result(ierr) - type (File_desc_t), intent(in) :: File - integer, intent(in) :: varid - character(len=*), intent(in) :: name - character(len=*), intent(in) :: value - - ierr = put_att_id_text (File%fh,varid,name,value) - -# 178 "/home/ed/tmp/ParallelIO/src/flib/pionfatt_mod.F90.in" - end function put_att_vid_text -# 170 "/home/ed/tmp/ParallelIO/src/flib/pionfatt_mod.F90.in" - integer function put_att_vid_real (File, varid, name, value) result(ierr) - type (File_desc_t), intent(in) :: File - integer, intent(in) :: varid - character(len=*), intent(in) :: name - real(r4), intent(in) :: value - - ierr = put_att_id_real (File%fh,varid,name,value) - -# 178 "/home/ed/tmp/ParallelIO/src/flib/pionfatt_mod.F90.in" - end function put_att_vid_real -# 170 "/home/ed/tmp/ParallelIO/src/flib/pionfatt_mod.F90.in" - integer function put_att_vid_double (File, varid, name, value) result(ierr) - type (File_desc_t), intent(in) :: File - integer, intent(in) :: varid - character(len=*), intent(in) :: name - real(r8), intent(in) :: value - - ierr = put_att_id_double (File%fh,varid,name,value) - -# 178 "/home/ed/tmp/ParallelIO/src/flib/pionfatt_mod.F90.in" - end function put_att_vid_double -# 170 "/home/ed/tmp/ParallelIO/src/flib/pionfatt_mod.F90.in" - integer function put_att_vid_int (File, varid, name, value) result(ierr) - type (File_desc_t), intent(in) :: File - integer, intent(in) :: varid - character(len=*), intent(in) :: name - integer(i4), intent(in) :: value - - ierr = put_att_id_int (File%fh,varid,name,value) - -# 178 "/home/ed/tmp/ParallelIO/src/flib/pionfatt_mod.F90.in" - end function put_att_vid_int - ! TYPE int,real,double -# 180 "/home/ed/tmp/ParallelIO/src/flib/pionfatt_mod.F90.in" - integer function put_att_id_int (ncid, varid, name, values) result(ierr) - use iso_c_binding - integer, intent(in) :: ncid - integer, intent(in) :: varid - character(len=*), intent(in) :: name - integer(i4), intent(in) :: values - - - ierr = PIOc_put_att_int (ncid,varid-1,trim(name)//C_NULL_CHAR, PIO_int, 1_C_SIZE_T, values) - -# 190 "/home/ed/tmp/ParallelIO/src/flib/pionfatt_mod.F90.in" - end function put_att_id_int - ! TYPE int,real,double -# 180 "/home/ed/tmp/ParallelIO/src/flib/pionfatt_mod.F90.in" - integer function put_att_id_real (ncid, varid, name, values) result(ierr) - use iso_c_binding - integer, intent(in) :: ncid - integer, intent(in) :: varid - character(len=*), intent(in) :: name - real(r4), intent(in) :: values - - - ierr = PIOc_put_att_float (ncid,varid-1,trim(name)//C_NULL_CHAR, PIO_real, 1_C_SIZE_T, values) - -# 190 "/home/ed/tmp/ParallelIO/src/flib/pionfatt_mod.F90.in" - end function put_att_id_real - ! TYPE int,real,double -# 180 "/home/ed/tmp/ParallelIO/src/flib/pionfatt_mod.F90.in" - integer function put_att_id_double (ncid, varid, name, values) result(ierr) - use iso_c_binding - integer, intent(in) :: ncid - integer, intent(in) :: varid - character(len=*), intent(in) :: name - real(r8), intent(in) :: values - - - ierr = PIOc_put_att_double (ncid,varid-1,trim(name)//C_NULL_CHAR, PIO_double, 1_C_SIZE_T, values) - -# 190 "/home/ed/tmp/ParallelIO/src/flib/pionfatt_mod.F90.in" - end function put_att_id_double -# 191 "/home/ed/tmp/ParallelIO/src/flib/pionfatt_mod.F90.in" - integer function put_att_id_text (ncid, varid, name, values) result(ierr) - use iso_c_binding - integer, intent(in) :: ncid - integer, intent(in) :: varid - character(len=*), intent(in) :: name - character(len=*), intent(in) :: values - character(c_char), allocatable :: cvar(:) - integer(C_SIZE_T) :: clen - integer :: i - - clen = len_trim(values) - allocate(cvar(clen+1)) - cvar = C_NULL_CHAR - do i=1,clen - cvar(i) = values(i:i) - end do - ierr = PIOc_put_att_text (ncid,varid-1,trim(name)//C_NULL_CHAR, clen, cvar(1)) - deallocate(cvar) -# 209 "/home/ed/tmp/ParallelIO/src/flib/pionfatt_mod.F90.in" - end function put_att_id_text - -# 211 "/home/ed/tmp/ParallelIO/src/flib/pionfatt_mod.F90.in" - integer function put_att_1d_id_text (ncid, varid, name, value) result(ierr) - use iso_c_binding - integer, intent(in) :: ncid - integer, intent(in) :: varid - character(len=*), intent(in) :: name - character(len=*), intent(in) :: value(:) - character, allocatable :: nvalue(:) - integer :: slen, alen, i, j, k - - slen = len(value(1)) - alen = size(value) - allocate(nvalue(slen*alen)) - - do i=1,alen - j= len_trim(value(i)) - do k=1,j - nvalue(k+(i-1)*slen) = value(i)(k:k) - end do - nvalue(j+1+(i-1)*slen) = C_NULL_CHAR - end do - ierr = put_att_1d_id_text_internal (ncid, varid, name, slen*alen, nvalue) - - deallocate(nvalue) - -# 235 "/home/ed/tmp/ParallelIO/src/flib/pionfatt_mod.F90.in" - end function put_att_1d_id_text - - -# 238 "/home/ed/tmp/ParallelIO/src/flib/pionfatt_mod.F90.in" - integer function put_att_1d_id_text_internal (ncid, varid, name, arrlen, values) result(ierr) - use iso_c_binding - integer, intent(in) :: ncid - integer, intent(in) :: varid - character(len=*), intent(in) :: name - integer, intent(in) :: arrlen - character(len=*), intent(in) :: values(arrlen) - integer :: vallen - - - ierr = PIOc_put_att_text (ncid,varid-1,trim(name)//C_NULL_CHAR, int(arrlen,C_SIZE_T),values(1)) - - -# 251 "/home/ed/tmp/ParallelIO/src/flib/pionfatt_mod.F90.in" - end function put_att_1d_id_text_internal - - - -# 255 "/home/ed/tmp/ParallelIO/src/flib/pionfatt_mod.F90.in" - integer function get_att_id_text (ncid, varid, name, values) result(ierr) - use iso_c_binding - integer, intent(in) :: ncid - integer, intent(in) :: varid - character(len=*), intent(in) :: name - character(len=*), intent(out) :: values - - values = ' ' - ierr = PIOc_get_att_text (ncid,varid-1,trim(name)//C_NULL_CHAR, values) - call replace_c_null(values) -# 265 "/home/ed/tmp/ParallelIO/src/flib/pionfatt_mod.F90.in" - end function get_att_id_text - - ! TYPE real,double,int - !> - !! @public - !! @ingroup PIO_put_att - !! @brief Writes an netcdf attribute to a file - !! @details - !! @param File @copydoc file_desc_t - !! @param varid : The netcdf variable identifier - !! @param name : name of the attribute to add - !! @param values : The value for the netcdf attribute - !! @retval ierr @copydoc error_return - !< -# 280 "/home/ed/tmp/ParallelIO/src/flib/pionfatt_mod.F90.in" - integer function put_att_1d_id_real (ncid, varid, name, values) result(ierr) - integer, intent(in) :: ncid - integer, intent(in) :: varid - character(len=*), intent(in) :: name - real(r4), intent(in) :: values(:) - integer(PIO_OFFSET_KIND) :: len - - len = size(values) - ierr = put_att_1d_id_internal_real (ncid, varid, name, len, values) - -# 290 "/home/ed/tmp/ParallelIO/src/flib/pionfatt_mod.F90.in" - end function put_att_1d_id_real - ! TYPE real,double,int - !> - !! @public - !! @ingroup PIO_put_att - !! @brief Writes an netcdf attribute to a file - !! @details - !! @param File @copydoc file_desc_t - !! @param varid : The netcdf variable identifier - !! @param name : name of the attribute to add - !! @param values : The value for the netcdf attribute - !! @retval ierr @copydoc error_return - !< -# 280 "/home/ed/tmp/ParallelIO/src/flib/pionfatt_mod.F90.in" - integer function put_att_1d_id_double (ncid, varid, name, values) result(ierr) - integer, intent(in) :: ncid - integer, intent(in) :: varid - character(len=*), intent(in) :: name - real(r8), intent(in) :: values(:) - integer(PIO_OFFSET_KIND) :: len - - len = size(values) - ierr = put_att_1d_id_internal_double (ncid, varid, name, len, values) - -# 290 "/home/ed/tmp/ParallelIO/src/flib/pionfatt_mod.F90.in" - end function put_att_1d_id_double - ! TYPE real,double,int - !> - !! @public - !! @ingroup PIO_put_att - !! @brief Writes an netcdf attribute to a file - !! @details - !! @param File @copydoc file_desc_t - !! @param varid : The netcdf variable identifier - !! @param name : name of the attribute to add - !! @param values : The value for the netcdf attribute - !! @retval ierr @copydoc error_return - !< -# 280 "/home/ed/tmp/ParallelIO/src/flib/pionfatt_mod.F90.in" - integer function put_att_1d_id_int (ncid, varid, name, values) result(ierr) - integer, intent(in) :: ncid - integer, intent(in) :: varid - character(len=*), intent(in) :: name - integer(i4), intent(in) :: values(:) - integer(PIO_OFFSET_KIND) :: len - - len = size(values) - ierr = put_att_1d_id_internal_int (ncid, varid, name, len, values) - -# 290 "/home/ed/tmp/ParallelIO/src/flib/pionfatt_mod.F90.in" - end function put_att_1d_id_int - - ! TYPE real,double,int -# 293 "/home/ed/tmp/ParallelIO/src/flib/pionfatt_mod.F90.in" - integer function put_att_1d_id_internal_real (ncid, varid, name, len, values) result(ierr) - integer, intent(in) :: ncid - integer, intent(in) :: varid - integer(PIO_OFFSET_KIND), intent(in) :: len - character(len=*), intent(in) :: name - real(r4), intent(in), target :: values(*) - - - ierr = PIOc_put_att_float (ncid, varid-1, trim(name)//C_NULL_CHAR, PIO_real , len, values(1)) - -# 303 "/home/ed/tmp/ParallelIO/src/flib/pionfatt_mod.F90.in" - end function put_att_1d_id_internal_real - ! TYPE real,double,int -# 293 "/home/ed/tmp/ParallelIO/src/flib/pionfatt_mod.F90.in" - integer function put_att_1d_id_internal_double (ncid, varid, name, len, values) result(ierr) - integer, intent(in) :: ncid - integer, intent(in) :: varid - integer(PIO_OFFSET_KIND), intent(in) :: len - character(len=*), intent(in) :: name - real(r8), intent(in), target :: values(*) - - - ierr = PIOc_put_att_double (ncid, varid-1, trim(name)//C_NULL_CHAR, PIO_double , len, values(1)) - -# 303 "/home/ed/tmp/ParallelIO/src/flib/pionfatt_mod.F90.in" - end function put_att_1d_id_internal_double - ! TYPE real,double,int -# 293 "/home/ed/tmp/ParallelIO/src/flib/pionfatt_mod.F90.in" - integer function put_att_1d_id_internal_int (ncid, varid, name, len, values) result(ierr) - integer, intent(in) :: ncid - integer, intent(in) :: varid - integer(PIO_OFFSET_KIND), intent(in) :: len - character(len=*), intent(in) :: name - integer(i4), intent(in), target :: values(*) - - - ierr = PIOc_put_att_int (ncid, varid-1, trim(name)//C_NULL_CHAR, PIO_int , len, values(1)) - -# 303 "/home/ed/tmp/ParallelIO/src/flib/pionfatt_mod.F90.in" - end function put_att_1d_id_internal_int - - - ! TYPE real,int,double - !> - !! @public - !! @ingroup PIO_put_att - !! @brief Writes an netcdf attribute to a file - !! @details - !! @param File @copydoc file_desc_t - !! @param varDesc @copydoc var_desc_t - !! @param name : name of the attribute to add - !! @param var : The value for the netcdf attribute - !! @retval ierr @copydoc error_return - !< -# 318 "/home/ed/tmp/ParallelIO/src/flib/pionfatt_mod.F90.in" - integer function put_att_1d_desc_real (File,varDesc,name,values) result(ierr) - - type (File_desc_t), intent(inout) , target :: File - type (VAR_desc_t), intent(in) :: varDesc - character(len=*), intent(in) :: name - real(r4), intent(in) :: values(:) - - ierr = put_att_1d_id_real (File%fh,varDesc%varid,name,values) - -# 327 "/home/ed/tmp/ParallelIO/src/flib/pionfatt_mod.F90.in" - end function put_att_1d_desc_real - ! TYPE real,int,double - !> - !! @public - !! @ingroup PIO_put_att - !! @brief Writes an netcdf attribute to a file - !! @details - !! @param File @copydoc file_desc_t - !! @param varDesc @copydoc var_desc_t - !! @param name : name of the attribute to add - !! @param var : The value for the netcdf attribute - !! @retval ierr @copydoc error_return - !< -# 318 "/home/ed/tmp/ParallelIO/src/flib/pionfatt_mod.F90.in" - integer function put_att_1d_desc_int (File,varDesc,name,values) result(ierr) - - type (File_desc_t), intent(inout) , target :: File - type (VAR_desc_t), intent(in) :: varDesc - character(len=*), intent(in) :: name - integer(i4), intent(in) :: values(:) - - ierr = put_att_1d_id_int (File%fh,varDesc%varid,name,values) - -# 327 "/home/ed/tmp/ParallelIO/src/flib/pionfatt_mod.F90.in" - end function put_att_1d_desc_int - ! TYPE real,int,double - !> - !! @public - !! @ingroup PIO_put_att - !! @brief Writes an netcdf attribute to a file - !! @details - !! @param File @copydoc file_desc_t - !! @param varDesc @copydoc var_desc_t - !! @param name : name of the attribute to add - !! @param var : The value for the netcdf attribute - !! @retval ierr @copydoc error_return - !< -# 318 "/home/ed/tmp/ParallelIO/src/flib/pionfatt_mod.F90.in" - integer function put_att_1d_desc_double (File,varDesc,name,values) result(ierr) - - type (File_desc_t), intent(inout) , target :: File - type (VAR_desc_t), intent(in) :: varDesc - character(len=*), intent(in) :: name - real(r8), intent(in) :: values(:) - - ierr = put_att_1d_id_double (File%fh,varDesc%varid,name,values) - -# 327 "/home/ed/tmp/ParallelIO/src/flib/pionfatt_mod.F90.in" - end function put_att_1d_desc_double - -# 329 "/home/ed/tmp/ParallelIO/src/flib/pionfatt_mod.F90.in" - integer function put_att_1d_vid_text (File,varid,name,value) result(ierr) - - type (File_desc_t), intent(inout) , target :: File - integer, intent(in) :: varid - character(len=*), intent(in) :: name - character(len=*), intent(in) :: value(:) - - ierr = put_att_1d_id_text (File%fh,varid,name,value) - -# 338 "/home/ed/tmp/ParallelIO/src/flib/pionfatt_mod.F90.in" - end function put_att_1d_vid_text -# 329 "/home/ed/tmp/ParallelIO/src/flib/pionfatt_mod.F90.in" - integer function put_att_1d_vid_real (File,varid,name,value) result(ierr) - - type (File_desc_t), intent(inout) , target :: File - integer, intent(in) :: varid - character(len=*), intent(in) :: name - real(r4), intent(in) :: value(:) - - ierr = put_att_1d_id_real (File%fh,varid,name,value) - -# 338 "/home/ed/tmp/ParallelIO/src/flib/pionfatt_mod.F90.in" - end function put_att_1d_vid_real -# 329 "/home/ed/tmp/ParallelIO/src/flib/pionfatt_mod.F90.in" - integer function put_att_1d_vid_double (File,varid,name,value) result(ierr) - - type (File_desc_t), intent(inout) , target :: File - integer, intent(in) :: varid - character(len=*), intent(in) :: name - real(r8), intent(in) :: value(:) - - ierr = put_att_1d_id_double (File%fh,varid,name,value) - -# 338 "/home/ed/tmp/ParallelIO/src/flib/pionfatt_mod.F90.in" - end function put_att_1d_vid_double -# 329 "/home/ed/tmp/ParallelIO/src/flib/pionfatt_mod.F90.in" - integer function put_att_1d_vid_int (File,varid,name,value) result(ierr) - - type (File_desc_t), intent(inout) , target :: File - integer, intent(in) :: varid - character(len=*), intent(in) :: name - integer(i4), intent(in) :: value(:) - - ierr = put_att_1d_id_int (File%fh,varid,name,value) - -# 338 "/home/ed/tmp/ParallelIO/src/flib/pionfatt_mod.F90.in" - end function put_att_1d_vid_int - - - !> - !! @public - !! @ingroup PIO_get_att - !! @brief Reads an netcdf attribute from a file - !! @details - !! @param File @copydoc file_desc_t - !! @param varDesc @copydoc var_desc_t - !! @param name : name of the attribute to get - !! @param values : The value for the netcdf attribute - !! @retval ierr @copydoc error_return - !< -# 352 "/home/ed/tmp/ParallelIO/src/flib/pionfatt_mod.F90.in" - integer function get_att_desc_text (File,varDesc,name,values) result(ierr) - - type (File_desc_t), intent(inout) , target :: File - type (VAR_desc_t), intent(in) :: varDesc - character(len=*), intent(in) :: name - character(len=*), intent(out) :: values - - ierr = get_att_text (File,varDesc%varid,name,values) - -# 361 "/home/ed/tmp/ParallelIO/src/flib/pionfatt_mod.F90.in" - end function get_att_desc_text -# 352 "/home/ed/tmp/ParallelIO/src/flib/pionfatt_mod.F90.in" - integer function get_att_desc_real (File,varDesc,name,values) result(ierr) - - type (File_desc_t), intent(inout) , target :: File - type (VAR_desc_t), intent(in) :: varDesc - character(len=*), intent(in) :: name - real(r4), intent(out) :: values - - ierr = get_att_real (File,varDesc%varid,name,values) - -# 361 "/home/ed/tmp/ParallelIO/src/flib/pionfatt_mod.F90.in" - end function get_att_desc_real -# 352 "/home/ed/tmp/ParallelIO/src/flib/pionfatt_mod.F90.in" - integer function get_att_desc_double (File,varDesc,name,values) result(ierr) - - type (File_desc_t), intent(inout) , target :: File - type (VAR_desc_t), intent(in) :: varDesc - character(len=*), intent(in) :: name - real(r8), intent(out) :: values - - ierr = get_att_double (File,varDesc%varid,name,values) - -# 361 "/home/ed/tmp/ParallelIO/src/flib/pionfatt_mod.F90.in" - end function get_att_desc_double -# 352 "/home/ed/tmp/ParallelIO/src/flib/pionfatt_mod.F90.in" - integer function get_att_desc_int (File,varDesc,name,values) result(ierr) - - type (File_desc_t), intent(inout) , target :: File - type (VAR_desc_t), intent(in) :: varDesc - character(len=*), intent(in) :: name - integer(i4), intent(out) :: values - - ierr = get_att_int (File,varDesc%varid,name,values) - -# 361 "/home/ed/tmp/ParallelIO/src/flib/pionfatt_mod.F90.in" - end function get_att_desc_int - - !> - !! @public - !! @ingroup PIO_get_att - !! @brief Reads an netcdf attribute from a file - !! @details - !! @param File @copydoc file_desc_t - !! @param varDesc @copydoc var_desc_t - !! @param name : name of the attribute to get - !! @param values : The value for the netcdf attribute - !! @retval ierr @copydoc error_return - !< - ! TYPE int,real,double -# 375 "/home/ed/tmp/ParallelIO/src/flib/pionfatt_mod.F90.in" - integer function get_att_desc_1d_int (File,varDesc,name,values) result(ierr) - - type (File_desc_t), intent(inout) , target :: File - type (VAR_desc_t), intent(in) :: varDesc - character(len=*), intent(in) :: name - integer(i4), intent(out) :: values(:) - - character(len=*), parameter :: subName=modName//'::get_att_desc_1d_int' - - ierr = get_att_1d_id_int (File%fh,varDesc%varid,name,values) - -# 386 "/home/ed/tmp/ParallelIO/src/flib/pionfatt_mod.F90.in" - end function get_att_desc_1d_int - ! TYPE int,real,double -# 375 "/home/ed/tmp/ParallelIO/src/flib/pionfatt_mod.F90.in" - integer function get_att_desc_1d_real (File,varDesc,name,values) result(ierr) - - type (File_desc_t), intent(inout) , target :: File - type (VAR_desc_t), intent(in) :: varDesc - character(len=*), intent(in) :: name - real(r4), intent(out) :: values(:) - - character(len=*), parameter :: subName=modName//'::get_att_desc_1d_real' - - ierr = get_att_1d_id_real (File%fh,varDesc%varid,name,values) - -# 386 "/home/ed/tmp/ParallelIO/src/flib/pionfatt_mod.F90.in" - end function get_att_desc_1d_real - ! TYPE int,real,double -# 375 "/home/ed/tmp/ParallelIO/src/flib/pionfatt_mod.F90.in" - integer function get_att_desc_1d_double (File,varDesc,name,values) result(ierr) - - type (File_desc_t), intent(inout) , target :: File - type (VAR_desc_t), intent(in) :: varDesc - character(len=*), intent(in) :: name - real(r8), intent(out) :: values(:) - - character(len=*), parameter :: subName=modName//'::get_att_desc_1d_double' - - ierr = get_att_1d_id_double (File%fh,varDesc%varid,name,values) - -# 386 "/home/ed/tmp/ParallelIO/src/flib/pionfatt_mod.F90.in" - end function get_att_desc_1d_double - - !> - !! @public - !! @ingroup PIO_get_att - !! @brief Reads an netcdf attribute from a file - !! @details - !! @param File @copydoc file_desc_t - !! @param varid : The netcdf variable identifier - !! @param name : name of the attribute to get - !! @param values : The value for the netcdf attribute - !! @retval ierr @copydoc error_return - !< - ! TYPE int,real,double -# 400 "/home/ed/tmp/ParallelIO/src/flib/pionfatt_mod.F90.in" - integer function get_att_id_int (ncid, varid, name, values) result(ierr) - use iso_c_binding - integer, intent(in) :: ncid - integer, intent(in) :: varid - character(len=*), intent(in) :: name - integer(i4), intent(out), target :: values - - - ierr = PIOc_get_att_int (ncid,varid-1,trim(name)//C_NULL_CHAR, values) - -# 410 "/home/ed/tmp/ParallelIO/src/flib/pionfatt_mod.F90.in" - end function get_att_id_int - ! TYPE int,real,double -# 400 "/home/ed/tmp/ParallelIO/src/flib/pionfatt_mod.F90.in" - integer function get_att_id_real (ncid, varid, name, values) result(ierr) - use iso_c_binding - integer, intent(in) :: ncid - integer, intent(in) :: varid - character(len=*), intent(in) :: name - real(r4), intent(out), target :: values - - - ierr = PIOc_get_att_float (ncid,varid-1,trim(name)//C_NULL_CHAR, values) - -# 410 "/home/ed/tmp/ParallelIO/src/flib/pionfatt_mod.F90.in" - end function get_att_id_real - ! TYPE int,real,double -# 400 "/home/ed/tmp/ParallelIO/src/flib/pionfatt_mod.F90.in" - integer function get_att_id_double (ncid, varid, name, values) result(ierr) - use iso_c_binding - integer, intent(in) :: ncid - integer, intent(in) :: varid - character(len=*), intent(in) :: name - real(r8), intent(out), target :: values - - - ierr = PIOc_get_att_double (ncid,varid-1,trim(name)//C_NULL_CHAR, values) - -# 410 "/home/ed/tmp/ParallelIO/src/flib/pionfatt_mod.F90.in" - end function get_att_id_double - - - -# 414 "/home/ed/tmp/ParallelIO/src/flib/pionfatt_mod.F90.in" - integer function get_att_text (File,varid,name,values) result(ierr) - type (File_desc_t), intent(in) , target :: File - integer(i4), intent(in) :: varid - character(len=*), intent(in) :: name - character(len=*), intent(out) :: values - - - ierr = get_att_id_text (file%fh, varid, name, values) - - -# 424 "/home/ed/tmp/ParallelIO/src/flib/pionfatt_mod.F90.in" - end function get_att_text -# 414 "/home/ed/tmp/ParallelIO/src/flib/pionfatt_mod.F90.in" - integer function get_att_real (File,varid,name,values) result(ierr) - type (File_desc_t), intent(in) , target :: File - integer(i4), intent(in) :: varid - character(len=*), intent(in) :: name - real(r4), intent(out) :: values - - - ierr = get_att_id_real (file%fh, varid, name, values) - - -# 424 "/home/ed/tmp/ParallelIO/src/flib/pionfatt_mod.F90.in" - end function get_att_real -# 414 "/home/ed/tmp/ParallelIO/src/flib/pionfatt_mod.F90.in" - integer function get_att_double (File,varid,name,values) result(ierr) - type (File_desc_t), intent(in) , target :: File - integer(i4), intent(in) :: varid - character(len=*), intent(in) :: name - real(r8), intent(out) :: values - - - ierr = get_att_id_double (file%fh, varid, name, values) - - -# 424 "/home/ed/tmp/ParallelIO/src/flib/pionfatt_mod.F90.in" - end function get_att_double -# 414 "/home/ed/tmp/ParallelIO/src/flib/pionfatt_mod.F90.in" - integer function get_att_int (File,varid,name,values) result(ierr) - type (File_desc_t), intent(in) , target :: File - integer(i4), intent(in) :: varid - character(len=*), intent(in) :: name - integer(i4), intent(out) :: values - - - ierr = get_att_id_int (file%fh, varid, name, values) - - -# 424 "/home/ed/tmp/ParallelIO/src/flib/pionfatt_mod.F90.in" - end function get_att_int - - ! TYPE real,int,double - !> - !! @public - !! @ingroup PIO_get_att - !! @brief Reads an netcdf attribute from a file - !! @details - !! @param File @copydoc file_desc_t - !! @param varid : The netcdf variable identifier - !! @param name : name of the attribute to get - !! @param values : The value for the netcdf attribute - !! @retval ierr @copydoc error_return - !< -# 438 "/home/ed/tmp/ParallelIO/src/flib/pionfatt_mod.F90.in" - integer function get_att_1d_real (File,varid,name,values) result(ierr) - type (File_desc_t), intent(in) , target :: File - integer(i4), intent(in) :: varid - character(len=*), intent(in) :: name - real(r4), intent(out) :: values(:) - - ierr = get_att_1d_id_real (file%fh, varid, name, values) - -# 446 "/home/ed/tmp/ParallelIO/src/flib/pionfatt_mod.F90.in" - end function get_att_1d_real - ! TYPE real,int,double - !> - !! @public - !! @ingroup PIO_get_att - !! @brief Reads an netcdf attribute from a file - !! @details - !! @param File @copydoc file_desc_t - !! @param varid : The netcdf variable identifier - !! @param name : name of the attribute to get - !! @param values : The value for the netcdf attribute - !! @retval ierr @copydoc error_return - !< -# 438 "/home/ed/tmp/ParallelIO/src/flib/pionfatt_mod.F90.in" - integer function get_att_1d_int (File,varid,name,values) result(ierr) - type (File_desc_t), intent(in) , target :: File - integer(i4), intent(in) :: varid - character(len=*), intent(in) :: name - integer(i4), intent(out) :: values(:) - - ierr = get_att_1d_id_int (file%fh, varid, name, values) - -# 446 "/home/ed/tmp/ParallelIO/src/flib/pionfatt_mod.F90.in" - end function get_att_1d_int - ! TYPE real,int,double - !> - !! @public - !! @ingroup PIO_get_att - !! @brief Reads an netcdf attribute from a file - !! @details - !! @param File @copydoc file_desc_t - !! @param varid : The netcdf variable identifier - !! @param name : name of the attribute to get - !! @param values : The value for the netcdf attribute - !! @retval ierr @copydoc error_return - !< -# 438 "/home/ed/tmp/ParallelIO/src/flib/pionfatt_mod.F90.in" - integer function get_att_1d_double (File,varid,name,values) result(ierr) - type (File_desc_t), intent(in) , target :: File - integer(i4), intent(in) :: varid - character(len=*), intent(in) :: name - real(r8), intent(out) :: values(:) - - ierr = get_att_1d_id_double (file%fh, varid, name, values) - -# 446 "/home/ed/tmp/ParallelIO/src/flib/pionfatt_mod.F90.in" - end function get_att_1d_double - - - ! TYPE real,int,double -# 450 "/home/ed/tmp/ParallelIO/src/flib/pionfatt_mod.F90.in" - integer function get_att_1d_id_real (ncid,varid,name,values) result(ierr) - integer, intent(in) :: ncid - integer(i4), intent(in) :: varid - character(len=*), intent(in) :: name - real(r4), intent(out) , target :: values(*) - - ierr = PIOc_get_att_float (ncid, varid-1, trim(name)//C_NULL_CHAR, values(1)) - - -# 459 "/home/ed/tmp/ParallelIO/src/flib/pionfatt_mod.F90.in" - end function get_att_1d_id_real - ! TYPE real,int,double -# 450 "/home/ed/tmp/ParallelIO/src/flib/pionfatt_mod.F90.in" - integer function get_att_1d_id_int (ncid,varid,name,values) result(ierr) - integer, intent(in) :: ncid - integer(i4), intent(in) :: varid - character(len=*), intent(in) :: name - integer(i4), intent(out) , target :: values(*) - - ierr = PIOc_get_att_int (ncid, varid-1, trim(name)//C_NULL_CHAR, values(1)) - - -# 459 "/home/ed/tmp/ParallelIO/src/flib/pionfatt_mod.F90.in" - end function get_att_1d_id_int - ! TYPE real,int,double -# 450 "/home/ed/tmp/ParallelIO/src/flib/pionfatt_mod.F90.in" - integer function get_att_1d_id_double (ncid,varid,name,values) result(ierr) - integer, intent(in) :: ncid - integer(i4), intent(in) :: varid - character(len=*), intent(in) :: name - real(r8), intent(out) , target :: values(*) - - ierr = PIOc_get_att_double (ncid, varid-1, trim(name)//C_NULL_CHAR, values(1)) - - -# 459 "/home/ed/tmp/ParallelIO/src/flib/pionfatt_mod.F90.in" - end function get_att_1d_id_double - - -end module pionfatt_mod