Parent Directory | Revision Log | Revision Graph | Patch
revision 1.14 by jmc, Thu Jun 12 18:21:34 2003 UTC | revision 1.15 by heimbach, Thu Jun 19 15:00:45 2003 UTC | |
---|---|---|
# | Line 92 CEOP | Line 92 CEOP |
92 | IF (useSEAICE) CALL PACKAGES_CHECK_ERROR('SEAICE', myThid) | IF (useSEAICE) CALL PACKAGES_CHECK_ERROR('SEAICE', myThid) |
93 | #endif | #endif |
94 | ||
95 | #if ( defined (ALLOW_ADJOINT_RUN) || \ | |
96 | defined (ALLOW_TANGENTLINEAR_RUN) || \ | |
97 | defined (ALLOW_GRADIENT_CHECK) || \ | |
98 | defined (ALLOW_ECCO_OPTIMIZATION) ) | |
99 | CALL CTRL_CHECK( myThid ) | |
100 | CALL COST_CHECK( myThid ) | |
101 | #endif | |
102 | ||
103 | RETURN | RETURN |
104 | END | END |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |