model/src/packages_check.F

6d54cf9ca1 Ed H*0001 #include "PACKAGES_CONFIG.h"
2b6828d138 Alis*0002 #include "CPP_OPTIONS.h"
                0003
9366854e02 Chri*0004 CBOP
                0005 C     !ROUTINE: PACKAGES_CHECK
                0006 C     !INTERFACE:
c859c0e3e6 Patr*0007       SUBROUTINE PACKAGES_CHECK( myThid )
9366854e02 Chri*0008 C     !DESCRIPTION: \bv
                0009 C     *==========================================================*
266d33b714 Jean*0010 C     | SUBROUTINE PACKAGES_CHECK
                0011 C     | o Check runtime activated packages have been built in.
9366854e02 Chri*0012 C     *==========================================================*
266d33b714 Jean*0013 C     | All packages can be selected/deselected at build time
                0014 C     | ( when code is compiled ) and activated/deactivated at
                0015 C     | runtime. This routine does a quick check to trap packages
                0016 C     | that were activated at runtime but that were not compiled
                0017 C     | in at build time.
9366854e02 Chri*0018 C     *==========================================================*
                0019 C     \ev
2b6828d138 Alis*0020
8f92343d9b Jean*0021 C     !CALLING SEQUENCE:
                0022 C     PACKAGES_CHECK
                0023 C       |
                0024 C       |-- OBCS_CHECK
                0025 C       |
                0026 C       |-- OPPS_CHECK
                0027 C       |
                0028 C       |-- PP81_CHECK
                0029 C       |
                0030 C       |-- KL10_CHECK
                0031 C       |
                0032 C       |-- MY82_CHECK
                0033 C       |
                0034 C       |-- GGL90_CHECK
                0035 C       |
                0036 C       |-- KPP_CHECK
                0037 C       |
                0038 C       |-- GMREDI_CHECK
                0039 C       |
                0040 C       |-- BBL_CHECK
                0041 C       |
                0042 C       |-- EXF_CHECK
                0043 C       |
cc9097e522 Oliv*0044 C       |-- LONGSTEP_CHECK
                0045 C       |
8f92343d9b Jean*0046 C       |-- PTRACERS_CHECK
                0047 C       |
                0048 C       |-- GCHEM_CHECK
                0049 C       |
                0050 C       |-- OFFLINE_CHECK
                0051 C       |
                0052 C       |-- SEAICE_CHECK
                0053 C       |
                0054 C       |-- SHELFICE_CHECK
                0055 C       |
00f81e6785 Ou W*0056 C       |-- STIC_CHECK
                0057 C       |
7b8b86ab99 Timo*0058 C       |-- SMOOTH_CHECK
                0059 C       |
8f92343d9b Jean*0060 C       |-- STREAMICE_CHECK
                0061 C       |
                0062 C       |-- ICEFRONT_CHECK
                0063 C       |
                0064 C       |-- THSICE_CHECK
                0065 C       |
                0066 C       |-- LAND_CHECK
                0067 C       |
                0068 C       |-- ATM_PHYS_CHECK
                0069 C       |
                0070 C       |-- AUTODIFF_CHECK
                0071 C       |
                0072 C       |-- CTRL_CHECK
                0073 C       |
                0074 C       |-- COST_CHECK
                0075 C       |
d4b64b229a Jean*0076 C       |-- ECCO_CHECK
                0077 C       |
8f92343d9b Jean*0078 C       |-- GRDCHK_CHECK
                0079 C       |
                0080 C       |-- SBO_CHECK
                0081 C       |
                0082 C       |-- DIAGNOSTICS_CHECK
                0083 C       |
                0084 C       |-- REGRID_CHECK
                0085 C       |
                0086 C       |-- LAYERS_CHECK
                0087 C       |
                0088 C       |-- NEST_CHILD_CHECK
                0089 C       |
                0090 C       |-- NEST_PARENT_CHECK
                0091 C       |
                0092 C       |-- OASIS_CHECK
                0093 C       |
                0094 C       |-- RUNCLOCK_CHECK
                0095 C       |
                0096 C       |-- MYPACKAGE_CHECK
                0097 C       |
                0098 C       |-- GAD_CHECK
                0099
61e1a786bb Jean*0100 C     !USES:
9366854e02 Chri*0101       IMPLICIT NONE
2b6828d138 Alis*0102 C     === Global variables ===
                0103 #include "SIZE.h"
                0104 #include "EEPARAMS.h"
                0105 #include "PARAMS.h"
                0106
