<p><b>duda</b> 2012-04-02 16:18:19 -0600 (Mon, 02 Apr 2012)</p><p>BRANCH COMMIT<br>
<br>
Fix indexing bug in IO stream module.<br>
<br>
<br>
M src/framework/mpas_io_streams.F<br>
</p><hr noshade><pre><font color="gray">Modified: branches/omp_blocks/io/src/framework/mpas_io_streams.F
===================================================================
--- branches/omp_blocks/io/src/framework/mpas_io_streams.F 2012-03-30 20:36:26 UTC (rev 1739)
+++ branches/omp_blocks/io/src/framework/mpas_io_streams.F 2012-04-02 22:18:19 UTC (rev 1740)
@@ -1608,14 +1608,14 @@
field_1dint_ptr => field_cursor % int1dField
i = 1
do while (associated(field_1dint_ptr))
- if (trim(field_1dint_ptr % dimNames(2)) == 'nCells') then
+ if (trim(field_1dint_ptr % dimNames(1)) == 'nCells') then
ownedSize = field_1dint_ptr % block % mesh % nCellsSolve
- else if (trim(field_1dint_ptr % dimNames(2)) == 'nEdges') then
+ else if (trim(field_1dint_ptr % dimNames(1)) == 'nEdges') then
ownedSize = field_1dint_ptr % block % mesh % nEdgesSolve
- else if (trim(field_1dint_ptr % dimNames(2)) == 'nVertices') then
+ else if (trim(field_1dint_ptr % dimNames(1)) == 'nVertices') then
ownedSize = field_1dint_ptr % block % mesh % nVerticesSolve
else
- ownedSize = field_1dint_ptr % dimSizes(2)
+ ownedSize = field_1dint_ptr % dimSizes(1)
end if
if (field_cursor % int1dField % isSuperArray) then
@@ -1795,14 +1795,14 @@
field_1dreal_ptr => field_cursor % real1dField
i = 1
do while (associated(field_1dreal_ptr))
- if (trim(field_1dreal_ptr % dimNames(2)) == 'nCells') then
+ if (trim(field_1dreal_ptr % dimNames(1)) == 'nCells') then
ownedSize = field_1dreal_ptr % block % mesh % nCellsSolve
- else if (trim(field_1dreal_ptr % dimNames(2)) == 'nEdges') then
+ else if (trim(field_1dreal_ptr % dimNames(1)) == 'nEdges') then
ownedSize = field_1dreal_ptr % block % mesh % nEdgesSolve
- else if (trim(field_1dreal_ptr % dimNames(2)) == 'nVertices') then
+ else if (trim(field_1dreal_ptr % dimNames(1)) == 'nVertices') then
ownedSize = field_1dreal_ptr % block % mesh % nVerticesSolve
else
- ownedSize = field_1dreal_ptr % dimSizes(2)
+ ownedSize = field_1dreal_ptr % dimSizes(1)
end if
if (field_cursor % real1dField % isSuperArray) then
</font>
</pre>