/[MITgcm]/MITgcm/model/src/plot_field.F
ViewVC logotype

Diff of /MITgcm/model/src/plot_field.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.6 by cnh, Tue Sep 29 18:50:57 1998 UTC revision 1.7 by cnh, Wed Oct 28 03:11:38 1998 UTC
# Line 55  C--   thread 1 will do all the writes. Line 55  C--   thread 1 will do all the writes.
55        IF ( myThid .EQ. 1 ) THEN        IF ( myThid .EQ. 1 ) THEN
56  C--    Form name for identifying "plot"  C--    Form name for identifying "plot"
57         IF ( myIter .GE. 0 ) THEN         IF ( myIter .GE. 0 ) THEN
58          WRITE(fldTitle,'(A,A,A,I10)') '// Field ', fldNam, ' at iteration ',          WRITE(fldTitle,'(A,A,A,I10)')
59         &  '// Field ', fldNam, ' at iteration ',
60       &  myIter       &  myIter
61         ELSE         ELSE
62          WRITE(fldTitle,'(A,A)') '// Field ', fldNam          WRITE(fldTitle,'(A,A)') '// Field ', fldNam
# Line 136  C--   thread 1 will do all the writes. Line 137  C--   thread 1 will do all the writes.
137        IF ( myThid .EQ. 1 ) THEN        IF ( myThid .EQ. 1 ) THEN
138  C--    Form name for identifying "plot"  C--    Form name for identifying "plot"
139         IF ( myIter .GE. 0 ) THEN         IF ( myIter .GE. 0 ) THEN
140          WRITE(fldTitle,'(A,A,A,I10)') '// Field ', fldNam, ' at iteration ',          WRITE(fldTitle,'(A,A,A,I10)')
141         &  '// Field ', fldNam, ' at iteration ',
142       &  myIter       &  myIter
143         ELSE         ELSE
144          WRITE(fldTitle,'(A,A)') '// Field ', fldNam          WRITE(fldTitle,'(A,A)') '// Field ', fldNam
# Line 222  C--   thread 1 will do all the writes. Line 224  C--   thread 1 will do all the writes.
224        IF ( myThid .EQ. 1 ) THEN        IF ( myThid .EQ. 1 ) THEN
225  C--    Form name for identifying "plot"  C--    Form name for identifying "plot"
226         IF ( myIter .GE. 0 ) THEN         IF ( myIter .GE. 0 ) THEN
227          WRITE(fldTitle,'(A,A,A,I10)') '// Field ', fldNam, ' at iteration ',          WRITE(fldTitle,'(A,A,A,I10)')
228         &  '// Field ', fldNam, ' at iteration ',
229       &  myIter       &  myIter
230         ELSE         ELSE
231          WRITE(fldTitle,'(A,A)') '// Field ', fldNam          WRITE(fldTitle,'(A,A)') '// Field ', fldNam
# Line 313  C--   thread 1 will do all the writes. Line 316  C--   thread 1 will do all the writes.
316        IF ( myThid .EQ. 1 ) THEN        IF ( myThid .EQ. 1 ) THEN
317  C--    Form name for identifying "plot"  C--    Form name for identifying "plot"
318         IF ( myIter .GE. 0 ) THEN         IF ( myIter .GE. 0 ) THEN
319          WRITE(fldTitle,'(A,A,A,I10)') '// Field ', fldNam, ' at iteration ',          WRITE(fldTitle,'(A,A,A,I10)')
320         &  '// Field ', fldNam, ' at iteration ',
321       &  myIter       &  myIter
322         ELSE         ELSE
323          WRITE(fldTitle,'(A,A)') '// Field ', fldNam          WRITE(fldTitle,'(A,A)') '// Field ', fldNam
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22