/[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.40 by jmc, Mon Dec 28 02:43:52 2009 UTC revision 1.41 by jmc, Fri Jan 15 22:43:55 2010 UTC
# Line 130  C       Write to files Line 130  C       Write to files
130    
131          IF (timeave_mdsio) THEN          IF (timeave_mdsio) THEN
132    
 C         Set IO "context" for writing state  
 #ifdef USE_DFILE  
           CALL DFILE_SET_RW  
           CALL DFILE_SET_CONT_ON_ERROR  
 #endif  
133  C         Read IO error counter  C         Read IO error counter
134            beginIOErrCount = IO_ERRCOUNT(myThid)            beginIOErrCount = IO_ERRCOUNT(myThid)
135            CALL WRITE_FLD_XY_RL('ETAtave.' ,suff,etatave  ,myIter,myThid)            CALL WRITE_FLD_XY_RL('ETAtave.' ,suff,etatave  ,myIter,myThid)
Legend:
Removed from v.1.40  
changed lines
  Added in v.1.41
  ViewVC Help
Powered by ViewVC 1.1.22