/[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.9 by jmc, Wed Dec 7 19:58:35 2005 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,
# Line 59  C     msgBuf      - Informational/error Line 60  C     msgBuf      - Informational/error
60           CALL PRINT_ERROR( msgBuf , 1)           CALL PRINT_ERROR( msgBuf , 1)
61           STOP 'ABNORMAL END: S/R OBCS_CHECK'           STOP 'ABNORMAL END: S/R OBCS_CHECK'
62         ENDIF         ENDIF
63        ENDIF  #ifdef ALLOW_PTRACERS
64           IF (usePTracers) THEN
 #ifdef ALLOW_OBCS_PRESCRIBE  
 # ifndef ALLOW_EXF  
65          WRITE(msgBuf,'(A)')          WRITE(msgBuf,'(A)')
66       &  'OBCS_CHECK: ERROR: ALLOW_OBCS_PRESCRIBE'       &  'OBCS_CHECK: ERROR: useOrlanski* Rad OBC with'
67          CALL PRINT_ERROR( msgBuf , 1)           CALL PRINT_ERROR( msgBuf , 1)
68          WRITE(msgBuf,'(A)')          WRITE(msgBuf,'(A)')
69       &  'OBCS_CHECK: needs to ALLOW_EXF, ALLOW_CAL'       &  'OBCS_CHECK: ERROR: pTracers not yet implemented'
70          STOP 'ABNORMAL END: S/R OBCS_CHECK'           CALL PRINT_ERROR( msgBuf , 1)
71  # endif           STOP 'ABNORMAL END: S/R OBCS_CHECK'
72  #else         ENDIF
73    #endif ALLOW_PTRACERS
74          ENDIF
75    
76    #ifndef ALLOW_OBCS_PRESCRIBE
77          IF (useOBCSprescribe) THEN          IF (useOBCSprescribe) THEN
78           WRITE(msgBuf,'(A)')           WRITE(msgBuf,'(A)')
79       &   'OBCS_CHECK: ERROR: useOBCSprescribe = .TRUE. for'       &   'OBCS_CHECK: ERROR: useOBCSprescribe = .TRUE. for'
80           CALL PRINT_ERROR( msgBuf , 1)           CALL PRINT_ERROR( msgBuf , 1)
81           WRITE(msgBuf,'(A)')           WRITE(msgBuf,'(A)')
82       &   'OBCS_CHECK: undef ALLOW_OBCS_PRESCRIBE       &   'OBCS_CHECK: undef ALLOW_OBCS_PRESCRIBE'
83             CALL PRINT_ERROR( msgBuf , 1)
84           STOP 'ABNORMAL END: S/R OBCS_CHECK'           STOP 'ABNORMAL END: S/R OBCS_CHECK'
85          ENDIF          ENDIF
86  #endif  #endif
87    
88          IF ( debugLevel.GE.debLevB ) THEN
89           _BEGIN_MASTER( myThid )
90           DO bj = 1,nSy
91            DO bi = 1,nSx
92             write(*,*) 'bi,bj:',bi,bj,' OB_Jn=',(OB_Jn(i,bi,bj),i=1,sNx)
93             write(*,*) 'bi,bj:',bi,bj,' OB_Js=',(OB_Js(i,bi,bj),i=1,sNx)
94             write(*,*) 'bi,bj:',bi,bj,' OB_Ie=',(OB_Ie(j,bi,bj),j=1,sNy)
95             write(*,*) 'bi,bj:',bi,bj,' OB_Iw=',(OB_Iw(j,bi,bj),j=1,sNy)
96            ENDDO
97           ENDDO
98           _END_MASTER(myThid)
99          ENDIF
100    
101        WRITE(msgBuf,'(A)') 'OBCS_CHECK: OK'        WRITE(msgBuf,'(A)') 'OBCS_CHECK: OK'
102        CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,        CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,
103       &                   SQUEEZE_RIGHT,myThid)       &                   SQUEEZE_RIGHT,myThid)
104    
105  #endif /* ALLOW_OBCS */  #endif /* ALLOW_OBCS */
106        return        RETURN
107        end        END
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.9
  ViewVC Help
Powered by ViewVC 1.1.22