/[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.6 by mlosch, Fri Sep 24 12:32:09 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           IF (usePTracers) THEN
79            WRITE(msgBuf,'(A)')
80         &  'OBCS_CHECK: ERROR: useOrlanski* Rad OBC with'
81             CALL PRINT_ERROR( msgBuf , 1)
82            WRITE(msgBuf,'(A)')
83         &  'OBCS_CHECK: ERROR: pTracers not yet implemented'
84             CALL PRINT_ERROR( msgBuf , 1)
85             STOP 'ABNORMAL END: S/R OBCS_CHECK'
86           ENDIF
87           IF (useSEAICE) THEN
88            WRITE(msgBuf,'(A)')
89         &  '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)
94             STOP 'ABNORMAL END: S/R OBCS_CHECK'
95           ENDIF
96        ENDIF        ENDIF
97    
98  #ifndef ALLOW_OBCS_PRESCRIBE  #ifndef ALLOW_OBCS_PRESCRIBE
99          IF (useOBCSprescribe) THEN        IF (useOBCSprescribe) THEN
100           WRITE(msgBuf,'(A)')         WRITE(msgBuf,'(A)')
101       &   'OBCS_CHECK: ERROR: useOBCSprescribe = .TRUE. for'       &  'OBCS_CHECK: ERROR: useOBCSprescribe = .TRUE. for'
102           CALL PRINT_ERROR( msgBuf , 1)         CALL PRINT_ERROR( msgBuf , 1)
103           WRITE(msgBuf,'(A)')         WRITE(msgBuf,'(A)')
104       &   'OBCS_CHECK: undef ALLOW_OBCS_PRESCRIBE'       &  'OBCS_CHECK: undef ALLOW_OBCS_PRESCRIBE'
105           STOP 'ABNORMAL END: S/R OBCS_CHECK'         CALL PRINT_ERROR( msgBuf , 1)
106          ENDIF         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.6  
changed lines
  Added in v.1.11
  ViewVC Help
Powered by ViewVC 1.1.22