/[MITgcm]/MITgcm/model/src/config_check.F
ViewVC logotype

Diff of /MITgcm/model/src/config_check.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.68 by jmc, Mon Jul 9 19:20:17 2012 UTC revision 1.69 by jmc, Fri Jul 13 23:24:52 2012 UTC
# Line 39  C     msgBuf :: Informational/error mess Line 39  C     msgBuf :: Informational/error mess
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)
# Line 641  C--   Momentum related limitations: Line 651  C--   Momentum related limitations:
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
# Line 668  C- jmc: but ultimately, this block can/w Line 692  C- jmc: but ultimately, this block can/w
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
# Line 758  C--   Packages conflict Line 779  C--   Packages conflict
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 )
Legend:
Removed from v.1.68  
changed lines
  Added in v.1.69
  ViewVC Help
Powered by ViewVC 1.1.22