/[MITgcm]/MITgcm/pkg/autodiff/g_dummy_in_stepping.F
ViewVC logotype

Diff of /MITgcm/pkg/autodiff/g_dummy_in_stepping.F

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

revision 1.6 by heimbach, Fri Sep 17 22:57:12 2004 UTC revision 1.7 by jmc, Wed Apr 6 18:35:44 2005 UTC
# Line 31  C     == Global variables === Line 31  C     == Global variables ===
31  # include "g_common.h"  # include "g_common.h"
32  #endif  #endif
33    
34        LOGICAL  DIFFERENT_MULTIPLE        LOGICAL  DIFF_BASE_MULTIPLE
35        EXTERNAL DIFFERENT_MULTIPLE        EXTERNAL DIFF_BASE_MULTIPLE
36        INTEGER  IO_ERRCOUNT        INTEGER  IO_ERRCOUNT
37        EXTERNAL IO_ERRCOUNT        EXTERNAL IO_ERRCOUNT
38    
# Line 65  CEOP Line 65  CEOP
65        call TIMER_START('I/O (WRITE)        [ADJOINT LOOP]', myThid )        call TIMER_START('I/O (WRITE)        [ADJOINT LOOP]', myThid )
66    
67        IF (        IF (
68       &  DIFFERENT_MULTIPLE(adjDumpFreq,mytime,       &  DIFF_BASE_MULTIPLE(baseTime,adjDumpFreq,mytime,deltaTClock)
      &                     mytime-deltaTClock)  
69       & ) THEN       & ) THEN
70    
71           write(*,*) 'myIter= ',myiter           write(*,*) 'myIter= ',myiter
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22