/[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.46 by mlosch, Fri Nov 19 01:33:31 2004 UTC revision 1.47 by mlosch, Wed Dec 1 22:53:12 2004 UTC
# Line 74  C     Write model state to binary file Line 74  C     Write model state to binary file
74  C     Do time averages  C     Do time averages
75        IF (taveFreq.GT.0. .AND. myIter.NE.nIter0 ) THEN        IF (taveFreq.GT.0. .AND. myIter.NE.nIter0 ) THEN
76          CALL TIMEAVE_STATV_WRITE( myTime, myIter, myThid )          CALL TIMEAVE_STATV_WRITE( myTime, myIter, myThid )
 #ifdef ALLOW_PTRACERS  
         IF ( usePTRACERS )  
      &       CALL PTRACERS_STATV_WRITE( myTime, myIter, myThid )  
 #endif  
77        ENDIF        ENDIF
78  #endif  #endif
79    
# Line 163  C     Do seaice diagnostics. Line 159  C     Do seaice diagnostics.
159       &     CALL THSICE_DIAGS( myTime, myIter, myThid )       &     CALL THSICE_DIAGS( myTime, myIter, myThid )
160  #endif  #endif
161    
162  cswdptr ---  add ---  #ifdef ALLOW_PTRACERS
163    C--   Do ptracer output.
164          IF ( usePTRACERS )
165         & CALL PTRACERS_OUTPUT( myTime, myIter, myThid )
166    #endif
167    
168  #ifdef ALLOW_GCHEM  #ifdef ALLOW_GCHEM
169  C--   Do ptracer diagnostics.  C--   Do GCHEM diagnostics.
170        IF (useGCHEM)        IF (useGCHEM)
171       & CALL GCHEM_DIAGS( myTime, myIter, myThid )       & CALL GCHEM_DIAGS( myTime, myIter, myThid )
172  #endif  #endif
 cswdptr -- end add ---  
173    
174  #ifdef COMPONENT_MODULE  #ifdef COMPONENT_MODULE
175        IF ( useCoupler )        IF ( useCoupler )
Legend:
Removed from v.1.46  
changed lines
  Added in v.1.47
  ViewVC Help
Powered by ViewVC 1.1.22