<p><b>dwj07@fsu.edu</b> 2012-07-03 11:40:48 -0600 (Tue, 03 Jul 2012)</p><p><br>
        -- BRANCH COMMIT --<br>
<br>
        Reindexing n*Array arrays starting with 0.<br>
        e.g. nCellsSolve is now the same as nCellsArray(0)<br>
             nEdgesSolve is now the same as nEdgesArray(0)<br>
                 nVerticesSolve is now the same as nVerticesArray(0)<br>
<br>
                 nCellsArray has dimensions (0:config_num_halos)<br>
                 nEdgesArray has dimensions (0:config_num_halos+1)<br>
                 nVerticesArray has dimensions (0:config_num_halos+1)<br>
<br>
                 Indexing these arrays by halo index gives the index to the end of the<br>
                 given halo.<br>
</p><hr noshade><pre><font color="gray">Modified: branches/omp_blocks/multiple_blocks/src/framework/mpas_block_creator.F
===================================================================
--- branches/omp_blocks/multiple_blocks/src/framework/mpas_block_creator.F        2012-07-02 19:22:41 UTC (rev 2008)
+++ branches/omp_blocks/multiple_blocks/src/framework/mpas_block_creator.F        2012-07-03 17:40:48 UTC (rev 2009)
@@ -1065,9 +1065,9 @@
 #include &quot;dim_dummy_args.inc&quot;
                                )
 
-       allocate(block_ptr % mesh % nCellsArray(nHalos+1))
-       allocate(block_ptr % mesh % nEdgesArray(nHalos+2))
-       allocate(block_ptr % mesh % nVerticesArray(nHalos+2))
+       allocate(block_ptr % mesh % nCellsArray(0:nHalos))
+       allocate(block_ptr % mesh % nEdgesArray(0:nHalos+1))
+       allocate(block_ptr % mesh % nVerticesArray(0:nHalos+1))
 
        block_ptr % mesh % nCellsArray(:) = nCellsCursor % array(:)
        block_ptr % mesh % nEdgesArray(:) = nEdgesCursor % array(:)

</font>
</pre>