/[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.12 by jmc, Tue Mar 6 17:10:29 2001 UTC revision 1.13 by cnh, Wed Sep 26 18:09:16 2001 UTC
# Line 10  C--    o plot_field_xyrs  - Writes a XY Line 10  C--    o plot_field_xyrs  - Writes a XY
10  C--    o plot_field_xyrl  - Writes a XY  _RL field  C--    o plot_field_xyrl  - Writes a XY  _RL field
11  C--    o plot_field_xyzrs - Writes a XYZ _RS field  C--    o plot_field_xyzrs - Writes a XYZ _RS field
12  C--    o plot_field_xyzrl - Writes a XYZ _RL field  C--    o plot_field_xyzrl - Writes a XYZ _RL field
13    CBOP
14    C     !ROUTINE: PLOT_FIELD_XYRS
15    C     !INTERFACE:
16        SUBROUTINE PLOT_FIELD_XYRS(        SUBROUTINE PLOT_FIELD_XYRS(
17       I                            fld, fldNam , myIter, myThid )       I                            fld, fldNam , myIter, myThid )
18    
19  C     /==========================================================\  C     !DESCRIPTION: \bv
20  C     | SUBROUTINE PLOT_FIELD_XYRS                               |  C     *==========================================================*
21  C     | Print out an XY _RS field using text map.                |  C     | SUBROUTINE PLOT_FIELD_XYRS                                
22  C     |==========================================================|  C     | Print out an XY _RS field using text map.                
23  C     | This routine references "numerical model" parameters like|  C     *==========================================================*
24  C     | like the integration time. It uses these to create a     |  C     | This routine references "numerical model" parameters like
25  C     | title for the field before calling a generic execution   |  C     | like the integration time. It uses these to create a      
26  C     | environment support routine.                             |  C     | title for the field before calling a generic execution    
27  C     | This routine can also be edited to cause only some region|  C     | environment support routine.                              
28  C     | of a field to be printed by default, or every other      |  C     | This routine can also be edited to cause only some region
29  C     | point etc..                                              |  C     | of a field to be printed by default, or every other      
30  C     | Other plot formats can also be substituted here.         |  C     | point etc..                                              
31  C     | _RS is usually REAL*4                                    |  C     | Other plot formats can also be substituted here.          
32  C     \==========================================================/  C     | _RS is usually REAL*4                                    
33        IMPLICIT NONE  C     *==========================================================*
34    C     \ev
35    
36    C     !USES:
37          IMPLICIT NONE
38  #include "SIZE.h"  #include "SIZE.h"
39  #include "EEPARAMS.h"  #include "EEPARAMS.h"
40  #include "PARAMS.h"  #include "PARAMS.h"
41    
42    C     !INPUT/OUTPUT PARAMETERS:
43  C     == Routine arguments ==  C     == Routine arguments ==
44  C     fld - Field to plot  C     fld - Field to plot
45  C     fldNam - Name of field  C     fldNam - Name of field
# Line 43  C     myThid - Thread id of thread insta Line 50  C     myThid - Thread id of thread insta
50        INTEGER myThid        INTEGER myThid
51        INTEGER myIter        INTEGER myIter
52    
53    C     !LOCAL VARIABLES:
54  C     == Local variables ==  C     == Local variables ==
55        CHARACTER*(MAX_LEN_MBUF) fldTitle        CHARACTER*(MAX_LEN_MBUF) fldTitle
56        INTEGER iStart, iEnd, iStride        INTEGER iStart, iEnd, iStride
# Line 50  C     == Local variables == Line 58  C     == Local variables ==
58        INTEGER kStart, kEnd, kStride        INTEGER kStart, kEnd, kStride
59        INTEGER biStart, biEnd, biStride        INTEGER biStart, biEnd, biStride
60        INTEGER bjStart, bjEnd, bjStride        INTEGER bjStart, bjEnd, bjStride
61    CEOP
62    
63  C--   To get around synchronisation and multi-threaded I/O issues  C--   To get around synchronisation and multi-threaded I/O issues
64  C--   thread 1 will do all the writes.  C--   thread 1 will do all the writes.
# Line 93  C      Substitute other plotting utiliti Line 102  C      Substitute other plotting utiliti
102    
103        RETURN        RETURN
104        END        END
105    
106    CBOP
107    C     !ROUTINE: PLOT_FIELD_XYRL
108    C     !INTERFACE:
109        SUBROUTINE PLOT_FIELD_XYRL(        SUBROUTINE PLOT_FIELD_XYRL(
110       I                            fld, fldNam , myIter, myThid )       I                            fld, fldNam , myIter, myThid )
111    
112  C     /==========================================================\  C     !DESCRIPTION: \bv
113  C     | SUBROUTINE PLOT_FIELD_XYRL                               |  C     *==========================================================*
114  C     | Print out an XY _RL field using text map.                |  C     | SUBROUTINE PLOT_FIELD_XYRL                                
115  C     |==========================================================|  C     | Print out an XY _RL field using text map.                
116  C     | This routine references "numerical model" parameters like|  C     *==========================================================*
117  C     | like the integration time. It uses these to create a     |  C     | This routine references "numerical model" parameters like
118  C     | title for the field before calling a generic execution   |  C     | like the integration time. It uses these to create a      
119  C     | environment support routine.                             |  C     | title for the field before calling a generic execution    
120  C     | This routine can also be edited to cause only some region|  C     | environment support routine.                              
121  C     | of a field to be printed by default, or every other      |  C     | This routine can also be edited to cause only some region
122  C     | point etc..                                              |  C     | of a field to be printed by default, or every other      
123  C     | Other plot formats can also be substituted here.         |  C     | point etc..                                              
124  C     | _RL is usually REAL*8                                    |  C     | Other plot formats can also be substituted here.          
125  C     \==========================================================/  C     | _RL is usually REAL*8                                    
126        IMPLICIT NONE  C     *==========================================================*
127    C     \ev
128    
129    C     !USES:
130          IMPLICIT NONE
131  #include "SIZE.h"  #include "SIZE.h"
132  #include "EEPARAMS.h"  #include "EEPARAMS.h"
133  #include "PARAMS.h"  #include "PARAMS.h"
134    
135    C     !INPUT/OUTPUT PARAMETERS:
136  C     == Routine arguments ==  C     == Routine arguments ==
137  C     fld - Field to plot  C     fld - Field to plot
138  C     fldNam - Name of field  C     fldNam - Name of field
# Line 126  C     myThid - Thread id of thread insta Line 143  C     myThid - Thread id of thread insta
143        INTEGER myThid        INTEGER myThid
144        INTEGER myIter        INTEGER myIter
145    
146    C     !LOCAL VARIABLES:
147  C     == Local variables ==  C     == Local variables ==
148        CHARACTER*(MAX_LEN_MBUF) fldTitle        CHARACTER*(MAX_LEN_MBUF) fldTitle
149        INTEGER iStart, iEnd, iStride        INTEGER iStart, iEnd, iStride
# Line 133  C     == Local variables == Line 151  C     == Local variables ==
151        INTEGER kStart, kEnd, kStride        INTEGER kStart, kEnd, kStride
152        INTEGER biStart, biEnd, biStride        INTEGER biStart, biEnd, biStride
153        INTEGER bjStart, bjEnd, bjStride        INTEGER bjStart, bjEnd, bjStride
154    CBOP
155    
156  C--   To get around synchronisation and multi-threaded I/O issues  C--   To get around synchronisation and multi-threaded I/O issues
157  C--   thread 1 will do all the writes.  C--   thread 1 will do all the writes.
# Line 176  C      Substitute other plotting utiliti Line 195  C      Substitute other plotting utiliti
195    
196        RETURN        RETURN
197        END        END
198    CBOP
199    C     !ROUTINE: PLOT_FIELD_XYZRS
200    C     !INTERFACE:
201        SUBROUTINE PLOT_FIELD_XYZRS(        SUBROUTINE PLOT_FIELD_XYZRS(
202       I                            fld, fldNam , fldNz, myIter, myThid )       I                            fld, fldNam , fldNz, myIter, myThid )
203    
204  C     /==========================================================\  C     !DESCRIPTION: \bv
205  C     | SUBROUTINE PLOT_FIELD_XYZR4                              |  C     *==========================================================*
206  C     | Print out an XYZ _RS field using text map.               |  C     | SUBROUTINE PLOT_FIELD_XYZR4                              
207  C     |==========================================================|  C     | Print out an XYZ _RS field using text map.                
208  C     | This routine references "numerical model" parameters like|  C     *==========================================================*
209  C     | like the integration time. It uses these to create a     |  C     | This routine references "numerical model" parameters like
210  C     | title for the field before calling a generic execution   |  C     | like the integration time. It uses these to create a      
211  C     | environment support routine.                             |  C     | title for the field before calling a generic execution    
212  C     | This routine can also be edited to cause only some region|  C     | environment support routine.                              
213  C     | of a field to be printed by default, or every other      |  C     | This routine can also be edited to cause only some region
214  C     | point etc..                                              |  C     | of a field to be printed by default, or every other      
215  C     | Other plot formats can also be substituted here.         |  C     | point etc..                                              
216  C     | _RS is usually a REAL*4 field                            |  C     | Other plot formats can also be substituted here.          
217  C     \==========================================================/  C     | _RS is usually a REAL*4 field                            
218        IMPLICIT NONE  C     *==========================================================*
219    C     \ev
220    
221    C     !USES:
222          IMPLICIT NONE
223  #include "SIZE.h"  #include "SIZE.h"
224  #include "EEPARAMS.h"  #include "EEPARAMS.h"
225  #include "PARAMS.h"  #include "PARAMS.h"
226    
227    C     !INPUT/OUTPUT PARAMETERS:
228  C     == Routine arguments ==  C     == Routine arguments ==
229  C     fld - Field to plot  C     fld - Field to plot
230  C     fldNam - Name of field  C     fldNam - Name of field
# Line 214  C     myThid - Thread id of thread insta Line 240  C     myThid - Thread id of thread insta
240        INTEGER myThid        INTEGER myThid
241        INTEGER myIter        INTEGER myIter
242    
243    C     !LOCAL VARIABLES:
244  C     == Local variables ==  C     == Local variables ==
245        CHARACTER*(MAX_LEN_MBUF) fldTitle        CHARACTER*(MAX_LEN_MBUF) fldTitle
246        INTEGER iStart, iEnd, iStride        INTEGER iStart, iEnd, iStride
# Line 221  C     == Local variables == Line 248  C     == Local variables ==
248        INTEGER kStart, kEnd, kStride        INTEGER kStart, kEnd, kStride
249        INTEGER biStart, biEnd, biStride        INTEGER biStart, biEnd, biStride
250        INTEGER bjStart, bjEnd, bjStride        INTEGER bjStart, bjEnd, bjStride
251    CEOP
252    
253  C--   To get around synchronisation and multi-threaded I/O issues  C--   To get around synchronisation and multi-threaded I/O issues
254  C--   thread 1 will do all the writes.  C--   thread 1 will do all the writes.
Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13
  ViewVC Help
Powered by ViewVC 1.1.22