<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
!
!> \brief MPAS ocean Rayleigh Friction (to be used to smooth "shocks" from cold starts)
-!> \author Doug Jacobsen
-!> \date 16 September 2011
+!> \author Todd Ringler
+!> \date 5 January 2012
!> \version SVN:$Id:$
!> \details
!> This module contains the routine for computing
@@ -52,11 +52,11 @@
!***********************************************************************
!
-! routine ocn_vel_forcing_rayleigh_tend
+! ocn_vel_forcing_rayleigh_tend
!
!> \brief Computes tendency term from Rayleigh friction
-!> \author Doug Jacobsen
-!> \date 15 September 2011
+!> \author Todd Ringler
+!> \date 5 January 2012
!> \version SVN:$Id$
!> \details
!> This routine computes the Rayleigh friction tendency for momentum
@@ -119,15 +119,12 @@
nEdgesSolve = grid % nEdgesSolve
maxLevelEdgeTop => grid % maxLevelEdgeTop % array
- do iEdge=1,grid % nEdgesSolve
-
+ do iEdge=1,nEdgesSolve
do k=1,maxLevelEdgeTop(iEdge)
- tend(k,iEdge) = tend(k,iEdge) &
- -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
!
!> \brief Initializes ocean Rayleigh friction
-!> \author Doug Jacobsen
-!> \date 16 September 2011
+!> \author Todd Ringler
+!> \date 5 January 2012
!> \version SVN:$Id$
!> \details
!> This routine initializes quantities related to
</font>
</pre>