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

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

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

revision 1.3 by jmc, Wed Apr 6 18:45:48 2005 UTC revision 1.4 by jmc, Sun May 15 03:06:01 2005 UTC
# Line 23  C     !USES: Line 23  C     !USES:
23  #include "PTRACERS.h"  #include "PTRACERS.h"
24  #include "PTRACERS_STATV.h"  #include "PTRACERS_STATV.h"
25  C     Functions  C     Functions
26        LOGICAL  DIFF_BASE_MULTIPLE        LOGICAL  DIFFERENT_MULTIPLE
27        EXTERNAL DIFF_BASE_MULTIPLE        EXTERNAL DIFFERENT_MULTIPLE
28        INTEGER  IO_ERRCOUNT        INTEGER  IO_ERRCOUNT
29        EXTERNAL IO_ERRCOUNT        EXTERNAL IO_ERRCOUNT
30    
# Line 57  C     Functions Line 57  C     Functions
57  #endif /*  ALLOW_MNC  */  #endif /*  ALLOW_MNC  */
58    
59  C     Final Time Averages and Dump Files if needed  C     Final Time Averages and Dump Files if needed
60  c     IF ( myIter.NE.nIter0 .AND. DIFF_BASE_MULTIPLE        IF ( DIFFERENT_MULTIPLE( PTRACERS_taveFreq, myTime, deltaTClock )
61  c    &  (baseTime,PTRACERS_taveFreq, myTime, deltaTClock) ) THEN       &   ) THEN
       IF ( DIFF_BASE_MULTIPLE  
      &     (baseTime,PTRACERS_taveFreq, myTime, deltaTClock) ) THEN  
62    
63  CML        WRITE(*,*) 'EH3:  myIter = ', myIter  CML        WRITE(*,*) 'EH3:  myIter = ', myIter
64                    
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22