121 |
ENDIF |
ENDIF |
122 |
#endif |
#endif |
123 |
|
|
124 |
|
#ifdef ALLOW_AUTODIFF_TAMC |
125 |
|
IF ( momImplVertAdv ) THEN |
126 |
|
WRITE(msgBuf,'(A)') |
127 |
|
& 'CONFIG_CHECK: momImplVertAdv is not yet' |
128 |
|
CALL PRINT_ERROR( msgBuf, myThid ) |
129 |
|
WRITE(msgBuf,'(A)') |
130 |
|
& 'CONFIG_CHECK: supported in adjoint mode' |
131 |
|
CALL PRINT_ERROR( msgBuf, myThid ) |
132 |
|
STOP 'ABNORMAL END: S/R CONFIG_CHECK' |
133 |
|
ENDIF |
134 |
|
#endif |
135 |
|
|
136 |
#ifndef EXACT_CONSERV |
#ifndef EXACT_CONSERV |
137 |
IF (exactConserv) THEN |
IF (exactConserv) THEN |
138 |
WRITE(msgBuf,'(A)') |
WRITE(msgBuf,'(A)') |