<p><b>dwj07@fsu.edu</b> 2012-07-18 11:20:39 -0600 (Wed, 18 Jul 2012)</p><p><br>
        -- BRANCH COMMIT --<br>
<br>
        Fixing an issue caused by exchanging single halo layers.<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-17 16:33:48 UTC (rev 2032)
+++ branches/omp_blocks/multiple_blocks/src/framework/mpas_dmpar.F        2012-07-18 17:20:39 UTC (rev 2033)
@@ -2351,7 +2351,6 @@
        commListPtr =&gt; commListPtr % next
      end do
 
-
      ! Allocate buffers for recieves, and initiate mpi_irecv calls.
      commListPtr =&gt; recvList
      do while(associated(commListPtr))
@@ -2952,7 +2951,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
                 nAdded = max(nAdded, maxval(exchListPtr % srcList))
@@ -3226,7 +3225,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
                 nAdded = max(nAdded, maxval(exchListPtr % srcList) * fieldCursor % dimSizes(1))
@@ -3501,7 +3500,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
                 nAdded = max(nAdded, maxval(exchListPtr % srcList) * fieldCursor % dimSizes(1) * fieldCursor % dimSizes(2))
@@ -3782,7 +3781,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
                 nAdded = max(nAdded, maxval(exchListPtr % srcList))
@@ -4056,7 +4055,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
                 nAdded = max(nAdded, maxval(exchListPtr % srcList) * fieldCursor % dimSizes(1))
@@ -4331,7 +4330,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
                 nAdded = max(nAdded, maxval(exchListPtr % srcList) * fieldCursor % dimSizes(1) * fieldCursor % dimSizes(2))

</font>
</pre>