/[MITgcm]/MITgcm/pkg/thsice/thsice_monitor.F
ViewVC logotype

Diff of /MITgcm/pkg/thsice/thsice_monitor.F

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

revision 1.12 by jmc, Fri Jun 23 00:50:22 2006 UTC revision 1.13 by jmc, Tue Oct 17 18:22:33 2006 UTC
# Line 17  C     !USES: Line 17  C     !USES:
17  C     === Global variables ===  C     === Global variables ===
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 "THSICE_PARAMS.h"  #include "THSICE_PARAMS.h"
# Line 39  CEOP Line 38  CEOP
38  #ifdef ALLOW_THSICE  #ifdef ALLOW_THSICE
39  #ifdef ALLOW_MONITOR  #ifdef ALLOW_MONITOR
40    
41  C     == Local variables ==  C     === Functions ====
42        LOGICAL  DIFFERENT_MULTIPLE        LOGICAL  DIFFERENT_MULTIPLE
43        EXTERNAL DIFFERENT_MULTIPLE        EXTERNAL DIFFERENT_MULTIPLE
44          LOGICAL  MASTER_CPU_IO
45          EXTERNAL MASTER_CPU_IO
46    
47    C     == Local variables ==
48        CHARACTER*(MAX_LEN_MBUF) msgBuf        CHARACTER*(MAX_LEN_MBUF) msgBuf
49        CHARACTER*10 mon_var        CHARACTER*10 mon_var
50        CHARACTER*2 mon_sufx(0:2)        CHARACTER*2 mon_sufx(0:2)
# Line 65  C---+----1----+----2----+----3----+----4 Line 68  C---+----1----+----2----+----3----+----4
68       &   DIFFERENT_MULTIPLE(thSIce_monFreq,myTime,deltaTclock)       &   DIFFERENT_MULTIPLE(thSIce_monFreq,myTime,deltaTclock)
69       &   .OR. myIter.EQ.nIter0 ) THEN       &   .OR. myIter.EQ.nIter0 ) THEN
70    
71  #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)  
72  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
73  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):
74    
# Line 106  C     & mon_write_mnc (since it's the on Line 106  C     & mon_write_mnc (since it's the on
106              CALL PRINT_MESSAGE( msgBuf, mon_ioUnit, SQUEEZE_RIGHT , 1)              CALL PRINT_MESSAGE( msgBuf, mon_ioUnit, SQUEEZE_RIGHT , 1)
107            ENDIF            ENDIF
108    
109            _END_MASTER(myThid)  C--   endif master cpu io
 #ifdef ALLOW_USE_MPI  
110          ENDIF          ENDIF
 #endif /* ALLOW_USE_MPI */  
111    
112          CALL MON_SET_PREF('thSI_',myThid)          CALL MON_SET_PREF('thSI_',myThid)
113          CALL MON_OUT_RL('time_sec', myTime,mon_string_none,myThid)          CALL MON_OUT_RL('time_sec', myTime,mon_string_none,myThid)
# Line 234  C-- 2nd  level (volume-mean) Temp. : Line 232  C-- 2nd  level (volume-mean) Temp. :
232          CALL MON_OUT_RL(mon_var, theMax(1), mon_sufx(1), myThid)          CALL MON_OUT_RL(mon_var, theMax(1), mon_sufx(1), myThid)
233          CALL MON_OUT_RL(mon_var, theMax(2), mon_sufx(2), myThid)          CALL MON_OUT_RL(mon_var, theMax(2), mon_sufx(2), myThid)
234    
235  #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)  
236  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
237  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):
238    
# Line 256  C     & mon_write_mnc (since it's the on Line 251  C     & mon_write_mnc (since it's the on
251            mon_write_stdout = .FALSE.            mon_write_stdout = .FALSE.
252            mon_write_mnc    = .FALSE.            mon_write_mnc    = .FALSE.
253    
254            _END_MASTER(myThid)  C--   endif master cpu io
 #ifdef ALLOW_USE_MPI  
255          ENDIF          ENDIF
 #endif /* ALLOW_USE_MPI */  
256    
257  C     endif different multiple  C     endif different multiple
258        ENDIF        ENDIF
Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13
  ViewVC Help
Powered by ViewVC 1.1.22