/[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.48 by jmc, Mon Dec 13 22:01:50 2004 UTC revision 1.49 by jmc, Tue Jan 4 00:27:47 2005 UTC
# Line 98  C     Do LAND time averages Line 98  C     Do LAND time averages
98  #endif  #endif
99    
100  #ifdef ALLOW_GMREDI  #ifdef ALLOW_GMREDI
101  C     Do GMRedi diagnostics.  C     Do GMRedi output.
102        IF (useGMRedi .AND. myIter.NE.nIter0 )        IF (useGMRedi .AND. myIter.NE.nIter0 )
103       &     CALL GMREDI_DIAGS( myTime, myIter, myThid )       &     CALL GMREDI_OUTPUT( myTime, myIter, myThid )
104  #endif  #endif
105    
106  #ifdef ALLOW_KPP  #ifdef ALLOW_KPP
# Line 154  C     Do bulkf diagnostics. Line 154  C     Do bulkf diagnostics.
154  #endif  #endif
155    
156  #ifdef ALLOW_THSICE  #ifdef ALLOW_THSICE
157  C     Do seaice diagnostics.  C     Do seaice output.
158        IF (useThSIce)        IF (useThSIce)
159       &     CALL THSICE_DIAGS( myTime, myIter, myThid )       &     CALL THSICE_OUTPUT( myTime, myIter, myThid )
160  #endif  #endif
161    
162  #ifdef ALLOW_PTRACERS  #ifdef ALLOW_PTRACERS
Legend:
Removed from v.1.48  
changed lines
  Added in v.1.49
  ViewVC Help
Powered by ViewVC 1.1.22