<p><b>dwj07@fsu.edu</b> 2013-02-15 11:04:59 -0700 (Fri, 15 Feb 2013)</p><p><br>
        -- TRUNK COMMIT --<br>
<br>
        Bug fix.<br>
<br>
        This fixes an issue with explicit decomposition of blocks.<br>
</p><hr noshade><pre><font color="gray">Modified: trunk/mpas/src/framework/mpas_block_decomp.F
===================================================================
--- trunk/mpas/src/framework/mpas_block_decomp.F        2013-02-15 02:43:13 UTC (rev 2481)
+++ trunk/mpas/src/framework/mpas_block_decomp.F        2013-02-15 18:04:59 UTC (rev 2482)
@@ -165,7 +165,7 @@
            allocate(block_id(blocks_per_proc))
            allocate(block_start(blocks_per_proc))
            allocate(block_count(blocks_per_proc))
-   
+
            do i = 1, blocks_per_proc
              block_start = 0
              block_count = 0
@@ -436,11 +436,11 @@
        end if
      else
        blocks_per_proc = 0
-       do i = 1, total_blocks
+       do i = 0, total_blocks-1
          call mpas_get_owning_proc(dminfo, i, owning_proc)
          if(owning_proc == proc_number) then
            call mpas_get_local_block_id(dminfo, i, local_block_id)
-           blocks_per_proc = max(blocks_per_proc, local_block_id)
+           blocks_per_proc = max(blocks_per_proc, local_block_id+1)
          end if
        end do
      end if

</font>
</pre>