<p><b>mpetersen@lanl.gov</b> 2011-11-15 10:01:46 -0700 (Tue, 15 Nov 2011)</p><p>A few minor corrections to err flags.<br>
</p><hr noshade><pre><font color="gray">Modified: trunk/mpas/src/core_ocean/mpas_ocn_tracer_vadv_spline.F
===================================================================
--- trunk/mpas/src/core_ocean/mpas_ocn_tracer_vadv_spline.F        2011-11-15 01:50:07 UTC (rev 1195)
+++ trunk/mpas/src/core_ocean/mpas_ocn_tracer_vadv_spline.F        2011-11-15 17:01:46 UTC (rev 1196)
@@ -163,6 +163,8 @@
 
       integer :: err1, err2
 
+      err = 0
+
       splineOn = .false.
 
       if(config_vert_tracer_adv.eq.'spline') then

Modified: trunk/mpas/src/core_ocean/mpas_ocn_tracer_vadv_stencil.F
===================================================================
--- trunk/mpas/src/core_ocean/mpas_ocn_tracer_vadv_stencil.F        2011-11-15 01:50:07 UTC (rev 1195)
+++ trunk/mpas/src/core_ocean/mpas_ocn_tracer_vadv_stencil.F        2011-11-15 17:01:46 UTC (rev 1196)
@@ -126,8 +126,8 @@
       if(.not. stencilOn) return
 
       call ocn_tracer_vadv_stencil2_tend(grid, wTop, tracers, tend, err1)
-      call ocn_tracer_vadv_stencil3_tend(grid, wTop, tracers, tend, err1)
-      call ocn_tracer_vadv_stencil4_tend(grid, wTop, tracers, tend, err1)
+      call ocn_tracer_vadv_stencil3_tend(grid, wTop, tracers, tend, err2)
+      call ocn_tracer_vadv_stencil4_tend(grid, wTop, tracers, tend, err3)
 
       err = ior(err1, ior(err2, err3))
 

</font>
</pre>