/[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.30 by jmc, Tue Apr 28 22:00:46 2009 UTC revision 1.31 by jmc, Fri Jun 19 03:05:13 2009 UTC
# Line 49  C     == Global data == Line 49  C     == Global data ==
49  #include "SIZE.h"  #include "SIZE.h"
50  #include "EEPARAMS.h"  #include "EEPARAMS.h"
51  #include "EESUPPORT.h"  #include "EESUPPORT.h"
       INTEGER  IFNBLNK  
       EXTERNAL IFNBLNK  
       INTEGER  ILNBLNK  
       EXTERNAL ILNBLNK  
52    
53  C     !INPUT/OUTPUT PARAMETERS:  C     !INPUT/OUTPUT PARAMETERS:
54  C     == Routine arguments ==  C     == Routine arguments ==
# Line 64  C     sq      :: Justification option Line 60  C     sq      :: Justification option
60        CHARACTER*(*) sq        CHARACTER*(*) sq
61        INTEGER  myThid        INTEGER  myThid
62    
63    C     !FUNCTIONS:
64          INTEGER  IFNBLNK
65          EXTERNAL IFNBLNK
66          INTEGER  ILNBLNK
67          EXTERNAL ILNBLNK
68    
69  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
70  C     == Local variables ==  C     == Local variables ==
71  C     iStart, iEnd :: String indexing variables  C     iStart, iEnd :: String indexing variables
# Line 176  C     == Global data == Line 178  C     == Global data ==
178  #include "SIZE.h"  #include "SIZE.h"
179  #include "EEPARAMS.h"  #include "EEPARAMS.h"
180  #include "EESUPPORT.h"  #include "EESUPPORT.h"
       INTEGER  IFNBLNK  
       EXTERNAL IFNBLNK  
       INTEGER  ILNBLNK  
       EXTERNAL ILNBLNK  
181    
182  C     !INPUT/OUTPUT PARAMETERS:  C     !INPUT/OUTPUT PARAMETERS:
183  C     == Routine arguments ==  C     == Routine arguments ==
# Line 188  C     myThid  :: Thread number of this i Line 186  C     myThid  :: Thread number of this i
186        CHARACTER*(*) message        CHARACTER*(*) message
187        INTEGER       myThid        INTEGER       myThid
188    
189    C     !FUNCTIONS:
190    c     INTEGER  IFNBLNK
191    c     EXTERNAL IFNBLNK
192          INTEGER  ILNBLNK
193          EXTERNAL ILNBLNK
194    
195  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
196  C     == Local variables ==  C     == Local variables ==
197  C     iStart, iEnd :: Temps. for string indexing  C     iStart, iEnd :: Temps. for string indexing
198  C     idString     :: Temp. for building message prefix  C     idString     :: Temp. for building message prefix
199        INTEGER iStart  c     INTEGER iStart
200        INTEGER iEnd        INTEGER iEnd
201        CHARACTER*9 idString        CHARACTER*9 idString
202  CEOP  CEOP
203    
204  C--   Find beginning and end of message  C--   Find beginning and end of message
205        iStart = IFNBLNK( message )  c     iStart = IFNBLNK( message )
206        iEnd   = ILNBLNK( message )        iEnd   = ILNBLNK( message )
207  C--   Test to see if in multi-process ( or multi-threaded ) mode.  C--   Test to see if in multi-process ( or multi-threaded ) mode.
208  C     If so include process or thread identifier.  C     If so include process or thread identifier.
209        IF ( numberOfProcs .EQ. 0 .AND. nThreads .EQ. 1 ) THEN        IF ( numberOfProcs .EQ. 0 .AND. nThreads .EQ. 1 ) THEN
210  C--    Write single process format  C--    Write single process format
211         IF ( message .EQ. ' ' ) THEN         IF ( iEnd.EQ.0 ) THEN
212          WRITE(errorMessageUnit,'(A,1X,A)') ERROR_HEADER, ' '          WRITE(errorMessageUnit,'(A,1X,A)') ERROR_HEADER, ' '
213         ELSE         ELSE
214          WRITE(errorMessageUnit,'(A,1X,A)') ERROR_HEADER,          WRITE(errorMessageUnit,'(A,1X,A)') ERROR_HEADER,
215       &   message(iStart:iEnd)       &        message(1:iEnd)
216    c    &    message(iStart:iEnd)
217         ENDIF         ENDIF
218        ELSE        ELSE
219  C       PRINT_ERROR can be called by several threads simulataneously.  C       PRINT_ERROR can be called by several threads simulataneously.
# Line 233  c         WRITE(errorMessageUnit,'(A,A,1 Line 238  c         WRITE(errorMessageUnit,'(A,A,1
238  c         WRITE(errorMessageUnit,'(A,A,1X,A,A,A,A,A)',ERR=999)  c         WRITE(errorMessageUnit,'(A,A,1X,A,A,A,A,A)',ERR=999)
239            WRITE(errorMessageUnit,'(A,A,1X,A,A,A,A,A)')            WRITE(errorMessageUnit,'(A,A,1X,A,A,A,A,A)')
240       &    '(',PROCESS_HEADER,idString,')',ERROR_HEADER,' ',       &    '(',PROCESS_HEADER,idString,')',ERROR_HEADER,' ',
241       &    message(iStart:iEnd)       &        message(1:iEnd)
242    c    &    message(iStart:iEnd)
243           ENDIF           ENDIF
244         ENDIF         ENDIF
245    
# Line 706  C     !USES: Line 712  C     !USES:
712  C     == Global variables ==  C     == Global variables ==
713  #include "SIZE.h"  #include "SIZE.h"
714  #include "EEPARAMS.h"  #include "EEPARAMS.h"
       INTEGER  IFNBLNK  
       EXTERNAL IFNBLNK  
       INTEGER  ILNBLNK  
       EXTERNAL ILNBLNK  
715    
716  C     !INPUT/OUTPUT PARAMETERS:  C     !INPUT/OUTPUT PARAMETERS:
717  C     == Routine arguments ==  C     == Routine arguments ==
# Line 740  C     kStr Line 742  C     kStr
742        INTEGER bxMin, bxMax, bxStr        INTEGER bxMin, bxMax, bxStr
743        INTEGER byMin, byMax, byStr        INTEGER byMin, byMax, byStr
744    
745    C     !FUNCTIONS:
746          INTEGER  IFNBLNK
747          EXTERNAL IFNBLNK
748          INTEGER  ILNBLNK
749          EXTERNAL ILNBLNK
750    
751  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
752  C     == Local variables ==  C     == Local variables ==
753  C     plotBuf - Buffer for building plot record  C     plotBuf - Buffer for building plot record
# Line 1137  C     !USES: Line 1145  C     !USES:
1145  C     == Global variables ==  C     == Global variables ==
1146  #include "SIZE.h"  #include "SIZE.h"
1147  #include "EEPARAMS.h"  #include "EEPARAMS.h"
       INTEGER  IFNBLNK  
       EXTERNAL IFNBLNK  
       INTEGER  ILNBLNK  
       EXTERNAL ILNBLNK  
1148    
1149  C     !INPUT/OUTPUT PARAMETERS:  C     !INPUT/OUTPUT PARAMETERS:
1150  C     == Routine arguments ==  C     == Routine arguments ==
# Line 1171  C     kStr Line 1175  C     kStr
1175        INTEGER bxMin, bxMax, bxStr        INTEGER bxMin, bxMax, bxStr
1176        INTEGER byMin, byMax, byStr        INTEGER byMin, byMax, byStr
1177    
1178    C     !FUNCTIONS:
1179          INTEGER  IFNBLNK
1180          EXTERNAL IFNBLNK
1181          INTEGER  ILNBLNK
1182          EXTERNAL ILNBLNK
1183    
1184  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
1185  C     == Local variables ==  C     == Local variables ==
1186  C     plotBuf - Buffer for building plot record  C     plotBuf - Buffer for building plot record
Legend:
Removed from v.1.30  
changed lines
  Added in v.1.31
  ViewVC Help
Powered by ViewVC 1.1.22