/[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.11 by cnh, Sun Feb 4 14:38:48 2001 UTC
# Line 1  Line 1 
1  C $Header$  C $Header$
2    C $Name$
3    
4  #include "CPP_EEOPTIONS.h"  #include "CPP_OPTIONS.h"
5    
6  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
7  C--                      implementation.  C--                      implementation.
# Line 26  C     | point etc.. Line 27  C     | point etc..
27  C     | Other plot formats can also be substituted here.         |  C     | Other plot formats can also be substituted here.         |
28  C     | _RS is usually REAL*4                                    |  C     | _RS is usually REAL*4                                    |
29  C     \==========================================================/  C     \==========================================================/
30          IMPLICIT NONE
31    
32  #include "SIZE.h"  #include "SIZE.h"
33  #include "EEPARAMS.h"  #include "EEPARAMS.h"
34  #include "PARAMS.h"  #include "PARAMS.h"
# Line 51  C     == Local variables == Line 54  C     == Local variables ==
54    
55  C--   To get around synchronisation and multi-threaded I/O issues  C--   To get around synchronisation and multi-threaded I/O issues
56  C--   thread 1 will do all the writes.  C--   thread 1 will do all the writes.
57          _BARRIER
58        IF ( myThid .EQ. 1 ) THEN        IF ( myThid .EQ. 1 ) THEN
59  C--    Form name for identifying "plot"  C--    Form name for identifying "plot"
60         IF ( myIter .GE. 0 ) THEN         IF ( myIter .GE. 0 ) THEN
61          WRITE(fldTitle,'(A,A,A,I10)') '// Field ', fldNam, ' at iteration ',          WRITE(fldTitle,'(A,A,A,I10)')
62         &  '// Field ', fldNam, ' at iteration ',
63       &  myIter       &  myIter
64         ELSE         ELSE
65          WRITE(fldTitle,'(A,A)') '// Field ', fldNam          WRITE(fldTitle,'(A,A)') '// Field ', fldNam
# Line 85  C      Substitute other plotting utiliti Line 90  C      Substitute other plotting utiliti
90       I        biStart,  biEnd, biStride,       I        biStart,  biEnd, biStride,
91       I        bjStart,  bjEnd, bjStride )       I        bjStart,  bjEnd, bjStride )
92        ENDIF        ENDIF
93          _BARRIER
94    
95        RETURN        RETURN
96        END        END
# Line 105  C     | point etc.. Line 111  C     | point etc..
111  C     | Other plot formats can also be substituted here.         |  C     | Other plot formats can also be substituted here.         |
112  C     | _RL is usually REAL*8                                    |  C     | _RL is usually REAL*8                                    |
113  C     \==========================================================/  C     \==========================================================/
114          IMPLICIT NONE
115    
116  #include "SIZE.h"  #include "SIZE.h"
117  #include "EEPARAMS.h"  #include "EEPARAMS.h"
118  #include "PARAMS.h"  #include "PARAMS.h"
# Line 130  C     == Local variables == Line 138  C     == Local variables ==
138    
139  C--   To get around synchronisation and multi-threaded I/O issues  C--   To get around synchronisation and multi-threaded I/O issues
140  C--   thread 1 will do all the writes.  C--   thread 1 will do all the writes.
141          _BARRIER
142        IF ( myThid .EQ. 1 ) THEN        IF ( myThid .EQ. 1 ) THEN
143  C--    Form name for identifying "plot"  C--    Form name for identifying "plot"
144         IF ( myIter .GE. 0 ) THEN         IF ( myIter .GE. 0 ) THEN
145          WRITE(fldTitle,'(A,A,A,I10)') '// Field ', fldNam, ' at iteration ',          WRITE(fldTitle,'(A,A,A,I10)')
146         &  '// Field ', fldNam, ' at iteration ',
147       &  myIter       &  myIter
148         ELSE         ELSE
149          WRITE(fldTitle,'(A,A)') '// Field ', fldNam          WRITE(fldTitle,'(A,A)') '// Field ', fldNam
# Line 164  C      Substitute other plotting utiliti Line 174  C      Substitute other plotting utiliti
174       I        biStart,  biEnd, biStride,       I        biStart,  biEnd, biStride,
175       I        bjStart,  bjEnd, bjStride )       I        bjStart,  bjEnd, bjStride )
176        ENDIF        ENDIF
177          _BARRIER
178    
179        RETURN        RETURN
180        END        END
# Line 184  C     | point etc.. Line 195  C     | point etc..
195  C     | Other plot formats can also be substituted here.         |  C     | Other plot formats can also be substituted here.         |
196  C     | _RS is usually a REAL*4 field                            |  C     | _RS is usually a REAL*4 field                            |
197  C     \==========================================================/  C     \==========================================================/
198          IMPLICIT NONE
199    
200  #include "SIZE.h"  #include "SIZE.h"
201  #include "EEPARAMS.h"  #include "EEPARAMS.h"
202  #include "PARAMS.h"  #include "PARAMS.h"
# Line 214  C     == Local variables == Line 227  C     == Local variables ==
227    
228  C--   To get around synchronisation and multi-threaded I/O issues  C--   To get around synchronisation and multi-threaded I/O issues
229  C--   thread 1 will do all the writes.  C--   thread 1 will do all the writes.
230          _BARRIER
231        IF ( myThid .EQ. 1 ) THEN        IF ( myThid .EQ. 1 ) THEN
232  C--    Form name for identifying "plot"  C--    Form name for identifying "plot"
233         IF ( myIter .GE. 0 ) THEN         IF ( myIter .GE. 0 ) THEN
234          WRITE(fldTitle,'(A,A,A,I10)') '// Field ', fldNam, ' at iteration ',          WRITE(fldTitle,'(A,A,A,I10)')
235         &  '// Field ', fldNam, ' at iteration ',
236       &  myIter       &  myIter
237         ELSE         ELSE
238          WRITE(fldTitle,'(A,A)') '// Field ', fldNam          WRITE(fldTitle,'(A,A)') '// Field ', fldNam
# Line 235  C      jStart   =  sNy Line 250  C      jStart   =  sNy
250  C      jEnd     =  1  C      jEnd     =  1
251         jStride  = -1         jStride  = -1
252         kStart   =  1         kStart   =  1
253         kEnd     =  fldNz  C      kEnd     =  fldNz
254         kEnd     =  1         kEnd     =  1
255         kStride  =  1         kStride  =  1
256         biStart  =  1         biStart  =  1
# Line 253  C      jEnd     =  1 Line 268  C      jEnd     =  1
268       I        biStart,  biEnd, biStride,       I        biStart,  biEnd, biStride,
269       I        bjStart,  bjEnd, bjStride )       I        bjStart,  bjEnd, bjStride )
270        ENDIF        ENDIF
271          _BARRIER
272    
273        RETURN        RETURN
274        END        END
# Line 273  C     | point etc.. Line 289  C     | point etc..
289  C     | Other plot formats can also be substituted here.         |  C     | Other plot formats can also be substituted here.         |
290  C     | _RL is usually a REAL*8 field                            |  C     | _RL is usually a REAL*8 field                            |
291  C     \==========================================================/  C     \==========================================================/
292          IMPLICIT NONE
293    
294  #include "SIZE.h"  #include "SIZE.h"
295  #include "EEPARAMS.h"  #include "EEPARAMS.h"
296  #include "PARAMS.h"  #include "PARAMS.h"
# Line 303  C     == Local variables == Line 321  C     == Local variables ==
321    
322  C--   To get around synchronisation and multi-threaded I/O issues  C--   To get around synchronisation and multi-threaded I/O issues
323  C--   thread 1 will do all the writes.  C--   thread 1 will do all the writes.
324          _BARRIER
325        IF ( myThid .EQ. 1 ) THEN        IF ( myThid .EQ. 1 ) THEN
326  C--    Form name for identifying "plot"  C--    Form name for identifying "plot"
327         IF ( myIter .GE. 0 ) THEN         IF ( myIter .GE. 0 ) THEN
328          WRITE(fldTitle,'(A,A,A,I10)') '// Field ', fldNam, ' at iteration ',          WRITE(fldTitle,'(A,A,A,I10)')
329         &  '// Field ', fldNam, ' at iteration ',
330       &  myIter       &  myIter
331         ELSE         ELSE
332          WRITE(fldTitle,'(A,A)') '// Field ', fldNam          WRITE(fldTitle,'(A,A)') '// Field ', fldNam
# Line 342  C      Substitute other plotting utiliti Line 362  C      Substitute other plotting utiliti
362       I        biStart,  biEnd, biStride,       I        biStart,  biEnd, biStride,
363       I        bjStart,  bjEnd, bjStride )       I        bjStart,  bjEnd, bjStride )
364        ENDIF        ENDIF
365          _BARRIER
366    
367        RETURN        RETURN
368        END        END
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.11
  ViewVC Help
Powered by ViewVC 1.1.22