/[MITgcm]/MITgcm/eesupp/src/print.F
ViewVC logotype

Diff of /MITgcm/eesupp/src/print.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.25 by jmc, Sat Sep 2 22:47:10 2006 UTC revision 1.26 by jmc, Tue Oct 10 19:18:47 2006 UTC
# Line 13  C--    o print_list_l   Prints one-deime Line 13  C--    o print_list_l   Prints one-deime
13  C--                     variables.  C--                     variables.
14  C--    o print_list_r8  Prints one-deimensional list of Real*8  C--    o print_list_r8  Prints one-deimensional list of Real*8
15  C--                     numbers.  C--                     numbers.
16  C--    o print_mapr4    Formats ABCD... contour map of a Real*4 field  C--    o print_maprs    Formats ABCD... contour map of a Real(_RS) field
17  C--                     Uses print_message for writing  C--                     Uses print_message for writing
18  C--    o print_mapr8    Formats ABCD... contour map of a Real*8 field  C--    o print_maprl    Formats ABCD... contour map of a Real(_RL) field
19  C--                     Uses print_message for writing  C--                     Uses print_message for writing
20  C--    o print_message  Does IO with unhighlighted header  C--    o print_message  Does IO with unhighlighted header
21    
# Line 517  C     !INTERFACE: Line 517  C     !INTERFACE:
517        IMPLICIT NONE        IMPLICIT NONE
518  C     !DESCRIPTION:  C     !DESCRIPTION:
519  C     *==========================================================*  C     *==========================================================*
520  C     | SUBROUTINE PRINT\_MAPR4                                      C     | SUBROUTINE PRINT\_MAPRS                                    
521  C     | o Does textual mapping printing of a field.                C     | o Does textual mapping printing of a field.              
522  C     *==========================================================*  C     *==========================================================*
523  C     | This routine does the actual formatting of the data        C     | This routine does the actual formatting of the data      
524  C     | and printing to a file. It assumes an array using the      C     | and printing to a file. It assumes an array using the    
525  C     | MITgcm UV indexing scheme and base index variables.        C     | MITgcm UV indexing scheme and base index variables.      
526  C     | User code should call an interface routine like            C     | User code should call an interface routine like          
527  C     | PLOT\_FIELD\_XYR4( ... ) rather than this code directly.      C     | PLOT\_FIELD\_XYRS( ... ) rather than this code directly.    
528  C     | Text plots can be oriented XY, YZ, XZ. An orientation      C     | Text plots can be oriented XY, YZ, XZ. An orientation    
529  C     | is specficied through the "plotMode" argument. All the      C     | is specficied through the "plotMode" argument. All the    
530  C     | plots made by a single call to this routine will use the    C     | plots made by a single call to this routine will use the  
# Line 948  C     | This routine does the actual for Line 948  C     | This routine does the actual for
948  C     | and printing to a file. It assumes an array using the      C     | and printing to a file. It assumes an array using the    
949  C     | MITgcm UV indexing scheme and base index variables.        C     | MITgcm UV indexing scheme and base index variables.      
950  C     | User code should call an interface routine like            C     | User code should call an interface routine like          
951  C     | PLOT\_FIELD\_XYR8( ... ) rather than this code directly.      C     | PLOT\_FIELD\_XYRL( ... ) rather than this code directly.    
952  C     | Text plots can be oriented XY, YZ, XZ. An orientation      C     | Text plots can be oriented XY, YZ, XZ. An orientation    
953  C     | is specficied through the "plotMode" argument. All the      C     | is specficied through the "plotMode" argument. All the    
954  C     | plots made by a single call to this routine will use the    C     | plots made by a single call to this routine will use the  
# Line 1285  C      Data Line 1285  C      Data
1285             IF ( 10*((iBuf-7)/10) .EQ. iBuf-7 ) THEN             IF ( 10*((iBuf-7)/10) .EQ. iBuf-7 ) THEN
1286              WRITE(plotBuf(iBuf:),'(A)')  '|'              WRITE(plotBuf(iBuf:),'(A)')  '|'
1287             ELSE             ELSE
1288              WRITE(plotBuf(iBuf:iBuf),'(I1)') MOD(iDx,10)              WRITE(plotBuf(iBuf:iBuf),'(I1)') MOD(ABS(iDx),10)
1289             ENDIF             ENDIF
1290            ENDDO            ENDDO
1291           ENDDO           ENDDO
Legend:
Removed from v.1.25  
changed lines
  Added in v.1.26
  ViewVC Help
Powered by ViewVC 1.1.22