/[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.45 by jmc, Tue Oct 12 20:36:36 2004 UTC revision 1.46 by mlosch, Fri Nov 19 01:33:31 2004 UTC
# Line 165  C     Do seaice diagnostics. Line 165  C     Do seaice diagnostics.
165    
166  cswdptr ---  add ---  cswdptr ---  add ---
167  #ifdef ALLOW_GCHEM  #ifdef ALLOW_GCHEM
 ceh3 ???  why is one package depending upon another here?  
168  C--   Do ptracer diagnostics.  C--   Do ptracer diagnostics.
169        IF (usePTRACERS)        IF (useGCHEM)
170       & CALL GCHEM_DIAGS( myTime, myIter, myThid )       & CALL GCHEM_DIAGS( myTime, myIter, myThid )
171  #endif  #endif
172  cswdptr -- end add ---  cswdptr -- end add ---
Legend:
Removed from v.1.45  
changed lines
  Added in v.1.46
  ViewVC Help
Powered by ViewVC 1.1.22