/[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.29 by jmc, Tue Apr 21 16:02:42 2009 UTC revision 1.30 by jmc, Tue Apr 28 22:00:46 2009 UTC
# Line 8  C--                 in the MITgcm UV imp Line 8  C--                 in the MITgcm UV imp
8  C--   Contents  C--   Contents
9  C--   o PRINT_MESSAGE  Does IO with unhighlighted header  C--   o PRINT_MESSAGE  Does IO with unhighlighted header
10  C--   o PRINT_ERROR    Does IO with **ERROR** highlighted header  C--   o PRINT_ERROR    Does IO with **ERROR** highlighted header
11  C--   o PRINT_LIST_I   Prints one-deimensional list of INTEGER  C--   o PRINT_LIST_I   Prints one-dimensional list of INTEGER
12  C--                    numbers.  C--                    numbers.
13  C--   o PRINT_LIST_L   Prints one-deimensional list of LOGICAL  C--   o PRINT_LIST_L   Prints one-dimensional list of LOGICAL
14  C--                    variables.  C--                    variables.
15  C--   o PRINT_LIST_R8  Prints one-deimensional list of Real*8  C--   o PRINT_LIST_RL  Prints one-dimensional list of Real(_RL)
16  C--                    numbers.  C--                    numbers.
17  C--   o PRINT_MAPRS    Formats ABCD... contour map of a Real(_RS) field  C--   o PRINT_MAPRS    Formats ABCD... contour map of a Real(_RS) field
18  C--                    Uses print_message for writing  C--                    Uses print_message for writing
# Line 534  C-    fortran format to write 1 or 2 ind Line 534  C-    fortran format to write 1 or 2 ind
534    
535  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
536  CBOP  CBOP
537  C     !ROUTINE: PRINT_LIST_R8  C     !ROUTINE: PRINT_LIST_RL
538  C     !INTERFACE:  C     !INTERFACE:
539        SUBROUTINE PRINT_LIST_R8( fld, iFirst, iLast, index_type,        SUBROUTINE PRINT_LIST_RL( fld, iFirst, iLast, index_type,
540       &                          markEnd, compact, ioUnit )       &                          markEnd, compact, ioUnit )
541    
542  C     !DESCRIPTION:  C     !DESCRIPTION:
543  C     *==========================================================*  C     *==========================================================*
544  C     | o SUBROUTINE PRINT\_LIST\_R8  C     | o SUBROUTINE PRINT\_LIST\_RL
545  C     *==========================================================*  C     *==========================================================*
546  C     | Routine for producing list of values for a field with  C     | Routine for producing list of values for a field with
547  C     | duplicate values collected into  C     | duplicate values collected into
# Line 572  C     compact :: Flag to control use of Line 572  C     compact :: Flag to control use of
572  C                fields.  C                fields.
573  C     ioUnit  :: Unit number for IO.  C     ioUnit  :: Unit number for IO.
574        INTEGER iFirst, iLast        INTEGER iFirst, iLast
575        Real*8  fld(iFirst:iLast)        _RL     fld(iFirst:iLast)
576        INTEGER index_type        INTEGER index_type
577        LOGICAL markEnd        LOGICAL markEnd
578        LOGICAL compact        LOGICAL compact
# Line 591  C     K    - Loop counter Line 591  C     K    - Loop counter
591        INTEGER iLo        INTEGER iLo
592        INTEGER iHi        INTEGER iHi
593        INTEGER nDup        INTEGER nDup
594        Real*8 xNew, xOld        _RL     xNew, xOld
595        CHARACTER punc        CHARACTER punc
596        CHARACTER*(MAX_LEN_MBUF) msgBuf        CHARACTER*(MAX_LEN_MBUF) msgBuf
597        CHARACTER*2 commOpen,commClose        CHARACTER*2 commOpen,commClose
Legend:
Removed from v.1.29  
changed lines
  Added in v.1.30
  ViewVC Help
Powered by ViewVC 1.1.22