<p><b>mpetersen@lanl.gov</b> 2012-04-27 08:50:39 -0600 (Fri, 27 Apr 2012)</p><p>A few minor changes to the monthly forcing.<br>
</p><hr noshade><pre><font color="gray">Modified: branches/ocean_projects/monthly_forcing/src/core_ocean/mpas_ocn_monthly_forcing.F
===================================================================
--- branches/ocean_projects/monthly_forcing/src/core_ocean/mpas_ocn_monthly_forcing.F        2012-04-27 00:24:48 UTC (rev 1822)
+++ branches/ocean_projects/monthly_forcing/src/core_ocean/mpas_ocn_monthly_forcing.F        2012-04-27 14:50:39 UTC (rev 1823)
@@ -127,7 +127,7 @@
 
       err = ierr
 
-      iMonthP1 = mod(iMonth + 1, nMonths) + 1
+      iMonthP1 = mod(iMonth, nMonths) + 1
 
       weight = 1.0 - (iDayInMonth-1) / 30.0
       weightP1 = 1.0 - weight
@@ -170,6 +170,8 @@
 
       integer, intent(out) :: err !&lt; Output: error flag
 
+      err = 0
+
       monthlyForcingOn = .false.
 
       if(config_use_monthly_forcing) then

</font>
</pre>