/[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.28 by jmc, Wed Apr 6 18:47:28 2005 UTC revision 1.30 by edhill, Wed May 25 04:03:10 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  DIFF_BASE_MULTIPLE        LOGICAL  DIFFERENT_MULTIPLE
28        EXTERNAL DIFF_BASE_MULTIPLE        EXTERNAL DIFFERENT_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 ( DIFF_BASE_MULTIPLE(baseTime,taveFreq,myTime,deltaTClock) )        IF ( DIFFERENT_MULTIPLE(taveFreq,myTime,deltaTClock) )
59       &     dumpFiles = .TRUE.       &     dumpFiles = .TRUE.
60  #ifdef ALLOW_CAL  #ifdef ALLOW_CAL
61        IF ( calendarDumps .AND. (        IF ( calendarDumps .AND. (
# Line 241  C         Check for IO errors Line 241  C         Check for IO errors
241          IF (useMNC .AND. timeave_mnc) THEN          IF (useMNC .AND. timeave_mnc) THEN
242                        
243            CALL MNC_CW_SET_UDIM('tave', -1, myThid)            CALL MNC_CW_SET_UDIM('tave', -1, myThid)
244            CALL MNC_CW_I_W_S('I','tave',0,0,'T', myIter, myThid)            CALL MNC_CW_RL_W_S('D','tave',0,0,'T', myTime, myThid)
245            CALL MNC_CW_SET_UDIM('tave', 0, myThid)            CALL MNC_CW_SET_UDIM('tave', 0, myThid)
246              CALL MNC_CW_I_W_S('I','tave',0,0,'iter', myIter, myThid)
247            CALL MNC_CW_RL_W_S('D','tave',0,0,'model_time',myTime,myThid)            CALL MNC_CW_RL_W_S('D','tave',0,0,'model_time',myTime,myThid)
248            CALL MNC_CW_RL_W('D','tave',0,0,'ETAtave',etatave,myThid)            CALL MNC_CW_RL_W('D','tave',0,0,'ETAtave',etatave,myThid)
249  C         EH3: something is wrong here...  C         EH3: something is wrong here...
Legend:
Removed from v.1.28  
changed lines
  Added in v.1.30
  ViewVC Help
Powered by ViewVC 1.1.22