<p><b>ringler@lanl.gov</b> 2011-05-18 14:48:10 -0600 (Wed, 18 May 2011)</p><p>fixed typo. the scaling should be 1/meshDensity^(power) (not meshDensity^(power)).<br>
</p><hr noshade><pre><font color="gray">Modified: trunk/mpas/src/core_sw/module_time_integration.F
===================================================================
--- trunk/mpas/src/core_sw/module_time_integration.F        2011-05-18 17:10:25 UTC (rev 841)
+++ trunk/mpas/src/core_sw/module_time_integration.F        2011-05-18 20:48:10 UTC (rev 842)
@@ -327,8 +327,8 @@
do iEdge=1,nEdges
cell1 = cellsOnEdge(1,iEdge)
cell2 = cellsOnEdge(2,iEdge)
- meshScalingDel2(iEdge) = ( (meshDensity(cell1) + meshDensity(cell2) )/2.0)**(5.0/12.0)
- meshScalingDel4(iEdge) = (meshScalingDel2(iEdge))**2
+ meshScalingDel2(iEdge) = 1.0 / ( (meshDensity(cell1) + meshDensity(cell2) )/2.0)**(5.0/12.0)
+ meshScalingDel4(iEdge) = 1.0 / (meshScalingDel2(iEdge))**2
enddo
endif
</font>
</pre>