/[MITgcm]/MITgcm/model/src/write_state.F
ViewVC logotype

Diff of /MITgcm/model/src/write_state.F

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

revision 1.51 by edhill, Sat Dec 18 02:18:55 2004 UTC revision 1.52 by jmc, Wed Apr 6 18:29:53 2005 UTC
# Line 56  C     !USES: Line 56  C     !USES:
56  #include "GRID.h"  #include "GRID.h"
57  #include "EOS.h"  #include "EOS.h"
58    
59        LOGICAL  DIFFERENT_MULTIPLE        LOGICAL  DIFF_BASE_MULTIPLE
60        EXTERNAL DIFFERENT_MULTIPLE        EXTERNAL DIFF_BASE_MULTIPLE
61        INTEGER  IO_ERRCOUNT        INTEGER  IO_ERRCOUNT
62        EXTERNAL IO_ERRCOUNT        EXTERNAL IO_ERRCOUNT
63    
# Line 75  C     !LOCAL VARIABLES: Line 75  C     !LOCAL VARIABLES:
75  CEOP  CEOP
76    
77        IF (        IF (
78       &     DIFFERENT_MULTIPLE(dumpFreq,myTime,       &     DIFF_BASE_MULTIPLE(baseTime,dumpFreq,myTime,deltaTClock)
      &     myTime-deltaTClock)  
79  #ifndef MINIMAL_TAVE_OUTPUT  #ifndef MINIMAL_TAVE_OUTPUT
80       &     .OR. myTime.EQ.endTime       &     .OR. myTime.EQ.endTime
81       &     .OR. myTime.EQ.startTime       &     .OR. myTime.EQ.startTime
Legend:
Removed from v.1.51  
changed lines
  Added in v.1.52
  ViewVC Help
Powered by ViewVC 1.1.22