/[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.6 by cnh, Tue Sep 29 18:50:57 1998 UTC
# 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
# Line 85  C      Substitute other plotting utiliti Line 86  C      Substitute other plotting utiliti
86       I        biStart,  biEnd, biStride,       I        biStart,  biEnd, biStride,
87       I        bjStart,  bjEnd, bjStride )       I        bjStart,  bjEnd, bjStride )
88        ENDIF        ENDIF
89          _BARRIER
90    
91        RETURN        RETURN
92        END        END
# Line 130  C     == Local variables == Line 132  C     == Local variables ==
132    
133  C--   To get around synchronisation and multi-threaded I/O issues  C--   To get around synchronisation and multi-threaded I/O issues
134  C--   thread 1 will do all the writes.  C--   thread 1 will do all the writes.
135          _BARRIER
136        IF ( myThid .EQ. 1 ) THEN        IF ( myThid .EQ. 1 ) THEN
137  C--    Form name for identifying "plot"  C--    Form name for identifying "plot"
138         IF ( myIter .GE. 0 ) THEN         IF ( myIter .GE. 0 ) THEN
# Line 164  C      Substitute other plotting utiliti Line 167  C      Substitute other plotting utiliti
167       I        biStart,  biEnd, biStride,       I        biStart,  biEnd, biStride,
168       I        bjStart,  bjEnd, bjStride )       I        bjStart,  bjEnd, bjStride )
169        ENDIF        ENDIF
170          _BARRIER
171    
172        RETURN        RETURN
173        END        END
# Line 214  C     == Local variables == Line 218  C     == Local variables ==
218    
219  C--   To get around synchronisation and multi-threaded I/O issues  C--   To get around synchronisation and multi-threaded I/O issues
220  C--   thread 1 will do all the writes.  C--   thread 1 will do all the writes.
221          _BARRIER
222        IF ( myThid .EQ. 1 ) THEN        IF ( myThid .EQ. 1 ) THEN
223  C--    Form name for identifying "plot"  C--    Form name for identifying "plot"
224         IF ( myIter .GE. 0 ) THEN         IF ( myIter .GE. 0 ) THEN
# Line 253  C      jEnd     =  1 Line 258  C      jEnd     =  1
258       I        biStart,  biEnd, biStride,       I        biStart,  biEnd, biStride,
259       I        bjStart,  bjEnd, bjStride )       I        bjStart,  bjEnd, bjStride )
260        ENDIF        ENDIF
261          _BARRIER
262    
263        RETURN        RETURN
264        END        END
# Line 303  C     == Local variables == Line 309  C     == Local variables ==
309    
310  C--   To get around synchronisation and multi-threaded I/O issues  C--   To get around synchronisation and multi-threaded I/O issues
311  C--   thread 1 will do all the writes.  C--   thread 1 will do all the writes.
312          _BARRIER
313        IF ( myThid .EQ. 1 ) THEN        IF ( myThid .EQ. 1 ) THEN
314  C--    Form name for identifying "plot"  C--    Form name for identifying "plot"
315         IF ( myIter .GE. 0 ) THEN         IF ( myIter .GE. 0 ) THEN
# Line 342  C      Substitute other plotting utiliti Line 349  C      Substitute other plotting utiliti
349       I        biStart,  biEnd, biStride,       I        biStart,  biEnd, biStride,
350       I        bjStart,  bjEnd, bjStride )       I        bjStart,  bjEnd, bjStride )
351        ENDIF        ENDIF
352          _BARRIER
353    
354        RETURN        RETURN
355        END        END
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22