9366854e02 Chri*0107 C     !INPUT/OUTPUT PARAMETERS:
2b6828d138 Alis*0108 C     === Routine arguments ===
308c696200 Jean*0109 C     myThid :: my Thread Id number
2b6828d138 Alis*0110       INTEGER myThid
                0111
9366854e02 Chri*0112 C     !LOCAL VARIABLES:
2b6828d138 Alis*0113 C     === Local variables ===
ba9a45d563 Jean*0114 C     msgBuf :: Informational/error message buffer
266d33b714 Jean*0115       CHARACTER*(MAX_LEN_MBUF) msgBuf
9366854e02 Chri*0116 CEOP
2b6828d138 Alis*0117
308c696200 Jean*0118       _BEGIN_MASTER(myThid)
c19461ac28 Jean*0119       WRITE(msgBuf,'(A)')
                0120      &'== Packages configuration : Check & print summary =='
                0121       CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
                0122      &                    SQUEEZE_RIGHT, myThid )
                0123       WRITE(msgBuf,'(A)') ' '
                0124       CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
                0125      &                    SQUEEZE_RIGHT, myThid )
308c696200 Jean*0126       _END_MASTER(myThid)
c19461ac28 Jean*0127
266d33b714 Jean*0128 C---  Start with non-standard packages (without or with non standard flag)
                0129
                0130 #ifndef ALLOW_MNC
5e44d2ea81 Jean*0131       IF ( useMNC ) THEN
308c696200 Jean*0132         _BEGIN_MASTER(myThid)
                0133         WRITE(msgBuf,'(2A)') '** WARNING **',
266d33b714 Jean*0134      &   ' PACKAGES_CHECK: useMNC is TRUE'
                0135         CALL PRINT_MESSAGE( msgBuf, errorMessageUnit,
308c696200 Jean*0136      &                      SQUEEZE_RIGHT, myThid )
                0137         WRITE(msgBuf,'(2A)') '** WARNING **',
266d33b714 Jean*0138      &   ' but pkg/mnc has not been compiled (#undef ALLOW_MNC)'
                0139         CALL PRINT_MESSAGE( msgBuf, errorMessageUnit,
308c696200 Jean*0140      &                      SQUEEZE_RIGHT, myThid )
                0141         _END_MASTER(myThid)
266d33b714 Jean*0142       ENDIF
                0143 #endif
                0144
                0145 #ifndef ALLOW_MOM_VECINV
                0146       IF ( momStepping .AND. vectorInvariantMomentum ) THEN
                0147         WRITE(msgBuf,'(2A)')
                0148      &   'PACKAGES_CHECK: cannot step forward Momentum',
                0149      &   ' without pkg/mom_vecinv'
5e44d2ea81 Jean*0150         CALL PRINT_ERROR( msgBuf, myThid )
266d33b714 Jean*0151         WRITE(msgBuf,'(2A)') 'PACKAGES_CHECK: ',
                0152      &   'Re-compile with pkg "mom_vecinv" in packages.conf'
5e44d2ea81 Jean*0153         CALL PRINT_ERROR( msgBuf, myThid )
308c696200 Jean*0154         CALL ALL_PROC_DIE( myThid )
266d33b714 Jean*0155         STOP 'ABNORMAL END: S/R PACKAGES_CHECK'
                0156       ENDIF
                0157 #endif
                0158 #ifndef ALLOW_MOM_FLUXFORM
                0159       IF ( momStepping .AND. .NOT.vectorInvariantMomentum ) THEN
                0160         WRITE(msgBuf,'(2A)')
                0161      &   'PACKAGES_CHECK: cannot step forward Momentum',
                0162      &   ' without pkg/mom_fluxform'
5e44d2ea81 Jean*0163         CALL PRINT_ERROR( msgBuf, myThid )
266d33b714 Jean*0164         WRITE(msgBuf,'(2A)') 'PACKAGES_CHECK: ',
                0165      &   'Re-compile with pkg "mom_fluxform" in packages.conf'
5e44d2ea81 Jean*0166         CALL PRINT_ERROR( msgBuf, myThid )
308c696200 Jean*0167         CALL ALL_PROC_DIE( myThid )
266d33b714 Jean*0168         STOP 'ABNORMAL END: S/R PACKAGES_CHECK'
                0169       ENDIF
