<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>