<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("OcnTendU-coriolis")
-! 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) &
- + q &
- - ( ke(k,cell2) - ke(k,cell1) ) / dcEdge(iEdge)
-
- end do
- end do
-
call timer_stop("OcnTendU-coriolis")
!
</font>
</pre>