144 |
& +sa2*array2(isl,jsl,ktl) |
& +sa2*array2(isl,jsl,ktl) |
145 |
e2Bufr1_RX(iBufr1)=val1 |
e2Bufr1_RX(iBufr1)=val1 |
146 |
#ifdef W2_E2_DEBUG_ON |
#ifdef W2_E2_DEBUG_ON |
147 |
WRITE(messageBuffer,'(A,2I4)') 'EXCH2_SEND_RX2 target u(itl, jtl) = ', itl, jtl |
WRITE(messageBuffer,'(A,2I4)') |
148 |
|
& 'EXCH2_SEND_RX2 target u(itl, jtl) = ', itl, jtl |
149 |
CALL PRINT_MESSAGE(messageBuffer, |
CALL PRINT_MESSAGE(messageBuffer, |
150 |
I standardMessageUnit,SQUEEZE_RIGHT, |
I standardMessageUnit,SQUEEZE_RIGHT, |
151 |
I myThid) |
I myThid) |
152 |
IF ( pi(1) .EQ. 1 ) THEN |
IF ( pi(1) .EQ. 1 ) THEN |
153 |
C i index aligns |
C i index aligns |
154 |
WRITE(messageBuffer,'(A,2I4)') ' source +u(isl, jsl) = ', isl, jsl |
WRITE(messageBuffer,'(A,2I4)') |
155 |
|
& ' source +u(isl, jsl) = ', isl, jsl |
156 |
ELSEIF ( pi(1) .EQ. -1 ) THEN |
ELSEIF ( pi(1) .EQ. -1 ) THEN |
157 |
C reversed i index aligns |
C reversed i index aligns |
158 |
WRITE(messageBuffer,'(A,2I4)') ' source -u(isl, jsl) = ', isl, jsl |
WRITE(messageBuffer,'(A,2I4)') |
159 |
|
& ' source -u(isl, jsl) = ', isl, jsl |
160 |
ELSEIF ( pj(1) .EQ. 1 ) THEN |
ELSEIF ( pj(1) .EQ. 1 ) THEN |
161 |
WRITE(messageBuffer,'(A,2I4)') ' source +v(isl, jsl) = ', isl, jsl |
WRITE(messageBuffer,'(A,2I4)') |
162 |
|
& ' source +v(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 |
ENDIF |
ENDIF |
167 |
CALL PRINT_MESSAGE(messageBuffer, |
CALL PRINT_MESSAGE(messageBuffer, |
168 |
I standardMessageUnit,SQUEEZE_RIGHT, |
I standardMessageUnit,SQUEEZE_RIGHT, |
169 |
I myThid) |
I myThid) |
170 |
IF ( isl .LT. i1Lo .OR. isl .GT. i1Hi ) THEN |
IF ( isl .LT. i1Lo .OR. isl .GT. i1Hi ) THEN |
171 |
WRITE(messageBuffer,'(A,2I4)') ' *** isl is out of bounds ' |
WRITE(messageBuffer,'(A,2I4)') |
172 |
|
& ' *** isl is out of bounds ' |
173 |
CALL PRINT_MESSAGE(messageBuffer, |
CALL PRINT_MESSAGE(messageBuffer, |
174 |
I standardMessageUnit,SQUEEZE_RIGHT, |
I standardMessageUnit,SQUEEZE_RIGHT, |
175 |
I myThid) |
I myThid) |
176 |
ENDIF |
ENDIF |
177 |
IF ( jsl .LT. j1Lo .OR. jsl .GT. j1Hi ) THEN |
IF ( jsl .LT. j1Lo .OR. jsl .GT. j1Hi ) THEN |
178 |
WRITE(messageBuffer,'(A,2I4)') ' *** jsl is out of bounds ' |
WRITE(messageBuffer,'(A,2I4)') |
179 |
|
& ' *** jsl is out of bounds ' |
180 |
CALL PRINT_MESSAGE(messageBuffer, |
CALL PRINT_MESSAGE(messageBuffer, |
181 |
I standardMessageUnit,SQUEEZE_RIGHT, |
I standardMessageUnit,SQUEEZE_RIGHT, |
182 |
I myThid) |
I myThid) |
282 |
& +sa2*array2(isl,jsl,ktl) |
& +sa2*array2(isl,jsl,ktl) |
283 |
e2Bufr2_RX(iBufr2)=val2 |
e2Bufr2_RX(iBufr2)=val2 |
284 |
#ifdef W2_E2_DEBUG_ON |
#ifdef W2_E2_DEBUG_ON |
285 |
WRITE(messageBuffer,'(A,2I4)') 'EXCH2_SEND_RX2 target v(itl, jtl) = ', itl, jtl |
WRITE(messageBuffer,'(A,2I4)') |
286 |
|
& 'EXCH2_SEND_RX2 target v(itl, jtl) = ', itl, jtl |
287 |
CALL PRINT_MESSAGE(messageBuffer, |
CALL PRINT_MESSAGE(messageBuffer, |
288 |
I standardMessageUnit,SQUEEZE_RIGHT, |
I standardMessageUnit,SQUEEZE_RIGHT, |
289 |
I myThid) |
I myThid) |
290 |
IF ( pi(2) .EQ. 1 ) THEN |
IF ( pi(2) .EQ. 1 ) THEN |
291 |
C i index aligns |
C i index aligns |
292 |
WRITE(messageBuffer,'(A,2I4)') ' source +u(isl, jsl) = ', isl, jsl |
WRITE(messageBuffer,'(A,2I4)') |
293 |
|
& ' source +u(isl, jsl) = ', isl, jsl |
294 |
ELSEIF ( pi(2) .EQ. -1 ) THEN |
ELSEIF ( pi(2) .EQ. -1 ) THEN |
295 |
C reversed i index aligns |
C reversed i index aligns |
296 |
WRITE(messageBuffer,'(A,2I4)') ' source -u(isl, jsl) = ', isl, jsl |
WRITE(messageBuffer,'(A,2I4)') |
297 |
|
& ' source -u(isl, jsl) = ', isl, jsl |
298 |
ELSEIF ( pj(2) .EQ. 1 ) THEN |
ELSEIF ( pj(2) .EQ. 1 ) THEN |
299 |
WRITE(messageBuffer,'(A,2I4)') ' source +v(isl, jsl) = ', isl, jsl |
WRITE(messageBuffer,'(A,2I4)') |
300 |
|
& ' source +v(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 |
ENDIF |
ENDIF |
305 |
CALL PRINT_MESSAGE(messageBuffer, |
CALL PRINT_MESSAGE(messageBuffer, |
306 |
I standardMessageUnit,SQUEEZE_RIGHT, |
I standardMessageUnit,SQUEEZE_RIGHT, |
307 |
I myThid) |
I myThid) |
308 |
IF ( isl .LT. i1Lo .OR. isl .GT. i1Hi ) THEN |
IF ( isl .LT. i1Lo .OR. isl .GT. i1Hi ) THEN |
309 |
WRITE(messageBuffer,'(A,2I4)') ' *** isl is out of bounds ' |
WRITE(messageBuffer,'(A,2I4)') |
310 |
|
& ' *** isl is out of bounds ' |
311 |
CALL PRINT_MESSAGE(messageBuffer, |
CALL PRINT_MESSAGE(messageBuffer, |
312 |
I standardMessageUnit,SQUEEZE_RIGHT, |
I standardMessageUnit,SQUEEZE_RIGHT, |
313 |
I myThid) |
I myThid) |
314 |
ENDIF |
ENDIF |
315 |
IF ( jsl .LT. j1Lo .OR. jsl .GT. j1Hi ) THEN |
IF ( jsl .LT. j1Lo .OR. jsl .GT. j1Hi ) THEN |
316 |
WRITE(messageBuffer,'(A,2I4)') ' *** jsl is out of bounds ' |
WRITE(messageBuffer,'(A,2I4)') |
317 |
|
& ' *** jsl is out of bounds ' |
318 |
CALL PRINT_MESSAGE(messageBuffer, |
CALL PRINT_MESSAGE(messageBuffer, |
319 |
I standardMessageUnit,SQUEEZE_RIGHT, |
I standardMessageUnit,SQUEEZE_RIGHT, |
320 |
I myThid) |
I myThid) |