<p><b>qchen3@fsu.edu</b> 2010-11-03 18:19:10 -0600 (Wed, 03 Nov 2010)</p><p>BRANCH COMMIT<br>
<br>
Re-enabling upstream corrections to the pv.<br>
</p><hr noshade><pre><font color="gray">Modified: branches/swmodel_del4/src/core_sw/module_time_integration.F
===================================================================
--- branches/swmodel_del4/src/core_sw/module_time_integration.F        2010-11-03 18:27:30 UTC (rev 592)
+++ branches/swmodel_del4/src/core_sw/module_time_integration.F        2010-11-04 00:19:10 UTC (rev 593)
@@ -1149,11 +1149,11 @@
!
! Modify PV edge with upstream bias.
!
- !do iEdge = 1,nEdges
- ! do k = 1,nVertLevels
- ! pv_edge(k,iEdge) = pv_edge(k,iEdge) - 0.5 * v(k,iEdge) * dt * gradPVt(k,iEdge)
- ! enddo
- !enddo
+ do iEdge = 1,nEdges
+ do k = 1,nVertLevels
+ pv_edge(k,iEdge) = pv_edge(k,iEdge) - 0.5 * v(k,iEdge) * dt * gradPVt(k,iEdge)
+ enddo
+ enddo
!
@@ -1191,11 +1191,11 @@
! Modify PV edge with upstream bias.
!
- !do iEdge = 1,nEdges
- ! do k = 1,nVertLevels
- ! pv_edge(k,iEdge) = pv_edge(k,iEdge) - 0.5 * u(k,iEdge) * dt * gradPVn(k,iEdge)
- ! enddo
- !enddo
+ do iEdge = 1,nEdges
+ do k = 1,nVertLevels
+ pv_edge(k,iEdge) = pv_edge(k,iEdge) - 0.5 * u(k,iEdge) * dt * gradPVn(k,iEdge)
+ enddo
+ enddo
!
! set pv_edge = fEdge / h_edge at boundary points
</font>
</pre>