<p><b>gaw06e@fsu.edu</b> 2011-06-06 16:15:39 -0600 (Mon, 06 Jun 2011)</p><p>- fix areaCell initialization in alter_grid_for_triangle_borders<br>
</p><hr noshade><pre><font color="gray">Modified: branches/ocean_projects/triangle_border_swm/src/core_sw/module_mpas_core.F
===================================================================
--- branches/ocean_projects/triangle_border_swm/src/core_sw/module_mpas_core.F        2011-06-06 18:53:28 UTC (rev 877)
+++ branches/ocean_projects/triangle_border_swm/src/core_sw/module_mpas_core.F        2011-06-06 22:15:39 UTC (rev 878)
@@ -337,15 +337,15 @@
! note: assumes that the ordering of kiteAreasOnVertex is
! the same as cellsOnVertex
- ! initialize areaCell
- areaCell = 0
-
! loop over all cells
areaCellLoop: do iCell=1,nCells
! is this current cell a boundary cell?
appropriateCellIf: if (boundaryCell(1,iCell).eq.1) then
+ ! initialize areaCell where boundary cell == 1
+ areaCell(iCell) = 0.0
+
! if it is, loop over the verticesOnCell for the current cell
verticesLoop: do iVerticesOnCell=1,nEdgesOnCell(iCell)
</font>
</pre>