--- MITgcm/model/src/plot_field.F	1998/09/29 18:50:57	1.6
+++ MITgcm/model/src/plot_field.F	1998/10/28 03:11:38	1.7
@@ -1,4 +1,4 @@
-C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/model/src/plot_field.F,v 1.6 1998/09/29 18:50:57 cnh Exp $
+C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/model/src/plot_field.F,v 1.7 1998/10/28 03:11:38 cnh Exp $
 
 #include "CPP_EEOPTIONS.h"
 
@@ -55,7 +55,8 @@
       IF ( myThid .EQ. 1 ) THEN
 C--    Form name for identifying "plot"
        IF ( myIter .GE. 0 ) THEN
-        WRITE(fldTitle,'(A,A,A,I10)') '// Field ', fldNam, ' at iteration ',
+        WRITE(fldTitle,'(A,A,A,I10)') 
+     &  '// Field ', fldNam, ' at iteration ',
      &  myIter
        ELSE
         WRITE(fldTitle,'(A,A)') '// Field ', fldNam
@@ -136,7 +137,8 @@
       IF ( myThid .EQ. 1 ) THEN
 C--    Form name for identifying "plot"
        IF ( myIter .GE. 0 ) THEN
-        WRITE(fldTitle,'(A,A,A,I10)') '// Field ', fldNam, ' at iteration ',
+        WRITE(fldTitle,'(A,A,A,I10)') 
+     &  '// Field ', fldNam, ' at iteration ',
      &  myIter
        ELSE
         WRITE(fldTitle,'(A,A)') '// Field ', fldNam
@@ -222,7 +224,8 @@
       IF ( myThid .EQ. 1 ) THEN
 C--    Form name for identifying "plot"
        IF ( myIter .GE. 0 ) THEN
-        WRITE(fldTitle,'(A,A,A,I10)') '// Field ', fldNam, ' at iteration ',
+        WRITE(fldTitle,'(A,A,A,I10)') 
+     &  '// Field ', fldNam, ' at iteration ',
      &  myIter
        ELSE
         WRITE(fldTitle,'(A,A)') '// Field ', fldNam
@@ -313,7 +316,8 @@
       IF ( myThid .EQ. 1 ) THEN
 C--    Form name for identifying "plot"
        IF ( myIter .GE. 0 ) THEN
-        WRITE(fldTitle,'(A,A,A,I10)') '// Field ', fldNam, ' at iteration ',
+        WRITE(fldTitle,'(A,A,A,I10)') 
+     &  '// Field ', fldNam, ' at iteration ',
      &  myIter
        ELSE
         WRITE(fldTitle,'(A,A)') '// Field ', fldNam