/[MITgcm]/MITgcm/pkg/fizhi/fizhi_write_state.F
ViewVC logotype

Diff of /MITgcm/pkg/fizhi/fizhi_write_state.F

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

revision 1.6 by molod, Wed Aug 18 15:41:18 2004 UTC revision 1.7 by jmc, Wed Apr 6 18:40:28 2005 UTC
# Line 44  C     fn      :: character buffer for cr Line 44  C     fn      :: character buffer for cr
44        CHARACTER*(MAX_LEN_MBUF) suff        CHARACTER*(MAX_LEN_MBUF) suff
45        CHARACTER*(80) fn        CHARACTER*(80) fn
46        logical glf        logical glf
47        LOGICAL  DIFFERENT_MULTIPLE        LOGICAL  DIFF_BASE_MULTIPLE
48        EXTERNAL DIFFERENT_MULTIPLE        EXTERNAL DIFF_BASE_MULTIPLE
49    
50        IF (        IF (
51       &     DIFFERENT_MULTIPLE(dumpFreq,myTime,       &     DIFF_BASE_MULTIPLE(baseTime,dumpFreq,myTime,deltaTClock).OR.
      &     myTime-deltaTClock) .OR.  
52       &     myTime.EQ.endTime .OR.       &     myTime.EQ.endTime .OR.
53       &     myTime.EQ.startTime       &     myTime.EQ.startTime
54       &     ) THEN       &     ) THEN
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22