1eeb28fe07 Alis*0170 #endif
                0171
608c101f3d Jean*0172 #ifndef ALLOW_GENERIC_ADVDIFF
266d33b714 Jean*0173       IF ( tempStepping .OR. saltStepping ) THEN
                0174         WRITE(msgBuf,'(2A)')
                0175      &  'PACKAGES_CHECK: cannot step forward Temp or Salt',
                0176      &  ' without pkg/generic_advdiff'
5e44d2ea81 Jean*0177         CALL PRINT_ERROR( msgBuf, myThid )
266d33b714 Jean*0178         WRITE(msgBuf,'(2A)') 'PACKAGES_CHECK: ',
                0179      &  'Re-compile with pkg "generic_advdiff" in packages.conf'
5e44d2ea81 Jean*0180         CALL PRINT_ERROR( msgBuf, myThid )
308c696200 Jean*0181         CALL ALL_PROC_DIE( myThid )
266d33b714 Jean*0182         STOP 'ABNORMAL END: S/R PACKAGES_CHECK'
                0183       ENDIF
                0184 #endif
                0185
                0186 #ifndef ALLOW_MONITOR
                0187 C     If monitorFreq is finite, make sure the pkg/monitor is being compiled
5e44d2ea81 Jean*0188       IF ( monitorFreq.NE.zeroRL ) CALL PACKAGES_ERROR_MSG(
d85d0a6fc1 Jean*0189      &                  'MONITOR', 'monitorFreq <> 0', myThid )
266d33b714 Jean*0190 #endif
                0191
d85d0a6fc1 Jean*0192 #ifndef ALLOW_CD_CODE
5e44d2ea81 Jean*0193        IF ( useCDscheme ) CALL PACKAGES_ERROR_MSG(
d85d0a6fc1 Jean*0194      &                  'CD_CODE', 'useCDscheme=.T.', myThid )
266d33b714 Jean*0195 #endif
                0196
                0197 C---  Continue with standard packages (with standard usePKG flag)
                0198
5593e3ac8c Jean*0199 #ifdef ALLOW_OBCS
5e44d2ea81 Jean*0200       IF ( useOBCS ) CALL OBCS_CHECK( myThid )
266d33b714 Jean*0201 #else
5e44d2ea81 Jean*0202       IF ( useOBCS ) CALL PACKAGES_ERROR_MSG( 'OBCS', ' ', myThid )
9da3c4e8e8 Jean*0203 #endif
                0204
5593e3ac8c Jean*0205 #ifndef ALLOW_SHAP_FILT
5e44d2ea81 Jean*0206       IF ( useSHAP_FILT ) CALL PACKAGES_ERROR_MSG(
                0207      &                  'SHAP_FILT', ' ', myThid )
5593e3ac8c Jean*0208 #endif
                0209
                0210 #ifndef ALLOW_ZONAL_FILT
5e44d2ea81 Jean*0211       IF ( useZONAL_FILT )
5593e3ac8c Jean*0212      &   CALL PACKAGES_ERROR_MSG( 'ZONAL_FILT', ' ', myThid )
                0213 #endif
                0214
                0215 #ifdef ALLOW_OPPS
5e44d2ea81 Jean*0216       IF ( useOPPS ) CALL OPPS_CHECK( myThid )
2b6828d138 Alis*0217 #else
5e44d2ea81 Jean*0218       IF ( useOPPS ) CALL PACKAGES_ERROR_MSG( 'OPPS', ' ', myThid )
2b6828d138 Alis*0219 #endif
                0220
e864122ae8 Mart*0221 #ifdef ALLOW_PP81
5e44d2ea81 Jean*0222       IF ( usePP81 ) CALL PP81_CHECK( myThid )
e864122ae8 Mart*0223 #else
5e44d2ea81 Jean*0224       IF ( usePP81 ) CALL PACKAGES_ERROR_MSG( 'PP81', ' ', myThid )
e864122ae8 Mart*0225 #endif
                0226
d8d1486ca1 Jean*0227 #ifdef ALLOW_KL10
5e44d2ea81 Jean*0228       IF ( useKL10 ) CALL KL10_CHECK( myThid )
d8d1486ca1 Jean*0229 #else
5e44d2ea81 Jean*0230       IF ( useKL10 ) CALL PACKAGES_ERROR_MSG( 'KL10', ' ', myThid )
d8d1486ca1 Jean*0231 #endif
                0232
