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