<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>