<p><b>duda</b> 2009-11-18 18:23:33 -0700 (Wed, 18 Nov 2009)</p><p>Fix array index in horizontal momentum update loop of advance_dynamics().<br>
<br>
M src/module_time_integration.F<br>
</p><hr noshade><pre><font color="gray">Modified: branches/hyd_model/src/module_time_integration.F
===================================================================
--- branches/hyd_model/src/module_time_integration.F        2009-11-19 01:05:38 UTC (rev 75)
+++ branches/hyd_model/src/module_time_integration.F        2009-11-19 01:23:33 UTC (rev 76)
@@ -778,7 +778,7 @@
+cqu(k,iEdge)*(alpha(k,cell2)+alpha(k,cell1))* &
0.5*(pressure(k+1,cell2)-pressure(k+1,cell1) &
+pressure(k ,cell2)-pressure(k ,cell1))) &
- -smext*dcEdge(iEdge)*(dpsdt(cell2)-dpsdt(cell1))/h_edge(k,i)
+ -smext*dcEdge(iEdge)*(dpsdt(cell2)-dpsdt(cell1))/h_edge(k,iEdge)
end do
end do
</font>
</pre>