e864122ae8 Mart*0233 #ifdef ALLOW_MY82
5e44d2ea81 Jean*0234       IF ( useMY82 ) CALL MY82_CHECK( myThid )
e864122ae8 Mart*0235 #else
5e44d2ea81 Jean*0236       IF ( useMY82 ) CALL PACKAGES_ERROR_MSG( 'MY82', ' ', myThid )
e864122ae8 Mart*0237 #endif
                0238
69a7b27187 Mart*0239 #ifdef ALLOW_GGL90
5e44d2ea81 Jean*0240       IF ( useGGL90 ) CALL GGL90_CHECK( myThid )
69a7b27187 Mart*0241 #else
5e44d2ea81 Jean*0242       IF ( useGGL90 ) CALL PACKAGES_ERROR_MSG( 'GGL90', ' ', myThid )
69a7b27187 Mart*0243 #endif
                0244
5593e3ac8c Jean*0245 #ifdef ALLOW_KPP
5e44d2ea81 Jean*0246       IF ( useKPP ) CALL KPP_CHECK( myThid )
69a7b27187 Mart*0247 #else
5e44d2ea81 Jean*0248       IF ( useKPP ) CALL PACKAGES_ERROR_MSG( 'KPP', ' ', myThid )
69a7b27187 Mart*0249 #endif
                0250
d9cbf1fa03 Patr*0251 #ifdef ALLOW_GMREDI
5e44d2ea81 Jean*0252       IF ( useGMRedi ) CALL GMREDI_CHECK( myThid )
d9cbf1fa03 Patr*0253 #else
5e44d2ea81 Jean*0254       IF ( useGMRedi ) CALL PACKAGES_ERROR_MSG( 'GMRedi', ' ', myThid )
2b6828d138 Alis*0255 #endif
                0256
15338fa568 Dimi*0257 #ifdef ALLOW_BBL
5e44d2ea81 Jean*0258       IF ( useBBL ) CALL BBL_CHECK( myThid )
15338fa568 Dimi*0259 #else
5e44d2ea81 Jean*0260       IF ( useBBL ) CALL PACKAGES_ERROR_MSG( 'BBL', ' ', myThid )
15338fa568 Dimi*0261 #endif
                0262
5593e3ac8c Jean*0263 #ifndef ALLOW_DOWN_SLOPE
5e44d2ea81 Jean*0264       IF ( useDOWN_SLOPE ) CALL PACKAGES_ERROR_MSG(
                0265      &                  'DOWN_SLOPE', ' ', myThid )
d85d0a6fc1 Jean*0266 #endif
                0267
5c264f5173 Jean*0268 #ifndef ALLOW_CAL
5e44d2ea81 Jean*0269       IF ( useCAL ) CALL PACKAGES_ERROR_MSG( 'CAL', ' ', myThid )
5c264f5173 Jean*0270 #endif
                0271
3529a6b907 Jean*0272 #ifdef ALLOW_EXF
5e44d2ea81 Jean*0273       IF ( useEXF ) CALL EXF_CHECK( myThid )
3529a6b907 Jean*0274 #else
5e44d2ea81 Jean*0275       IF ( useEXF ) CALL PACKAGES_ERROR_MSG( 'EXF', ' ', myThid )
fb481a83c2 Alis*0276 #endif
                0277
e65934771e Jean*0278 #ifndef ALLOW_BULK_FORCE
5e44d2ea81 Jean*0279       IF ( useBulkForce ) CALL PACKAGES_ERROR_MSG(
d85d0a6fc1 Jean*0280      &                  'BULK_FORCE', 'useBulkForce=.T.', myThid )
e65934771e Jean*0281 #endif
                0282
58d0aa8f35 Jean*0283 #ifndef ALLOW_EBM
5e44d2ea81 Jean*0284       IF ( useEBM ) CALL PACKAGES_ERROR_MSG( 'EBM', ' ', myThid )
58d0aa8f35 Jean*0285 #endif
                0286
                0287 #ifndef ALLOW_CHEAPAML
5e44d2ea81 Jean*0288       IF ( useCheapAML ) CALL PACKAGES_ERROR_MSG(
                0289      &                  'CheapAML', ' ', myThid )
58d0aa8f35 Jean*0290 #endif
                0291
5593e3ac8c Jean*0292 #ifndef ALLOW_FLT
5e44d2ea81 Jean*0293       IF ( useFLT ) CALL PACKAGES_ERROR_MSG( 'FLT', ' ', myThid )
58d0aa8f35 Jean*0294 #endif
                0295
