/[MITgcm]/MITgcm/model/src/packages_check.F
ViewVC logotype

Diff of /MITgcm/model/src/packages_check.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.26 by heimbach, Sat Dec 4 17:57:06 2004 UTC revision 1.27 by jmc, Mon Dec 13 22:01:50 2004 UTC
# Line 147  CEOP Line 147  CEOP
147        CALL COST_CHECK( myThid )        CALL COST_CHECK( myThid )
148  #endif  #endif
149    
150    #ifdef ALLOW_DIAGNOSTICS
151          IF (useDiagnostics) CALL DIAGNOSTICS_CHECK( myThid )
152    #else
153          IF (useDiagnostics)
154         &   CALL PACKAGES_CHECK_ERROR('DIAGNOSTICS', myThid )
155    #endif
156    
157        RETURN        RETURN
158        END        END
Legend:
Removed from v.1.26  
changed lines
  Added in v.1.27
  ViewVC Help
Powered by ViewVC 1.1.22