<p><b>dwj07@fsu.edu</b> 2013-02-21 15:01:00 -0700 (Thu, 21 Feb 2013)</p><p><br>
        -- BRANCH COMMIT --<br>
<br>
        Updating check for interior blocks to check over all halos.<br>
</p><hr noshade><pre><font color="gray">Modified: branches/split_halo_exch/src/framework/mpas_block_creator.F
===================================================================
--- branches/split_halo_exch/src/framework/mpas_block_creator.F        2013-02-21 16:43:33 UTC (rev 2500)
+++ branches/split_halo_exch/src/framework/mpas_block_creator.F        2013-02-21 22:01:00 UTC (rev 2501)
@@ -77,7 +77,6 @@
        blockCursor % blockID = blockID(i)
        blockCursor % localBlockID = i - 1
        blockCursor % domain =&gt; domain
-       blockCursor % isInterior = .true.
   
        ! Link to block, and setup array size
        fieldCursor % block =&gt; blockCursor
@@ -1001,7 +1000,9 @@
      type (field1dInteger), pointer :: nCellsCursor, nEdgesCursor, nVerticesCursor
      type (field1dInteger), pointer :: indexToCellCursor, indexToEdgeCursor, indexToVertexCursor
 
-     integer :: nHalos
+     type (mpas_exchange_list), pointer :: exchListPtr
+
+     integer :: nHalos, iHalo
      integer :: nCellsSolve_0Halo, nVerticesSolve_0Halo, nEdgesSolve_0Halo
      integer :: blockID, localBlockID
 
@@ -1078,6 +1079,36 @@
        nullify(indexToVertexCursor % recvList)
        nullify(indexToVertexCursor % copyList)
 
+       block_ptr % isInterior = .true.
+       do iHalo = 1, nHalos
+         exchListPtr =&gt; block_ptr % parinfo % cellsToSend % halos(iHalo) % exchList
+         do while(associated(exchListPtr))
+           if(exchListPtr % endPointID &gt;= 0) then
+              block_ptr % isInterior = .false.    
+           end if
+  
+           exchListPtr =&gt; exchListPtr % next
+         end do
+  
+         exchListPtr =&gt; block_ptr % parinfo % edgesToSend % halos(iHalo) % exchList
+         do while(associated(exchListPtr))
+           if(exchListPtr % endPointID &gt;= 0) then
+              block_ptr % isInterior = .false.    
+           end if
+  
+           exchListPtr =&gt; exchListPtr % next
+         end do
+  
+         exchListPtr =&gt; block_ptr % parinfo % verticesToSend % halos(iHalo) % exchList
+         do while(associated(exchListPtr))
+           if(exchListPtr % endPointID &gt;= 0) then
+              block_ptr % isInterior = .false.    
+           end if
+  
+           exchListPtr =&gt; exchListPtr % next
+         end do
+       end do
+
        ! Advance cursors
        block_ptr =&gt; block_ptr % next
        nCellsCursor =&gt; nCellsCursor % next

Modified: branches/split_halo_exch/src/framework/mpas_dmpar.F
===================================================================
--- branches/split_halo_exch/src/framework/mpas_dmpar.F        2013-02-21 16:43:33 UTC (rev 2500)
+++ branches/split_halo_exch/src/framework/mpas_dmpar.F        2013-02-21 22:01:00 UTC (rev 2501)
@@ -983,7 +983,6 @@
                 end if
               end if
             end do
-            fieldCursor % block % isInterior = .false.
           end if
 
           fieldCursor =&gt; fieldCursor % next

</font>
</pre>