cc9097e522 Oliv*0296 #ifdef ALLOW_LONGSTEP
5e44d2ea81 Jean*0297       IF ( usePTRACERS ) CALL LONGSTEP_CHECK( myThid )
cc9097e522 Oliv*0298 #endif
                0299
f22b775377 Jean*0300 #ifdef ALLOW_PTRACERS
5e44d2ea81 Jean*0301       IF ( usePTRACERS ) CALL PTRACERS_CHECK( myThid )
f22b775377 Jean*0302 #else
5e44d2ea81 Jean*0303       IF ( usePTRACERS ) CALL PACKAGES_ERROR_MSG(
                0304      &                  'PTRACERS', ' ', myThid )
f6c3f3b6f4 Jean*0305 #endif
                0306
0a90236bb2 Mart*0307 #ifdef ALLOW_GCHEM
5e44d2ea81 Jean*0308       IF ( useGCHEM ) CALL GCHEM_CHECK( myThid )
0a90236bb2 Mart*0309 #else
5e44d2ea81 Jean*0310       IF ( useGCHEM ) CALL PACKAGES_ERROR_MSG( 'GCHEM', ' ', myThid )
0a90236bb2 Mart*0311 #endif
                0312
58d0aa8f35 Jean*0313 #ifndef ALLOW_RBCS
5e44d2ea81 Jean*0314       IF ( useRBCS ) CALL PACKAGES_ERROR_MSG( 'RBCS', ' ', myThid )
58d0aa8f35 Jean*0315 #endif
                0316
b55b62ef62 Jean*0317 #ifdef ALLOW_OFFLINE
5e44d2ea81 Jean*0318       IF ( useOffLine ) CALL OFFLINE_CHECK( myThid )
b55b62ef62 Jean*0319 #else
5e44d2ea81 Jean*0320       IF ( useOffLine ) CALL PACKAGES_ERROR_MSG(
                0321      &                  'OffLine', ' ', myThid )
f4b031356b Jean*0322 #endif
                0323
58d0aa8f35 Jean*0324 #ifndef ALLOW_MATRIX
5e44d2ea81 Jean*0325       IF ( useMATRIX ) CALL PACKAGES_ERROR_MSG( 'MATRIX', ' ', myThid )
58d0aa8f35 Jean*0326 #endif
                0327
5593e3ac8c Jean*0328 #ifndef ALLOW_FRAZIL
5e44d2ea81 Jean*0329       IF ( useFRAZIL ) CALL PACKAGES_ERROR_MSG( 'FRAZIL', ' ', myThid )
6060ec2938 Dimi*0330 #endif
                0331
5ee2971ab8 Patr*0332 #ifdef ALLOW_SEAICE
5e44d2ea81 Jean*0333       IF ( useSEAICE ) CALL SEAICE_CHECK( myThid )
5ee2971ab8 Patr*0334 #else
5e44d2ea81 Jean*0335       IF ( useSEAICE ) CALL PACKAGES_ERROR_MSG( 'SEAICE', ' ', myThid )
5ee2971ab8 Patr*0336 #endif
                0337
58d0aa8f35 Jean*0338 #ifdef ALLOW_SALT_PLUME
5e44d2ea81 Jean*0339       IF ( useSALT_PLUME ) CALL SALT_PLUME_CHECK( myThid )
58d0aa8f35 Jean*0340 #else
5e44d2ea81 Jean*0341       IF ( useSALT_PLUME ) CALL PACKAGES_ERROR_MSG(
                0342      &                  'SALT_PLUME', ' ', myThid )
58d0aa8f35 Jean*0343 #endif
                0344
a6cbc7a360 Mart*0345 #ifdef ALLOW_SHELFICE
5e44d2ea81 Jean*0346       IF ( useShelfIce ) CALL SHELFICE_CHECK( myThid )
a6cbc7a360 Mart*0347 #else
5e44d2ea81 Jean*0348       IF ( useShelfIce ) CALL PACKAGES_ERROR_MSG(
                0349      &                    'ShelfIce', ' ', myThid )
77a55fbebd Patr*0350 #endif
                0351
