/[MITgcm]/MITgcm/pkg/ptracers/ptracers_monitor.F
ViewVC logotype

Diff of /MITgcm/pkg/ptracers/ptracers_monitor.F

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

revision 1.12 by jmc, Tue Aug 8 21:24:31 2006 UTC revision 1.13 by jmc, Tue Oct 17 18:22:33 2006 UTC
# Line 17  C !USES: =============================== Line 17  C !USES: ===============================
17        IMPLICIT NONE        IMPLICIT NONE
18  #include "SIZE.h"  #include "SIZE.h"
19  #include "EEPARAMS.h"  #include "EEPARAMS.h"
 #include "EESUPPORT.h"  
20  #include "PARAMS.h"  #include "PARAMS.h"
21  #include "GRID.h"  #include "GRID.h"
22  #include "PTRACERS_SIZE.h"  #include "PTRACERS_SIZE.h"
# Line 37  C  myThid               :: thread number Line 36  C  myThid               :: thread number
36  C     === Functions ====  C     === Functions ====
37        LOGICAL  DIFFERENT_MULTIPLE        LOGICAL  DIFFERENT_MULTIPLE
38        EXTERNAL DIFFERENT_MULTIPLE        EXTERNAL DIFFERENT_MULTIPLE
39          LOGICAL  MASTER_CPU_IO
40          EXTERNAL MASTER_CPU_IO
41    
42  #ifdef ALLOW_PTRACERS  #ifdef ALLOW_PTRACERS
43  #ifdef ALLOW_MONITOR  #ifdef ALLOW_MONITOR
# Line 55  CEOP Line 56  CEOP
56  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
57    
58  C--   Ptracers field monitor start  C--   Ptracers field monitor start
59  #ifdef ALLOW_USE_MPI          IF ( MASTER_CPU_IO(myThid) ) THEN
60          IF ( .NOT.useSingleCPUIO .OR. mpiMyId.EQ.0 ) THEN  C--   only the master thread is allowed to switch On/Off mon_write_stdout
 #endif /* ALLOW_USE_MPI */  
           _BEGIN_MASTER(myThid)  
 C-    only the master thread is allowed to switch On/Off mon_write_stdout  
61  C     & mon_write_mnc (since it's the only thread that uses those flags):  C     & mon_write_mnc (since it's the only thread that uses those flags):
62    
63            IF (monitor_stdio) THEN            IF (monitor_stdio) THEN
# Line 93  C     & mon_write_mnc (since it's the on Line 91  C     & mon_write_mnc (since it's the on
91              CALL PRINT_MESSAGE( msgBuf, mon_ioUnit, SQUEEZE_RIGHT , 1)              CALL PRINT_MESSAGE( msgBuf, mon_ioUnit, SQUEEZE_RIGHT , 1)
92            ENDIF            ENDIF
93    
94          _END_MASTER(myThid)  C--   endif master cpu io
 #ifdef ALLOW_USE_MPI  
95         ENDIF         ENDIF
 #endif /* ALLOW_USE_MPI */  
96    
97  C--   Ptracers field monitor : compute stats & write  C--   Ptracers field monitor : compute stats & write
98         IF ( PTRACERS_monitorFreq .NE. monitorFreq         IF ( PTRACERS_monitorFreq .NE. monitorFreq
# Line 119  c        WRITE(suff,'(A7,I3.3)') 'ptrac_ Line 115  c        WRITE(suff,'(A7,I3.3)') 'ptrac_
115         ENDDO         ENDDO
116    
117  C--   Ptracers field monitor finish  C--   Ptracers field monitor finish
118  #ifdef ALLOW_USE_MPI         IF ( MASTER_CPU_IO(myThid) ) THEN
        IF ( .NOT. useSingleCPUIO .OR. mpiMyId .EQ. 0 ) THEN  
 #endif /* ALLOW_USE_MPI */  
         _BEGIN_MASTER(myThid)  
119  C-    only the master thread is allowed to switch On/Off mon_write_stdout  C-    only the master thread is allowed to switch On/Off mon_write_stdout
120  C     & mon_write_mnc (since it's the only thread that uses those flags):  C     & mon_write_mnc (since it's the only thread that uses those flags):
121    
# Line 141  C     & mon_write_mnc (since it's the on Line 134  C     & mon_write_mnc (since it's the on
134          mon_write_stdout = .FALSE.          mon_write_stdout = .FALSE.
135          mon_write_mnc    = .FALSE.          mon_write_mnc    = .FALSE.
136    
137          _END_MASTER(myThid)  C-    endif master cpu io
 #ifdef ALLOW_USE_MPI  
138         ENDIF         ENDIF
 #endif /* ALLOW_USE_MPI */  
139    
140  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
141    
142  C     endif different multiple  C---  endif different multiple
143        ENDIF        ENDIF
144    
145  #endif /* ALLOW_MONITOR */  #endif /* ALLOW_MONITOR */
Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13
  ViewVC Help
Powered by ViewVC 1.1.22