<p><b>duda</b> 2012-10-04 17:19:16 -0600 (Thu, 04 Oct 2012)</p><p>BRANCH COMMIT<br>
<br>
Write 3d fields to output stream using netcdf4p io_type.<br>
<br>
<br>
M    src/framework/mpas_io_output.F<br>
</p><hr noshade><pre><font color="gray">Modified: branches/asd_io_work/src/framework/mpas_io_output.F
===================================================================
--- branches/asd_io_work/src/framework/mpas_io_output.F        2012-10-04 23:17:23 UTC (rev 2192)
+++ branches/asd_io_work/src/framework/mpas_io_output.F        2012-10-04 23:19:16 UTC (rev 2193)
@@ -351,7 +351,7 @@
       integer, dimension(10) :: dimlist
  
       if (output_obj % stream == OUTPUT) then
-         call MPAS_createStream(output_obj % io_stream, trim(output_obj % filename), MPAS_IO_PNETCDF, MPAS_IO_WRITE, 1, nferr)
+         call MPAS_createStream(output_obj % io_stream, trim(output_obj % filename), MPAS_IO_NETCDF4P, MPAS_IO_WRITE, 1, nferr)
       else if (output_obj % stream == GRID) then
          call MPAS_createStream(output_obj % io_stream, trim(output_obj % filename), MPAS_IO_PNETCDF, MPAS_IO_WRITE, 1, nferr)
       else

</font>
</pre>