40 |
|
|
41 |
C- check that CPP option is "defined" when running-flag parameter is on: |
C- check that CPP option is "defined" when running-flag parameter is on: |
42 |
|
|
43 |
|
C o If diffKrFile is set, then we should make sure the corresponing |
44 |
|
C code is being compiled |
45 |
|
#if !(defined ALLOW_3D_DIFFKR || \ |
46 |
|
(defined (ALLOW_AUTODIFF_TAMC) && defined (ALLOW_DIFFKR_CONTROL))) |
47 |
|
IF (diffKrFile.NE.' ') THEN |
48 |
|
WRITE(msgBuf,'(A)') |
49 |
|
& 'CONFIG_CHECK: diffKrFile is set but never used.' |
50 |
|
CALL PRINT_ERROR( msgBuf , myThid) |
51 |
|
WRITE(msgBuf,'(A)') |
52 |
|
& 'Re-compile with: #define ALLOW_3D_DIFFKR' |
53 |
|
CALL PRINT_ERROR( msgBuf , myThid) |
54 |
|
STOP 'ABNORMAL END: S/R CONFIG_CHECK' |
55 |
|
ENDIF |
56 |
|
#endif |
57 |
|
|
58 |
#ifndef ALLOW_NONHYDROSTATIC |
#ifndef ALLOW_NONHYDROSTATIC |
59 |
IF (use3Dsolver) THEN |
IF (use3Dsolver) THEN |
60 |
WRITE(msgBuf,'(A)') |
WRITE(msgBuf,'(A)') |