<p><b>qchen3@fsu.edu</b> 2012-02-02 11:01:18 -0700 (Thu, 02 Feb 2012)</p><p>BRANCH COMMIT<br>
<br>
>From now on the tracers will be transported by uTransport, which contains u, and updated with<br>
 uBolusGM (from GM closure), and any other bolus-like parametrizations that we may implement <br>
in the future. <br>
</p><hr noshade><pre><font color="gray">Modified: branches/ocean_projects/gmvar/src/core_ocean/mpas_ocn_tendency.F
===================================================================
--- branches/ocean_projects/gmvar/src/core_ocean/mpas_ocn_tendency.F        2012-02-02 16:43:04 UTC (rev 1451)
+++ branches/ocean_projects/gmvar/src/core_ocean/mpas_ocn_tendency.F        2012-02-02 18:01:18 UTC (rev 1452)
@@ -443,7 +443,7 @@
       real (kind=RKIND), dimension(:), pointer :: &amp;
         h_s, fVertex, fEdge, dvEdge, dcEdge, areaCell, areaTriangle
       real (kind=RKIND), dimension(:,:), pointer :: &amp;
-        u,h,wTop, h_edge, vertDiffTopOfCell
+        u, uTransport, h,wTop, h_edge, vertDiffTopOfCell
       real (kind=RKIND), dimension(:,:,:), pointer :: &amp;
         tracers, tend_tr
       integer, dimension(:,:), pointer :: boundaryEdge
@@ -470,6 +470,7 @@
       call mpas_timer_start(&quot;ocn_tend_scalar&quot;)
 
       u           =&gt; s % u % array
+      uTransport           =&gt; s % uTransport % array
       h           =&gt; s % h % array
       boundaryCell=&gt; grid % boundaryCell % array
       wTop        =&gt; s % wTop % array
@@ -519,7 +520,7 @@
 
       call mpas_timer_start(&quot;ocn_tend_scalar-horiz adv&quot;)
 
-      call ocn_tracer_hadv_tend(grid, u, h_edge, tracers, tend_tr, err)
+      call ocn_tracer_hadv_tend(grid, uTransport, h_edge, tracers, tend_tr, err)
 
       call mpas_timer_stop(&quot;ocn_tend_scalar-horiz adv&quot;)
 

</font>
</pre>