/[MITgcm]/MITgcm/pkg/timeave/timeave_statvars.F
ViewVC logotype

Diff of /MITgcm/pkg/timeave/timeave_statvars.F

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

revision 1.19 by dimitri, Sun Feb 20 11:46:25 2005 UTC revision 1.20 by jmc, Wed Apr 6 18:47:28 2005 UTC
# Line 19  C     == Global variables === Line 19  C     == Global variables ===
19  #include "GRID.h"  #include "GRID.h"
20  #include "TIMEAVE_STATV.h"  #include "TIMEAVE_STATV.h"
21    
22        LOGICAL  DIFFERENT_MULTIPLE        LOGICAL  DIFF_BASE_MULTIPLE
23        EXTERNAL DIFFERENT_MULTIPLE        EXTERNAL DIFF_BASE_MULTIPLE
24    
25  C     == Routine arguments ==  C     == Routine arguments ==
26  C     myThid - Thread number for this instance of the routine.  C     myThid - Thread number for this instance of the routine.
# Line 107  C-    Yearly  taveFreq: Line 107  C-    Yearly  taveFreq:
107       &  (thisdate(1)-prevdate(1)).GT.5000)DDTT=deltaTclock*tave_lastIter       &  (thisdate(1)-prevdate(1)).GT.5000)DDTT=deltaTclock*tave_lastIter
108  #endif  #endif
109        ELSEIF (        ELSEIF (
110       &  DIFFERENT_MULTIPLE(taveFreq, myTime, myTime-deltaTClock)) THEN       &  DIFF_BASE_MULTIPLE(baseTime,taveFreq,myTime,deltaTClock) ) THEN
111          DDTT = deltaTclock*tave_lastIter          DDTT = deltaTclock*tave_lastIter
112        ENDIF        ENDIF
113    
Legend:
Removed from v.1.19  
changed lines
  Added in v.1.20
  ViewVC Help
Powered by ViewVC 1.1.22