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

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

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

revision 1.54 by jmc, Wed Jun 8 01:34:16 2011 UTC revision 1.55 by dimitri, Sun Aug 7 07:08:15 2011 UTC
# Line 166  C---  Continue with standard packages (w Line 166  C---  Continue with standard packages (w
166       &            CALL PACKAGES_ERROR_MSG('DOWN_SLOPE',' ',myThid)       &            CALL PACKAGES_ERROR_MSG('DOWN_SLOPE',' ',myThid)
167  #endif  #endif
168    
169    #ifdef ALLOW_BBL
170          IF (useBBL) CALL BBL_CHECK( myThid )
171    #else
172          IF (useBBL) CALL PACKAGES_ERROR_MSG('BBL',' ',myThid)
173    #endif
174    
175  #ifdef ALLOW_OBCS  #ifdef ALLOW_OBCS
176        IF (useOBCS) CALL OBCS_CHECK( myThid )        IF (useOBCS) CALL OBCS_CHECK( myThid )
177  #else  #else
# Line 370  C---  Exclusive packages (which cannot b Line 376  C---  Exclusive packages (which cannot b
376          CALL PRINT_ERROR( msgBuf , myThid )          CALL PRINT_ERROR( msgBuf , myThid )
377          WRITE(msgBuf,'(2A)') 'PACKAGES_CHECK: ',          WRITE(msgBuf,'(2A)') 'PACKAGES_CHECK: ',
378       &  ' but cannot be used together => need to select only one.'       &  ' but cannot be used together => need to select only one.'
379            CALL PRINT_ERROR( msgBuf , myThid )
380            STOP 'ABNORMAL END: S/R PACKAGES_CHECK'
381          ENDIF
382    
383    C---  Exclusive packages (which cannot be used together):
384          IF ( useDOWN_SLOPE .AND. useBBL ) THEN
385            WRITE(msgBuf,'(2A)') 'PACKAGES_CHECK: ',
386         &  'both useDOWN_SLOPE and useBBL are set'
387            CALL PRINT_ERROR( msgBuf , myThid )
388            WRITE(msgBuf,'(2A)') 'PACKAGES_CHECK: ',
389         &  ' but cannot be used together => need to select only one.'
390          CALL PRINT_ERROR( msgBuf , myThid )          CALL PRINT_ERROR( msgBuf , myThid )
391          STOP 'ABNORMAL END: S/R PACKAGES_CHECK'          STOP 'ABNORMAL END: S/R PACKAGES_CHECK'
392        ENDIF        ENDIF
Legend:
Removed from v.1.54  
changed lines
  Added in v.1.55
  ViewVC Help
Powered by ViewVC 1.1.22