<p><b>dwj07@fsu.edu</b> 2012-01-06 12:43:48 -0700 (Fri, 06 Jan 2012)</p><p><br>
        -- BRANCH COMMIT --<br>
<br>
        Cleaning up doxygen comments.<br>
</p><hr noshade><pre><font color="gray">Modified: branches/ocean_projects/rayleigh/src/core_ocean/mpas_ocn_vel_forcing_rayleigh.F
===================================================================
--- branches/ocean_projects/rayleigh/src/core_ocean/mpas_ocn_vel_forcing_rayleigh.F        2012-01-06 19:05:03 UTC (rev 1310)
+++ branches/ocean_projects/rayleigh/src/core_ocean/mpas_ocn_vel_forcing_rayleigh.F        2012-01-06 19:43:48 UTC (rev 1311)
@@ -3,8 +3,8 @@
 !  ocn_vel_forcing_rayleigh
 !
 !&gt; \brief MPAS ocean Rayleigh Friction (to be used to smooth &quot;shocks&quot; from cold starts)
-!&gt; \author Doug Jacobsen
-!&gt; \date   16 September 2011
+!&gt; \author Todd Ringler
+!&gt; \date   5 January 2012
 !&gt; \version SVN:$Id:$
 !&gt; \details
 !&gt;  This module contains the routine for computing 
@@ -52,11 +52,11 @@
 
 !***********************************************************************
 !
-!  routine ocn_vel_forcing_rayleigh_tend
+!  ocn_vel_forcing_rayleigh_tend
 !
 !&gt; \brief   Computes tendency term from Rayleigh friction
-!&gt; \author  Doug Jacobsen
-!&gt; \date    15 September 2011
+!&gt; \author  Todd Ringler
+!&gt; \date    5 January 2012
 !&gt; \version SVN:$Id$
 !&gt; \details 
 !&gt;  This routine computes the Rayleigh friction tendency for momentum
@@ -119,15 +119,12 @@
       nEdgesSolve = grid % nEdgesSolve
       maxLevelEdgeTop =&gt; grid % maxLevelEdgeTop % array
 
-      do iEdge=1,grid % nEdgesSolve
-
+      do iEdge=1,nEdgesSolve
         do k=1,maxLevelEdgeTop(iEdge)
 
-           tend(k,iEdge) = tend(k,iEdge)  &amp;
-               -rayleighDampingCoef*u(k,iEdge)
+           tend(k,iEdge) = tend(k,iEdge) - rayleighDampingCoef * u(k,iEdge)
 
         enddo
-
       enddo
 
 
@@ -137,11 +134,11 @@
 
 !***********************************************************************
 !
-!  routine ocn_vel_forcing_rayleigh_init
+!  ocn_vel_forcing_rayleigh_init
 !
 !&gt; \brief   Initializes ocean Rayleigh friction
-!&gt; \author  Doug Jacobsen
-!&gt; \date    16 September 2011
+!&gt; \author  Todd Ringler
+!&gt; \date    5 January 2012
 !&gt; \version SVN:$Id$
 !&gt; \details 
 !&gt;  This routine initializes quantities related to 

</font>
</pre>