<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>