<p><b>dwj07@fsu.edu</b> 2012-07-18 19:01:33 -0600 (Wed, 18 Jul 2012)</p><p><br>
        -- BRANCH COMMIT --<br>
<br>
        Moving nVertLevelsSolve declaration into finialize routine for the initialization of blocks.<br>
        This way it's setup for every block as they are finalized.<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-18 21:56:26 UTC (rev 2034)
+++ branches/omp_blocks/multiple_blocks/src/framework/mpas_block_creator.F        2012-07-19 01:01:33 UTC (rev 2035)
@@ -1072,6 +1072,7 @@
        block_ptr % mesh % nCellsArray(:) = nCellsCursor % array(:)
        block_ptr % mesh % nEdgesArray(:) = nEdgesCursor % array(:)
        block_ptr % mesh % nVerticesArray(:) = nVerticesCursor % array(:)
+       block_ptr % mesh % nVertLevelsSolve = nVertLevels ! No vertical Decomposition yet...
 
        ! Set block's local id
        block_ptr % localBlockID = localBlockID

Modified: branches/omp_blocks/multiple_blocks/src/framework/mpas_io_input.F
===================================================================
--- branches/omp_blocks/multiple_blocks/src/framework/mpas_io_input.F        2012-07-18 21:56:26 UTC (rev 2034)
+++ branches/omp_blocks/multiple_blocks/src/framework/mpas_io_input.F        2012-07-19 01:01:33 UTC (rev 2035)
@@ -216,7 +216,6 @@
 #include &quot;dim_dummy_args.inc&quot;         
                              , nCellsSolveField, nEdgesSolveField, nVerticesSolveField, indexToCellID_Block, indexToEdgeID_Block, indexToVertexID_Block)
 
-      domain % blocklist % mesh % nVertLevelsSolve = domain % blocklist % mesh % nVertLevels   ! No vertical decomp yet...
 
       call mpas_io_input_init(input_obj, domain % blocklist, domain % dminfo)
 

</font>
</pre>