/[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.5 by jmc, Thu Sep 23 01:28:31 2004 UTC revision 1.11 by dimitri, Thu Oct 11 19:14:09 2007 UTC
# Line 26  C     myThid -  Number of this instances Line 26  C     myThid -  Number of this instances
26  C     === Local variables ===  C     === Local variables ===
27  C     msgBuf      - Informational/error meesage buffer  C     msgBuf      - Informational/error meesage buffer
28        CHARACTER*(MAX_LEN_MBUF) msgBuf        CHARACTER*(MAX_LEN_MBUF) msgBuf
29          INTEGER i,j,bi,bj
30    
31        WRITE(msgBuf,'(A)') 'OBCS_CHECK: #define ALLOW_OBCS'        WRITE(msgBuf,'(A)') 'OBCS_CHECK: #define ALLOW_OBCS'
32        CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,        CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,
33       &                   SQUEEZE_RIGHT,myThid)       &                   SQUEEZE_RIGHT,myThid)
34    
35    #ifdef ALLOW_CD_CODE
36          IF ( useCDscheme ) THEN
37           WRITE(msgBuf,'(A)')
38         &  'OBCS_CHECK: ERROR: useCDscheme = .TRUE.'
39           CALL PRINT_ERROR( msgBuf , 1)
40           WRITE(msgBuf,'(A)')
41         &  'OBCS_CHECK: ERROR: The CD-scheme does not work with OBCS.'
42           CALL PRINT_ERROR( msgBuf , 1)
43           WRITE(msgBuf,'(A)')
44         &  'OBCS_CHECK: ERROR: Sorry, not yet implemented.'
45           CALL PRINT_ERROR( msgBuf , 1)
46           STOP 'ABNORMAL END: S/R OBCS_CHECK'
47          ENDIF
48    #endif /* ALLOW_CD_CODE */
49    
50  #ifdef ALLOW_ORLANSKI  #ifdef ALLOW_ORLANSKI
51        WRITE(msgBuf,'(A)') 'OBCS_CHECK: #define ALLOW_ORLANSKI'        WRITE(msgBuf,'(A)') 'OBCS_CHECK: #define ALLOW_ORLANSKI'
52        CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,        CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,
# Line 59  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
78        ENDIF         IF (usePTracers) THEN
   
 #ifdef ALLOW_OBCS_PRESCRIBE  
 # ifndef ALLOW_EXF  
79          WRITE(msgBuf,'(A)')          WRITE(msgBuf,'(A)')
80       &  'OBCS_CHECK: ERROR: ALLOW_OBCS_PRESCRIBE'       &  'OBCS_CHECK: ERROR: useOrlanski* Rad OBC with'
81          CALL PRINT_ERROR( msgBuf , 1)           CALL PRINT_ERROR( msgBuf , 1)
82          WRITE(msgBuf,'(A)')          WRITE(msgBuf,'(A)')
83       &  'OBCS_CHECK: needs to ALLOW_EXF, ALLOW_CAL'       &  'OBCS_CHECK: ERROR: pTracers not yet implemented'
84          STOP 'ABNORMAL END: S/R OBCS_CHECK'           CALL PRINT_ERROR( msgBuf , 1)
85  # endif           STOP 'ABNORMAL END: S/R OBCS_CHECK'
86  #else         ENDIF
87          IF (useOBCSprescribe) THEN         IF (useSEAICE) THEN
88           WRITE(msgBuf,'(A)')          WRITE(msgBuf,'(A)')
89       &   'OBCS_CHECK: ERROR: useOBCSprescribe = .TRUE. for'       &  'OBCS_CHECK: ERROR: useOrlanski* Rad OBC with'
90             CALL PRINT_ERROR( msgBuf , 1)
91            WRITE(msgBuf,'(A)')
92         &  'OBCS_CHECK: ERROR: SEAICE not yet implemented'
93           CALL PRINT_ERROR( msgBuf , 1)           CALL PRINT_ERROR( msgBuf , 1)
          WRITE(msgBuf,'(A)')  
      &   'OBCS_CHECK: undef ALLOW_OBCS_PRESCRIBE'  
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
121           _BEGIN_MASTER( myThid )
122           DO bj = 1,nSy
123            DO bi = 1,nSx
124             write(*,*) 'bi,bj:',bi,bj,' OB_Jn=',(OB_Jn(i,bi,bj),i=1,sNx)
125             write(*,*) 'bi,bj:',bi,bj,' OB_Js=',(OB_Js(i,bi,bj),i=1,sNx)
126             write(*,*) 'bi,bj:',bi,bj,' OB_Ie=',(OB_Ie(j,bi,bj),j=1,sNy)
127             write(*,*) 'bi,bj:',bi,bj,' OB_Iw=',(OB_Iw(j,bi,bj),j=1,sNy)
128            ENDDO
129           ENDDO
130           _END_MASTER(myThid)
131          ENDIF
132    
133        WRITE(msgBuf,'(A)') 'OBCS_CHECK: OK'        WRITE(msgBuf,'(A)') 'OBCS_CHECK: OK'
134        CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,        CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,
135       &                   SQUEEZE_RIGHT,myThid)       &                   SQUEEZE_RIGHT,myThid)
136    
137  #endif /* ALLOW_OBCS */  #endif /* ALLOW_OBCS */
138        return        RETURN
139        end        END
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.11
  ViewVC Help
Powered by ViewVC 1.1.22