/[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.4 by cnh, Fri Jun 12 19:33:34 1998 UTC revision 1.5 by cnh, Mon Jun 15 05:13:56 1998 UTC
# Line 5  C $Header$ Line 5  C $Header$
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.
7  C--    Contents  C--    Contents
8  C--    o plot_field_xyr4  - Writes a XY  Real*4 field  C--    o plot_field_xyrs  - Writes a XY  _RS field
9  C--    o plot_field_xyr8  - Writes a XY  Real*8 field  C--    o plot_field_xyrl  - Writes a XY  _RL field
10  C--    o plot_field_xyzr4 - Writes a XYZ Real*4 field  C--    o plot_field_xyzrs - Writes a XYZ _RS field
11  C--    o plot_field_xyzr8 - Writes a XYZ Real*8 field  C--    o plot_field_xyzrl - Writes a XYZ _RL field
12        SUBROUTINE PLOT_FIELD_XYR4(        SUBROUTINE PLOT_FIELD_XYRS(
13       I                            fld, fldNam , myIter, myThid )       I                            fld, fldNam , myIter, myThid )
14    
15  C     /==========================================================\  C     /==========================================================\
16  C     | SUBROUTINE PLOT_FIELD_XYR4                               |  C     | SUBROUTINE PLOT_FIELD_XYRS                               |
17  C     | Print out an XY Real 4 field using text map.             |  C     | Print out an XY _RS field using text map.                |
18  C     |==========================================================|  C     |==========================================================|
19  C     | This routine references "numerical model" parameters like|  C     | This routine references "numerical model" parameters like|
20  C     | like the integration time. It uses these to create a     |  C     | like the integration time. It uses these to create a     |
# Line 24  C     | This routine can also be edited Line 24  C     | This routine can also be edited
24  C     | of a field to be printed by default, or every other      |  C     | of a field to be printed by default, or every other      |
25  C     | point etc..                                              |  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                                    |
28  C     \==========================================================/  C     \==========================================================/
29  #include "SIZE.h"  #include "SIZE.h"
30  #include "EEPARAMS.h"  #include "EEPARAMS.h"
# Line 35  C     fld - Field to plot Line 36  C     fld - Field to plot
36  C     fldNam - Name of field  C     fldNam - Name of field
37  C     myIter - Iteration number for plot  C     myIter - Iteration number for plot
38  C     myThid - Thread id of thread instance calling plot_field  C     myThid - Thread id of thread instance calling plot_field
39        Real*4 fld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RS fld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
40        CHARACTER*(*) fldNam        CHARACTER*(*) fldNam
41        INTEGER myThid        INTEGER myThid
42        INTEGER myIter        INTEGER myIter
# Line 75  C      Substitute other plotting utiliti Line 76  C      Substitute other plotting utiliti
76         bjStart  =  nSy         bjStart  =  nSy
77         bjEnd    =  1             bjEnd    =  1    
78         bjStride = -1         bjStride = -1
79         CALL PRINT_MAPR4(         CALL PRINT_MAPRS(
80       I        fld, fldTitle, PRINT_MAP_XY,       I        fld, fldTitle, PRINT_MAP_XY,
81       I         1-OLx,sNx+OLx,1-OLy,sNy+OLy,1,1,  nSx,  nSy,       I         1-OLx,sNx+OLx,1-OLy,sNy+OLy,1,1,  nSx,  nSy,
82       I         iStart,   iEnd,  iStride,       I         iStart,   iEnd,  iStride,
# Line 87  C      Substitute other plotting utiliti Line 88  C      Substitute other plotting utiliti
88    
89        RETURN        RETURN
90        END        END
91        SUBROUTINE PLOT_FIELD_XYR8(        SUBROUTINE PLOT_FIELD_XYRL(
92       I                            fld, fldNam , myIter, myThid )       I                            fld, fldNam , myIter, myThid )
93    
94  C     /==========================================================\  C     /==========================================================\
95  C     | SUBROUTINE PLOT_FIELD_XYR8                               |  C     | SUBROUTINE PLOT_FIELD_XYRL                               |
96  C     | Print out an XY Real 8 field using text map.             |  C     | Print out an XY _RL field using text map.                |
97  C     |==========================================================|  C     |==========================================================|
98  C     | This routine references "numerical model" parameters like|  C     | This routine references "numerical model" parameters like|
99  C     | like the integration time. It uses these to create a     |  C     | like the integration time. It uses these to create a     |
# Line 102  C     | This routine can also be edited Line 103  C     | This routine can also be edited
103  C     | of a field to be printed by default, or every other      |  C     | of a field to be printed by default, or every other      |
104  C     | point etc..                                              |  C     | point etc..                                              |
105  C     | Other plot formats can also be substituted here.         |  C     | Other plot formats can also be substituted here.         |
106    C     | _RL is usually REAL*8                                    |
107  C     \==========================================================/  C     \==========================================================/
108  #include "SIZE.h"  #include "SIZE.h"
109  #include "EEPARAMS.h"  #include "EEPARAMS.h"
# Line 113  C     fld - Field to plot Line 115  C     fld - Field to plot
115  C     fldNam - Name of field  C     fldNam - Name of field
116  C     myIter - Iteration number for plot  C     myIter - Iteration number for plot
117  C     myThid - Thread id of thread instance calling plot_field  C     myThid - Thread id of thread instance calling plot_field
118        REAL fld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL fld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
119        CHARACTER*(*) fldNam        CHARACTER*(*) fldNam
120        INTEGER myThid        INTEGER myThid
121        INTEGER myIter        INTEGER myIter
# Line 153  C      Substitute other plotting utiliti Line 155  C      Substitute other plotting utiliti
155         bjStart  =  nSy         bjStart  =  nSy
156         bjEnd    =  1             bjEnd    =  1    
157         bjStride = -1         bjStride = -1
158         CALL PRINT_MAPR8(         CALL PRINT_MAPRL(
159       I        fld, fldTitle, PRINT_MAP_XY,       I        fld, fldTitle, PRINT_MAP_XY,
160       I         1-OLx,sNx+OLx,1-OLy,sNy+OLy,1,1,  nSx,  nSy,       I         1-OLx,sNx+OLx,1-OLy,sNy+OLy,1,1,  nSx,  nSy,
161       I         iStart,   iEnd,  iStride,       I         iStart,   iEnd,  iStride,
# Line 165  C      Substitute other plotting utiliti Line 167  C      Substitute other plotting utiliti
167    
168        RETURN        RETURN
169        END        END
170        SUBROUTINE PLOT_FIELD_XYZR4(        SUBROUTINE PLOT_FIELD_XYZRS(
171       I                            fld, fldNam , fldNz, myIter, myThid )       I                            fld, fldNam , fldNz, myIter, myThid )
172    
173  C     /==========================================================\  C     /==========================================================\
174  C     | SUBROUTINE PLOT_FIELD_XYZR4                              |  C     | SUBROUTINE PLOT_FIELD_XYZR4                              |
175  C     | Print out an XYZ Real 4 field using text map.            |  C     | Print out an XYZ _RS field using text map.               |
176  C     |==========================================================|  C     |==========================================================|
177  C     | This routine references "numerical model" parameters like|  C     | This routine references "numerical model" parameters like|
178  C     | like the integration time. It uses these to create a     |  C     | like the integration time. It uses these to create a     |
# Line 180  C     | This routine can also be edited Line 182  C     | This routine can also be edited
182  C     | of a field to be printed by default, or every other      |  C     | of a field to be printed by default, or every other      |
183  C     | point etc..                                              |  C     | point etc..                                              |
184  C     | Other plot formats can also be substituted here.         |  C     | Other plot formats can also be substituted here.         |
185    C     | _RS is usually a REAL*4 field                            |
186  C     \==========================================================/  C     \==========================================================/
187  #include "SIZE.h"  #include "SIZE.h"
188  #include "EEPARAMS.h"  #include "EEPARAMS.h"
# Line 196  C              (same lateral extents. Line 199  C              (same lateral extents.
199  C     myIter - Iteration number for plot  C     myIter - Iteration number for plot
200  C     myThid - Thread id of thread instance calling plot_field  C     myThid - Thread id of thread instance calling plot_field
201        INTEGER fldNz        INTEGER fldNz
202        Real*4 fld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,1:fldNz,nSx,nSy)        _RS fld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,1:fldNz,nSx,nSy)
203        CHARACTER*(*) fldNam        CHARACTER*(*) fldNam
204        INTEGER myThid        INTEGER myThid
205        INTEGER myIter        INTEGER myIter
# Line 233  C      jEnd     =  1 Line 236  C      jEnd     =  1
236         jStride  = -1         jStride  = -1
237         kStart   =  1         kStart   =  1
238         kEnd     =  fldNz         kEnd     =  fldNz
239  C      kEnd     =  1         kEnd     =  1
240         kStride  =  1         kStride  =  1
241         biStart  =  1         biStart  =  1
242         biEnd    =  nSx         biEnd    =  nSx
# Line 241  C      kEnd     =  1 Line 244  C      kEnd     =  1
244         bjStart  =  nSy         bjStart  =  nSy
245         bjEnd    =  1             bjEnd    =  1    
246         bjStride = -1         bjStride = -1
247  C      CALL PRINT_MAPR8(         CALL PRINT_MAPRS(
 C    I        fld, fldTitle, PRINT_MAP_YZ,  
 C    I         1-OLx,sNx+OLx,1-OLy,sNy+OLy,1,fldNz,  nSx,  nSy,  
 C    I         iStart,   iEnd,  iStride,  
 C    I         jStart,   jEnd,  jStride,  
 C    I         kStart,   kEnd,  kStride,  
 C    I        biStart,  biEnd, biStride,  
 C    I        bjStart,  bjEnd, bjStride )  
        CALL PRINT_MAPR4(  
248       I        fld, fldTitle, PRINT_MAP_XY,       I        fld, fldTitle, PRINT_MAP_XY,
249       I         1-OLx,sNx+OLx,1-OLy,sNy+OLy,1,fldNz,  nSx,  nSy,       I         1-OLx,sNx+OLx,1-OLy,sNy+OLy,1,fldNz,  nSx,  nSy,
250       I         iStart,   iEnd,  iStride,       I         iStart,   iEnd,  iStride,
# Line 261  C    I        bjStart,  bjEnd, bjStride Line 256  C    I        bjStart,  bjEnd, bjStride
256    
257        RETURN        RETURN
258        END        END
259        SUBROUTINE PLOT_FIELD_XYZR8(        SUBROUTINE PLOT_FIELD_XYZRL(
260       I                            fld, fldNam , fldNz, myIter, myThid )       I                            fld, fldNam , fldNz, myIter, myThid )
261    
262  C     /==========================================================\  C     /==========================================================\
263  C     | SUBROUTINE PLOT_FIELD_XYZR8                              |  C     | SUBROUTINE PLOT_FIELD_XYZRL                              |
264  C     | Print out an XYZ Real 8 field using text map.            |  C     | Print out an XYZ _RL field using text map.               |
265  C     |==========================================================|  C     |==========================================================|
266  C     | This routine references "numerical model" parameters like|  C     | This routine references "numerical model" parameters like|
267  C     | like the integration time. It uses these to create a     |  C     | like the integration time. It uses these to create a     |
# Line 276  C     | This routine can also be edited Line 271  C     | This routine can also be edited
271  C     | of a field to be printed by default, or every other      |  C     | of a field to be printed by default, or every other      |
272  C     | point etc..                                              |  C     | point etc..                                              |
273  C     | Other plot formats can also be substituted here.         |  C     | Other plot formats can also be substituted here.         |
274    C     | _RL is usually a REAL*8 field                            |
275  C     \==========================================================/  C     \==========================================================/
276  #include "SIZE.h"  #include "SIZE.h"
277  #include "EEPARAMS.h"  #include "EEPARAMS.h"
# Line 292  C              (same lateral extents. Line 288  C              (same lateral extents.
288  C     myIter - Iteration number for plot  C     myIter - Iteration number for plot
289  C     myThid - Thread id of thread instance calling plot_field  C     myThid - Thread id of thread instance calling plot_field
290        INTEGER fldNz        INTEGER fldNz
291        REAL fld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,1:fldNz,nSx,nSy)        _RL fld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,1:fldNz,nSx,nSy)
292        CHARACTER*(*) fldNam        CHARACTER*(*) fldNam
293        INTEGER myThid        INTEGER myThid
294        INTEGER myIter        INTEGER myIter
# Line 337  C      Substitute other plotting utiliti Line 333  C      Substitute other plotting utiliti
333         bjStart  =  nSy         bjStart  =  nSy
334         bjEnd    =  1             bjEnd    =  1    
335         bjStride = -1         bjStride = -1
336  C      CALL PRINT_MAPR8(         CALL PRINT_MAPRL(
 C    I        fld, fldTitle, PRINT_MAP_YZ,  
 C    I         1-OLx,sNx+OLx,1-OLy,sNy+OLy,1,fldNz,  nSx,  nSy,  
 C    I         iStart,   iEnd,  iStride,  
 C    I         jStart,   jEnd,  jStride,  
 C    I         kStart,   kEnd,  kStride,  
 C    I        biStart,  biEnd, biStride,  
 C    I        bjStart,  bjEnd, bjStride )  
        CALL PRINT_MAPR8(  
337       I        fld, fldTitle, PRINT_MAP_XY,       I        fld, fldTitle, PRINT_MAP_XY,
338       I         1-OLx,sNx+OLx,1-OLy,sNy+OLy,1,fldNz,  nSx,  nSy,       I         1-OLx,sNx+OLx,1-OLy,sNy+OLy,1,fldNz,  nSx,  nSy,
339       I         iStart,   iEnd,  iStride,       I         iStart,   iEnd,  iStride,
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22