/[MITgcm]/MITgcm/pkg/exch2/exch2_send_rx1.template
ViewVC logotype

Diff of /MITgcm/pkg/exch2/exch2_send_rx1.template

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.1 by afe, Fri Jan 9 20:46:09 2004 UTC revision 1.2 by afe, Mon Jan 19 18:59:19 2004 UTC
# Line 76  C      before filling buffer. Line 76  C      before filling buffer.
76        oj=exch2_oj(nN,thisTile)        oj=exch2_oj(nN,thisTile)
77        iBufr=0        iBufr=0
78  #ifdef W2_E2_DEBUG_ON  #ifdef W2_E2_DEBUG_ON
79        WRITE(messageBuffer,'(A,I4,A,I4)') 'EXCH2_SEND_RX1 sourceTile= ', thisTile,        WRITE(messageBuffer,'(A,I4,A,I4)') 'EXCH2_SEND_RX1 sourceTile= ',
80         &                                    thisTile,
81       &                                   'targetTile= ',tt       &                                   'targetTile= ',tt
82        CALL PRINT_MESSAGE(messageBuffer,        CALL PRINT_MESSAGE(messageBuffer,
83       I      standardMessageUnit,SQUEEZE_BOTH,       I      standardMessageUnit,SQUEEZE_BOTH,
# Line 94  C      before filling buffer. Line 95  C      before filling buffer.
95           jsl=jsc-jsb           jsl=jsc-jsb
96           e2Bufr1_RX(iBufr)=array(isl,jsl,ktl)           e2Bufr1_RX(iBufr)=array(isl,jsl,ktl)
97  #ifdef W2_E2_DEBUG_ON  #ifdef W2_E2_DEBUG_ON
98           WRITE(messageBuffer,'(A,2I4)') 'EXCH2_SEND_RX1 target t(itl,jtl) = ', itl, jtl        WRITE(messageBuffer,'(A,2I4)')
99         &     'EXCH2_SEND_RX1 target t(itl,jtl) = ', itl, jtl
100           CALL PRINT_MESSAGE(messageBuffer,           CALL PRINT_MESSAGE(messageBuffer,
101       I      standardMessageUnit,SQUEEZE_RIGHT,       I      standardMessageUnit,SQUEEZE_RIGHT,
102       I      myThid)       I      myThid)
103           WRITE(messageBuffer,'(A,2I4)') '               source  (isl,jsl) = ', isl, jsl           WRITE(messageBuffer,'(A,2I4)')
104         &           '               source  (isl,jsl) = ', isl, jsl
105           CALL PRINT_MESSAGE(messageBuffer,           CALL PRINT_MESSAGE(messageBuffer,
106       I      standardMessageUnit,SQUEEZE_RIGHT,       I      standardMessageUnit,SQUEEZE_RIGHT,
107       I      myThid)       I      myThid)
108           IF ( isl .LT. i1Lo .OR. isl .GT. i1Hi ) THEN           IF ( isl .LT. i1Lo .OR. isl .GT. i1Hi ) THEN
109            WRITE(messageBuffer,'(A,2I4)') '              *** isl is out of bounds'                    WRITE(messageBuffer,'(A,2I4)')
110         &        '              *** isl is out of bounds'        
111            CALL PRINT_MESSAGE(messageBuffer,            CALL PRINT_MESSAGE(messageBuffer,
112       I       standardMessageUnit,SQUEEZE_RIGHT,       I       standardMessageUnit,SQUEEZE_RIGHT,
113       I       myThid)       I       myThid)
114           ENDIF           ENDIF
115           IF ( jsl .LT. j1Lo .OR. jsl .GT. j1Hi ) THEN           IF ( jsl .LT. j1Lo .OR. jsl .GT. j1Hi ) THEN
116            WRITE(messageBuffer,'(A,2I4)') '              *** jsl is out of bounds'                    WRITE(messageBuffer,'(A,2I4)')
117         &        '              *** jsl is out of bounds'        
118            CALL PRINT_MESSAGE(messageBuffer,            CALL PRINT_MESSAGE(messageBuffer,
119       I       standardMessageUnit,SQUEEZE_RIGHT,       I       standardMessageUnit,SQUEEZE_RIGHT,
120       I       myThid)       I       myThid)
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22