<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))*           &amp;
                        0.5*(pressure(k+1,cell2)-pressure(k+1,cell1)      &amp;
                            +pressure(k  ,cell2)-pressure(k  ,cell1)))    &amp;
-                      -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>