<p><b>duda</b> 2012-10-04 17:21:29 -0600 (Thu, 04 Oct 2012)</p><p>BRANCH COMMIT<br>
<br>
Allow for different io_types for different input streams.<br>
<br>
<br>
M    src/framework/mpas_io_input.F<br>
</p><hr noshade><pre><font color="gray">Modified: branches/asd_io_work/src/framework/mpas_io_input.F
===================================================================
--- branches/asd_io_work/src/framework/mpas_io_input.F        2012-10-04 23:19:16 UTC (rev 2193)
+++ branches/asd_io_work/src/framework/mpas_io_input.F        2012-10-04 23:21:29 UTC (rev 2194)
@@ -116,7 +116,7 @@
         input_obj % filename = trim(config_input_name)
         input_obj % stream = STREAM_INPUT
       end if
-      inputHandle = MPAS_io_open(trim(input_obj % filename), MPAS_IO_READ, MPAS_IO_PNETCDF, ierr)
+      inputHandle = MPAS_io_open(trim(input_obj % filename), MPAS_IO_READ, MPAS_IO_NETCDF4P, ierr)
       if (ierr /= MPAS_IO_NOERR) then
         write(0,*) ' '
         if (input_obj % stream == STREAM_RESTART) then
@@ -560,7 +560,14 @@
  
       integer :: nferr
  
-      call MPAS_createStream(input_obj % io_stream, trim(input_obj % filename), MPAS_IO_PNETCDF, MPAS_IO_READ, 1, nferr)
+      if (input_obj % stream == STREAM_GRID) then
+         call MPAS_createStream(input_obj % io_stream, trim(input_obj % filename), MPAS_IO_PNETCDF, MPAS_IO_READ, 1, nferr)
+      else if (input_obj % stream == STREAM_INPUT) then
+         call MPAS_createStream(input_obj % io_stream, trim(input_obj % filename), MPAS_IO_NETCDF4P, MPAS_IO_READ, 1, nferr)
+      else
+         call MPAS_createStream(input_obj % io_stream, trim(input_obj % filename), MPAS_IO_PNETCDF, MPAS_IO_READ, 1, nferr)
+      end if
+
       if (nferr /= MPAS_STREAM_NOERR) then
          write(0,*) ' '
          if (input_obj % stream == STREAM_RESTART) then

</font>
</pre>