57 |
IF (useMY82) CALL PACKAGES_CHECK_ERROR('MY82', myThid) |
IF (useMY82) CALL PACKAGES_CHECK_ERROR('MY82', myThid) |
58 |
#endif |
#endif |
59 |
|
|
60 |
|
#ifdef ALLOW_GGL90 |
61 |
|
IF (useGGL90) CALL GGL90_CHECK( myThid ) |
62 |
|
#else |
63 |
|
IF (useGGL90) CALL PACKAGES_CHECK_ERROR('GGL90', myThid) |
64 |
|
#endif |
65 |
|
|
66 |
|
#ifdef ALLOW_OPPS |
67 |
|
IF (useOPPS) CALL OPPS_CHECK( myThid ) |
68 |
|
#else |
69 |
|
IF (useOPPS) CALL PACKAGES_CHECK_ERROR('OPPS', myThid) |
70 |
|
#endif |
71 |
|
|
72 |
#ifdef ALLOW_GMREDI |
#ifdef ALLOW_GMREDI |
73 |
IF (useGMRedi) CALL GMREDI_CHECK( myThid ) |
IF (useGMRedi) CALL GMREDI_CHECK( myThid ) |
74 |
#else |
#else |