/[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.8 by jmc, Tue Feb 11 04:05:32 2003 UTC revision 1.9 by jmc, Thu Apr 17 13:16:23 2003 UTC
# Line 39  CEOP Line 39  CEOP
39    
40  C-  check that CPP option is "defined" when running-flag parameter is on:  C-  check that CPP option is "defined" when running-flag parameter is on:
41    
42    #ifndef INCLUDE_CD_CODE
43          IF (useCDscheme) THEN
44            WRITE(msgBuf,'(A)')
45         &   'CONFIG_CHECK: #undef INCLUDE_CD_CODE and'
46            CALL PRINT_ERROR( msgBuf , myThid)
47            WRITE(msgBuf,'(A)')
48         &   'CONFIG_CHECK: useCDscheme is TRUE'
49            CALL PRINT_ERROR( msgBuf , myThid)
50            STOP 'ABNORMAL END: S/R CONFIG_CHECK'
51          ENDIF
52    #endif
53    
54  #ifndef ALLOW_NONHYDROSTATIC  #ifndef ALLOW_NONHYDROSTATIC
55        IF (nonHydrostatic) THEN        IF (nonHydrostatic) THEN
56          WRITE(msgBuf,'(A)')          WRITE(msgBuf,'(A)')
# Line 75  C-  check that CPP option is "defined" w Line 87  C-  check that CPP option is "defined" w
87        ENDIF        ENDIF
88  #endif  #endif
89    
90    #ifndef NONLIN_FRSURF
91          IF (select_rStar .NE. 0) THEN
92            WRITE(msgBuf,'(A)')
93         &   'CONFIG_CHECK: rStar is part of NonLin-FS '
94            CALL PRINT_ERROR( msgBuf, myThid)                      
95            WRITE(msgBuf,'(A)')
96         &   'CONFIG_CHECK: ==> use #define NONLIN_FRSURF to use it'
97            CALL PRINT_ERROR( msgBuf, myThid)                      
98            STOP 'ABNORMAL END: S/R CONFIG_CHECK'
99          ENDIF
100    #endif /* NONLIN_FRSURF */
101    
102  #ifdef USE_NATURAL_BCS  #ifdef USE_NATURAL_BCS
103          WRITE(msgBuf,'(A)')          WRITE(msgBuf,'(A)')
104       &   'CONFIG_CHECK: USE_NATURAL_BCS option has been replaced'       &   'CONFIG_CHECK: USE_NATURAL_BCS option has been replaced'
# Line 269  c     ENDIF Line 293  c     ENDIF
293          CALL PRINT_MESSAGE( msgBuf, errorMessageUnit,          CALL PRINT_MESSAGE( msgBuf, errorMessageUnit,
294       &                    SQUEEZE_RIGHT , myThid)                             &                    SQUEEZE_RIGHT , myThid)                      
295        ENDIF        ENDIF
296    #endif /* NONLIN_FRSURF */
297    
298        IF (select_rStar .NE. 0) THEN        IF (.NOT.useCDscheme .AND. (tauCD.NE.0. .OR. rCD.NE.-1.) ) THEN
299          WRITE(msgBuf,'(A)')  C- jmc: since useCDscheme is a new [04-13-03] flag (default=F),
300       &   'CONFIG_CHECK: rStar is part of NonLin-FS '  C       put this WARNING to stress that even if CD-scheme parameters
301    C       (tauCD,rCD) are set, CD-scheme is not used without useCDscheme=T
302    C-    and STOP if using mom_fluxform (following Chris advise).
303    C- jmc: but ultimately, this block can/will be removed.
304           IF (.NOT.vectorInvariantMomentum.AND.momStepping) THEN
305            WRITE(msgBuf,'(A)')
306         &   'CONFIG_CHECK: CD-scheme is OFF but params(tauCD,rCD) are set'
307            CALL PRINT_ERROR( msgBuf , myThid)
308            WRITE(msgBuf,'(2A)')
309         &   'CONFIG_CHECK: to turn ON CD-scheme: => "useCDscheme=.TRUE."',
310         &   ' in "data", namelist PARM01'
311            CALL PRINT_ERROR( msgBuf , myThid)
312            STOP 'ABNORMAL END: S/R CONFIG_CHECK'
313           ENDIF
314            WRITE(msgBuf,'(2A)') '**WARNNING** ',
315         &   'CONFIG_CHECK: CD-scheme is OFF but params(tauCD,rCD) are set'
316          CALL PRINT_MESSAGE( msgBuf, errorMessageUnit,          CALL PRINT_MESSAGE( msgBuf, errorMessageUnit,
317       &                    SQUEEZE_RIGHT , myThid)                             &                    SQUEEZE_RIGHT , myThid)                      
318          WRITE(msgBuf,'(A)')          WRITE(msgBuf,'(2A)')
319       &   'CONFIG_CHECK: ==> use #define NONLIN_FRSURF to use it'       &   'CONFIG_CHECK: to turn ON CD-scheme: => "useCDscheme=.TRUE."',
320         &   ' in "data", namelist PARM01'
321          CALL PRINT_MESSAGE( msgBuf, errorMessageUnit,          CALL PRINT_MESSAGE( msgBuf, errorMessageUnit,
322       &                    SQUEEZE_RIGHT , myThid)                             &                    SQUEEZE_RIGHT , myThid)                      
323        ENDIF        ENDIF
 #endif /* NONLIN_FRSURF */  
324    
325        WRITE(msgBuf,'(A)') 'CONFIG_CHECK: OK'        WRITE(msgBuf,'(A)') 'CONFIG_CHECK: OK'
326        CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,        CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9
  ViewVC Help
Powered by ViewVC 1.1.22