<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>