87 |
ENDIF |
ENDIF |
88 |
#endif |
#endif |
89 |
|
|
90 |
#ifdef ALLOW_GENERIC_ADVDIFF |
#ifndef ALLOW_GENERIC_ADVDIFF |
|
IF (useGAD) CALL GAD_CHECK( myThid ) |
|
|
#else |
|
91 |
IF ( tempStepping .OR. saltStepping ) THEN |
IF ( tempStepping .OR. saltStepping ) THEN |
92 |
WRITE(msgBuf,'(2A)') |
WRITE(msgBuf,'(2A)') |
93 |
& 'PACKAGES_CHECK: cannot step forward Temp or Salt', |
& 'PACKAGES_CHECK: cannot step forward Temp or Salt', |
172 |
IF (useOBCS) CALL PACKAGES_ERROR_MSG('OBCS',' ',myThid) |
IF (useOBCS) CALL PACKAGES_ERROR_MSG('OBCS',' ',myThid) |
173 |
#endif |
#endif |
174 |
|
|
175 |
#ifndef ALLOW_EXF |
#ifdef ALLOW_EXF |
176 |
|
IF (useEXF) CALL EXF_CHECK( myThid ) |
177 |
|
#else |
178 |
IF (useEXF) CALL PACKAGES_ERROR_MSG('EXF',' ',myThid) |
IF (useEXF) CALL PACKAGES_ERROR_MSG('EXF',' ',myThid) |
179 |
#endif |
#endif |
180 |
|
|
336 |
& 'NEST_PARENT',' ',myThid) |
& 'NEST_PARENT',' ',myThid) |
337 |
#endif |
#endif |
338 |
|
|
339 |
|
#ifdef ALLOW_OASIS |
340 |
|
IF (useOASIS) CALL OASIS_CHECK( myThid ) |
341 |
|
#else |
342 |
|
IF (useOASIS) CALL PACKAGES_ERROR_MSG('OASIS',' ',myThid) |
343 |
|
#endif |
344 |
|
|
345 |
|
#ifdef ALLOW_ECCO |
346 |
|
CALL ECCO_CHECK( myThid ) |
347 |
|
#endif |
348 |
|
|
349 |
#ifndef ALLOW_EMBED_FILES |
#ifndef ALLOW_EMBED_FILES |
350 |
IF (useEMBED_FILES) CALL PACKAGES_ERROR_MSG( |
IF (useEMBED_FILES) CALL PACKAGES_ERROR_MSG( |
351 |
& 'EMBED_FILES',' ',myThid) |
& 'EMBED_FILES',' ',myThid) |
357 |
IF (useMYPACKAGE) CALL PACKAGES_ERROR_MSG('MYPACKAGE',' ',myThid) |
IF (useMYPACKAGE) CALL PACKAGES_ERROR_MSG('MYPACKAGE',' ',myThid) |
358 |
#endif |
#endif |
359 |
|
|
360 |
#ifdef ALLOW_OASIS |
#ifdef ALLOW_GENERIC_ADVDIFF |
361 |
IF (useOASIS) CALL OASIS_CHECK( myThid ) |
C- Check generic AdvDiff setting and related overlap minimum size: |
362 |
#else |
C for this reason, called after other ${pkg}_check S/R |
363 |
IF (useOASIS) CALL PACKAGES_ERROR_MSG('OASIS',' ',myThid) |
IF (useGAD) CALL GAD_CHECK( myThid ) |
|
#endif |
|
|
|
|
|
#ifdef ALLOW_ECCO |
|
|
CALL ECCO_CHECK( myThid ) |
|
364 |
#endif |
#endif |
365 |
|
|
366 |
C--- Exclusive packages (which cannot be used together): |
C--- Exclusive packages (which cannot be used together): |
374 |
STOP 'ABNORMAL END: S/R PACKAGES_CHECK' |
STOP 'ABNORMAL END: S/R PACKAGES_CHECK' |
375 |
ENDIF |
ENDIF |
376 |
|
|
377 |
|
#ifdef ALLOW_AUTODIFF |
378 |
|
C-- Here INI_MASK_ETC will be called a 2nd time by INITIALISE_VARIA. |
379 |
|
C This hack prevents a 2nd printing when default debugLevel is used. |
380 |
|
_BARRIER |
381 |
|
_BEGIN_MASTER( myThid ) |
382 |
|
IF ( debugLevel.LE.debLevA ) printDomain = .FALSE. |
383 |
|
_END_MASTER( myThid ) |
384 |
|
_BARRIER |
385 |
|
#endif |
386 |
|
|
387 |
RETURN |
RETURN |
388 |
END |
END |