<p><b>dwj07@fsu.edu</b> 2012-04-26 10:48:19 -0600 (Thu, 26 Apr 2012)</p><p><br>
        -- BRANCH COMMIT --<br>
<br>
        Fixing an infinite block loop.<br>
</p><hr noshade><pre><font color="gray">Modified: branches/ocean_projects/monthly_forcing/src/core_ocean/mpas_ocn_mpas_core.F
===================================================================
--- branches/ocean_projects/monthly_forcing/src/core_ocean/mpas_ocn_mpas_core.F        2012-04-26 16:13:18 UTC (rev 1815)
+++ branches/ocean_projects/monthly_forcing/src/core_ocean/mpas_ocn_mpas_core.F        2012-04-26 16:48:19 UTC (rev 1816)
@@ -363,6 +363,7 @@
          block_ptr =&gt; domain % blocklist
          do while(associated(block_ptr))
            call ocn_build_forcing_arrays(currTime, block_ptr % mesh, ierr)
+           block_ptr =&gt; block_ptr % next
          end do
 
          call mpas_timer_start(&quot;time integration&quot;, .false., timeIntTimer)

</font>
</pre>