<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 :: &
h_s, fVertex, fEdge, dvEdge, dcEdge, areaCell, areaTriangle
real (kind=RKIND), dimension(:,:), pointer :: &
- u,h,wTop, h_edge, vertDiffTopOfCell
+ u, uTransport, h,wTop, h_edge, vertDiffTopOfCell
real (kind=RKIND), dimension(:,:,:), pointer :: &
tracers, tend_tr
integer, dimension(:,:), pointer :: boundaryEdge
@@ -470,6 +470,7 @@
call mpas_timer_start("ocn_tend_scalar")
u => s % u % array
+ uTransport => s % uTransport % array
h => s % h % array
boundaryCell=> grid % boundaryCell % array
wTop => s % wTop % array
@@ -519,7 +520,7 @@
call mpas_timer_start("ocn_tend_scalar-horiz adv")
- 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("ocn_tend_scalar-horiz adv")
</font>
</pre>