--- MITgcm/lsopt/dgscale.F	2003/11/19 19:07:02	1.3
+++ MITgcm/lsopt/dgscale.F	2004/09/09 15:51:26	1.4
@@ -50,7 +50,7 @@
       do i = 1, nn
 cph(
          if (diag(i).LE.0) then
-            print *, 'pathei-lsopt: in dgscale; diag = 0 for i=', i
+cph            print *, 'pathei-lsopt: in dgscale; diag = 0 for i=', i
             diag(i) = rmin
          end if
 cph)