Parent Directory | Revision Log | Revision Graph | 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 |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |