<p><b>dwj07@fsu.edu</b> 2012-07-23 12:24:31 -0600 (Mon, 23 Jul 2012)</p><p><br>
        -- BRANCH COMMIT --<br>
<br>
        Fixing indexing of receive list.<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:06:01 UTC (rev 2042)
+++ branches/omp_blocks/multiple_blocks/src/framework/mpas_dmpar.F        2012-07-23 18:24:31 UTC (rev 2043)
@@ -3049,7 +3049,7 @@
           nAdded = 0
           fieldCursor =&gt; field
           do while(associated(fieldCursor))
-            exchListPtr =&gt; fieldCursor % recvList % halos(iHalo) % exchList
+            exchListPtr =&gt; fieldCursor % recvList % halos(haloLayers((iHalo)) % exchList
             do while(associated(exchListPtr))
               if(exchListPtr % endPointID == commListPtr % procID) then
                 do i = 1, exchListPtr % nList
@@ -3322,7 +3322,7 @@
           nAdded = 0
           fieldCursor =&gt; field
           do while(associated(fieldCursor))
-            exchListPtr =&gt; fieldCursor % recvList % halos(iHalo) % exchList
+            exchListPtr =&gt; fieldCursor % recvList % halos(haloLayers(iHalo)) % exchList
             do while(associated(exchListPtr))
               if(exchListPtr % endPointID == commListPtr % procID) then
                 do i = 1, exchListPtr % nList
@@ -3600,7 +3600,7 @@
           nAdded = 0
           fieldCursor =&gt; field
           do while(associated(fieldCursor))
-            exchListPtr =&gt; fieldCursor % recvList % halos(iHalo) % exchList
+            exchListPtr =&gt; fieldCursor % recvList % halos(haloLayers(iHalo)) % exchList
             do while(associated(exchListPtr))
               if(exchListPtr % endPointID == commListPtr % procID) then
                 do i = 1, exchListPtr % nList
@@ -3877,7 +3877,7 @@
           nAdded = 0
           fieldCursor =&gt; field
           do while(associated(fieldCursor))
-            exchListPtr =&gt; fieldCursor % recvList % halos(iHalo) % exchList
+            exchListPtr =&gt; fieldCursor % recvList % halos(haloLayers(iHalo)) % exchList
             do while(associated(exchListPtr))
               if(exchListPtr % endPointID == commListPtr % procID) then
                 do i = 1, exchListPtr % nList
@@ -4152,7 +4152,7 @@
           nAdded = 0
           fieldCursor =&gt; field
           do while(associated(fieldCursor))
-            exchListPtr =&gt; fieldCursor % recvList % halos(iHalo) % exchList
+            exchListPtr =&gt; fieldCursor % recvList % halos(haloLayers(iHalo)) % exchList
             do while(associated(exchListPtr))
               if(exchListPtr % endPointID == commListPtr % procID) then
                 do i = 1, exchListPtr % nList
@@ -4430,7 +4430,7 @@
           nAdded = 0
           fieldCursor =&gt; field
           do while(associated(fieldCursor))
-            exchListPtr =&gt; fieldCursor % recvList % halos(iHalo) % exchList
+            exchListPtr =&gt; fieldCursor % recvList % halos(haloLayers(iHalo)) % exchList
             do while(associated(exchListPtr))
               if(exchListPtr % endPointID == commListPtr % procID) then
                 do i = 1, exchListPtr % nList

</font>
</pre>