<p><b>duda</b> 2011-06-29 14:21:36 -0600 (Wed, 29 Jun 2011)</p><p>BRANCH COMMIT<br>
<br>
Update hydrostatic atmosphere core w.r.t. trunk; see commit<br>
message for r630 of the trunk for an explanation of the <br>
changes in module_time_integration.F<br>
<br>
<br>
M src/core_hyd_atmos/module_time_integration.F<br>
</p><hr noshade><pre><font color="gray">Modified: branches/atmos_physics/src/core_hyd_atmos/module_time_integration.F
===================================================================
--- branches/atmos_physics/src/core_hyd_atmos/module_time_integration.F        2011-06-29 20:19:14 UTC (rev 910)
+++ branches/atmos_physics/src/core_hyd_atmos/module_time_integration.F        2011-06-29 20:21:36 UTC (rev 911)
@@ -1995,10 +1995,7 @@
! Compute height at vertices, pv at vertices, and average pv to edge locations
! ( this computes pv_vertex at all vertices bounding real cells )
!
- VTX_LOOP: do iVertex = 1,nVertices
- do i=1,grid % vertexDegree
- if (cellsOnVertex(i,iVertex) > nCells) cycle VTX_LOOP
- end do
+ do iVertex = 1,nVertices
do k=1,nVertLevels
h_vertex = 0.0
do i=1,grid % vertexDegree
@@ -2008,7 +2005,7 @@
pv_vertex(k,iVertex) = (fVertex(iVertex) + vorticity(k,iVertex)) / h_vertex
end do
- end do VTX_LOOP
+ end do
! tdr
</font>
</pre>