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