<p><b>qchen3@fsu.edu</b> 2010-10-15 14:52:44 -0600 (Fri, 15 Oct 2010)</p><p></p><hr noshade><pre><font color="gray">Modified: branches/swmodel_del4/namelist.input.sw
===================================================================
--- branches/swmodel_del4/namelist.input.sw 2010-10-15 15:11:12 UTC (rev 559)
+++ branches/swmodel_del4/namelist.input.sw 2010-10-15 20:52:44 UTC (rev 560)
@@ -6,7 +6,7 @@
config_output_interval = 500
config_stats_interval = 0
config_h_mom_eddy_visc2 = 0.0
- config_h_mom_eddy_visc4 = 60000000000000.0
+ config_h_mom_eddy_visc4 = 0.0
config_h_tracer_eddy_diff2 = 0.0
config_h_tracer_eddy_diff4 = 0.0
/
Modified: branches/swmodel_del4/src/core_sw/module_time_integration.F
===================================================================
--- branches/swmodel_del4/src/core_sw/module_time_integration.F 2010-10-15 15:11:12 UTC (rev 559)
+++ branches/swmodel_del4/src/core_sw/module_time_integration.F 2010-10-15 20:52:44 UTC (rev 560)
@@ -362,7 +362,7 @@
! Compute diffusion, computed as </font>
<font color="black">abla divergence - k \times </font>
<font color="red">abla vorticity
! only valid for visc == constant
if (h_mom_eddy_visc2 > 0.0) then
- do iEdge=1,grid % nEdges
+ do iEdge=1,grid % nEdgesSolve
cell1 = cellsOnEdge(1,iEdge)
cell2 = cellsOnEdge(2,iEdge)
vertex1 = verticesOnEdge(1,iEdge)
</font>
</pre>