39 |
INTEGER errCount |
INTEGER errCount |
40 |
CEOP |
CEOP |
41 |
|
|
42 |
|
_BEGIN_MASTER(myThid) |
43 |
|
WRITE(msgBuf,'(A)') |
44 |
|
&'// =======================================================' |
45 |
|
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
46 |
|
& SQUEEZE_RIGHT, myThid ) |
47 |
|
WRITE(msgBuf,'(A)') '// Check Model config. (CONFIG_CHECK):' |
48 |
|
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
49 |
|
& SQUEEZE_RIGHT, myThid ) |
50 |
|
_END_MASTER(myThid) |
51 |
|
|
52 |
C-- MPI + multi-threads: seems to be OK to let master-thread check & stop |
C-- MPI + multi-threads: seems to be OK to let master-thread check & stop |
53 |
C (as long as all procs finish cleanly by calling ALL_PROC_DIE) |
C (as long as all procs finish cleanly by calling ALL_PROC_DIE) |
54 |
_BEGIN_MASTER(myThid) |
_BEGIN_MASTER(myThid) |
651 |
errCount = errCount + 1 |
errCount = errCount + 1 |
652 |
ENDIF |
ENDIF |
653 |
ENDIF |
ENDIF |
654 |
|
IF ( .NOT.vectorInvariantMomentum .AND. momAdvection ) THEN |
655 |
|
IF ( usingCurvilinearGrid ) THEN |
656 |
|
WRITE(msgBuf,'(2A)') '** WARNING ** CONFIG_CHECK: ', |
657 |
|
& 'missing metric-terms for CurvilinearGrid' |
658 |
|
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
659 |
|
& SQUEEZE_RIGHT, myThid ) |
660 |
|
ENDIF |
661 |
|
IF ( hasWetCSCorners ) THEN |
662 |
|
WRITE(msgBuf,'(2A)') 'CONFIG_CHECK: momAdvection ', |
663 |
|
& 'in flux-form is wrong on CubedSphere grid (corners)' |
664 |
|
CALL PRINT_ERROR( msgBuf, myThid ) |
665 |
|
errCount = errCount + 1 |
666 |
|
ENDIF |
667 |
|
ENDIF |
668 |
IF ( selectCoriMap.LT.0 .OR. selectCoriMap.GT.3 ) THEN |
IF ( selectCoriMap.LT.0 .OR. selectCoriMap.GT.3 ) THEN |
669 |
WRITE(msgBuf,'(2A,I4)') 'CONFIG_CHECK: ', |
WRITE(msgBuf,'(2A,I4)') 'CONFIG_CHECK: ', |
670 |
& 'Invalid option: selectCoriMap=', selectCoriMap |
& 'Invalid option: selectCoriMap=', selectCoriMap |
692 |
& 'CD-scheme is OFF but params(tauCD,rCD) are set' |
& 'CD-scheme is OFF but params(tauCD,rCD) are set' |
693 |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
694 |
& SQUEEZE_RIGHT, myThid ) |
& SQUEEZE_RIGHT, myThid ) |
|
WRITE(msgBuf,'(3A)') '** WARNING ** ', |
|
|
& 'to turn ON CD-scheme: => "useCDscheme=.TRUE."', |
|
|
& ' in "data", namelist PARM01' |
|
695 |
WRITE(msgBuf,'(3A)') '** WARNING ** to turn ON CD-scheme:', |
WRITE(msgBuf,'(3A)') '** WARNING ** to turn ON CD-scheme:', |
696 |
& ' => "useCDscheme=.TRUE." in "data", namelist PARM01' |
& ' => "useCDscheme=.TRUE." in "data", namelist PARM01' |
697 |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
698 |
& SQUEEZE_RIGHT, myThid ) |
& SQUEEZE_RIGHT, myThid ) |
699 |
ENDIF |
ENDIF |
700 |
|
|
701 |
IF ( useCDscheme .AND. useCubedSphereExchange ) THEN |
IF ( useCDscheme .AND. hasWetCSCorners ) THEN |
702 |
WRITE(msgBuf,'(2A)') |
WRITE(msgBuf,'(2A)') |
703 |
& 'CONFIG_CHECK: CD-scheme not implemented on CubedSphere grid' |
& 'CONFIG_CHECK: CD-scheme not implemented on CubedSphere grid' |
704 |
CALL PRINT_ERROR( msgBuf, myThid ) |
CALL PRINT_ERROR( msgBuf, myThid ) |
705 |
cph errCount = errCount + 1 |
errCount = errCount + 1 |
706 |
ENDIF |
ENDIF |
707 |
|
|
708 |
C-- Time-stepping limitations |
C-- Time-stepping limitations |
779 |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
780 |
|
|
781 |
_BEGIN_MASTER(myThid) |
_BEGIN_MASTER(myThid) |
|
WRITE(msgBuf,'(A)') |
|
|
&'// =======================================================' |
|
|
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
|
& SQUEEZE_RIGHT, myThid ) |
|
782 |
WRITE(msgBuf,'(A)') '// CONFIG_CHECK : Normal End' |
WRITE(msgBuf,'(A)') '// CONFIG_CHECK : Normal End' |
783 |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
784 |
& SQUEEZE_RIGHT, myThid ) |
& SQUEEZE_RIGHT, myThid ) |