83 |
|
|
84 |
IF ( MASTER_CPU_IO(myThid) ) THEN |
IF ( MASTER_CPU_IO(myThid) ) THEN |
85 |
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 |
86 |
C & mon_write_mnc (since it's the only thread that uses those flags): |
C & mon_write_mnc (since it is the only thread that uses those flags): |
87 |
|
|
88 |
IF ( land_mon_stdio ) THEN |
IF ( land_mon_stdio ) THEN |
89 |
mon_write_stdout = .TRUE. |
mon_write_stdout = .TRUE. |
298 |
|
|
299 |
IF ( MASTER_CPU_IO(myThid) ) THEN |
IF ( MASTER_CPU_IO(myThid) ) THEN |
300 |
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 |
301 |
C & mon_write_mnc (since it's the only thread that uses those flags): |
C & mon_write_mnc (since it is the only thread that uses those flags): |
302 |
|
|
303 |
IF (mon_write_stdout) THEN |
IF (mon_write_stdout) THEN |
304 |
WRITE(msgBuf,'(2A)') '// ===========================', |
WRITE(msgBuf,'(2A)') '// ===========================', |