<p><b>xylar@lanl.gov</b> 2010-06-02 16:11:27 -0600 (Wed, 02 Jun 2010)</p><p>BRANCH COMMIT<br>
<br>
Removing the matlab test files which should NOT get committed to the trunk<br>
<br>
Replaced the Makefile with the one from the trunk (changes I made were for testing and shouldn't have been committed)<br>
<br>
Added Michael's suggested changes module_RBF_interpolation:<br>
 * comments for rbfInterp_initialize fixed to refer to the proper registry variables<br>
 * exit_MPAS() routine removed (not needed or used)<br>
 <br>
</p><hr noshade><pre><font color="gray">Modified: branches/ocean_projects/IBinterp/mpas/Makefile
===================================================================
--- branches/ocean_projects/IBinterp/mpas/Makefile        2010-06-02 14:19:06 UTC (rev 325)
+++ branches/ocean_projects/IBinterp/mpas/Makefile        2010-06-02 22:11:27 UTC (rev 326)
@@ -1,7 +1,7 @@
 #MODEL_FORMULATION = -DNCAR_FORMULATION
 MODEL_FORMULATION = -DLANL_FORMULATION
 
-#EXPAND_LEVELS = -DEXPAND_LEVELS=26
+EXPAND_LEVELS = -DEXPAND_LEVELS=26
 FILE_OFFSET = -DOFFSET64BIT
 
 #########################

Modified: branches/ocean_projects/IBinterp/mpas/src/operators/module_RBF_interpolation.F
===================================================================
--- branches/ocean_projects/IBinterp/mpas/src/operators/module_RBF_interpolation.F        2010-06-02 14:19:06 UTC (rev 325)
+++ branches/ocean_projects/IBinterp/mpas/src/operators/module_RBF_interpolation.F        2010-06-02 22:11:27 UTC (rev 326)
@@ -101,12 +101,12 @@
   ! Input: the grid
   !
   ! Output: 
-  !  radialUnitVectors - the unit vector in the radial direction at each cell center
   !  edgeNormalVectors - the unit vector at the center of each edge tangent to the sphere
-  !  edgeLocations - the location of each edge center in cartesian coordinates
-  !  cellTangentPlane - 2 orthoginal unit vectors in the tangent plane of each cell
+  !  cellTangentPlane - 2 orthogonal unit vectors in the tangent plane of each cell
   !                     The first unit vector is chosen to point toward the center of the first
   !                     edge on the cell.
+  !  localVerticalUnitVectors - the unit normal vector of the tangent plane at the center 
+  !                             of each cell
   !       
   !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 
 
@@ -1414,13 +1414,6 @@
 ! private subroutines
 !!!!!!!!!!!!!!!!!!!!!
 
-  subroutine exit_MPAS(string)
-    character(len=*), intent(in) :: string
-
-    write(0,*) string
-    stop
-  end subroutine exit_MPAS
-
   function evaluateRBF(rSquared) result(rbfValue)
     real(kind=RKIND), intent(in) :: rSquared
     real(kind=RKIND) :: rbfValue

</font>
</pre>