/[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.2 by cnh, Fri Apr 24 02:05:42 1998 UTC revision 1.3 by cnh, Thu May 21 18:25:49 1998 UTC
# Line 53  C--   thread 1 will do all the writes. Line 53  C--   thread 1 will do all the writes.
53        IF ( myThid .EQ. 1 ) THEN        IF ( myThid .EQ. 1 ) THEN
54  C--    Form name for identifying "plot"  C--    Form name for identifying "plot"
55         IF ( myIter .GE. 0 ) THEN         IF ( myIter .GE. 0 ) THEN
56          WRITE(fldTitle,'(A,A,A,I4)') '// Field ', fldNam, ' at iteration ',          WRITE(fldTitle,'(A,A,A,I10)') '// Field ', fldNam, ' at iteration ',
57       &  myIter       &  myIter
58         ELSE         ELSE
59          WRITE(fldTitle,'(A,A)') '// Field ', fldNam          WRITE(fldTitle,'(A,A)') '// Field ', fldNam
# Line 131  C--   thread 1 will do all the writes. Line 131  C--   thread 1 will do all the writes.
131        IF ( myThid .EQ. 1 ) THEN        IF ( myThid .EQ. 1 ) THEN
132  C--    Form name for identifying "plot"  C--    Form name for identifying "plot"
133         IF ( myIter .GE. 0 ) THEN         IF ( myIter .GE. 0 ) THEN
134          WRITE(fldTitle,'(A,A,A,I4)') '// Field ', fldNam, ' at iteration ',          WRITE(fldTitle,'(A,A,A,I10)') '// Field ', fldNam, ' at iteration ',
135       &  myIter       &  myIter
136         ELSE         ELSE
137          WRITE(fldTitle,'(A,A)') '// Field ', fldNam          WRITE(fldTitle,'(A,A)') '// Field ', fldNam
# Line 214  C--   thread 1 will do all the writes. Line 214  C--   thread 1 will do all the writes.
214        IF ( myThid .EQ. 1 ) THEN        IF ( myThid .EQ. 1 ) THEN
215  C--    Form name for identifying "plot"  C--    Form name for identifying "plot"
216         IF ( myIter .GE. 0 ) THEN         IF ( myIter .GE. 0 ) THEN
217          WRITE(fldTitle,'(A,A,A,I4)') '// Field ', fldNam, ' at iteration ',          WRITE(fldTitle,'(A,A,A,I10)') '// Field ', fldNam, ' at iteration ',
218       &  myIter       &  myIter
219         ELSE         ELSE
220          WRITE(fldTitle,'(A,A)') '// Field ', fldNam          WRITE(fldTitle,'(A,A)') '// Field ', fldNam
# Line 310  C--   thread 1 will do all the writes. Line 310  C--   thread 1 will do all the writes.
310        IF ( myThid .EQ. 1 ) THEN        IF ( myThid .EQ. 1 ) THEN
311  C--    Form name for identifying "plot"  C--    Form name for identifying "plot"
312         IF ( myIter .GE. 0 ) THEN         IF ( myIter .GE. 0 ) THEN
313          WRITE(fldTitle,'(A,A,A,I4)') '// Field ', fldNam, ' at iteration ',          WRITE(fldTitle,'(A,A,A,I10)') '// Field ', fldNam, ' at iteration ',
314       &  myIter       &  myIter
315         ELSE         ELSE
316          WRITE(fldTitle,'(A,A)') '// Field ', fldNam          WRITE(fldTitle,'(A,A)') '// Field ', fldNam
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22