/[MITgcm]/MITgcm/pkg/thsice/thsice_monitor.F
ViewVC logotype

Diff of /MITgcm/pkg/thsice/thsice_monitor.F

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

revision 1.3 by jmc, Wed Apr 7 23:40:34 2004 UTC revision 1.4 by jmc, Wed Sep 8 02:07:48 2004 UTC
# Line 65  C---+----1----+----2----+----3----+----4 Line 65  C---+----1----+----2----+----3----+----4
65        IF ( DIFFERENT_MULTIPLE(thSIce_monFreq,myTime,myTime-deltaTclock)        IF ( DIFFERENT_MULTIPLE(thSIce_monFreq,myTime,myTime-deltaTclock)
66       &     .OR. myIter.EQ.nIter0 ) THEN       &     .OR. myIter.EQ.nIter0 ) THEN
67    
68            mon_write_stdout = .TRUE.
69    
70         _BEGIN_MASTER(myThid)         _BEGIN_MASTER(myThid)
71          WRITE(msgBuf,'(A)')          WRITE(msgBuf,'(A)')
72       &'// ======================================================='       &'// ======================================================='
# Line 210  C-- 2nd  level (volume-mean) Temp. : Line 212  C-- 2nd  level (volume-mean) Temp. :
212          CALL PRINT_MESSAGE( msgBuf, mon_ioUnit, SQUEEZE_RIGHT , 1)          CALL PRINT_MESSAGE( msgBuf, mon_ioUnit, SQUEEZE_RIGHT , 1)
213         _END_MASTER(myThid)         _END_MASTER(myThid)
214    
215            mon_write_stdout = .FALSE.
216    
217        ENDIF        ENDIF
218    
219  #endif /* ALLOW_MONITOR */  #endif /* ALLOW_MONITOR */
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22