/[MITgcm]/MITgcm/pkg/obcs/obcs_check.F
ViewVC logotype

Diff of /MITgcm/pkg/obcs/obcs_check.F

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

revision 1.10 by mlosch, Wed Sep 27 11:31:58 2006 UTC revision 1.11 by dimitri, Thu Oct 11 19:14:09 2007 UTC
# Line 75  C     msgBuf      - Informational/error Line 75  C     msgBuf      - Informational/error
75           CALL PRINT_ERROR( msgBuf , 1)           CALL PRINT_ERROR( msgBuf , 1)
76           STOP 'ABNORMAL END: S/R OBCS_CHECK'           STOP 'ABNORMAL END: S/R OBCS_CHECK'
77         ENDIF         ENDIF
 #ifdef ALLOW_PTRACERS  
78         IF (usePTracers) THEN         IF (usePTracers) THEN
79          WRITE(msgBuf,'(A)')          WRITE(msgBuf,'(A)')
80       &  'OBCS_CHECK: ERROR: useOrlanski* Rad OBC with'       &  'OBCS_CHECK: ERROR: useOrlanski* Rad OBC with'
# Line 85  C     msgBuf      - Informational/error Line 84  C     msgBuf      - Informational/error
84           CALL PRINT_ERROR( msgBuf , 1)           CALL PRINT_ERROR( msgBuf , 1)
85           STOP 'ABNORMAL END: S/R OBCS_CHECK'           STOP 'ABNORMAL END: S/R OBCS_CHECK'
86         ENDIF         ENDIF
87  #endif ALLOW_PTRACERS         IF (useSEAICE) THEN
88        ENDIF          WRITE(msgBuf,'(A)')
89         &  'OBCS_CHECK: ERROR: useOrlanski* Rad OBC with'
 #ifndef ALLOW_OBCS_PRESCRIBE  
         IF (useOBCSprescribe) THEN  
          WRITE(msgBuf,'(A)')  
      &   'OBCS_CHECK: ERROR: useOBCSprescribe = .TRUE. for'  
90           CALL PRINT_ERROR( msgBuf , 1)           CALL PRINT_ERROR( msgBuf , 1)
91           WRITE(msgBuf,'(A)')          WRITE(msgBuf,'(A)')
92       &   'OBCS_CHECK: undef ALLOW_OBCS_PRESCRIBE'       &  'OBCS_CHECK: ERROR: SEAICE not yet implemented'
93           CALL PRINT_ERROR( msgBuf , 1)           CALL PRINT_ERROR( msgBuf , 1)
94           STOP 'ABNORMAL END: S/R OBCS_CHECK'           STOP 'ABNORMAL END: S/R OBCS_CHECK'
95          ENDIF         ENDIF
96          ENDIF
97    
98    #ifndef ALLOW_OBCS_PRESCRIBE
99          IF (useOBCSprescribe) THEN
100           WRITE(msgBuf,'(A)')
101         &  'OBCS_CHECK: ERROR: useOBCSprescribe = .TRUE. for'
102           CALL PRINT_ERROR( msgBuf , 1)
103           WRITE(msgBuf,'(A)')
104         &  'OBCS_CHECK: undef ALLOW_OBCS_PRESCRIBE'
105           CALL PRINT_ERROR( msgBuf , 1)
106           STOP 'ABNORMAL END: S/R OBCS_CHECK'
107          ENDIF
108  #endif  #endif
109    
110          IF (useSEAICE .AND. .NOT. useEXF) THEN
111           WRITE(msgBuf,'(A)')
112         &  'OBCS_CHECK: ERROR: for SEAICE OBCS, use'
113           CALL PRINT_ERROR( msgBuf , 1)
114           WRITE(msgBuf,'(A)')
115         &  'OBCS_CHECK: pkg/exf to read input files'
116           CALL PRINT_ERROR( msgBuf , 1)
117           STOP 'ABNORMAL END: S/R OBCS_CHECK'
118          ENDIF
119    
120        IF ( debugLevel.GE.debLevB ) THEN        IF ( debugLevel.GE.debLevB ) THEN
121         _BEGIN_MASTER( myThid )         _BEGIN_MASTER( myThid )
122         DO bj = 1,nSy         DO bj = 1,nSy
Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11
  ViewVC Help
Powered by ViewVC 1.1.22