<p><b>duda</b> 2012-10-03 11:42:43 -0600 (Wed, 03 Oct 2012)</p><p>BRANCH COMMIT<br>
<br>
Add support for PIO's netcdf4p io_type.<br>
<br>
<br>
M src/framework/mpas_io.F<br>
</p><hr noshade><pre><font color="gray">Modified: branches/asd_io_work/src/framework/mpas_io.F
===================================================================
--- branches/asd_io_work/src/framework/mpas_io.F        2012-10-03 17:05:43 UTC (rev 2175)
+++ branches/asd_io_work/src/framework/mpas_io.F        2012-10-03 17:42:43 UTC (rev 2176)
@@ -15,15 +15,16 @@
MPAS_IO_WRITE = 2
! I/O formats
- integer, parameter :: MPAS_IO_NETCDF = 3, &
- MPAS_IO_PNETCDF = 4
+ integer, parameter :: MPAS_IO_NETCDF = 3, &
+ MPAS_IO_PNETCDF = 4, &
+ MPAS_IO_NETCDF4P = 5
! Field and attribute types
- integer, parameter :: MPAS_IO_REAL = 5, &
- MPAS_IO_DOUBLE = 6, &
- MPAS_IO_INT = 7, &
- MPAS_IO_LOGICAL = 8, &
- MPAS_IO_CHAR = 9
+ integer, parameter :: MPAS_IO_REAL = 6, &
+ MPAS_IO_DOUBLE = 7, &
+ MPAS_IO_INT = 8, &
+ MPAS_IO_LOGICAL = 9, &
+ MPAS_IO_CHAR = 10
! Unlimited / record dimension
integer, parameter :: MPAS_IO_UNLIMITED_DIM = -123456
@@ -236,8 +237,9 @@
if (present(ierr)) ierr = MPAS_IO_ERR_INVALID_MODE
return
end if
- if (ioformat /= MPAS_IO_NETCDF .and. &
- ioformat /= MPAS_IO_PNETCDF) then
+ if (ioformat /= MPAS_IO_NETCDF .and. &
+ ioformat /= MPAS_IO_PNETCDF .and. &
+ ioformat /= MPAS_IO_NETCDF4P) then
if (present(ierr)) ierr = MPAS_IO_ERR_INVALID_FORMAT
return
end if
@@ -252,6 +254,8 @@
if (ioformat == MPAS_IO_PNETCDF) then
pio_iotype = PIO_iotype_pnetcdf
+ else if (ioformat == MPAS_IO_NETCDF4P) then
+ pio_iotype = PIO_iotype_netcdf4p
else
pio_iotype = PIO_iotype_netcdf
end if
</font>
</pre>