/[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.7 by edhill, Sat Dec 18 02:18:55 2004 UTC revision 1.8 by jmc, Wed Apr 6 18:41:51 2005 UTC
# Line 40  CEOP Line 40  CEOP
40  #ifdef ALLOW_LAND  #ifdef ALLOW_LAND
41  #ifdef ALLOW_MONITOR  #ifdef ALLOW_MONITOR
42    
43        LOGICAL  DIFFERENT_MULTIPLE        LOGICAL  DIFF_BASE_MULTIPLE
44        EXTERNAL DIFFERENT_MULTIPLE        EXTERNAL DIFF_BASE_MULTIPLE
45    
46  C     == Local variables ==  C     == Local variables ==
47  C     nLatBnd    :: Number of latitude bands  C     nLatBnd    :: Number of latitude bands
# Line 78  C     theEnergy  :: total energy Line 78  C     theEnergy  :: total energy
78    
79  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
80    
81        IF ( DIFFERENT_MULTIPLE(land_monFreq,myTime,myTime-deltaTclock)        IF ( DIFF_BASE_MULTIPLE(baseTime,land_monFreq,myTime,deltaTclock)
82       &     .OR. myIter.EQ.nIter0 ) THEN       &     .OR. myIter.EQ.nIter0 ) THEN
83    
84          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