<p><b>dwj07@fsu.edu</b> 2012-12-03 13:19:40 -0700 (Mon, 03 Dec 2012)</p><p><br>
        -- BRANCH COMMIT --<br>
<br>
        Uncommenting monthly forcing.<br>
</p><hr noshade><pre><font color="gray">Modified: branches/ocean_projects/cesm_coupling/src/core_ocean/mpas_ocn_monthly_forcing.F
===================================================================
--- branches/ocean_projects/cesm_coupling/src/core_ocean/mpas_ocn_monthly_forcing.F        2012-12-01 03:49:20 UTC (rev 2334)
+++ branches/ocean_projects/cesm_coupling/src/core_ocean/mpas_ocn_monthly_forcing.F        2012-12-03 20:19:40 UTC (rev 2335)
@@ -113,41 +113,41 @@
 
       nCells = grid % nCells
       nEdges = grid % nEdges
-!     nMonths = grid % nMonths
+      nMonths = grid % nMonths
 
       temperatureRestore =&gt; grid % temperatureRestore % array
       salinityRestore =&gt; grid % salinityRestore % array
       u_src =&gt; grid % u_src % array
 
-!     temperatureRestoreMonthly =&gt; grid % temperatureRestoreMonthly % array
-!     salinityRestoreMonthly =&gt; grid % salinityRestoreMonthly % array
-!     windStressMonthly =&gt; grid % windStressMonthly % array
+      temperatureRestoreMonthly =&gt; grid % temperatureRestoreMonthly % array
+      salinityRestoreMonthly =&gt; grid % salinityRestoreMonthly % array
+      windStressMonthly =&gt; grid % windStressMonthly % array
 
       call mpas_get_time(timeStamp, MM = iMonth, DD = iDayInMonth, ierr = ierr)
 
       err = ierr
 
-!     iMonthP1 = mod(iMonth, nMonths) + 1
+      iMonthP1 = mod(iMonth, nMonths) + 1
 
       weight = 1.0 - (iDayInMonth-1) / 30.0
       weightP1 = 1.0 - weight
 
-!     do iCell=1,nCells
-!       ! Interpolate between iMonth and iMonthP1 records, using iDayInMonth
-!       data = temperatureRestoreMonthly(iMonth,iCell)
-!       dataP1 = temperatureRestoreMonthly(iMonthP1,iCell)
-!       temperatureRestore(iCell) = data * weight + dataP1 * weightP1
-!       data = salinityRestoreMonthly(iMonth,iCell)
-!       dataP1 = salinityRestoreMonthly(iMonthP1,iCell)
-!       salinityRestore(iCell) = data * weight + dataP1 * weightP1
-!     end do
+      do iCell=1,nCells
+        ! Interpolate between iMonth and iMonthP1 records, using iDayInMonth
+        data = temperatureRestoreMonthly(iMonth,iCell)
+        dataP1 = temperatureRestoreMonthly(iMonthP1,iCell)
+        temperatureRestore(iCell) = data * weight + dataP1 * weightP1
+        data = salinityRestoreMonthly(iMonth,iCell)
+        dataP1 = salinityRestoreMonthly(iMonthP1,iCell)
+        salinityRestore(iCell) = data * weight + dataP1 * weightP1
+      end do
 
-!     do iEdge=1,nEdges
-!       ! Interpolate between iMonth and iMonthP1 records, using iDayInMonth
-!       data = windStressMonthly(iMonth,iEdge)
-!       dataP1 = windStressMonthly(iMonthP1,iEdge)
-!       u_src(1,iEdge) = data * weight + dataP1 * weightP1
-!     end do
+      do iEdge=1,nEdges
+        ! Interpolate between iMonth and iMonthP1 records, using iDayInMonth
+        data = windStressMonthly(iMonth,iEdge)
+        dataP1 = windStressMonthly(iMonthP1,iEdge)
+        u_src(1,iEdge) = data * weight + dataP1 * weightP1
+      end do
 
    !--------------------------------------------------------------------
 

</font>
</pre>