<p><b>mpetersen@lanl.gov</b> 2013-02-21 17:11:33 -0700 (Thu, 21 Feb 2013)</p><p>branch commit: sea_level_pressure. Remove from output file, add comment.<br>
</p><hr noshade><pre><font color="gray">Modified: branches/ocean_projects/sea_level_pressure/src/core_ocean/Registry
===================================================================
--- branches/ocean_projects/sea_level_pressure/src/core_ocean/Registry        2013-02-21 22:21:25 UTC (rev 2503)
+++ branches/ocean_projects/sea_level_pressure/src/core_ocean/Registry        2013-02-22 00:11:33 UTC (rev 2504)
@@ -373,4 +373,4 @@
var persistent integer kiteIndexOnCell ( maxEdges nCells ) 0 - kiteIndexOnCell mesh - -
% Sea level pressure, for coupling
-var persistent real seaLevelPressure ( nCells Time ) 0 iro seaLevelPressure mesh - -
+var persistent real seaLevelPressure ( nCells Time ) 0 ir seaLevelPressure mesh - -
Modified: branches/ocean_projects/sea_level_pressure/src/core_ocean/mpas_ocn_diagnostics.F
===================================================================
--- branches/ocean_projects/sea_level_pressure/src/core_ocean/mpas_ocn_diagnostics.F        2013-02-21 22:21:25 UTC (rev 2503)
+++ branches/ocean_projects/sea_level_pressure/src/core_ocean/mpas_ocn_diagnostics.F        2013-02-22 00:11:33 UTC (rev 2504)
@@ -424,8 +424,9 @@
else
do iCell=1,nCells
- ! pressure for generalized coordinates
- ! assume atmospheric pressure at the surface is zero for now.
+ ! Pressure for generalized coordinates.
+ ! Pressure at top surface may be due to atmospheric pressure
+ ! or an ice-shelf depression.
pressure(1,iCell) = seaLevelPressure(iCell) + rho(1,iCell)*gravity &
* 0.5*h(1,iCell)
</font>
</pre>