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" |
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 |
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 |
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 |
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 |
|
|
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 */ |