13 |
C.gd === Global data === |
C.gd === Global data === |
14 |
#include "SIZE.h" |
#include "SIZE.h" |
15 |
#include "EEPARAMS.h" |
#include "EEPARAMS.h" |
16 |
|
#include "PARAMS.h" |
17 |
|
#include "EESUPPORT.h" |
18 |
#include "MONITOR.h" |
#include "MONITOR.h" |
19 |
EXTERNAL IFNBLNK |
EXTERNAL IFNBLNK |
20 |
INTEGER IFNBLNK |
INTEGER IFNBLNK |
89 |
msgBuf(35:35) = '=' |
msgBuf(35:35) = '=' |
90 |
|
|
91 |
_BEGIN_MASTER(myThid) |
_BEGIN_MASTER(myThid) |
92 |
WRITE(msgBuf(36:57),'(1X,I21)') value |
#ifdef ALLOW_USE_MPI |
93 |
CALL PRINT_MESSAGE( msgBuf, mon_ioUnit, SQUEEZE_RIGHT, 1 ) |
IF ( .NOT. useSingleCPUIO .OR. mpiMyId .EQ. 0 ) THEN |
94 |
|
#endif /* ALLOW_USE_MPI */ |
95 |
|
WRITE(msgBuf(36:57),'(1X,I21)') value |
96 |
|
CALL PRINT_MESSAGE( msgBuf, mon_ioUnit, SQUEEZE_RIGHT, 1 ) |
97 |
|
#ifdef ALLOW_USE_MPI |
98 |
|
ENDIF |
99 |
|
#endif /* ALLOW_USE_MPI */ |
100 |
_END_MASTER() |
_END_MASTER() |
101 |
|
|
102 |
RETURN |
RETURN |
111 |
C.gd === Global data === |
C.gd === Global data === |
112 |
#include "SIZE.h" |
#include "SIZE.h" |
113 |
#include "EEPARAMS.h" |
#include "EEPARAMS.h" |
114 |
|
#include "PARAMS.h" |
115 |
|
#include "EESUPPORT.h" |
116 |
#include "MONITOR.h" |
#include "MONITOR.h" |
117 |
EXTERNAL IFNBLNK |
EXTERNAL IFNBLNK |
118 |
INTEGER IFNBLNK |
INTEGER IFNBLNK |
187 |
msgBuf(35:35) = '=' |
msgBuf(35:35) = '=' |
188 |
|
|
189 |
_BEGIN_MASTER(myThid) |
_BEGIN_MASTER(myThid) |
190 |
WRITE(msgBuf(36:57),'(1X,1P1E21.13)') value |
#ifdef ALLOW_USE_MPI |
191 |
CALL PRINT_MESSAGE( msgBuf, mon_ioUnit, SQUEEZE_RIGHT, 1 ) |
IF ( .NOT. useSingleCPUIO .OR. mpiMyId .EQ. 0 ) THEN |
192 |
|
#endif /* ALLOW_USE_MPI */ |
193 |
|
WRITE(msgBuf(36:57),'(1X,1P1E21.13)') value |
194 |
|
CALL PRINT_MESSAGE( msgBuf, mon_ioUnit, SQUEEZE_RIGHT, 1 ) |
195 |
|
#ifdef ALLOW_USE_MPI |
196 |
|
ENDIF |
197 |
|
#endif /* ALLOW_USE_MPI */ |
198 |
_END_MASTER() |
_END_MASTER() |
199 |
|
|
200 |
RETURN |
RETURN |
209 |
C.gd === Global data === |
C.gd === Global data === |
210 |
#include "SIZE.h" |
#include "SIZE.h" |
211 |
#include "EEPARAMS.h" |
#include "EEPARAMS.h" |
212 |
|
#include "PARAMS.h" |
213 |
|
#include "EESUPPORT.h" |
214 |
#include "MONITOR.h" |
#include "MONITOR.h" |
215 |
EXTERNAL IFNBLNK |
EXTERNAL IFNBLNK |
216 |
INTEGER IFNBLNK |
INTEGER IFNBLNK |
285 |
msgBuf(35:35) = '=' |
msgBuf(35:35) = '=' |
286 |
|
|
287 |
_BEGIN_MASTER(myThid) |
_BEGIN_MASTER(myThid) |
288 |
WRITE(msgBuf(36:57),'(1X,1P1E21.13)') value |
#ifdef ALLOW_USE_MPI |
289 |
CALL PRINT_MESSAGE( msgBuf, mon_ioUnit, SQUEEZE_RIGHT, 1 ) |
IF ( .NOT. useSingleCPUIO .OR. mpiMyId .EQ. 0 ) THEN |
290 |
|
#endif /* ALLOW_USE_MPI */ |
291 |
|
WRITE(msgBuf(36:57),'(1X,1P1E21.13)') value |
292 |
|
CALL PRINT_MESSAGE( msgBuf, mon_ioUnit, SQUEEZE_RIGHT, 1 ) |
293 |
|
#ifdef ALLOW_USE_MPI |
294 |
|
ENDIF |
295 |
|
#endif /* ALLOW_USE_MPI */ |
296 |
_END_MASTER() |
_END_MASTER() |
297 |
|
|
298 |
RETURN |
RETURN |