<p><b>duda</b> 2010-07-20 16:00:59 -0600 (Tue, 20 Jul 2010)</p><p>BRANCH COMMIT<br>
<br>
Copy bug fix for running MPI-compiled executable with a single task from trunk.<br>
<br>
M    src/framework/module_block_decomp.F<br>
</p><hr noshade><pre><font color="gray">Modified: branches/mpas_cam_coupling/src/framework/module_block_decomp.F
===================================================================
--- branches/mpas_cam_coupling/src/framework/module_block_decomp.F        2010-07-20 21:52:59 UTC (rev 387)
+++ branches/mpas_cam_coupling/src/framework/module_block_decomp.F        2010-07-20 22:00:59 UTC (rev 388)
@@ -109,7 +109,9 @@
          deallocate(global_cell_list)
       else
          allocate(local_cell_list(partial_global_graph_info % nVerticesTotal))
-         local_cell_list(:) = dminfo % my_proc_id
+         do i=1,size(local_cell_list)
+            local_cell_list(i) = i
+         end do
       endif
 
    end subroutine block_decomp_cells_for_proc

</font>
</pre>