<p><b>dwj07@fsu.edu</b> 2011-09-28 15:46:01 -0600 (Wed, 28 Sep 2011)</p><p><br>
        -- BRANCH COMMIT --<br>
<br>
        Enabling coriolis module, and removing the inline code to compute the coriolis tendency.<br>
</p><hr noshade><pre><font color="gray">Modified: branches/ocean_projects/performance/src/core_ocean/module_OcnTendency.F
===================================================================
--- branches/ocean_projects/performance/src/core_ocean/module_OcnTendency.F        2011-09-27 23:37:40 UTC (rev 1037)
+++ branches/ocean_projects/performance/src/core_ocean/module_OcnTendency.F        2011-09-28 21:46:01 UTC (rev 1038)
@@ -341,28 +341,8 @@
 
       call timer_start(&quot;OcnTendU-coriolis&quot;)
 
-!     call OcnVelCoriolisTend(grid, pv_edge, h_edge, u, ke, tend_u, err)
+      call OcnVelCoriolisTend(grid, pv_edge, h_edge, u, ke, tend_u, err)
 
-      do iEdge=1,grid % nEdgesSolve
-         cell1 = cellsOnEdge(1,iEdge)
-         cell2 = cellsOnEdge(2,iEdge)
-
-         do k=1,maxLevelEdgeTop(iEdge)
-
-            q = 0.0
-            do j = 1,nEdgesOnEdge(iEdge)
-               eoe = edgesOnEdge(j,iEdge)
-               workpv = 0.5 * (pv_edge(k,iEdge) + pv_edge(k,eoe))
-               q = q + weightsOnEdge(j,iEdge) * u(k,eoe) * workpv * h_edge(k,eoe) 
-            end do
-
-           tend_u(k,iEdge) = tend_u(k,iEdge)     &amp;
-                  + q     &amp;
-                  - (   ke(k,cell2) - ke(k,cell1) ) / dcEdge(iEdge)
-
-         end do
-      end do
-
       call timer_stop(&quot;OcnTendU-coriolis&quot;)
 
       !

</font>
</pre>