/[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.5 by cnh, Mon Apr 27 04:24:22 1998 UTC revision 1.8 by cnh, Mon Jun 15 05:13:55 1998 UTC
# Line 77  C       The write statement may need to Line 77  C       The write statement may need to
77  #ifndef FMTFTN_IO_THREAD_SAFE  #ifndef FMTFTN_IO_THREAD_SAFE
78          _BEGIN_CRIT(myThid)          _BEGIN_CRIT(myThid)
79  #endif  #endif
80          WRITE(errorMessageUnit,'(A,A,1X,A,A,A,A,A)')          WRITE(errorMessageUnit,'(A,A,1X,A,A,A,A,A)',ERR=999)
81       &  '(',PROCESS_HEADER,idString,')',ERROR_HEADER,' ',       &  '(',PROCESS_HEADER,idString,')',ERROR_HEADER,' ',
82       &  ' '       &  ' '
83  #ifndef FMTFTN_IO_THREAD_SAFE  #ifndef FMTFTN_IO_THREAD_SAFE
# Line 87  C       The write statement may need to Line 87  C       The write statement may need to
87  #ifndef FMTFTN_IO_THREAD_SAFE  #ifndef FMTFTN_IO_THREAD_SAFE
88          _BEGIN_CRIT(myThid)          _BEGIN_CRIT(myThid)
89  #endif  #endif
90          WRITE(errorMessageUnit,'(A,A,1X,A,A,A,A,A)')          WRITE(errorMessageUnit,'(A,A,1X,A,A,A,A,A)',ERR=999)
91       &  '(',PROCESS_HEADER,idString,')',ERROR_HEADER,' ',       &  '(',PROCESS_HEADER,idString,')',ERROR_HEADER,' ',
92       &  message(iStart:iEnd)       &  message(iStart:iEnd)
93  #ifndef FMTFTN_IO_THREAD_SAFE  #ifndef FMTFTN_IO_THREAD_SAFE
# Line 96  C       The write statement may need to Line 96  C       The write statement may need to
96         ENDIF         ENDIF
97        ENDIF        ENDIF
98  C  C
99     1000 CONTINUE
100        RETURN        RETURN
101    
102      999 CONTINUE
103           ioErrorCount(myThid) = ioErrorCount(myThid)+1
104          GOTO 1000
105        END        END
106    
107  CStartofinterface  CStartofinterface
# Line 143  C     K    - Loop counter Line 148  C     K    - Loop counter
148        INTEGER nDup        INTEGER nDup
149        INTEGER xNew, xOld        INTEGER xNew, xOld
150        CHARACTER punc        CHARACTER punc
151        CHARACTER(MAX_LEN_MBUF) msgBuf        CHARACTER*(MAX_LEN_MBUF) msgBuf
152        CHARACTER*2 commOpen,commClose        CHARACTER*2 commOpen,commClose
153        CHARACTER*3 index_lab        CHARACTER*3 index_lab
154        INTEGER K        INTEGER K
# Line 177  C     K    - Loop counter Line 182  C     K    - Loop counter
182       &    WRITE(msgBuf(45:),'(A,1X,A,I3,A,I3,1X,A)')       &    WRITE(msgBuf(45:),'(A,1X,A,I3,A,I3,1X,A)')
183       &    commOpen,index_lab,iLo,':',iHi,commClose       &    commOpen,index_lab,iLo,':',iHi,commClose
184          ENDIF          ENDIF
185          CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, SQUEEZE_RIGHT , 1)          CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT , 1)
186          iLo  = K          iLo  = K
187          iHi  = K          iHi  = K
188          xOld = xNew          xOld = xNew
# Line 197  C     K    - Loop counter Line 202  C     K    - Loop counter
202       &  WRITE(msgBuf(45:),'(A,1X,A,I3,A,I3,1X,A)')       &  WRITE(msgBuf(45:),'(A,1X,A,I3,A,I3,1X,A)')
203       &  commOpen,index_lab,iLo,':',iHi,commClose       &  commOpen,index_lab,iLo,':',iHi,commClose
204        ENDIF        ENDIF
205        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, SQUEEZE_RIGHT , 1)        CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT , 1)
206    
207        RETURN        RETURN
208        END        END
# Line 246  C     K    - Loop counter Line 251  C     K    - Loop counter
251        INTEGER nDup        INTEGER nDup
252        LOGICAL xNew, xOld        LOGICAL xNew, xOld
253        CHARACTER punc        CHARACTER punc
254        CHARACTER(MAX_LEN_MBUF) msgBuf        CHARACTER*(MAX_LEN_MBUF) msgBuf
255        CHARACTER*2 commOpen,commClose        CHARACTER*2 commOpen,commClose
256        CHARACTER*3 index_lab        CHARACTER*3 index_lab
257        INTEGER K        INTEGER K
# Line 280  C     K    - Loop counter Line 285  C     K    - Loop counter
285       &    WRITE(msgBuf(45:),'(A,1X,A,L3,A,I3,1X,A)')       &    WRITE(msgBuf(45:),'(A,1X,A,L3,A,I3,1X,A)')
286       &    commOpen,index_lab,iLo,':',iHi,commClose       &    commOpen,index_lab,iLo,':',iHi,commClose
287          ENDIF          ENDIF
288          CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, SQUEEZE_RIGHT , 1)          CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT , 1)
289          iLo  = K          iLo  = K
290          iHi  = K          iHi  = K
291          xOld = xNew          xOld = xNew
# Line 300  C     K    - Loop counter Line 305  C     K    - Loop counter
305       &  WRITE(msgBuf(45:),'(A,1X,A,I3,A,I3,1X,A)')       &  WRITE(msgBuf(45:),'(A,1X,A,I3,A,I3,1X,A)')
306       &  commOpen,index_lab,iLo,':',iHi,commClose       &  commOpen,index_lab,iLo,':',iHi,commClose
307        ENDIF        ENDIF
308        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, SQUEEZE_RIGHT , 1)        CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT , 1)
309    
310        RETURN        RETURN
311        END        END
# Line 349  C     K    - Loop counter Line 354  C     K    - Loop counter
354        INTEGER nDup        INTEGER nDup
355        Real*8 xNew, xOld        Real*8 xNew, xOld
356        CHARACTER punc        CHARACTER punc
357        CHARACTER(MAX_LEN_MBUF) msgBuf        CHARACTER*(MAX_LEN_MBUF) msgBuf
358        CHARACTER*2 commOpen,commClose        CHARACTER*2 commOpen,commClose
359        CHARACTER*3 index_lab        CHARACTER*3 index_lab
360        INTEGER K        INTEGER K
# Line 409  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 464  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 803  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 811  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 858  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
# Line 1267  C       The write statement may need to Line 1272  C       The write statement may need to
1272  #ifndef FMTFTN_IO_THREAD_SAFE  #ifndef FMTFTN_IO_THREAD_SAFE
1273          _BEGIN_CRIT(myThid)          _BEGIN_CRIT(myThid)
1274  #endif  #endif
1275           WRITE(unit,'(A,A,A,A,A,A)')           WRITE(unit,'(A,A,A,A,A,A)',ERR=999)
1276       &   '(',PROCESS_HEADER,' ',idString,')',' '       &   '(',PROCESS_HEADER,' ',idString,')',' '
1277  #ifndef FMTFTN_IO_THREAD_SAFE  #ifndef FMTFTN_IO_THREAD_SAFE
1278          _END_CRIT(myThid)          _END_CRIT(myThid)
# Line 1276  C       The write statement may need to Line 1281  C       The write statement may need to
1281  #ifndef FMTFTN_IO_THREAD_SAFE  #ifndef FMTFTN_IO_THREAD_SAFE
1282          _BEGIN_CRIT(myThid)          _BEGIN_CRIT(myThid)
1283  #endif  #endif
1284           WRITE(unit,'(A,A,A,A,A,A,A)')           WRITE(unit,'(A,A,A,A,A,A,A)',ERR=999)
1285       &   '(',PROCESS_HEADER,' ',idString(1:ILNBLNK(idString)),')',' ',       &   '(',PROCESS_HEADER,' ',idString(1:ILNBLNK(idString)),')',' ',
1286       &   message(iStart:iEnd)       &   message(iStart:iEnd)
1287  #ifndef FMTFTN_IO_THREAD_SAFE  #ifndef FMTFTN_IO_THREAD_SAFE
# Line 1285  C       The write statement may need to Line 1290  C       The write statement may need to
1290         ENDIF         ENDIF
1291        ENDIF        ENDIF
1292  C  C
1293     1000 CONTINUE
1294        RETURN        RETURN
1295      999 CONTINUE
1296           ioErrorCount(myThid) = ioErrorCount(myThid)+1
1297          GOTO 1000
1298    
1299        END        END
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22