/[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.8 by jmc, Wed Apr 6 18:41:51 2005 UTC revision 1.9 by jmc, Sun May 15 03:04:56 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  DIFF_BASE_MULTIPLE        LOGICAL  DIFFERENT_MULTIPLE
44        EXTERNAL DIFF_BASE_MULTIPLE        EXTERNAL DIFFERENT_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 ( DIFF_BASE_MULTIPLE(baseTime,land_monFreq,myTime,deltaTclock)        IF ( DIFFERENT_MULTIPLE(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.8  
changed lines
  Added in v.1.9
  ViewVC Help
Powered by ViewVC 1.1.22