<p><b>duda</b> 2012-07-23 14:32:07 -0600 (Mon, 23 Jul 2012)</p><p>BRANCH COMMIT<br>
<br>
Fix unbalanced parentheses in module_dmpar.F.<br>
<br>
<br>
M src/framework/mpas_dmpar.F<br>
</p><hr noshade><pre><font color="gray">Modified: branches/omp_blocks/multiple_blocks/src/framework/mpas_dmpar.F
===================================================================
--- branches/omp_blocks/multiple_blocks/src/framework/mpas_dmpar.F        2012-07-23 18:24:31 UTC (rev 2043)
+++ branches/omp_blocks/multiple_blocks/src/framework/mpas_dmpar.F        2012-07-23 20:32:07 UTC (rev 2044)
@@ -3049,7 +3049,7 @@
nAdded = 0
fieldCursor => field
do while(associated(fieldCursor))
- exchListPtr => fieldCursor % recvList % halos(haloLayers((iHalo)) % exchList
+ exchListPtr => fieldCursor % recvList % halos(haloLayers(iHalo)) % exchList
do while(associated(exchListPtr))
if(exchListPtr % endPointID == commListPtr % procID) then
do i = 1, exchListPtr % nList
</font>
</pre>