77 |
ENDIF |
ENDIF |
78 |
#endif |
#endif |
79 |
|
|
80 |
|
#ifndef ALLOW_ADAMSBASHFORTH_3 |
81 |
|
IF ( alph_AB.NE.UNSET_RL .OR. beta_AB.NE.UNSET_RL ) THEN |
82 |
|
WRITE(msgBuf,'(2A)') 'CONFIG_CHECK: ', |
83 |
|
& '#undef ALLOW_ADAMSBASHFORTH_3 but alph_AB,beta_AB' |
84 |
|
CALL PRINT_ERROR( msgBuf , myThid) |
85 |
|
WRITE(msgBuf,'(A,1P2E20.7)') |
86 |
|
& 'CONFIG_CHECK: are set to:',alph_AB,beta_AB |
87 |
|
CALL PRINT_ERROR( msgBuf , myThid) |
88 |
|
STOP 'ABNORMAL END: S/R CONFIG_CHECK' |
89 |
|
ENDIF |
90 |
|
#endif |
91 |
|
|
92 |
#ifndef INCLUDE_IMPLVERTADV_CODE |
#ifndef INCLUDE_IMPLVERTADV_CODE |
93 |
IF ( momImplVertAdv ) THEN |
IF ( momImplVertAdv ) THEN |
94 |
WRITE(msgBuf,'(A)') |
WRITE(msgBuf,'(A)') |