571 |
STOP 'ABNORMAL END: S/R CONFIG_CHECK' |
STOP 'ABNORMAL END: S/R CONFIG_CHECK' |
572 |
ENDIF |
ENDIF |
573 |
ENDIF |
ENDIF |
574 |
|
IF ( selectCoriMap.LT.0 .OR. selectCoriMap.GT.3 ) THEN |
575 |
|
WRITE(msgBuf,'(2A,I4)') 'CONFIG_CHECK: ', |
576 |
|
& 'Invalid option: selectCoriMap=', selectCoriMap |
577 |
|
CALL PRINT_ERROR( msgBuf, myThid ) |
578 |
|
STOP 'ABNORMAL END: S/R CONFIG_CHECK' |
579 |
|
ENDIF |
580 |
|
|
581 |
IF (.NOT.useCDscheme .AND. (tauCD.NE.0. .OR. rCD.NE.-1.) ) THEN |
IF (.NOT.useCDscheme .AND. (tauCD.NE.0. .OR. rCD.NE.-1.) ) THEN |
582 |
C- jmc: since useCDscheme is a new [04-13-03] flag (default=F), |
C- jmc: since useCDscheme is a new [04-13-03] flag (default=F), |