00f81e6785 Ou W*0352 #ifdef ALLOW_STEEP_ICECAVITY
5e44d2ea81 Jean*0353       IF ( useSTIC ) CALL STIC_CHECK( myThid )
00f81e6785 Ou W*0354 #else
5e44d2ea81 Jean*0355       IF ( useSTIC ) CALL PACKAGES_ERROR_MSG(
                0356      &                  'STEEP_ICECAVITY', 'useSTIC=.T.', myThid )
00f81e6785 Ou W*0357 #endif
                0358
7b8b86ab99 Timo*0359 #ifdef ALLOW_SMOOTH
5e44d2ea81 Jean*0360       IF ( useSmooth ) CALL SMOOTH_CHECK( myThid )
7b8b86ab99 Timo*0361 #else
5e44d2ea81 Jean*0362       IF ( useSmooth ) CALL PACKAGES_ERROR_MSG( 'Smooth', ' ', myThid )
7b8b86ab99 Timo*0363 #endif
                0364
77a55fbebd Patr*0365 #ifdef ALLOW_STREAMICE
5e44d2ea81 Jean*0366       IF ( useStreamIce ) CALL STREAMICE_CHECK( myThid )
77a55fbebd Patr*0367 #else
5e44d2ea81 Jean*0368       IF ( useStreamIce ) CALL PACKAGES_ERROR_MSG(
                0369      &                  'StreamIce', ' ', myThid )
a6cbc7a360 Mart*0370 #endif
                0371
5da8ce63fa Dimi*0372 #ifdef ALLOW_ICEFRONT
5e44d2ea81 Jean*0373       IF ( useICEFRONT ) CALL ICEFRONT_CHECK( myThid )
5da8ce63fa Dimi*0374 #else
5e44d2ea81 Jean*0375       IF ( useICEFRONT ) CALL PACKAGES_ERROR_MSG(
                0376      &                  'ICEFRONT', ' ', myThid )
5da8ce63fa Dimi*0377 #endif
                0378
5593e3ac8c Jean*0379 #ifdef ALLOW_THSICE
5e44d2ea81 Jean*0380       IF ( useThSIce ) CALL THSICE_CHECK( myThid )
5593e3ac8c Jean*0381 #else
5e44d2ea81 Jean*0382       IF ( useThSIce ) CALL PACKAGES_ERROR_MSG( 'ThSIce', ' ', myThid )
5593e3ac8c Jean*0383 #endif
                0384
b8e989b7a2 Jean*0385 #ifdef ALLOW_LAND
5e44d2ea81 Jean*0386       IF ( useLand ) CALL LAND_CHECK( myThid )
b8e989b7a2 Jean*0387 #else
5e44d2ea81 Jean*0388       IF ( useLand ) CALL PACKAGES_ERROR_MSG( 'Land', ' ', myThid )
5593e3ac8c Jean*0389 #endif
                0390
                0391 #ifndef ALLOW_ATM2D
5e44d2ea81 Jean*0392       IF ( useATM2d ) CALL PACKAGES_ERROR_MSG( 'ATM2d', ' ', myThid )
5593e3ac8c Jean*0393 #endif
                0394
                0395 #ifndef ALLOW_AIM
5e44d2ea81 Jean*0396       IF ( useAIM ) CALL PACKAGES_ERROR_MSG( 'AIM', ' ', myThid )
5593e3ac8c Jean*0397 #endif
                0398
3902f6236f Jean*0399 #ifdef ALLOW_ATM_PHYS
5e44d2ea81 Jean*0400       IF ( useAtm_Phys ) CALL ATM_PHYS_CHECK( myThid )
3902f6236f Jean*0401 #else
5e44d2ea81 Jean*0402       IF ( useAtm_Phys ) CALL PACKAGES_ERROR_MSG(
                0403      &                  'Atm_Phys', ' ', myThid )
5593e3ac8c Jean*0404 #endif
                0405
                0406 #ifndef ALLOW_FIZHI
5e44d2ea81 Jean*0407       IF ( useFizhi ) CALL PACKAGES_ERROR_MSG( 'Fizhi', ' ', myThid )
5593e3ac8c Jean*0408 #endif
                0409
                0410 #ifndef ALLOW_GRIDALT
5e44d2ea81 Jean*0411       IF ( useGridAlt ) CALL PACKAGES_ERROR_MSG(
                0412      &                  'GridAlt', ' ', myThid )
5593e3ac8c Jean*0413 #endif
                0414
