/[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.34 by jmc, Thu Nov 20 03:50:22 2003 UTC revision 1.35 by jmc, Sun Nov 23 01:28:05 2003 UTC
# Line 125  C--   Do SBO diagnostics. Line 125  C--   Do SBO diagnostics.
125    
126  #ifdef ALLOW_BULK_FORCE  #ifdef ALLOW_BULK_FORCE
127  C--   Do bulkf diagnostics.  C--   Do bulkf diagnostics.
128        IF (useBulkforce .AND. myIter.NE.nIter0 )        IF (useBulkForce .AND. myIter.NE.nIter0 )
129       & CALL BULKF_DIAGS( myTime, myIter, myThid )       & CALL BULKF_DIAGS( myTime, myIter, myThid )
130  #endif  #endif
131    
132  #ifdef ALLOW_THERM_SEAICE  #ifdef ALLOW_THSICE
133  C--   Do seaice diagnostics.  C--   Do seaice diagnostics.
134        IF (useThermSeaice)        IF (useThSIce)
135       & CALL ICE_DIAGS( myTime, myIter, myThid )       & CALL THSICE_DIAGS( myTime, myIter, myThid )
136  #endif  #endif
137    
138  cswdptr ---  add ---  cswdptr ---  add ---
Legend:
Removed from v.1.34  
changed lines
  Added in v.1.35
  ViewVC Help
Powered by ViewVC 1.1.22