<p><b>dwj07@fsu.edu</b> 2013-02-20 15:32:41 -0700 (Wed, 20 Feb 2013)</p><p><br>
        -- BRANCH COMMIT --<br>
<br>
        Adding a logical flag to each block. <br>
        This logical determines if the block has to communicate with other processors, or if all communications are local copies.<br>
<br>
        This flag is also properly initialized to determine if the blocks are interior or exterior.<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-20 22:02:21 UTC (rev 2498)
+++ branches/split_halo_exch/src/framework/mpas_block_creator.F        2013-02-20 22:32:41 UTC (rev 2499)
@@ -77,6 +77,7 @@
        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

Modified: branches/split_halo_exch/src/framework/mpas_dmpar.F
===================================================================
--- branches/split_halo_exch/src/framework/mpas_dmpar.F        2013-02-20 22:02:21 UTC (rev 2498)
+++ branches/split_halo_exch/src/framework/mpas_dmpar.F        2013-02-20 22:32:41 UTC (rev 2499)
@@ -983,6 +983,7 @@
                 end if
               end if
             end do
+            fieldCursor % block % isInterior = .false.
           end if
 
           fieldCursor =&gt; fieldCursor % next

Modified: branches/split_halo_exch/src/framework/mpas_grid_types.F
===================================================================
--- branches/split_halo_exch/src/framework/mpas_grid_types.F        2013-02-20 22:02:21 UTC (rev 2498)
+++ branches/split_halo_exch/src/framework/mpas_grid_types.F        2013-02-20 22:32:41 UTC (rev 2499)
@@ -416,6 +416,7 @@
 
       integer :: blockID   ! Unique global ID number for this block
       integer :: localBlockID  ! Unique local ID number for this block
+      logical :: isInterior ! Logical flag that determines if a block communicates with other processors
 
       type (domain_type), pointer :: domain
 

</font>
</pre>