From 826de45992ba80c36f7eec29de60d683ec0c4db8 Mon Sep 17 00:00:00 2001 From: Ed Hartnett Date: Sat, 8 Jun 2019 07:52:10 -0600 Subject: [PATCH] more cleanup for pio_types.F90 --- src/flib/pio_types.F90 | 29 ++++------------------------- 1 file changed, 4 insertions(+), 25 deletions(-) diff --git a/src/flib/pio_types.F90 b/src/flib/pio_types.F90 index 8df15a4abdb..456692e32c0 100644 --- a/src/flib/pio_types.F90 +++ b/src/flib/pio_types.F90 @@ -150,29 +150,12 @@ module pio_types #ifdef _PNETCDF #include /* _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 /* _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