<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>