/[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.7 by jmc, Wed Apr 6 18:40:28 2005 UTC revision 1.8 by jmc, Sun May 15 03:04:56 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  DIFF_BASE_MULTIPLE        LOGICAL  DIFFERENT_MULTIPLE
48        EXTERNAL DIFF_BASE_MULTIPLE        EXTERNAL DIFFERENT_MULTIPLE
49    
50        IF (        IF (
51       &     DIFF_BASE_MULTIPLE(baseTime,dumpFreq,myTime,deltaTClock).OR.       &     DIFFERENT_MULTIPLE(dumpFreq,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.7  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22