/[MITgcm]/MITgcm/pkg/ptracers/ptracers_write_state.F
ViewVC logotype

Diff of /MITgcm/pkg/ptracers/ptracers_write_state.F

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

revision 1.9 by edhill, Sat Dec 18 02:18:56 2004 UTC revision 1.10 by jmc, Wed Apr 6 18:45:48 2005 UTC
# Line 41  C     iRec      :: record number Line 41  C     iRec      :: record number
41        CHARACTER*(MAX_LEN_MBUF) suff        CHARACTER*(MAX_LEN_MBUF) suff
42        INTEGER iRec        INTEGER iRec
43    
44        LOGICAL  DIFFERENT_MULTIPLE        LOGICAL  DIFF_BASE_MULTIPLE
45        EXTERNAL DIFFERENT_MULTIPLE        EXTERNAL DIFF_BASE_MULTIPLE
46        INTEGER  IO_ERRCOUNT        INTEGER  IO_ERRCOUNT
47        EXTERNAL IO_ERRCOUNT        EXTERNAL IO_ERRCOUNT
48    
49        IF (        IF (
50       &     DIFFERENT_MULTIPLE(PTRACERS_dumpFreq,myTime,       &     DIFF_BASE_MULTIPLE(baseTime,PTRACERS_dumpFreq,
51       &     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
# Line 113  C     End of tracer loop Line 113  C     End of tracer loop
113    
114         _END_MASTER( myThid )         _END_MASTER( myThid )
115         _BARRIER         _BARRIER
116  C     DIFFERENT_MULTIPLE  C     DIFF_BASE_MULTIPLE
117        ENDIF        ENDIF
118    
119  #endif /* ALLOW_PTRACERS */  #endif /* ALLOW_PTRACERS */
Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10
  ViewVC Help
Powered by ViewVC 1.1.22