/[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.10 by jmc, Wed Apr 6 18:45:48 2005 UTC revision 1.11 by jmc, Sun May 15 03:06:01 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  DIFF_BASE_MULTIPLE        LOGICAL  DIFFERENT_MULTIPLE
45        EXTERNAL DIFF_BASE_MULTIPLE        EXTERNAL DIFFERENT_MULTIPLE
46        INTEGER  IO_ERRCOUNT        INTEGER  IO_ERRCOUNT
47        EXTERNAL IO_ERRCOUNT        EXTERNAL IO_ERRCOUNT
48    
49        IF (        IF ( DIFFERENT_MULTIPLE( PTRACERS_dumpFreq, myTime, deltaTClock )
50       &     DIFF_BASE_MULTIPLE(baseTime,PTRACERS_dumpFreq,       & .OR.myTime.EQ.endTime
51       &     myTime,deltaTClock) .OR.       & .OR.myTime.EQ.startTime
52       &     myTime.EQ.endTime .OR.       &   ) THEN
      &     myTime.EQ.startTime  
      &     ) THEN  
53                
54  C     Write to files  C     Write to files
55         _BARRIER         _BARRIER
# Line 113  C     End of tracer loop Line 111  C     End of tracer loop
111    
112         _END_MASTER( myThid )         _END_MASTER( myThid )
113         _BARRIER         _BARRIER
 C     DIFF_BASE_MULTIPLE  
114        ENDIF        ENDIF
115    
116  #endif /* ALLOW_PTRACERS */  #endif /* ALLOW_PTRACERS */
Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11
  ViewVC Help
Powered by ViewVC 1.1.22