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 |
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 |
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 |
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 |