/[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.4 by heimbach, Wed Sep 22 21:31:35 2004 UTC revision 1.10 by mlosch, Wed Sep 27 11:31:58 2006 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  #ifdef ALLOW_PTRACERS
79           IF (usePTracers) THEN
 #ifdef ALLOW_OBCS_PRESCRIBE  
 # ifndef ALLOW_EXF  
80          WRITE(msgBuf,'(A)')          WRITE(msgBuf,'(A)')
81       &  'OBCS_CHECK: ERROR: ALLOW_OBCS_PRESCRIBE'       &  'OBCS_CHECK: ERROR: useOrlanski* Rad OBC with'
82          CALL PRINT_ERROR( msgBuf , 1)           CALL PRINT_ERROR( msgBuf , 1)
83          WRITE(msgBuf,'(A)')          WRITE(msgBuf,'(A)')
84       &  'OBCS_CHECK: needs to ALLOW_EXF, ALLOW_CAL'       &  'OBCS_CHECK: ERROR: pTracers not yet implemented'
85          STOP 'ABNORMAL END: S/R OBCS_CHECK'           CALL PRINT_ERROR( msgBuf , 1)
86  # endif           STOP 'ABNORMAL END: S/R OBCS_CHECK'
87  #else         ENDIF
88    #endif ALLOW_PTRACERS
89          ENDIF
90    
91    #ifndef ALLOW_OBCS_PRESCRIBE
92          IF (useOBCSprescribe) THEN          IF (useOBCSprescribe) THEN
93           WRITE(msgBuf,'(A)')           WRITE(msgBuf,'(A)')
94       &   'OBCS_CHECK: ERROR: useOBCSprescribe = .TRUE. for'       &   'OBCS_CHECK: ERROR: useOBCSprescribe = .TRUE. for'
95           CALL PRINT_ERROR( msgBuf , 1)           CALL PRINT_ERROR( msgBuf , 1)
96           WRITE(msgBuf,'(A)')           WRITE(msgBuf,'(A)')
97       &   'OBCS_CHECK: undef ALLOW_OBCS_PRESCRIBE       &   'OBCS_CHECK: undef ALLOW_OBCS_PRESCRIBE'
98             CALL PRINT_ERROR( msgBuf , 1)
99           STOP 'ABNORMAL END: S/R OBCS_CHECK'           STOP 'ABNORMAL END: S/R OBCS_CHECK'
100          ENDIF          ENDIF
101  #endif  #endif
102    
103          IF ( debugLevel.GE.debLevB ) THEN
104           _BEGIN_MASTER( myThid )
105           DO bj = 1,nSy
106            DO bi = 1,nSx
107             write(*,*) 'bi,bj:',bi,bj,' OB_Jn=',(OB_Jn(i,bi,bj),i=1,sNx)
108             write(*,*) 'bi,bj:',bi,bj,' OB_Js=',(OB_Js(i,bi,bj),i=1,sNx)
109             write(*,*) 'bi,bj:',bi,bj,' OB_Ie=',(OB_Ie(j,bi,bj),j=1,sNy)
110             write(*,*) 'bi,bj:',bi,bj,' OB_Iw=',(OB_Iw(j,bi,bj),j=1,sNy)
111            ENDDO
112           ENDDO
113           _END_MASTER(myThid)
114          ENDIF
115    
116        WRITE(msgBuf,'(A)') 'OBCS_CHECK: OK'        WRITE(msgBuf,'(A)') 'OBCS_CHECK: OK'
117        CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,        CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,
118       &                   SQUEEZE_RIGHT,myThid)       &                   SQUEEZE_RIGHT,myThid)
119    
120  #endif /* ALLOW_OBCS */  #endif /* ALLOW_OBCS */
121        return        RETURN
122        end        END
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.10
  ViewVC Help
Powered by ViewVC 1.1.22