174 |
STOP 'ABNORMAL END: S/R CONFIG_CHECK' |
STOP 'ABNORMAL END: S/R CONFIG_CHECK' |
175 |
ENDIF |
ENDIF |
176 |
|
|
177 |
C- note : not implemented in Release1_beta1 but it's done now (since 01-30-02) |
IF (select_rStar.NE.0 .AND. .NOT.exactConserv) THEN |
178 |
c IF (nonlinFreeSurf.NE.0 .AND. useOBCS ) THEN |
WRITE(msgBuf,'(A)') |
179 |
c WRITE(msgBuf,'(A)') |
& 'CONFIG_CHECK: r* Coordinate cannot be used' |
180 |
c & 'CONFIG_CHECK: nonlinFreeSurf not yet implemented' |
CALL PRINT_ERROR( msgBuf , myThid) |
181 |
c CALL PRINT_ERROR( msgBuf , 1) |
WRITE(msgBuf,'(A)') |
182 |
c WRITE(msgBuf,'(A)') |
& 'CONFIG_CHECK: without exactConserv' |
183 |
c & 'CONFIG_CHECK: in OBC package' |
CALL PRINT_ERROR( msgBuf , myThid) |
184 |
c CALL PRINT_ERROR( msgBuf , 1) |
STOP 'ABNORMAL END: S/R CONFIG_CHECK' |
185 |
c STOP 'ABNORMAL END: S/R CONFIG_CHECK' |
ENDIF |
186 |
c ENDIF |
|
187 |
|
C- note : not yet implemented |
188 |
|
IF (select_rStar.GT.0 .AND. useOBCS ) THEN |
189 |
|
WRITE(msgBuf,'(A)') |
190 |
|
& 'CONFIG_CHECK: r* Coordinate not yet implemented' |
191 |
|
CALL PRINT_ERROR( msgBuf , 1) |
192 |
|
WRITE(msgBuf,'(A)') |
193 |
|
& 'CONFIG_CHECK: in OBC package' |
194 |
|
CALL PRINT_ERROR( msgBuf , 1) |
195 |
|
STOP 'ABNORMAL END: S/R CONFIG_CHECK' |
196 |
|
ENDIF |
197 |
|
|
198 |
IF (nonlinFreeSurf.NE.0 .AND. nonHydrostatic) THEN |
IF (nonlinFreeSurf.NE.0 .AND. nonHydrostatic) THEN |
199 |
WRITE(msgBuf,'(A)') |
WRITE(msgBuf,'(A)') |