<p><b>duda</b> 2013-02-28 11:33:55 -0700 (Thu, 28 Feb 2013)</p><p>BRANCH COMMIT<br>
<br>
The cellTangentPlane field was incorrectly dimensioned as ( R3 TWO nEdges ); change these<br>
dimensions to ( R3 TWO nCells ). This change should have no effect on results, since edge-based<br>
arrays are larger than cell-based arrays -- hence no overrunning of array bounds -- and also<br>
since we re-compute the cellTangentPlane field when the model starts up, rather than using <br>
the field from the IC file. However, correctness is always good, as is saving a factor <br>
of three in writing this field to history and restart files.<br>
<br>
*** This change should also be applied to other cores. ***<br>
<br>
<br>
M    src/core_init_nhyd_atmos/Registry<br>
M    src/core_nhyd_atmos/Registry<br>
</p><hr noshade><pre><font color="gray">Modified: branches/atmos_physics/src/core_init_nhyd_atmos/Registry
===================================================================
--- branches/atmos_physics/src/core_init_nhyd_atmos/Registry        2013-02-28 18:20:10 UTC (rev 2516)
+++ branches/atmos_physics/src/core_init_nhyd_atmos/Registry        2013-02-28 18:33:55 UTC (rev 2517)
@@ -108,7 +108,7 @@
 
 var persistent real    edgeNormalVectors ( R3 nEdges ) 0 io edgeNormalVectors mesh - -
 var persistent real    localVerticalUnitVectors ( R3 nCells ) 0 io localVerticalUnitVectors mesh - -
-var persistent real    cellTangentPlane ( R3 TWO nEdges ) 0 io cellTangentPlane mesh - -
+var persistent real    cellTangentPlane ( R3 TWO nCells ) 0 io cellTangentPlane mesh - -
 
 var persistent integer cellsOnCell ( maxEdges nCells ) 0 io cellsOnCell mesh - -
 var persistent integer verticesOnCell ( maxEdges nCells ) 0 io verticesOnCell mesh - -

Modified: branches/atmos_physics/src/core_nhyd_atmos/Registry
===================================================================
--- branches/atmos_physics/src/core_nhyd_atmos/Registry        2013-02-28 18:20:10 UTC (rev 2516)
+++ branches/atmos_physics/src/core_nhyd_atmos/Registry        2013-02-28 18:33:55 UTC (rev 2517)
@@ -115,7 +115,7 @@
 
 var persistent real    edgeNormalVectors ( R3 nEdges ) 0 iro edgeNormalVectors mesh - -
 var persistent real    localVerticalUnitVectors ( R3 nCells ) 0 iro localVerticalUnitVectors mesh - -
-var persistent real    cellTangentPlane ( R3 TWO nEdges ) 0 iro cellTangentPlane mesh - -
+var persistent real    cellTangentPlane ( R3 TWO nCells ) 0 iro cellTangentPlane mesh - -
 
 var persistent integer cellsOnCell ( maxEdges nCells ) 0 iro cellsOnCell mesh - -
 var persistent integer verticesOnCell ( maxEdges nCells ) 0 iro verticesOnCell mesh - -

</font>
</pre>