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" |
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) |
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 |
|
|
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) |
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 |
|
|
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 |