/[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.17 by jmc, Mon Dec 21 00:17:00 2009 UTC revision 1.18 by jmc, Tue Mar 16 00:22:26 2010 UTC
# Line 60  C---+----1----+----2----+----3----+----4 Line 60  C---+----1----+----2----+----3----+----4
60  C--   Ptracers field monitor start  C--   Ptracers field monitor start
61          IF ( MASTER_CPU_IO(myThid) ) THEN          IF ( MASTER_CPU_IO(myThid) ) THEN
62  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
63  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):
64    
65            IF (monitor_stdio) THEN            IF (monitor_stdio) THEN
66              mon_write_stdout = .TRUE.              mon_write_stdout = .TRUE.
# Line 119  c        WRITE(suff,'(A6,I4.4)') 'ptrac' Line 119  c        WRITE(suff,'(A6,I4.4)') 'ptrac'
119  C--   Ptracers field monitor finish  C--   Ptracers field monitor finish
120         IF ( MASTER_CPU_IO(myThid) ) THEN         IF ( MASTER_CPU_IO(myThid) ) THEN
121  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
122  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):
123    
124          IF ( mon_write_stdout ) THEN          IF ( mon_write_stdout ) THEN
125           WRITE(msgBuf,'(2A)') '// ==========================',           WRITE(msgBuf,'(2A)') '// ==========================',
Legend:
Removed from v.1.17  
changed lines
  Added in v.1.18
  ViewVC Help
Powered by ViewVC 1.1.22