more cleanup for pio_types.F90

rfiorella · Jun 8, 2019 · 826de45 · 826de45
1 parent e4cada7
commit 826de45
Showing 1 changed file with 4 additions and 25 deletions.
diff --git a/src/flib/pio_types.F90 b/src/flib/pio_types.F90
@@ -150,29 +150,12 @@ module pio_types
 
 #ifdef _PNETCDF
 #include <pnetcdf.inc>   /* _EXTERNAL */
-  integer, public, parameter :: PIO_global = nf_global       !< global atts
-  integer, public, parameter :: PIO_unlimited = nf_unlimited !< unlimited dimension
-  integer, public, parameter :: PIO_double = nf_double       !< double type
-  integer, public, parameter :: PIO_real   = nf_real         !< real type
-  integer, public, parameter :: PIO_int    = nf_int          !< int type
-  integer, public, parameter :: PIO_char   = nf_char         !< char type
-  integer, public, parameter :: PIO_noerr  = nf_noerr        !< no error
-  integer, public, parameter :: PIO_WRITE  = nf_write        !< read-write
-  integer, public, parameter :: PIO_nowrite  = nf_nowrite    !< read-only
-  integer, public, parameter :: PIO_CLOBBER = nf_clobber     !< clobber existing file
-  integer, public, parameter :: PIO_NOCLOBBER = nf_NOclobber !< do not clobber existing file
-  integer, public, parameter :: PIO_NOFILL = nf_nofill       !< do not use fill values
-  integer, public, parameter :: PIO_MAX_NAME = nf_max_name   !< max name len
-  integer, public, parameter :: PIO_MAX_VAR_DIMS = min(6,nf_max_var_dims) !< max dims for a var
-  integer, public, parameter :: PIO_64BIT_OFFSET = nf_64bit_offset        !< 64bit offset format
   integer, public, parameter :: PIO_64BIT_DATA = nf_64bit_data            !< CDF5 format
-  integer, public, parameter :: PIO_FILL_INT = nf_fill_int;               !< int fill value
-  real, public, parameter :: PIO_FILL_FLOAT = nf_fill_float;              !< float fill value
-  double precision, public, parameter :: PIO_FILL_DOUBLE = nf_fill_double; !< double fill value
-
 #else
-#ifdef _NETCDF
 #include <netcdf.inc>   /* _EXTERNAL */
+  integer, public, parameter :: PIO_64BIT_DATA = 0                        !< CDF5 format
+#endif
+  integer, public, parameter :: PIO_num_OST =  16 !< num ost
   integer, public, parameter :: PIO_global = nf_global       !< global atts
   integer, public, parameter :: PIO_unlimited = nf_unlimited !< unlimited dimension
   integer, public, parameter :: PIO_double = nf_double       !< double type
@@ -181,20 +164,16 @@ module pio_types
   integer, public, parameter :: PIO_char   = nf_char         !< char type
   integer, public, parameter :: PIO_noerr  = nf_noerr        !< no error
   integer, public, parameter :: PIO_WRITE  = nf_write        !< read-write
-  integer, public, parameter :: PIO_nowrite = nf_nowrite     !< read-only
+  integer, public, parameter :: PIO_nowrite  = nf_nowrite    !< read-only
   integer, public, parameter :: PIO_CLOBBER = nf_clobber     !< clobber existing file
   integer, public, parameter :: PIO_NOCLOBBER = nf_NOclobber !< do not clobber existing file
   integer, public, parameter :: PIO_NOFILL = nf_nofill       !< do not use fill values
   integer, public, parameter :: PIO_MAX_NAME = nf_max_name   !< max name len
   integer, public, parameter :: PIO_MAX_VAR_DIMS = min(6,nf_max_var_dims) !< max dims for a var
   integer, public, parameter :: PIO_64BIT_OFFSET = nf_64bit_offset        !< 64bit offset format
-  integer, public, parameter :: PIO_64BIT_DATA = 0                        !< CDF5 format
   integer, public, parameter :: PIO_FILL_INT = nf_fill_int;               !< int fill value
   real, public, parameter :: PIO_FILL_FLOAT = nf_fill_float;              !< float fill value
   double precision, public, parameter :: PIO_FILL_DOUBLE = nf_fill_double; !< double fill value
-#endif
-#endif
-  integer, public, parameter :: PIO_num_OST =  16 !< num ost
 
   enum, bind(c)
      enumerator :: PIO_rearr_comm_p2p = 0