Parent Directory | Revision Log | Revision Graph | Patch
revision 1.11 by adcroft, Mon Mar 4 17:26:41 2002 UTC | revision 1.12 by heimbach, Tue Nov 12 20:45:41 2002 UTC | |
---|---|---|
# | Line 76 CEOP | Line 76 CEOP |
76 | IF (useFLT) CALL PACKAGES_CHECK_ERROR('FLT', myThid) | IF (useFLT) CALL PACKAGES_CHECK_ERROR('FLT', myThid) |
77 | #endif | #endif |
78 | ||
79 | #ifdef ALLOW_SEAICE | |
80 | IF (useSEAICE) CALL SEAICE_CHECK( myThid ) | |
81 | #else | |
82 | IF (useSEAICE) CALL PACKAGES_CHECK_ERROR('SEAICE', myThid) | |
83 | #endif | |
84 | ||
85 | RETURN | RETURN |
86 | END | END |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |