/[MITgcm]/MITgcm/pkg/land/land_monitor.F
ViewVC logotype

Diff of /MITgcm/pkg/land/land_monitor.F

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

revision 1.13 by jmc, Mon Dec 21 00:15:57 2009 UTC revision 1.14 by jmc, Tue Mar 16 00:14:47 2010 UTC
# Line 83  C---+----1----+----2----+----3----+----4 Line 83  C---+----1----+----2----+----3----+----4
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.
# Line 298  c       CALL MON_OUT_RL(mon_var, theMax( Line 298  c       CALL MON_OUT_RL(mon_var, theMax(
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)') '// ===========================',
Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14
  ViewVC Help
Powered by ViewVC 1.1.22