200 |
|
|
201 |
C- check parameter consistency : |
C- check parameter consistency : |
202 |
|
|
203 |
IF ( viscA4.NE.0. .AND. (Olx.LT.3 .OR. Oly.LT.3)) THEN |
IF ( ( Olx.LT.3 .OR. Oly.LT.3 ) .AND. |
204 |
|
& ( viscC4leith.NE.0. .OR. viscA4Grid.NE.0. |
205 |
|
& .OR. viscA4D.NE.0. .OR. viscA4Z.NE.0. ) ) THEN |
206 |
WRITE(msgBuf,'(A,A)') |
WRITE(msgBuf,'(A,A)') |
207 |
& 'CONFIG_CHECK: cannot use Biharmonic Visc. (viscA4) with', |
& 'CONFIG_CHECK: cannot use Biharmonic Visc. (viscA4) with', |
208 |
& ' overlap (Olx,Oly) smaller than 3' |
& ' overlap (Olx,Oly) smaller than 3' |