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

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

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

revision 1.27 by dimitri, Sun Feb 20 11:46:25 2005 UTC revision 1.28 by jmc, Wed Apr 6 18:47:28 2005 UTC
# Line 24  C     !USES: Line 24  C     !USES:
24  #include "DYNVARS.h"  #include "DYNVARS.h"
25  #include "GRID.h"  #include "GRID.h"
26  #include "TIMEAVE_STATV.h"  #include "TIMEAVE_STATV.h"
27        LOGICAL  DIFFERENT_MULTIPLE        LOGICAL  DIFF_BASE_MULTIPLE
28        EXTERNAL DIFFERENT_MULTIPLE        EXTERNAL DIFF_BASE_MULTIPLE
29        INTEGER  IO_ERRCOUNT        INTEGER  IO_ERRCOUNT
30        EXTERNAL IO_ERRCOUNT        EXTERNAL IO_ERRCOUNT
31    
# Line 55  C     useVariableK :: T when vertical di Line 55  C     useVariableK :: T when vertical di
55    
56  C     Final Time Averages and Dump Files if needed  C     Final Time Averages and Dump Files if needed
57        dumpFiles = .FALSE.        dumpFiles = .FALSE.
58        IF (DIFFERENT_MULTIPLE(taveFreq,myTime,myTime-deltaTClock))        IF ( DIFF_BASE_MULTIPLE(baseTime,taveFreq,myTime,deltaTClock) )
59       &     dumpFiles = .TRUE.       &     dumpFiles = .TRUE.
60  #ifdef ALLOW_CAL  #ifdef ALLOW_CAL
61        IF ( calendarDumps .AND. (        IF ( calendarDumps .AND. (
Legend:
Removed from v.1.27  
changed lines
  Added in v.1.28
  ViewVC Help
Powered by ViewVC 1.1.22