<p><b>ringler@lanl.gov</b> 2012-04-25 12:06:32 -0600 (Wed, 25 Apr 2012)</p><p><br>
change default scaling of del2 and del4 to go as (dx)^3.<br>
<br>
previously, del2 went as dx^5/3 and del4 went as dx^10/3<br>
</p><hr noshade><pre><font color="gray">Modified: trunk/mpas/src/core_ocean/mpas_ocn_mpas_core.F
===================================================================
--- trunk/mpas/src/core_ocean/mpas_ocn_mpas_core.F        2012-04-25 17:27:34 UTC (rev 1812)
+++ trunk/mpas/src/core_ocean/mpas_ocn_mpas_core.F        2012-04-25 18:06:32 UTC (rev 1813)
@@ -923,8 +923,8 @@
          do iEdge=1,mesh%nEdges
             cell1 = mesh % cellsOnEdge % array(1,iEdge)
             cell2 = mesh % cellsOnEdge % array(2,iEdge)
-            meshScalingDel2(iEdge) = 1.0 / ( (meshDensity(cell1) + meshDensity(cell2) )/2.0)**(5.0/12.0)
-            meshScalingDel4(iEdge) = 1.0 / ( (meshDensity(cell1) + meshDensity(cell2) )/2.0)**(5.0/6.0)
+            meshScalingDel2(iEdge) = 1.0 / ( (meshDensity(cell1) + meshDensity(cell2) )/2.0)**(3.0/4.0)  ! goes as dc**3
+            meshScalingDel4(iEdge) = 1.0 / ( (meshDensity(cell1) + meshDensity(cell2) )/2.0)**(3.0/4.0)  ! goes as dc**3
          end do
       end if
 

</font>
</pre>