<p><b>laura@ucar.edu</b> 2010-07-26 09:55:05 -0600 (Mon, 26 Jul 2010)</p><p>updated with trunk<br>
</p><hr noshade><pre><font color="gray">Modified: branches/atmos_physics/src/framework/module_block_decomp.F
===================================================================
--- branches/atmos_physics/src/framework/module_block_decomp.F        2010-07-26 15:53:59 UTC (rev 438)
+++ branches/atmos_physics/src/framework/module_block_decomp.F        2010-07-26 15:55:05 UTC (rev 439)
@@ -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>