/[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.5 by cnh, Mon Jun 15 05:13:56 1998 UTC revision 1.8 by cnh, Fri Nov 6 22:44:48 1998 UTC
# Line 1  Line 1 
1  C $Header$  C $Header$
2    
3  #include "CPP_EEOPTIONS.h"  #include "CPP_OPTIONS.h"
4    
5  C--   File plot_field.F: Routines for "formatted" I/O in the MITgcm UV  C--   File plot_field.F: Routines for "formatted" I/O in the MITgcm UV
6  C--                      implementation.  C--                      implementation.
# Line 51  C     == Local variables == Line 51  C     == Local variables ==
51    
52  C--   To get around synchronisation and multi-threaded I/O issues  C--   To get around synchronisation and multi-threaded I/O issues
53  C--   thread 1 will do all the writes.  C--   thread 1 will do all the writes.
54          _BARRIER
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 85  C      Substitute other plotting utiliti Line 87  C      Substitute other plotting utiliti
87       I        biStart,  biEnd, biStride,       I        biStart,  biEnd, biStride,
88       I        bjStart,  bjEnd, bjStride )       I        bjStart,  bjEnd, bjStride )
89        ENDIF        ENDIF
90          _BARRIER
91    
92        RETURN        RETURN
93        END        END
# Line 130  C     == Local variables == Line 133  C     == Local variables ==
133    
134  C--   To get around synchronisation and multi-threaded I/O issues  C--   To get around synchronisation and multi-threaded I/O issues
135  C--   thread 1 will do all the writes.  C--   thread 1 will do all the writes.
136          _BARRIER
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 164  C      Substitute other plotting utiliti Line 169  C      Substitute other plotting utiliti
169       I        biStart,  biEnd, biStride,       I        biStart,  biEnd, biStride,
170       I        bjStart,  bjEnd, bjStride )       I        bjStart,  bjEnd, bjStride )
171        ENDIF        ENDIF
172          _BARRIER
173    
174        RETURN        RETURN
175        END        END
# Line 214  C     == Local variables == Line 220  C     == Local variables ==
220    
221  C--   To get around synchronisation and multi-threaded I/O issues  C--   To get around synchronisation and multi-threaded I/O issues
222  C--   thread 1 will do all the writes.  C--   thread 1 will do all the writes.
223          _BARRIER
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 253  C      jEnd     =  1 Line 261  C      jEnd     =  1
261       I        biStart,  biEnd, biStride,       I        biStart,  biEnd, biStride,
262       I        bjStart,  bjEnd, bjStride )       I        bjStart,  bjEnd, bjStride )
263        ENDIF        ENDIF
264          _BARRIER
265    
266        RETURN        RETURN
267        END        END
# Line 303  C     == Local variables == Line 312  C     == Local variables ==
312    
313  C--   To get around synchronisation and multi-threaded I/O issues  C--   To get around synchronisation and multi-threaded I/O issues
314  C--   thread 1 will do all the writes.  C--   thread 1 will do all the writes.
315          _BARRIER
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
# Line 342  C      Substitute other plotting utiliti Line 353  C      Substitute other plotting utiliti
353       I        biStart,  biEnd, biStride,       I        biStart,  biEnd, biStride,
354       I        bjStart,  bjEnd, bjStride )       I        bjStart,  bjEnd, bjStride )
355        ENDIF        ENDIF
356          _BARRIER
357    
358        RETURN        RETURN
359        END        END
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22