<p><b>dwj07@fsu.edu</b> 2012-05-17 12:50:42 -0600 (Thu, 17 May 2012)</p><p><br>
        -- TRUNK COMMIT --<br>
<br>
        core_ocean only.<br>
<br>
        Fixing an out of bounds read on some advection arrays.<br>
</p><hr noshade><pre><font color="gray">Modified: trunk/mpas/src/core_ocean/mpas_ocn_tracer_advection_mono.F
===================================================================
--- trunk/mpas/src/core_ocean/mpas_ocn_tracer_advection_mono.F        2012-05-17 17:02:17 UTC (rev 1917)
+++ trunk/mpas/src/core_ocean/mpas_ocn_tracer_advection_mono.F        2012-05-17 18:50:42 UTC (rev 1918)
@@ -102,14 +102,14 @@
 
       ! allocate nCells arrays
 
-      allocate(tracer_new(nVertLevels, nCells))
-      allocate(tracer_cur(nVertLevels, nCells))
-      allocate(upwind_tendency(nVertLevels, nCells))
-      allocate(inv_h_new(nVertLevels, nCells))
-      allocate(tracer_max(nVertLevels, nCells))
-      allocate(tracer_min(nVertLevels, nCells))
-      allocate(flux_incoming(nVertLevels, nCells))
-      allocate(flux_outgoing(nVertLevels, nCells))
+      allocate(tracer_new(nVertLevels, nCells+1))
+      allocate(tracer_cur(nVertLevels, nCells+1))
+      allocate(upwind_tendency(nVertLevels, nCells+1))
+      allocate(inv_h_new(nVertLevels, nCells+1))
+      allocate(tracer_max(nVertLevels, nCells+1))
+      allocate(tracer_min(nVertLevels, nCells+1))
+      allocate(flux_incoming(nVertLevels, nCells+1))
+      allocate(flux_outgoing(nVertLevels, nCells+1))
 
       ! allocate nEdges arrays
       allocate(high_order_horiz_flux(nVertLevels, nEdges))

</font>
</pre>