<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 => grid % temperatureRestore % array
salinityRestore => grid % salinityRestore % array
u_src => grid % u_src % array
-! temperatureRestoreMonthly => grid % temperatureRestoreMonthly % array
-! salinityRestoreMonthly => grid % salinityRestoreMonthly % array
-! windStressMonthly => grid % windStressMonthly % array
+ temperatureRestoreMonthly => grid % temperatureRestoreMonthly % array
+ salinityRestoreMonthly => grid % salinityRestoreMonthly % array
+ windStressMonthly => 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>