<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 &amp;
               * 0.5*h(1,iCell)
 

</font>
</pre>