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 |
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 |
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 |
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 |
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 |
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 |
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 |
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) |
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 |
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 |