/[MITgcm]/MITgcm/pkg/monitor/mon_out.F
ViewVC logotype

Diff of /MITgcm/pkg/monitor/mon_out.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.3 by adcroft, Tue May 13 18:18:05 2003 UTC revision 1.4 by dimitri, Sat Jan 10 00:48:49 2004 UTC
# Line 13  C.    \================================= Line 13  C.    \=================================
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
# Line 87  C. Line 89  C.
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
# Line 103  C.    \================================= Line 111  C.    \=================================
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
# Line 177  C. Line 187  C.
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
# Line 193  C.    \================================= Line 209  C.    \=================================
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
# Line 267  C. Line 285  C.
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
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22