<p><b>xylar@lanl.gov</b> 2010-06-01 09:18:45 -0600 (Tue, 01 Jun 2010)</p><p>BRANCH COMMIT<br>
<br>
Fixed incorrect indexing in zonal and meridional velocity reconstruction, oops!<br>
</p><hr noshade><pre><font color="gray">Modified: branches/ocean_projects/IBinterp/mpas/src/operators/module_vector_reconstruction.F
===================================================================
--- branches/ocean_projects/IBinterp/mpas/src/operators/module_vector_reconstruction.F        2010-05-28 17:55:41 UTC (rev 317)
+++ branches/ocean_projects/IBinterp/mpas/src/operators/module_vector_reconstruction.F        2010-06-01 15:18:45 UTC (rev 318)
@@ -188,10 +188,10 @@
         slat = sin(latCell(iCell))
         clon = cos(lonCell(iCell))
         slon = sin(lonCell(iCell))
-        uReconstructZonal(iCell,:) = -uReconstructX(iCell,:)*slon + uReconstructY(iCell,:)*clon
-        uReconstructMeridional(iCell,:) = (uReconstructX(iCell,:)*clon &amp;
-          + uReconstructY(iCell,:)*slon)*slat &amp;
-          + uReconstructZ(iCell,:)*clat
+        uReconstructZonal(:,iCell) = -uReconstructX(:,iCell)*slon + uReconstructY(:,iCell)*clon
+        uReconstructMeridional(:,iCell) = (uReconstructX(:,iCell)*clon &amp;
+          + uReconstructY(:,iCell)*slon)*slat &amp;
+          + uReconstructZ(:,iCell)*clat
       end do
     else
       uReconstructZonal = uReconstructX

</font>
</pre>