<p><b>duda</b> 2011-09-14 14:38:59 -0600 (Wed, 14 Sep 2011)</p><p>BRANCH COMMIT<br>
<br>
Fix bug in computation of w in recover_large_step_variables.<br>
<br>
<br>
M    src/core_nhyd_atmos/module_time_integration.F<br>
</p><hr noshade><pre><font color="gray">Modified: branches/atmos_physics/src/core_nhyd_atmos/module_time_integration.F
===================================================================
--- branches/atmos_physics/src/core_nhyd_atmos/module_time_integration.F        2011-09-14 20:25:04 UTC (rev 992)
+++ branches/atmos_physics/src/core_nhyd_atmos/module_time_integration.F        2011-09-14 20:38:59 UTC (rev 993)
@@ -1182,7 +1182,7 @@
           if (config_theta_adv_order == 3) then
              w(1,cell2) = w(1,cell2) - sign(1.,ru(1,iEdge))*config_coef_3rd_order      &amp;
                                       *zb3(1,2,iEdge)*flux/(cf1*rho_zz(1,cell2)+cf2*rho_zz(2,cell2)+cf3*rho_zz(3,cell2))
-             w(2,cell1) = w(2,cell1) + sign(1.,ru(1,iEdge))*config_coef_3rd_order      &amp;
+             w(1,cell1) = w(1,cell1) + sign(1.,ru(1,iEdge))*config_coef_3rd_order      &amp;
                                       *zb3(1,1,iEdge)*flux/(cf1*rho_zz(1,cell1)+cf2*rho_zz(2,cell1)+cf3*rho_zz(3,cell1))
           end if
 

</font>
</pre>