edd57506ae Patr*0415 #ifdef ALLOW_AUTODIFF
5e44d2ea81 Jean*0416       IF ( useAUTODIFF ) CALL AUTODIFF_CHECK( myThid )
170b439592 Patr*0417 #endif
                0418
                0419 #ifdef ALLOW_CTRL
5e44d2ea81 Jean*0420       IF ( useCTRL ) CALL CTRL_CHECK( myThid )
170b439592 Patr*0421 #endif
                0422
                0423 #ifdef ALLOW_COST
5d7fa54ba5 Patr*0424       CALL COST_CHECK( myThid )
                0425 #endif
                0426
d4b64b229a Jean*0427 #ifdef ALLOW_ECCO
5e44d2ea81 Jean*0428       IF ( useECCO ) CALL ECCO_CHECK( myThid )
63499de982 Patr*0429 #endif
                0430
58d0aa8f35 Jean*0431 #ifndef ALLOW_SMOOTH
5e44d2ea81 Jean*0432       IF ( useSMOOTH ) CALL PACKAGES_ERROR_MSG( 'SMOOTH', ' ', myThid )
58d0aa8f35 Jean*0433 #endif
                0434
e994210c2e Gael*0435 #ifndef ALLOW_PROFILES
5e44d2ea81 Jean*0436       IF ( usePROFILES ) CALL PACKAGES_ERROR_MSG(
                0437      &                  'PROFILES', ' ', myThid )
e994210c2e Gael*0438 #endif
                0439
d4b64b229a Jean*0440 #ifdef ALLOW_GRDCHK
5e44d2ea81 Jean*0441       IF ( useGrdChk ) CALL GRDCHK_CHECK( myThid )
d4b64b229a Jean*0442 #else
5e44d2ea81 Jean*0443       IF ( useGrdChk ) CALL PACKAGES_ERROR_MSG( 'GrdChk', ' ', myThid )
d4b64b229a Jean*0444 #endif
                0445
5593e3ac8c Jean*0446 #ifdef ALLOW_SBO
5e44d2ea81 Jean*0447       IF ( useSBO ) CALL SBO_CHECK( myThid )
5593e3ac8c Jean*0448 #else
5e44d2ea81 Jean*0449       IF ( useSBO ) CALL PACKAGES_ERROR_MSG( 'SBO', ' ', myThid )
5593e3ac8c Jean*0450 #endif
                0451
48121039da Jean*0452 #ifdef ALLOW_DIAGNOSTICS
5e44d2ea81 Jean*0453       IF ( useDiagnostics ) CALL DIAGNOSTICS_CHECK( myThid )
48121039da Jean*0454 #else
5e44d2ea81 Jean*0455       IF ( useDiagnostics )
d85d0a6fc1 Jean*0456      &   CALL PACKAGES_ERROR_MSG( 'Diagnostics', ' ', myThid )
48121039da Jean*0457 #endif
                0458
39cebd8084 Ed H*0459 #ifdef ALLOW_REGRID
5e44d2ea81 Jean*0460       IF ( useREGRID ) CALL REGRID_CHECK( myThid )
39cebd8084 Ed H*0461 #else
5e44d2ea81 Jean*0462       IF ( useREGRID ) CALL PACKAGES_ERROR_MSG( 'REGRID', ' ', myThid )
39cebd8084 Ed H*0463 #endif
                0464
dfc9bc933c Ryan*0465 #ifdef ALLOW_LAYERS
                0466       IF ( useLayers ) CALL LAYERS_CHECK( myThid )
                0467 #else
5e44d2ea81 Jean*0468       IF ( useLayers ) CALL PACKAGES_ERROR_MSG( 'LAYERS', ' ', myThid )
dfc9bc933c Ryan*0469 #endif /* ALLOW_LAYERS */
                0470
ba9a45d563 Jean*0471 #ifdef ALLOW_NEST_CHILD
5e44d2ea81 Jean*0472       IF ( useNEST_CHILD ) CALL NEST_CHILD_CHECK( myThid )
ba9a45d563 Jean*0473 #else
5e44d2ea81 Jean*0474       IF ( useNEST_CHILD ) CALL PACKAGES_ERROR_MSG(
                0475      &                  'NEST_CHILD', ' ', myThid )
ba9a45d563 Jean*0476 #endif
                0477
                0478 #ifdef ALLOW_NEST_PARENT
5e44d2ea81 Jean*0479       IF ( useNEST_PARENT ) CALL NEST_PARENT_CHECK( myThid )
ba9a45d563 Jean*0480 #else
5e44d2ea81 Jean*0481       IF ( useNEST_PARENT ) CALL PACKAGES_ERROR_MSG(
                0482      &                  'NEST_PARENT', ' ', myThid )
