<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 => domain
- blockCursor % isInterior = .true.
! Link to block, and setup array size
fieldCursor % block => 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 => block_ptr % parinfo % cellsToSend % halos(iHalo) % exchList
+ do while(associated(exchListPtr))
+ if(exchListPtr % endPointID >= 0) then
+ block_ptr % isInterior = .false.
+ end if
+
+ exchListPtr => exchListPtr % next
+ end do
+
+ exchListPtr => block_ptr % parinfo % edgesToSend % halos(iHalo) % exchList
+ do while(associated(exchListPtr))
+ if(exchListPtr % endPointID >= 0) then
+ block_ptr % isInterior = .false.
+ end if
+
+ exchListPtr => exchListPtr % next
+ end do
+
+ exchListPtr => block_ptr % parinfo % verticesToSend % halos(iHalo) % exchList
+ do while(associated(exchListPtr))
+ if(exchListPtr % endPointID >= 0) then
+ block_ptr % isInterior = .false.
+ end if
+
+ exchListPtr => exchListPtr % next
+ end do
+ end do
+
! Advance cursors
block_ptr => block_ptr % next
nCellsCursor => 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 => fieldCursor % next
</font>
</pre>