<p><b>dwj07@fsu.edu</b> 2012-10-23 11:48:04 -0600 (Tue, 23 Oct 2012)</p><p><br>
        -- TRUNK COMMIT --<br>
        core_ocean only<br>
<br>
        Making non-debug simulations output less error messages.<br>
</p><hr noshade><pre><font color="gray">Modified: trunk/mpas/src/core_ocean/mpas_ocn_mpas_core.F
===================================================================
--- trunk/mpas/src/core_ocean/mpas_ocn_mpas_core.F        2012-10-23 13:39:00 UTC (rev 2260)
+++ trunk/mpas/src/core_ocean/mpas_ocn_mpas_core.F        2012-10-23 17:48:04 UTC (rev 2261)
@@ -561,6 +561,7 @@
       real (kind=RKIND), dimension(:,:), pointer :: h
       real (kind=RKIND), dimension(:,:,:), pointer :: tracers
       integer :: nVertLevels
+      logical :: consistentSSH
 
       ! Initialize z-level grid variables from h, read in from input file.
       block =&gt; domain % blocklist
@@ -699,15 +700,23 @@
          endif
 
          if (config_check_ssh_consistency) then
+            consistentSSH = .true.
             do iCell = 1,nCells
                ! Check if abs(ssh)&gt;2m.  If so, print warning.
                if (abs(sum(h(1:maxLevelCell(iCell),iCell))-bottomDepth(iCell))&gt;2.0) then
+                  consistentSSH = .false.
+#ifdef MPAS_DEBUG
                   write (0,'(a)') ' Warning: abs(sum(h)-bottomDepth)&gt;2m.  Most likely, initial h does not match bottomDepth.'
                   write (0,*) ' iCell, K=maxLevelCell(iCell), bottomDepth(iCell),sum(h),bottomDepth,hZLevel(K),h(K): ', &amp;
                                 iCell, maxLevelCell(iCell), bottomDepth(iCell),sum(h(1:maxLevelCell(iCell),iCell)),bottomDepth(iCell), &amp;
                                 hZLevel(maxLevelCell(iCell)), h(maxLevelCell(iCell),iCell)
+#endif                            
                endif
             enddo
+
+            if (.not. consistentSSH) then
+               write(0,*) 'Warning: SSH is not consisntent'
+            end if
          endif
 
          if (config_check_zlevel_consistency) then

</font>
</pre>