<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 => domain
+ blockCursor % isInterior = .true.
! Link to block, and setup array size
fieldCursor % block => 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 => 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>