<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 "dim_dummy_args.inc"
)
- 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>