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 |
101 |
IF (usePTRACERS) CALL PACKAGES_CHECK_ERROR('PTRACERS', myThid) |
IF (usePTRACERS) CALL PACKAGES_CHECK_ERROR('PTRACERS', myThid) |
102 |
#endif |
#endif |
103 |
|
|
104 |
|
#ifdef ALLOW_GCHEM |
105 |
|
IF (useGCHEM) CALL GCHEM_CHECK( myThid ) |
106 |
|
#else |
107 |
|
IF (useGCHEM) CALL PACKAGES_CHECK_ERROR('GCHEM', myThid) |
108 |
|
#endif |
109 |
|
|
110 |
#ifndef ALLOW_SHAP_FILT |
#ifndef ALLOW_SHAP_FILT |
111 |
IF (useSHAP_FILT) CALL PACKAGES_CHECK_ERROR('SHAP_FILT', myThid) |
IF (useSHAP_FILT) CALL PACKAGES_CHECK_ERROR('SHAP_FILT', myThid) |
112 |
#endif |
#endif |
136 |
#endif |
#endif |
137 |
|
|
138 |
#ifdef ALLOW_AUTODIFF |
#ifdef ALLOW_AUTODIFF |
139 |
|
CALL AUTODIFF_CHECK( myThid ) |
140 |
CALL CTRL_CHECK( myThid ) |
CALL CTRL_CHECK( myThid ) |
141 |
CALL COST_CHECK( myThid ) |
CALL COST_CHECK( myThid ) |
142 |
#endif |
#endif |