/[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.7 by jmc, Wed Apr 6 18:47:11 2005 UTC revision 1.8 by jmc, Sun May 15 03:04:57 2005 UTC
# Line 44  CEOP Line 44  CEOP
44  #ifdef ALLOW_MONITOR  #ifdef ALLOW_MONITOR
45    
46  C     == Local variables ==  C     == Local variables ==
47        LOGICAL  DIFF_BASE_MULTIPLE        LOGICAL  DIFFERENT_MULTIPLE
48        EXTERNAL DIFF_BASE_MULTIPLE        EXTERNAL DIFFERENT_MULTIPLE
49        CHARACTER*(MAX_LEN_MBUF) msgBuf        CHARACTER*(MAX_LEN_MBUF) msgBuf
50        CHARACTER*10 mon_var        CHARACTER*10 mon_var
51        CHARACTER*2 mon_sufx(0:2)        CHARACTER*2 mon_sufx(0:2)
# Line 64  C     == Local variables == Line 64  C     == Local variables ==
64  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
65    
66        IF (        IF (
67       &   DIFF_BASE_MULTIPLE(baseTime,thSIce_monFreq,myTime,deltaTclock)       &   DIFFERENT_MULTIPLE(thSIce_monFreq,myTime,deltaTclock)
68       &   .OR. myIter.EQ.nIter0 ) THEN       &   .OR. myIter.EQ.nIter0 ) THEN
69    
70          mon_write_stdout = .FALSE.          mon_write_stdout = .FALSE.
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22