<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("compute_scalar_tend-horiz diff 4")
!--------------------------------------------------------------------
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 => 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>