Parent Directory | Revision Log | Revision Graph | Patch
revision 1.9.4.1 by heimbach, Mon Apr 8 20:10:37 2002 UTC | revision 1.9.4.2 by heimbach, Mon Nov 11 21:59:05 2002 UTC | |
---|---|---|
# | Line 72 CEOP | Line 72 CEOP |
72 | IF (useFLT) CALL PACKAGES_CHECK_ERROR('FLT', myThid) | IF (useFLT) CALL PACKAGES_CHECK_ERROR('FLT', myThid) |
73 | #endif | #endif |
74 | ||
75 | #ifdef ALLOW_SEAICE | |
76 | IF (useSEAICE) CALL SEAICE_CHECK( myThid ) | |
77 | #else | |
78 | IF (useSEAICE) CALL PACKAGES_CHECK_ERROR('SEAICE', myThid) | |
79 | #endif | |
80 | ||
81 | RETURN | RETURN |
82 | END | END |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |