/[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.43 by edhill, Fri Sep 10 12:19:29 2004 UTC revision 1.44 by mlosch, Thu Sep 16 09:35:11 2004 UTC
# Line 125  C     Do MY82 diagnostics. Line 125  C     Do MY82 diagnostics.
125       &     CALL MY82_DO_DIAGS( myTime, myIter, myThid )       &     CALL MY82_DO_DIAGS( myTime, myIter, myThid )
126  #endif  #endif
127    
128    #ifdef ALLOW_OPPS
129    C--   Do OPPS diagnostics.
130          IF (useOPPS .AND. myIter.NE.nIter0 )
131         & CALL OPPS_DO_DIAGS( myTime, myIter, myThid )
132    #endif
133    
134    #ifdef ALLOW_GGL90
135    C--   Do GGL90 diagnostics.
136          IF (useGGL90 .AND. myIter.NE.nIter0 )
137         & CALL GGL90_DO_DIAGS( myTime, myIter, myThid )
138    #endif
139    
140  #ifdef ALLOW_SBO  #ifdef ALLOW_SBO
141  C     Do SBO diagnostics.  C     Do SBO diagnostics.
142        IF (useSBO .AND. myIter.NE.nIter0 ) THEN        IF (useSBO .AND. myIter.NE.nIter0 ) THEN
Legend:
Removed from v.1.43  
changed lines
  Added in v.1.44
  ViewVC Help
Powered by ViewVC 1.1.22