Parent Directory | Revision Log | Revision Graph | Patch
revision 1.39 by jmc, Wed Mar 7 00:00:06 2007 UTC | revision 1.40 by heimbach, Mon Apr 16 22:44:29 2007 UTC | |
---|---|---|
# | Line 183 C--- Continue with standard packages (w | Line 183 C--- Continue with standard packages (w |
183 | IF (useBulkForce) CALL PACKAGES_CHECK_ERROR('BULK?FORCE',myThid) | IF (useBulkForce) CALL PACKAGES_CHECK_ERROR('BULK?FORCE',myThid) |
184 | #endif | #endif |
185 | ||
186 | #ifndef ALLOW_THSICE | #ifdef ALLOW_THSICE |
187 | IF (useThSIce) CALL THSICE_CHECK( myThid ) | |
188 | #else | |
189 | IF (useThSIce) CALL PACKAGES_CHECK_ERROR('THSICE', myThid) | IF (useThSIce) CALL PACKAGES_CHECK_ERROR('THSICE', myThid) |
190 | #endif | #endif |
191 |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |