<p><b>duda</b> 2012-08-23 15:56:35 -0600 (Thu, 23 Aug 2012)</p><p>Remove deprecated code to handle the non-decomposed outer-dimension 'nVertLevels'<br>
from the framework, since the infrastructure supports non-decomposed dimensions in <br>
a general way.<br>
<br>
<br>
M    src/framework/mpas_io_input.F<br>
M    src/framework/mpas_block_creator.F<br>
</p><hr noshade><pre><font color="gray">Modified: trunk/mpas/src/framework/mpas_block_creator.F
===================================================================
--- trunk/mpas/src/framework/mpas_block_creator.F        2012-08-23 18:22:03 UTC (rev 2121)
+++ trunk/mpas/src/framework/mpas_block_creator.F        2012-08-23 21:56:35 UTC (rev 2122)
@@ -1041,7 +1041,6 @@
        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: trunk/mpas/src/framework/mpas_io_input.F
===================================================================
--- trunk/mpas/src/framework/mpas_io_input.F        2012-08-23 18:22:03 UTC (rev 2121)
+++ trunk/mpas/src/framework/mpas_io_input.F        2012-08-23 21:56:35 UTC (rev 2122)
@@ -30,7 +30,6 @@
    integer :: readCellStart, readCellEnd, nReadCells
    integer :: readEdgeStart, readEdgeEnd, nReadEdges
    integer :: readVertexStart, readVertexEnd, nReadVertices
-   integer :: readVertLevelStart, readVertLevelEnd, nReadVertLevels
 
    contains
 
@@ -147,10 +146,6 @@
       call mpas_dmpar_get_index_range(domain % dminfo, 1, nVertices, readVertexStart, readVertexEnd)   
       nReadVertices = readVertexEnd - readVertexStart + 1
 
-      readVertLevelStart = 1
-      readVertLevelEnd = nVertLevels
-      nReadVertLevels = nVertLevels
-
       allocate(readingBlock)
       readingBlock % domain =&gt; domain
       readingBlock % blockID = domain % dminfo % my_proc_id
@@ -245,7 +240,6 @@
       do while (associated(block_ptr))
         block_ptr % mesh % sphere_radius = domain % blocklist % mesh % sphere_radius
         block_ptr % mesh % on_a_sphere = domain % blocklist % mesh % on_a_sphere
-        block_ptr % mesh % nVertLevelsSolve = domain % blocklist % mesh % nVertLevelsSolve   ! No vertical decomp yet...
 
         ! Link the sendList and recvList pointers in each field type to the appropriate lists 
         !   in parinfo, e.g., cellsToSend and cellsToRecv; in future, it can also be extended to 
@@ -279,7 +273,7 @@
       !      process
       !   2) All processes then send the global indices that were read to the 
       !      processes that own those indices based on 
-      !      {send,recv}{Cell,Edge,Vertex,VertLevel}List
+      !      {send,recv}{Cell,Edge,Vertex}List
       !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 
       call mpas_read_and_distribute_fields(input_obj)
 

</font>
</pre>