/[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.9 by adcroft, Wed Dec 9 16:11:53 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 26  C     | point etc.. Line 26  C     | point etc..
26  C     | Other plot formats can also be substituted here.         |  C     | Other plot formats can also be substituted here.         |
27  C     | _RS is usually REAL*4                                    |  C     | _RS is usually REAL*4                                    |
28  C     \==========================================================/  C     \==========================================================/
29          IMPLICIT NONE
30    
31  #include "SIZE.h"  #include "SIZE.h"
32  #include "EEPARAMS.h"  #include "EEPARAMS.h"
33  #include "PARAMS.h"  #include "PARAMS.h"
# Line 51  C     == Local variables == Line 53  C     == Local variables ==
53    
54  C--   To get around synchronisation and multi-threaded I/O issues  C--   To get around synchronisation and multi-threaded I/O issues
55  C--   thread 1 will do all the writes.  C--   thread 1 will do all the writes.
56          _BARRIER
57        IF ( myThid .EQ. 1 ) THEN        IF ( myThid .EQ. 1 ) THEN
58  C--    Form name for identifying "plot"  C--    Form name for identifying "plot"
59         IF ( myIter .GE. 0 ) THEN         IF ( myIter .GE. 0 ) THEN
60          WRITE(fldTitle,'(A,A,A,I10)') '// Field ', fldNam, ' at iteration ',          WRITE(fldTitle,'(A,A,A,I10)')
61         &  '// Field ', fldNam, ' at iteration ',
62       &  myIter       &  myIter
63         ELSE         ELSE
64          WRITE(fldTitle,'(A,A)') '// Field ', fldNam          WRITE(fldTitle,'(A,A)') '// Field ', fldNam
# Line 85  C      Substitute other plotting utiliti Line 89  C      Substitute other plotting utiliti
89       I        biStart,  biEnd, biStride,       I        biStart,  biEnd, biStride,
90       I        bjStart,  bjEnd, bjStride )       I        bjStart,  bjEnd, bjStride )
91        ENDIF        ENDIF
92          _BARRIER
93    
94        RETURN        RETURN
95        END        END
# Line 105  C     | point etc.. Line 110  C     | point etc..
110  C     | Other plot formats can also be substituted here.         |  C     | Other plot formats can also be substituted here.         |
111  C     | _RL is usually REAL*8                                    |  C     | _RL is usually REAL*8                                    |
112  C     \==========================================================/  C     \==========================================================/
113          IMPLICIT NONE
114    
115  #include "SIZE.h"  #include "SIZE.h"
116  #include "EEPARAMS.h"  #include "EEPARAMS.h"
117  #include "PARAMS.h"  #include "PARAMS.h"
# Line 130  C     == Local variables == Line 137  C     == Local variables ==
137    
138  C--   To get around synchronisation and multi-threaded I/O issues  C--   To get around synchronisation and multi-threaded I/O issues
139  C--   thread 1 will do all the writes.  C--   thread 1 will do all the writes.
140          _BARRIER
141        IF ( myThid .EQ. 1 ) THEN        IF ( myThid .EQ. 1 ) THEN
142  C--    Form name for identifying "plot"  C--    Form name for identifying "plot"
143         IF ( myIter .GE. 0 ) THEN         IF ( myIter .GE. 0 ) THEN
144          WRITE(fldTitle,'(A,A,A,I10)') '// Field ', fldNam, ' at iteration ',          WRITE(fldTitle,'(A,A,A,I10)')
145         &  '// Field ', fldNam, ' at iteration ',
146       &  myIter       &  myIter
147         ELSE         ELSE
148          WRITE(fldTitle,'(A,A)') '// Field ', fldNam          WRITE(fldTitle,'(A,A)') '// Field ', fldNam
# Line 164  C      Substitute other plotting utiliti Line 173  C      Substitute other plotting utiliti
173       I        biStart,  biEnd, biStride,       I        biStart,  biEnd, biStride,
174       I        bjStart,  bjEnd, bjStride )       I        bjStart,  bjEnd, bjStride )
175        ENDIF        ENDIF
176          _BARRIER
177    
178        RETURN        RETURN
179        END        END
# Line 184  C     | point etc.. Line 194  C     | point etc..
194  C     | Other plot formats can also be substituted here.         |  C     | Other plot formats can also be substituted here.         |
195  C     | _RS is usually a REAL*4 field                            |  C     | _RS is usually a REAL*4 field                            |
196  C     \==========================================================/  C     \==========================================================/
197          IMPLICIT NONE
198    
199  #include "SIZE.h"  #include "SIZE.h"
200  #include "EEPARAMS.h"  #include "EEPARAMS.h"
201  #include "PARAMS.h"  #include "PARAMS.h"
# Line 214  C     == Local variables == Line 226  C     == Local variables ==
226    
227  C--   To get around synchronisation and multi-threaded I/O issues  C--   To get around synchronisation and multi-threaded I/O issues
228  C--   thread 1 will do all the writes.  C--   thread 1 will do all the writes.
229          _BARRIER
230        IF ( myThid .EQ. 1 ) THEN        IF ( myThid .EQ. 1 ) THEN
231  C--    Form name for identifying "plot"  C--    Form name for identifying "plot"
232         IF ( myIter .GE. 0 ) THEN         IF ( myIter .GE. 0 ) THEN
233          WRITE(fldTitle,'(A,A,A,I10)') '// Field ', fldNam, ' at iteration ',          WRITE(fldTitle,'(A,A,A,I10)')
234         &  '// Field ', fldNam, ' at iteration ',
235       &  myIter       &  myIter
236         ELSE         ELSE
237          WRITE(fldTitle,'(A,A)') '// Field ', fldNam          WRITE(fldTitle,'(A,A)') '// Field ', fldNam
# Line 253  C      jEnd     =  1 Line 267  C      jEnd     =  1
267       I        biStart,  biEnd, biStride,       I        biStart,  biEnd, biStride,
268       I        bjStart,  bjEnd, bjStride )       I        bjStart,  bjEnd, bjStride )
269        ENDIF        ENDIF
270          _BARRIER
271    
272        RETURN        RETURN
273        END        END
# Line 273  C     | point etc.. Line 288  C     | point etc..
288  C     | Other plot formats can also be substituted here.         |  C     | Other plot formats can also be substituted here.         |
289  C     | _RL is usually a REAL*8 field                            |  C     | _RL is usually a REAL*8 field                            |
290  C     \==========================================================/  C     \==========================================================/
291          IMPLICIT NONE
292    
293  #include "SIZE.h"  #include "SIZE.h"
294  #include "EEPARAMS.h"  #include "EEPARAMS.h"
295  #include "PARAMS.h"  #include "PARAMS.h"
# Line 303  C     == Local variables == Line 320  C     == Local variables ==
320    
321  C--   To get around synchronisation and multi-threaded I/O issues  C--   To get around synchronisation and multi-threaded I/O issues
322  C--   thread 1 will do all the writes.  C--   thread 1 will do all the writes.
323          _BARRIER
324        IF ( myThid .EQ. 1 ) THEN        IF ( myThid .EQ. 1 ) THEN
325  C--    Form name for identifying "plot"  C--    Form name for identifying "plot"
326         IF ( myIter .GE. 0 ) THEN         IF ( myIter .GE. 0 ) THEN
327          WRITE(fldTitle,'(A,A,A,I10)') '// Field ', fldNam, ' at iteration ',          WRITE(fldTitle,'(A,A,A,I10)')
328         &  '// Field ', fldNam, ' at iteration ',
329       &  myIter       &  myIter
330         ELSE         ELSE
331          WRITE(fldTitle,'(A,A)') '// Field ', fldNam          WRITE(fldTitle,'(A,A)') '// Field ', fldNam
# Line 342  C      Substitute other plotting utiliti Line 361  C      Substitute other plotting utiliti
361       I        biStart,  biEnd, biStride,       I        biStart,  biEnd, biStride,
362       I        bjStart,  bjEnd, bjStride )       I        bjStart,  bjEnd, bjStride )
363        ENDIF        ENDIF
364          _BARRIER
365    
366        RETURN        RETURN
367        END        END
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.9
  ViewVC Help
Powered by ViewVC 1.1.22