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

Diff of /MITgcm/pkg/exch2/exch2_send_rx2.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.3 by edhill, Mon Apr 5 15:27:06 2004 UTC
# Line 1  Line 1 
1    C $Header$
2    C $Name$
3    
4  #include "CPP_OPTIONS.h"  #include "CPP_OPTIONS.h"
5    
6        SUBROUTINE EXCH2_SEND_RX2 (        SUBROUTINE EXCH2_SEND_RX2 (
# Line 144  C       DO itl=1,32,31 Line 147  C       DO itl=1,32,31
147       &       +sa2*array2(isl,jsl,ktl)       &       +sa2*array2(isl,jsl,ktl)
148           e2Bufr1_RX(iBufr1)=val1           e2Bufr1_RX(iBufr1)=val1
149  #ifdef W2_E2_DEBUG_ON  #ifdef W2_E2_DEBUG_ON
150           WRITE(messageBuffer,'(A,2I4)') 'EXCH2_SEND_RX2 target  u(itl, jtl) = ', itl, jtl           WRITE(messageBuffer,'(A,2I4)')
151         &           'EXCH2_SEND_RX2 target  u(itl, jtl) = ', itl, jtl
152           CALL PRINT_MESSAGE(messageBuffer,           CALL PRINT_MESSAGE(messageBuffer,
153       I         standardMessageUnit,SQUEEZE_RIGHT,       I         standardMessageUnit,SQUEEZE_RIGHT,
154       I         myThid)       I         myThid)
155           IF (     pi(1) .EQ. 1 ) THEN           IF (     pi(1) .EQ. 1 ) THEN
156  C         i index aligns  C         i index aligns
157            WRITE(messageBuffer,'(A,2I4)') '               source +u(isl, jsl) = ', isl, jsl            WRITE(messageBuffer,'(A,2I4)')
158         &           '               source +u(isl, jsl) = ', isl, jsl
159           ELSEIF ( pi(1) .EQ. -1 ) THEN           ELSEIF ( pi(1) .EQ. -1 ) THEN
160  C         reversed i index aligns  C         reversed i index aligns
161            WRITE(messageBuffer,'(A,2I4)') '               source -u(isl, jsl) = ', isl, jsl            WRITE(messageBuffer,'(A,2I4)')
162         &            '               source -u(isl, jsl) = ', isl, jsl
163           ELSEIF ( pj(1) .EQ.  1 ) THEN           ELSEIF ( pj(1) .EQ.  1 ) THEN
164            WRITE(messageBuffer,'(A,2I4)') '               source +v(isl, jsl) = ', isl, jsl            WRITE(messageBuffer,'(A,2I4)')
165         &            '               source +v(isl, jsl) = ', isl, jsl
166           ELSEIF ( pj(1) .EQ. -1 ) THEN           ELSEIF ( pj(1) .EQ. -1 ) THEN
167            WRITE(messageBuffer,'(A,2I4)') '               source -v(isl, jsl) = ', isl, jsl            WRITE(messageBuffer,'(A,2I4)')
168         &            '               source -v(isl, jsl) = ', isl, jsl
169           ENDIF           ENDIF
170           CALL PRINT_MESSAGE(messageBuffer,           CALL PRINT_MESSAGE(messageBuffer,
171       I         standardMessageUnit,SQUEEZE_RIGHT,       I         standardMessageUnit,SQUEEZE_RIGHT,
172       I         myThid)       I         myThid)
173           IF ( isl .LT. i1Lo .OR. isl .GT. i1Hi ) THEN           IF ( isl .LT. i1Lo .OR. isl .GT. i1Hi ) THEN
174            WRITE(messageBuffer,'(A,2I4)') '               *** isl is out of bounds '            WRITE(messageBuffer,'(A,2I4)')
175         &           '               *** isl is out of bounds '
176            CALL PRINT_MESSAGE(messageBuffer,            CALL PRINT_MESSAGE(messageBuffer,
177       I     standardMessageUnit,SQUEEZE_RIGHT,       I     standardMessageUnit,SQUEEZE_RIGHT,
178       I     myThid)       I     myThid)
179           ENDIF           ENDIF
180           IF ( jsl .LT. j1Lo .OR. jsl .GT. j1Hi ) THEN           IF ( jsl .LT. j1Lo .OR. jsl .GT. j1Hi ) THEN
181            WRITE(messageBuffer,'(A,2I4)') '               *** jsl is out of bounds '            WRITE(messageBuffer,'(A,2I4)')
182         &           '               *** jsl is out of bounds '
183            CALL PRINT_MESSAGE(messageBuffer,            CALL PRINT_MESSAGE(messageBuffer,
184       I     standardMessageUnit,SQUEEZE_RIGHT,       I     standardMessageUnit,SQUEEZE_RIGHT,
185       I     myThid)       I     myThid)
# Line 275  C       DO itl=1,32,31 Line 285  C       DO itl=1,32,31
285       &       +sa2*array2(isl,jsl,ktl)       &       +sa2*array2(isl,jsl,ktl)
286           e2Bufr2_RX(iBufr2)=val2           e2Bufr2_RX(iBufr2)=val2
287  #ifdef W2_E2_DEBUG_ON  #ifdef W2_E2_DEBUG_ON
288           WRITE(messageBuffer,'(A,2I4)') 'EXCH2_SEND_RX2 target  v(itl, jtl) = ', itl, jtl           WRITE(messageBuffer,'(A,2I4)')
289         &            'EXCH2_SEND_RX2 target  v(itl, jtl) = ', itl, jtl
290           CALL PRINT_MESSAGE(messageBuffer,           CALL PRINT_MESSAGE(messageBuffer,
291       I         standardMessageUnit,SQUEEZE_RIGHT,       I         standardMessageUnit,SQUEEZE_RIGHT,
292       I         myThid)       I         myThid)
293           IF (     pi(2) .EQ. 1 ) THEN           IF (     pi(2) .EQ. 1 ) THEN
294  C         i index aligns  C         i index aligns
295            WRITE(messageBuffer,'(A,2I4)') '               source +u(isl, jsl) = ', isl, jsl            WRITE(messageBuffer,'(A,2I4)')
296         &          '               source +u(isl, jsl) = ', isl, jsl
297           ELSEIF ( pi(2) .EQ. -1 ) THEN           ELSEIF ( pi(2) .EQ. -1 ) THEN
298  C         reversed i index aligns  C         reversed i index aligns
299            WRITE(messageBuffer,'(A,2I4)') '               source -u(isl, jsl) = ', isl, jsl            WRITE(messageBuffer,'(A,2I4)')
300         &          '               source -u(isl, jsl) = ', isl, jsl
301           ELSEIF ( pj(2) .EQ.  1 ) THEN           ELSEIF ( pj(2) .EQ.  1 ) THEN
302            WRITE(messageBuffer,'(A,2I4)') '               source +v(isl, jsl) = ', isl, jsl            WRITE(messageBuffer,'(A,2I4)')
303         &          '               source +v(isl, jsl) = ', isl, jsl
304           ELSEIF ( pj(2) .EQ. -1 ) THEN           ELSEIF ( pj(2) .EQ. -1 ) THEN
305            WRITE(messageBuffer,'(A,2I4)') '               source -v(isl, jsl) = ', isl, jsl            WRITE(messageBuffer,'(A,2I4)')
306         &          '               source -v(isl, jsl) = ', isl, jsl
307           ENDIF           ENDIF
308           CALL PRINT_MESSAGE(messageBuffer,           CALL PRINT_MESSAGE(messageBuffer,
309       I         standardMessageUnit,SQUEEZE_RIGHT,       I         standardMessageUnit,SQUEEZE_RIGHT,
310       I         myThid)       I         myThid)
311           IF ( isl .LT. i1Lo .OR. isl .GT. i1Hi ) THEN           IF ( isl .LT. i1Lo .OR. isl .GT. i1Hi ) THEN
312            WRITE(messageBuffer,'(A,2I4)') '               *** isl is out of bounds '            WRITE(messageBuffer,'(A,2I4)')
313         &          '               *** isl is out of bounds '
314            CALL PRINT_MESSAGE(messageBuffer,            CALL PRINT_MESSAGE(messageBuffer,
315       I     standardMessageUnit,SQUEEZE_RIGHT,       I     standardMessageUnit,SQUEEZE_RIGHT,
316       I     myThid)       I     myThid)
317           ENDIF           ENDIF
318           IF ( jsl .LT. j1Lo .OR. jsl .GT. j1Hi ) THEN           IF ( jsl .LT. j1Lo .OR. jsl .GT. j1Hi ) THEN
319            WRITE(messageBuffer,'(A,2I4)') '               *** jsl is out of bounds '            WRITE(messageBuffer,'(A,2I4)')
320         &          '               *** jsl is out of bounds '
321            CALL PRINT_MESSAGE(messageBuffer,            CALL PRINT_MESSAGE(messageBuffer,
322       I     standardMessageUnit,SQUEEZE_RIGHT,       I     standardMessageUnit,SQUEEZE_RIGHT,
323       I     myThid)       I     myThid)
# Line 416  C      Store MPI_Wait token in messageHa Line 433  C      Store MPI_Wait token in messageHa
433    
434        RETURN        RETURN
435        END        END
436    
437    C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
438    
439    CEH3 ;;; Local Variables: ***
440    CEH3 ;;; mode:fortran ***
441    CEH3 ;;; End: ***
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22