3 |
|
|
4 |
#include "CPP_OPTIONS.h" |
#include "CPP_OPTIONS.h" |
5 |
|
|
6 |
SUBROUTINE MON_OUT_I(pref, value, foot ) |
SUBROUTINE MON_OUT_I(pref, value, foot, myThid ) |
7 |
C.sh /==========================================================\ |
C.sh /==========================================================\ |
8 |
C | SUBROUTINE MON_OUT_I | |
C | SUBROUTINE MON_OUT_I | |
9 |
C | o Formatted integer I/O for monitor print out. | |
C | o Formatted integer I/O for monitor print out. | |
18 |
INTEGER IFNBLNK |
INTEGER IFNBLNK |
19 |
EXTERNAL ILNBLNK |
EXTERNAL ILNBLNK |
20 |
INTEGER ILNBLNK |
INTEGER ILNBLNK |
21 |
|
INTEGER myThid |
22 |
C. |
C. |
23 |
|
|
24 |
C.ra === Routine arguments === |
C.ra === Routine arguments === |
86 |
|
|
87 |
msgBuf(35:35) = '=' |
msgBuf(35:35) = '=' |
88 |
|
|
89 |
|
_BEGIN_MASTER(myThid) |
90 |
WRITE(msgBuf(36:57),'(1X,I21)') value |
WRITE(msgBuf(36:57),'(1X,I21)') value |
|
|
|
91 |
CALL PRINT_MESSAGE( msgBuf, mon_ioUnit, SQUEEZE_RIGHT, 1 ) |
CALL PRINT_MESSAGE( msgBuf, mon_ioUnit, SQUEEZE_RIGHT, 1 ) |
92 |
|
_END_MASTER() |
93 |
|
|
94 |
RETURN |
RETURN |
95 |
END |
END |
96 |
SUBROUTINE MON_OUT_RS(pref, value, foot ) |
SUBROUTINE MON_OUT_RS(pref, value, foot, myThid ) |
97 |
C.sh /==========================================================\ |
C.sh /==========================================================\ |
98 |
C | SUBROUTINE MON_OUT_RS | |
C | SUBROUTINE MON_OUT_RS | |
99 |
C | o Formatted RS I/O for monitor print out. | |
C | o Formatted RS I/O for monitor print out. | |
108 |
INTEGER IFNBLNK |
INTEGER IFNBLNK |
109 |
EXTERNAL ILNBLNK |
EXTERNAL ILNBLNK |
110 |
INTEGER ILNBLNK |
INTEGER ILNBLNK |
111 |
|
INTEGER myThid |
112 |
C. |
C. |
113 |
|
|
114 |
C.ra === Routine arguments === |
C.ra === Routine arguments === |
176 |
|
|
177 |
msgBuf(35:35) = '=' |
msgBuf(35:35) = '=' |
178 |
|
|
179 |
|
_BEGIN_MASTER(myThid) |
180 |
WRITE(msgBuf(36:57),'(1X,1P1E21.13)') value |
WRITE(msgBuf(36:57),'(1X,1P1E21.13)') value |
|
|
|
181 |
CALL PRINT_MESSAGE( msgBuf, mon_ioUnit, SQUEEZE_RIGHT, 1 ) |
CALL PRINT_MESSAGE( msgBuf, mon_ioUnit, SQUEEZE_RIGHT, 1 ) |
182 |
|
_END_MASTER() |
183 |
|
|
184 |
RETURN |
RETURN |
185 |
END |
END |
186 |
SUBROUTINE MON_OUT_RL(pref, value, foot ) |
SUBROUTINE MON_OUT_RL(pref, value, foot, myThid ) |
187 |
C.sh /==========================================================\ |
C.sh /==========================================================\ |
188 |
C | SUBROUTINE MON_OUT_RL | |
C | SUBROUTINE MON_OUT_RL | |
189 |
C | o Formatted RL I/O for monitor print out. | |
C | o Formatted RL I/O for monitor print out. | |
207 |
CHARACTER*(*) pref |
CHARACTER*(*) pref |
208 |
_RL value |
_RL value |
209 |
CHARACTER*(*) foot |
CHARACTER*(*) foot |
210 |
|
INTEGER myThid |
211 |
C. |
C. |
212 |
|
|
213 |
C.lv === Local variables === |
C.lv === Local variables === |
266 |
|
|
267 |
msgBuf(35:35) = '=' |
msgBuf(35:35) = '=' |
268 |
|
|
269 |
|
_BEGIN_MASTER(myThid) |
270 |
WRITE(msgBuf(36:57),'(1X,1P1E21.13)') value |
WRITE(msgBuf(36:57),'(1X,1P1E21.13)') value |
|
|
|
271 |
CALL PRINT_MESSAGE( msgBuf, mon_ioUnit, SQUEEZE_RIGHT, 1 ) |
CALL PRINT_MESSAGE( msgBuf, mon_ioUnit, SQUEEZE_RIGHT, 1 ) |
272 |
|
_END_MASTER() |
273 |
|
|
274 |
RETURN |
RETURN |
275 |
END |
END |