<p><b>dwj07@fsu.edu</b> 2011-11-16 08:54:58 -0700 (Wed, 16 Nov 2011)</p><p><br>
        -- TRUNK COMMIT --<br>
<br>
        Fixing up a memory leak, and cleaning up some of the array initializations to pair them with array allocations.<br>
</p><hr noshade><pre><font color="gray">Modified: trunk/mpas/src/core_ocean/mpas_ocn_tracer_hmix_del4.F
===================================================================
--- trunk/mpas/src/core_ocean/mpas_ocn_tracer_hmix_del4.F        2011-11-15 22:06:38 UTC (rev 1198)
+++ trunk/mpas/src/core_ocean/mpas_ocn_tracer_hmix_del4.F        2011-11-16 15:54:58 UTC (rev 1199)
@@ -212,6 +212,7 @@
       end do
 
       deallocate(delsq_tracer)
+      deallocate(boundaryMask)
       call mpas_timer_stop(&quot;compute_scalar_tend-horiz diff 4&quot;)
    !--------------------------------------------------------------------
 

Modified: trunk/mpas/src/core_ocean/mpas_ocn_vel_hmix_del4.F
===================================================================
--- trunk/mpas/src/core_ocean/mpas_ocn_vel_hmix_del4.F        2011-11-15 22:06:38 UTC (rev 1198)
+++ trunk/mpas/src/core_ocean/mpas_ocn_vel_hmix_del4.F        2011-11-16 15:54:58 UTC (rev 1199)
@@ -157,6 +157,9 @@
       allocate(delsq_vorticity(nVertLevels, nVertices+1))
 
       delsq_u(:,:) = 0.0
+      delsq_circulation(:,:) = 0.0
+      delsq_vorticity(:,:) = 0.0
+      delsq_divergence(:,:) = 0.0
 
       ! Compute </font>
<font color="black">abla^2 u = </font>
<font color="black">abla divergence + k \times </font>
<font color="gray">abla vorticity
       do iEdge=1,grid % nEdges
@@ -176,7 +179,6 @@
       end do
 
       ! vorticity using </font>
<font color="gray">abla^2 u
-      delsq_circulation(:,:) = 0.0
       do iEdge=1,nEdges
          vertex1 = verticesOnEdge(1,iEdge)
          vertex2 = verticesOnEdge(2,iEdge)
@@ -195,7 +197,6 @@
       end do
 
       ! Divergence using </font>
<font color="gray">abla^2 u
-      delsq_divergence(:,:) = 0.0
       do iEdge=1,nEdges
          cell1 = cellsOnEdge(1,iEdge)
          cell2 = cellsOnEdge(2,iEdge)

Modified: trunk/mpas/src/core_ocean/mpas_ocn_vel_vadv.F
===================================================================
--- trunk/mpas/src/core_ocean/mpas_ocn_vel_vadv.F        2011-11-15 22:06:38 UTC (rev 1198)
+++ trunk/mpas/src/core_ocean/mpas_ocn_vel_vadv.F        2011-11-16 15:54:58 UTC (rev 1199)
@@ -123,7 +123,7 @@
       zMidZLevel =&gt; grid % zMidZLevel % array
 
       allocate(w_dudzTopEdge(nVertLevels+1))
-      w_dudzTopEdge(1) = 0.0
+      w_dudzTopEdge = 0.0
       do iEdge=1,nEdgesSolve
         cell1 = cellsOnEdge(1,iEdge)
         cell2 = cellsOnEdge(2,iEdge)

</font>
</pre>