/[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.8 by jmc, Wed Oct 12 02:51:00 2005 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 84  C     msgBuf      - Informational/error Line 85  C     msgBuf      - Informational/error
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)
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9
  ViewVC Help
Powered by ViewVC 1.1.22