/[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.32 by edhill, Thu Oct 9 04:19:18 2003 UTC revision 1.33 by jmc, Wed Nov 12 21:52:57 2003 UTC
# Line 36  C     == Global variables === Line 36  C     == Global variables ===
36  #include "EEPARAMS.h"  #include "EEPARAMS.h"
37  #include "PARAMS.h"  #include "PARAMS.h"
38  #include "DYNVARS.h"  #include "DYNVARS.h"
 cswdblk --- add ---  
 #ifdef ALLOW_BULK_FORCE  
 #include "BULKF.h"  
 #include "FFIELDS.h"  
 #endif  
 cswdblk -- end add ---  
 cswdice -- add ---  
 #ifdef ALLOW_THERM_SEAICE  
 #include "ICE.h"  
 #include "ICE_DIAGS.h"  
 #endif  
 cswdice -- end add ---  
   
39    
40    
41        LOGICAL  DIFFERENT_MULTIPLE        LOGICAL  DIFFERENT_MULTIPLE
# Line 140  C--   Do SBO diagnostics. Line 127  C--   Do SBO diagnostics.
127        ENDIF        ENDIF
128  #endif  #endif
129    
 cswdblk ---  add ---  
130  #ifdef ALLOW_BULK_FORCE  #ifdef ALLOW_BULK_FORCE
131  C--   Do bulkf diagnostics.  C--   Do bulkf diagnostics.
132        IF (useBulkforce)        IF (useBulkforce)
133       & CALL BULKF_DIAGS( myCurrentTime, myIter, myThid )       & CALL BULKF_DIAGS( myCurrentTime, myIter, myThid )
134  #endif  #endif
 cswdblk -- end add ---  
135    
 cswdice ---  add ---  
136  #ifdef ALLOW_THERM_SEAICE  #ifdef ALLOW_THERM_SEAICE
137  C--   Do seaice diagnostics.  C--   Do seaice diagnostics.
138        IF (useThermSeaice)        IF (useThermSeaice)
139       & CALL ICE_DIAGS( myCurrentTime, myIter, myThid )       & CALL ICE_DIAGS( myCurrentTime, myIter, myThid )
140  #endif  #endif
 cswdice -- end add ---  
141    
142  cswdptr ---  add ---  cswdptr ---  add ---
143  #ifdef ALLOW_GCHEM  #ifdef ALLOW_GCHEM
# Line 165  C--   Do ptracer diagnostics. Line 148  C--   Do ptracer diagnostics.
148  #endif  #endif
149  cswdptr -- end add ---  cswdptr -- end add ---
150    
   
151        RETURN        RETURN
152        END        END
153    
Legend:
Removed from v.1.32  
changed lines
  Added in v.1.33
  ViewVC Help
Powered by ViewVC 1.1.22