<p><b>mhoffman@lanl.gov</b> 2012-05-17 12:59:56 -0600 (Thu, 17 May 2012)</p><p>BRANCH COMMIT - land ice<br>
Merging core_ocean from the trunk (r1913 through r1918) to fix out of bounds read on some advection arrays.<br>
Tracer advection should now work on multiple processors.  (problem turned out to be restricted to DEBUG mode, but this fixes that.)<br>
</p><hr noshade><pre><font color="gray">
Property changes on: branches/land_ice_projects/implement_core/src/core_ocean
___________________________________________________________________
Modified: svn:mergeinfo
   - /branches/cam_mpas_nh/src/core_ocean:1260-1270
/branches/ocean_projects/ale_split_exp/src/core_ocean:1437-1483
/branches/ocean_projects/ale_vert_coord/src/core_ocean:1225-1383
/branches/ocean_projects/ale_vert_coord_new/src/core_ocean:1387-1428
/branches/ocean_projects/gmvar/src/core_ocean:1214-1494
/branches/ocean_projects/imp_vert_mix_mrp/src/core_ocean:754-986
/branches/ocean_projects/monotonic_advection/src/core_ocean:1499-1640
/branches/ocean_projects/split_explicit_mrp/src/core_ocean:1134-1138
/branches/ocean_projects/split_explicit_timestepping/src/core_ocean:1044-1097
/branches/ocean_projects/vert_adv_mrp/src/core_ocean:704-745
/branches/source_renaming/src/core_ocean:1082-1113
/branches/time_manager/src/core_ocean:924-962
/trunk/mpas/src/core_ocean:1561-1912
   + /branches/cam_mpas_nh/src/core_ocean:1260-1270
/branches/ocean_projects/ale_split_exp/src/core_ocean:1437-1483
/branches/ocean_projects/ale_vert_coord/src/core_ocean:1225-1383
/branches/ocean_projects/ale_vert_coord_new/src/core_ocean:1387-1428
/branches/ocean_projects/gmvar/src/core_ocean:1214-1494
/branches/ocean_projects/imp_vert_mix_mrp/src/core_ocean:754-986
/branches/ocean_projects/monotonic_advection/src/core_ocean:1499-1640
/branches/ocean_projects/split_explicit_mrp/src/core_ocean:1134-1138
/branches/ocean_projects/split_explicit_timestepping/src/core_ocean:1044-1097
/branches/ocean_projects/vert_adv_mrp/src/core_ocean:704-745
/branches/source_renaming/src/core_ocean:1082-1113
/branches/time_manager/src/core_ocean:924-962
/trunk/mpas/src/core_ocean:1561-1918

Modified: branches/land_ice_projects/implement_core/src/core_ocean/mpas_ocn_tracer_advection_mono.F
===================================================================
--- branches/land_ice_projects/implement_core/src/core_ocean/mpas_ocn_tracer_advection_mono.F        2012-05-17 18:50:42 UTC (rev 1918)
+++ branches/land_ice_projects/implement_core/src/core_ocean/mpas_ocn_tracer_advection_mono.F        2012-05-17 18:59:56 UTC (rev 1919)
@@ -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>