<p><b>jgraham@lanl.gov</b> 2012-11-26 15:42:05 -0700 (Mon, 26 Nov 2012)</p><p>now builds<br>
</p><hr noshade><pre><font color="gray">Modified: branches/ocean_projects/turbulent_transfer/src/core_ocean/mpas_ocn_tendency.F
===================================================================
--- branches/ocean_projects/turbulent_transfer/src/core_ocean/mpas_ocn_tendency.F        2012-11-26 22:18:07 UTC (rev 2320)
+++ branches/ocean_projects/turbulent_transfer/src/core_ocean/mpas_ocn_tendency.F        2012-11-26 22:42:05 UTC (rev 2321)
@@ -66,6 +66,7 @@
 
    public :: ocn_tend_h, &amp;
              ocn_tend_u, &amp;
+             ocn_tend_u_diagnostic, &amp;
              ocn_tend_scalar, &amp;
              ocn_diagnostic_solve, &amp;
              ocn_wtop, &amp;
@@ -289,7 +290,7 @@
       integer :: err
 
       integer :: iEdge, iCell, k, i
-      integer :: boundaryMask, velMask, nCells, nEdges, nVertices, nVertLevels, vertexDegree, err
+      integer :: nCells
 
       integer, dimension(:), pointer :: nEdgesOnCell, maxLevelCell
       integer, dimension(:,:), pointer :: edgesOnCell

</font>
</pre>