/[MITgcm]/MITgcm/model/src/do_the_model_io.F
ViewVC logotype

Diff of /MITgcm/model/src/do_the_model_io.F

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

revision 1.29 by heimbach, Thu Jun 19 15:00:45 2003 UTC revision 1.30 by stephd, Wed Jun 25 21:06:35 2003 UTC
# Line 94  C--   Write model state to binary file Line 94  C--   Write model state to binary file
94  C--   Do time averages  C--   Do time averages
95        IF (taveFreq.GT.0.) THEN        IF (taveFreq.GT.0.) THEN
96         CALL TIMEAVE_STATV_WRITE( myCurrentTime, myIter, myThid )         CALL TIMEAVE_STATV_WRITE( myCurrentTime, myIter, myThid )
97    cswdptr -- add ---
98    #ifdef ALLOW_PTRACERS
99           CALL PTRACERS_STATV_WRITE( myCurrentTime, myIter, myThid )
100    #endif
101    cswdptr -- end add ---
102        ENDIF        ENDIF
103  #endif  #endif
104  #ifdef ALLOW_AIM  #ifdef ALLOW_AIM
# Line 148  C--   Do seaice diagnostics. Line 153  C--   Do seaice diagnostics.
153  #endif  #endif
154  cswdice -- end add ---  cswdice -- end add ---
155    
156    cswdptr ---  add ---
157    #ifdef ALLOW_PTRACERS
158    C--   Do ptracer diagnostics.
159          IF (usePTRACERS)
160         & CALL GCHEM_DIAGS( myCurrentTime, myIter, myThid )
161    #endif
162    cswdptr -- end add ---
163    
164    
165        RETURN        RETURN
166        END        END
167    
Legend:
Removed from v.1.29  
changed lines
  Added in v.1.30
  ViewVC Help
Powered by ViewVC 1.1.22