Parent Directory | Revision Log | Revision Graph | Patch
revision 1.49 by jmc, Sat Mar 13 00:26:21 2010 UTC | revision 1.50 by mlosch, Sat Sep 25 23:09:55 2010 UTC | |
---|---|---|
# | Line 347 C--- Continue with standard packages (w | Line 347 C--- Continue with standard packages (w |
347 | IF (useMYPACKAGE) CALL PACKAGES_ERROR_MSG('MYPACKAGE',' ',myThid) | IF (useMYPACKAGE) CALL PACKAGES_ERROR_MSG('MYPACKAGE',' ',myThid) |
348 | #endif | #endif |
349 | ||
350 | #ifdef ALLOW_OASIS | |
351 | IF (useOASIS) CALL OASIS_CHECK( myThid ) | |
352 | #else | |
353 | IF (useOASIS) CALL PACKAGES_ERROR_MSG('OASIS',' ',myThid) | |
354 | #endif | |
355 | ||
356 | #ifdef ALLOW_ECCO | #ifdef ALLOW_ECCO |
357 | CALL ECCO_CHECK( myThid ) | CALL ECCO_CHECK( myThid ) |
358 | #endif | #endif |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |