<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, &amp;
-                         MPAS_IO_PNETCDF = 4
+   integer, parameter :: MPAS_IO_NETCDF   = 3, &amp;
+                         MPAS_IO_PNETCDF  = 4, &amp;
+                         MPAS_IO_NETCDF4P = 5
 
    ! Field and attribute types
-   integer, parameter :: MPAS_IO_REAL     = 5,  &amp;
-                         MPAS_IO_DOUBLE   = 6,  &amp;
-                         MPAS_IO_INT      = 7,  &amp;
-                         MPAS_IO_LOGICAL  = 8,  &amp;
-                         MPAS_IO_CHAR     = 9
+   integer, parameter :: MPAS_IO_REAL     = 6,  &amp;
+                         MPAS_IO_DOUBLE   = 7,  &amp;
+                         MPAS_IO_INT      = 8,  &amp;
+                         MPAS_IO_LOGICAL  = 9,  &amp;
+                         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. &amp;
-          ioformat /= MPAS_IO_PNETCDF) then
+      if (ioformat /= MPAS_IO_NETCDF  .and. &amp;
+          ioformat /= MPAS_IO_PNETCDF .and. &amp;
+          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>