<p><b>mperego@fsu.edu</b> 2013-06-06 14:47:31 -0600 (Thu, 06 Jun 2013)</p><p>Land Ice BRNACH: passing edgesOnCell to velocity solver<br>
</p><hr noshade><pre><font color="gray">Modified: branches/land_ice_projects/implement_core/src/core_land_ice/mpas_land_ice_lifev.F
===================================================================
--- branches/land_ice_projects/implement_core/src/core_land_ice/mpas_land_ice_lifev.F        2013-05-02 22:15:52 UTC (rev 2789)
+++ branches/land_ice_projects/implement_core/src/core_land_ice/mpas_land_ice_lifev.F        2013-06-06 20:47:31 UTC (rev 2790)
@@ -280,7 +280,7 @@
 
       integer :: nCells, nEdges, nVertices, nCellsSolve, nEdgesSolve, nVerticesSolve, nVertLevels, maxNEdgesOnCell 
 
-      integer, dimension(:,:), pointer :: cellsOnEdge, cellsOnVertex, verticesOnCell, verticesOnEdge
+      integer, dimension(:,:), pointer :: cellsOnEdge, cellsOnVertex, verticesOnCell, verticesOnEdge, edgesOnCell
 
       integer, dimension(:), pointer :: indexToCellID, nEdgesOnCell
 
@@ -319,6 +319,8 @@
       verticesOnCell =&gt; block % mesh % verticesOnCell % array
       verticesOnEdge =&gt; block % mesh % verticesOnEdge % array
       indexToCellID =&gt; block % mesh % indexToCellID % array
+      edgesOnCell =&gt; block % mesh % edgesOnCell % array
+
       nEdgesOnCell =&gt; block % mesh % nEdgesOnCell % array
 
       xCell =&gt; block % mesh % xCell % array
@@ -344,7 +346,7 @@
       !nVertLevels should be equal to nVertLevelsSolve (no split the domain in the vertical direction)
       call mpas_timer_start(&quot;velocity_solver_set_grid_data&quot;)
       call velocity_solver_set_grid_data(nCells, nEdges, nVertices, nVertLevels, nCellsSolve, nEdgesSolve, nVerticesSolve, maxNEdgesOnCell, radius, &amp;
-        cellsOnEdge, cellsOnVertex, verticesOnCell, verticesOnEdge, nEdgesOnCell, indexToCellID, xCell, yCell, zCell, areaTriangle, &amp;
+        cellsOnEdge, cellsOnVertex, verticesOnCell, verticesOnEdge, edgesOnCell, nEdgesOnCell, indexToCellID, xCell, yCell, zCell, areaTriangle, &amp;
         sendCellsArray, recvCellsArray, sendEdgesArray, recvEdgesArray, sendVerticesArray, recvVerticesArray)
       call mpas_timer_stop(&quot;velocity_solver_set_grid_data&quot;)
 #else

</font>
</pre>