<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 !< Output: error flag
+ err = 0
+
monthlyForcingOn = .false.
if(config_use_monthly_forcing) then
</font>
</pre>