ba9a45d563 Jean*0483 #endif
                0484
608c101f3d Jean*0485 #ifdef ALLOW_OASIS
5e44d2ea81 Jean*0486       IF ( useOASIS ) CALL OASIS_CHECK( myThid )
608c101f3d Jean*0487 #else
5e44d2ea81 Jean*0488       IF ( useOASIS ) CALL PACKAGES_ERROR_MSG( 'OASIS', ' ', myThid )
608c101f3d Jean*0489 #endif
                0490
5593e3ac8c Jean*0491 #ifdef ALLOW_RUNCLOCK
5e44d2ea81 Jean*0492       IF ( useRunClock ) CALL RUNCLOCK_CHECK( myThid )
5593e3ac8c Jean*0493 #else
5e44d2ea81 Jean*0494       IF ( useRunClock ) CALL PACKAGES_ERROR_MSG(
                0495      &                  'RunClock', ' ', myThid )
608c101f3d Jean*0496 #endif
                0497
58d0aa8f35 Jean*0498 #ifndef ALLOW_EMBED_FILES
5e44d2ea81 Jean*0499       IF ( useEMBED_FILES ) CALL PACKAGES_ERROR_MSG(
                0500      &                  'EMBED_FILES', ' ', myThid )
58d0aa8f35 Jean*0501 #endif
                0502
0dc94a8572 Patr*0503 #ifdef ALLOW_MYPACKAGE
5e44d2ea81 Jean*0504       IF ( useMYPACKAGE ) CALL MYPACKAGE_CHECK( myThid )
0dc94a8572 Patr*0505 #else
5e44d2ea81 Jean*0506       IF ( useMYPACKAGE ) CALL PACKAGES_ERROR_MSG(
                0507      &                  'MYPACKAGE', ' ', myThid )
0dc94a8572 Patr*0508 #endif
                0509
608c101f3d Jean*0510 #ifdef ALLOW_GENERIC_ADVDIFF
                0511 C-    Check generic AdvDiff setting and related overlap minimum size:
                0512 C     for this reason, called after other ${pkg}_check S/R
5e44d2ea81 Jean*0513       IF ( useGAD ) CALL GAD_CHECK( myThid )
dfc9bc933c Ryan*0514 #endif
95b5f9e47f Patr*0515
d85d0a6fc1 Jean*0516 C---  Exclusive packages (which cannot be used together):
                0517       IF ( useEXF .AND. useBulkForce ) THEN
                0518         WRITE(msgBuf,'(2A)') 'PACKAGES_CHECK: ',
                0519      &  'both useEXF and useBulkForce are set'
5e44d2ea81 Jean*0520         CALL PRINT_ERROR( msgBuf, myThid )
d85d0a6fc1 Jean*0521         WRITE(msgBuf,'(2A)') 'PACKAGES_CHECK: ',
                0522      &  ' but cannot be used together => need to select only one.'
5e44d2ea81 Jean*0523         CALL PRINT_ERROR( msgBuf, myThid )
308c696200 Jean*0524         CALL ALL_PROC_DIE( myThid )
d85d0a6fc1 Jean*0525         STOP 'ABNORMAL END: S/R PACKAGES_CHECK'
                0526       ENDIF
                0527
15338fa568 Dimi*0528 C---  Exclusive packages (which cannot be used together):
                0529       IF ( useDOWN_SLOPE .AND. useBBL ) THEN
                0530         WRITE(msgBuf,'(2A)') 'PACKAGES_CHECK: ',
                0531      &  'both useDOWN_SLOPE and useBBL are set'
5e44d2ea81 Jean*0532         CALL PRINT_ERROR( msgBuf, myThid )
15338fa568 Dimi*0533         WRITE(msgBuf,'(2A)') 'PACKAGES_CHECK: ',
                0534      &  ' but cannot be used together => need to select only one.'
5e44d2ea81 Jean*0535         CALL PRINT_ERROR( msgBuf, myThid )
308c696200 Jean*0536         CALL ALL_PROC_DIE( myThid )
15338fa568 Dimi*0537         STOP 'ABNORMAL END: S/R PACKAGES_CHECK'
                0538       ENDIF
                0539
fb481a83c2 Alis*0540       RETURN
                0541       END