<p><b>duda</b> 2012-03-20 15:16:18 -0600 (Tue, 20 Mar 2012)</p><p>BRANCH COMMIT<br>
<br>
Add initial module file for the high-level (stream-based) I/O interface.<br>
<br>
<br>
A    src/framework/mpas_io_streams.F<br>
M    src/framework/Makefile<br>
</p><hr noshade><pre><font color="gray">Modified: branches/omp_blocks/io/src/framework/Makefile
===================================================================
--- branches/omp_blocks/io/src/framework/Makefile        2012-03-20 21:09:53 UTC (rev 1691)
+++ branches/omp_blocks/io/src/framework/Makefile        2012-03-20 21:16:18 UTC (rev 1692)
@@ -18,6 +18,7 @@
        mpas_block_decomp.o \
        mpas_dmpar.o \
        mpas_io.o \
+       mpas_io_streams.o \
        mpas_io_input.o \
        mpas_io_output.o \
        $(ZOLTANOBJ) \
@@ -52,6 +53,8 @@
 
 mpas_io.o: mpas_dmpar_types.o
 
+mpas_io_streams.o: mpas_attlist.o mpas_io.o
+
 mpas_io_input.o: mpas_grid_types.o mpas_dmpar.o mpas_block_decomp.o mpas_sort.o mpas_configure.o mpas_timekeeping.o $(ZOLTANOBJ)
 
 mpas_io_output.o: mpas_grid_types.o mpas_dmpar.o mpas_sort.o mpas_configure.o

Added: branches/omp_blocks/io/src/framework/mpas_io_streams.F
===================================================================
--- branches/omp_blocks/io/src/framework/mpas_io_streams.F                                (rev 0)
+++ branches/omp_blocks/io/src/framework/mpas_io_streams.F        2012-03-20 21:16:18 UTC (rev 1692)
@@ -0,0 +1,122 @@
+module mpas_io_streams
+
+   use mpas_attlist
+   use mpas_grid_types
+   use mpas_io
+
+   type MPAS_Stream_type
+      type (att_list_type), pointer :: attList
+   end type MPAS_Stream_type
+
+
+   interface MPAS_streamAddField
+      module procedure MPAS_streamAddField_1dInteger
+   end interface MPAS_streamAddField
+
+   interface MPAS_readStreamAtt
+      module procedure MPAS_readStreamAtt_0dInteger
+   end interface MPAS_readStreamAtt
+
+   interface MPAS_writeStreamAtt
+      module procedure MPAS_writeStreamAtt_0dInteger
+   end interface MPAS_writeStreamAtt
+
+
+contains
+
+
+   subroutine MPAS_createStream(stream, fileName, ioFormat, ioDirection, framesPerFile, ierr)
+
+      implicit none
+
+      type (MPAS_Stream_type), intent(out) :: stream
+      character (len=*), intent(in) :: fileName
+      integer, intent(in) :: ioFormat
+      integer, intent(in) :: ioDirection
+      integer, intent(in) :: framesPerFile
+      integer, intent(out), optional :: ierr
+
+      if (present(ierr)) ierr = 0
+
+   end subroutine MPAS_createStream
+
+
+   subroutine MPAS_streamAddField_1dInteger(stream, field, ierr)
+
+      implicit none
+
+      type (MPAS_Stream_type), intent(inout) :: stream
+      type (field1DInteger), intent(in) :: field
+      integer, intent(out), optional :: ierr
+
+      if (present(ierr)) ierr = 0
+
+   end subroutine MPAS_streamAddField_1dInteger
+
+
+   subroutine MPAS_readStream(stream, frame, ierr)
+
+      implicit none
+
+      type (MPAS_Stream_type), intent(inout) :: stream
+      integer, intent(in) :: frame
+      integer, intent(out), optional :: ierr
+
+      if (present(ierr)) ierr = 0
+
+   end subroutine MPAS_readStream
+
+
+   subroutine MPAS_writeStream(stream, frame, ierr)
+
+      implicit none
+
+      type (MPAS_Stream_type), intent(inout) :: stream
+      integer, intent(in) :: frame
+      integer, intent(out), optional :: ierr
+
+      if (present(ierr)) ierr = 0
+
+   end subroutine MPAS_writeStream
+
+
+   subroutine MPAS_readStreamAtt_0dInteger(stream, attName, attValue, ierr)
+
+      implicit none
+
+      type (MPAS_Stream_type), intent(inout) :: stream
+      character (len=*), intent(in) :: attName
+      integer, intent(out) :: attValue
+      integer, intent(out), optional :: ierr
+
+      if (present(ierr)) ierr = 0
+
+   end subroutine MPAS_readStreamAtt_0dInteger
+
+
+   subroutine MPAS_writeStreamAtt_0dInteger(stream, attName, attValue, ierr)
+
+      implicit none
+
+      type (MPAS_Stream_type), intent(inout) :: stream
+      character (len=*), intent(in) :: attName
+      integer, intent(in) :: attValue
+      integer, intent(out), optional :: ierr
+
+      if (present(ierr)) ierr = 0
+
+   end subroutine MPAS_writeStreamAtt_0dInteger
+
+
+   subroutine MPAS_closeStream(stream, ierr)
+
+      implicit none
+
+      type (MPAS_Stream_type), intent(inout) :: stream
+      integer, intent(out), optional :: ierr
+
+      if (present(ierr)) ierr = 0
+
+   end subroutine MPAS_closeStream
+
+end module mpas_io_streams

</font>
</pre>