/[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.6 by edhill, Sat Dec 18 02:18:56 2004 UTC revision 1.7 by jmc, Wed Apr 6 18:47:11 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  DIFFERENT_MULTIPLE        LOGICAL  DIFF_BASE_MULTIPLE
48        EXTERNAL DIFFERENT_MULTIPLE        EXTERNAL DIFF_BASE_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 63  C     == Local variables == Line 63  C     == Local variables ==
63    
64  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
65    
66        IF ( DIFFERENT_MULTIPLE(thSIce_monFreq,myTime,myTime-deltaTclock)        IF (
67       &     .OR. myIter.EQ.nIter0 ) THEN       &   DIFF_BASE_MULTIPLE(baseTime,thSIce_monFreq,myTime,deltaTclock)
68         &   .OR. myIter.EQ.nIter0 ) THEN
69    
70          mon_write_stdout = .FALSE.          mon_write_stdout = .FALSE.
71          mon_write_mnc    = .FALSE.          mon_write_mnc    = .FALSE.
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22