<p><b>laura@ucar.edu</b> 2010-07-26 09:52:29 -0600 (Mon, 26 Jul 2010)</p><p>updated with trunk<br>
</p><hr noshade><pre><font color="gray">Modified: branches/atmos_physics/src/core_ocean/module_time_integration.F
===================================================================
--- branches/atmos_physics/src/core_ocean/module_time_integration.F        2010-07-23 23:23:46 UTC (rev 436)
+++ branches/atmos_physics/src/core_ocean/module_time_integration.F        2010-07-26 15:52:29 UTC (rev 437)
@@ -1022,7 +1022,7 @@
!
VTX_LOOP: do iVertex = 1,nVertices
do i=1,grid % vertexDegree
- if (cellsOnVertex(i,iVertex) > nVertices) cycle VTX_LOOP
+ if (cellsOnVertex(i,iVertex) > nCells) cycle VTX_LOOP
end do
do k=1,nVertLevels
h_vertex = 0.0
</font>
</pre>