<p><b>mpetersen@lanl.gov</b> 2011-02-23 05:04:31 -0700 (Wed, 23 Feb 2011)</p><p>BRANCH COMMIT: Some minor changes to vertical advection branch.<br>
</p><hr noshade><pre><font color="gray">Modified: branches/ocean_projects/vert_adv_mrp/src/core_ocean/module_time_integration.F
===================================================================
--- branches/ocean_projects/vert_adv_mrp/src/core_ocean/module_time_integration.F        2011-02-22 17:48:59 UTC (rev 741)
+++ branches/ocean_projects/vert_adv_mrp/src/core_ocean/module_time_integration.F        2011-02-23 12:04:31 UTC (rev 742)
@@ -893,10 +893,7 @@
!
! tracer tendency: vertical advection term -d/dz( h \phi w)
!
-!mrp 110222
- call TestInterpolate
- stop
-!mrp 110222
+
if (config_vert_grid_type.eq.'zlevel') then
allocate(tracerTop(num_tracers,nVertLevels+1,nCells))
@@ -1053,8 +1050,8 @@
print *, 'Abort: Incorrect combination of ', &
'config_vert_tracer_adv and config_vert_tracer_adv_order.'
print *, 'Use:'
- print *, 'config_vert_tracer_adv=''stencil'' and_vert_tracer_adv_order=2,3,4 or'
- print *, 'config_vert_tracer_adv=''spline'' and_vert_tracer_adv_order=2,3'
+ print *, 'config_vert_tracer_adv=''stencil'' and config_vert_tracer_adv_order=2,3,4 or'
+ print *, 'config_vert_tracer_adv=''spline'' and config_vert_tracer_adv_order=2,3'
call dmpar_abort(dminfo)
endif ! vertical tracer advection method
</font>
</pre>