/[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.7 by cnh, Mon Jun 8 21:43:00 1998 UTC revision 1.8 by cnh, Mon Jun 15 05:13:55 1998 UTC
# Line 414  C     K    - Loop counter Line 414  C     K    - Loop counter
414        END        END
415    
416  CStartOfInterface  CStartOfInterface
417        SUBROUTINE PRINT_MAPR4 ( fld, fldTitle, plotMode,        SUBROUTINE PRINT_MAPRS ( fld, fldTitle, plotMode,
418       I        iLo,   iHi,   jLo,   jHi,  kLo,  kHi, nBx, nBy,       I        iLo,   iHi,   jLo,   jHi,  kLo,  kHi, nBx, nBy,
419       I       iMin,  iMax,  iStr,       I       iMin,  iMax,  iStr,
420       I       jMin,  jMax,  jStr,       I       jMin,  jMax,  jStr,
# Line 469  C     kStr Line 469  C     kStr
469        INTEGER jLo, jHi        INTEGER jLo, jHi
470        INTEGER kLo, kHi        INTEGER kLo, kHi
471        INTEGER nBx, nBy        INTEGER nBx, nBy
472        Real*4 fld(iLo:iHi,jLo:jHi,kLo:kHi,nBx,nBy)        _RS fld(iLo:iHi,jLo:jHi,kLo:kHi,nBx,nBy)
473        INTEGER iMin, iMax, iStr        INTEGER iMin, iMax, iStr
474        INTEGER jMin, jMax, jStr        INTEGER jMin, jMax, jStr
475        INTEGER kMin, kMax, kStr        INTEGER kMin, kMax, kStr
# Line 808  C--   Write delimiter Line 808  C--   Write delimiter
808        END        END
809    
810  CStartOfInterface  CStartOfInterface
811        SUBROUTINE PRINT_MAPR8 ( fld, fldTitle, plotMode,        SUBROUTINE PRINT_MAPRL ( fld, fldTitle, plotMode,
812       I        iLo,   iHi,   jLo,   jHi,  kLo,  kHi, nBx, nBy,       I        iLo,   iHi,   jLo,   jHi,  kLo,  kHi, nBx, nBy,
813       I       iMin,  iMax,  iStr,       I       iMin,  iMax,  iStr,
814       I       jMin,  jMax,  jStr,       I       jMin,  jMax,  jStr,
# Line 816  CStartOfInterface Line 816  CStartOfInterface
816       I      bxMin, bxMax,  bxStr,       I      bxMin, bxMax,  bxStr,
817       I      byMin, byMax,  byStr )       I      byMin, byMax,  byStr )
818  C     /==========================================================\  C     /==========================================================\
819  C     | SUBROUTINE PRINT_MAPR8                                   |  C     | SUBROUTINE PRINT_MAPRL                                   |
820  C     | o Does textual mapping printing of a field.              |  C     | o Does textual mapping printing of a field.              |
821  C     |==========================================================|  C     |==========================================================|
822  C     | This routine does the actual formatting of the data      |  C     | This routine does the actual formatting of the data      |
# Line 863  C     kStr Line 863  C     kStr
863        INTEGER jLo, jHi        INTEGER jLo, jHi
864        INTEGER kLo, kHi        INTEGER kLo, kHi
865        INTEGER nBx, nBy        INTEGER nBx, nBy
866        Real*8 fld(iLo:iHi,jLo:jHi,kLo:kHi,nBx,nBy)        _RL fld(iLo:iHi,jLo:jHi,kLo:kHi,nBx,nBy)
867        INTEGER iMin, iMax, iStr        INTEGER iMin, iMax, iStr
868        INTEGER jMin, jMax, jStr        INTEGER jMin, jMax, jStr
869        INTEGER kMin, kMax, kStr        INTEGER kMin, kMax, kStr
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22