/[MITgcm]/MITgcm/eesupp/src/exch_rx_send_put_x.template
ViewVC logotype

Diff of /MITgcm/eesupp/src/exch_rx_send_put_x.template

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

revision 1.6 by cnh, Fri Nov 11 03:01:26 2005 UTC revision 1.7 by jmc, Wed Feb 20 20:29:54 2008 UTC
# Line 193  C        Send the data Line 193  C        Send the data
193           ENDIF           ENDIF
194  #endif  #endif
195  #endif /* ALLOW_USE_MPI */  #endif /* ALLOW_USE_MPI */
196           eastRecvAck(eBl,biW,bjW) = 1.           eastRecvAck(eBl,biW,bjW) = 1
197          ELSEIF ( westCommMode .EQ. COMM_PUT  ) THEN          ELSEIF ( westCommMode .EQ. COMM_PUT  ) THEN
198           iB  = 0           iB  = 0
199           DO K=1,myNz           DO K=1,myNz
# Line 239  C        Send the data Line 239  C        Send the data
239           ENDIF           ENDIF
240  #endif  #endif
241  #endif /* ALLOW_USE_MPI */  #endif /* ALLOW_USE_MPI */
242           westRecvAck(eBl,biE,bjE) = 1.           westRecvAck(eBl,biE,bjE) = 1
243          ELSEIF ( eastCommMode .EQ. COMM_PUT  ) THEN          ELSEIF ( eastCommMode .EQ. COMM_PUT  ) THEN
244           iB  = 0           iB  = 0
245           DO K=1,myNz           DO K=1,myNz
# Line 288  C        Send the data Line 288  C        Send the data
288           ENDIF           ENDIF
289  #endif  #endif
290  #endif /* ALLOW_USE_MPI */  #endif /* ALLOW_USE_MPI */
291           eastRecvAck(eBl,biW,bjW) = 1.           eastRecvAck(eBl,biW,bjW) = 1
292          ELSEIF ( westCommMode .EQ. COMM_PUT  ) THEN          ELSEIF ( westCommMode .EQ. COMM_PUT  ) THEN
293           iB  = 0           iB  = 0
294           DO K=1,myNz           DO K=1,myNz
# Line 336  C        Send the data Line 336  C        Send the data
336           ENDIF           ENDIF
337  #endif  #endif
338  #endif /* ALLOW_USE_MPI */  #endif /* ALLOW_USE_MPI */
339           westRecvAck(eBl,biE,bjE) = 1.           westRecvAck(eBl,biE,bjE) = 1
340          ELSEIF ( eastCommMode .EQ. COMM_PUT  ) THEN          ELSEIF ( eastCommMode .EQ. COMM_PUT  ) THEN
341           iB  = 0           iB  = 0
342           DO K=1,myNz           DO K=1,myNz
# Line 376  C     overlap region data that will be e Line 376  C     overlap region data that will be e
376          bjW = _tileBjW(bi,bj)          bjW = _tileBjW(bi,bj)
377          westCommMode = _tileCommModeW(bi,bj)          westCommMode = _tileCommModeW(bi,bj)
378          eastCommMode = _tileCommModeE(bi,bj)          eastCommMode = _tileCommModeE(bi,bj)
379          IF ( westCommMode .EQ. COMM_PUT ) eastRecvAck(eBl,biW,bjW) = 1.          IF ( westCommMode.EQ.COMM_PUT ) eastRecvAck(eBl,biW,bjW) = 1
380          IF ( eastCommMode .EQ. COMM_PUT ) westRecvAck(eBl,biE,bjE) = 1.          IF ( eastCommMode.EQ.COMM_PUT ) westRecvAck(eBl,biE,bjE) = 1
381          IF ( westCommMode .EQ. COMM_GET ) eastRecvAck(eBl,biW,bjW) = 1.          IF ( westCommMode.EQ.COMM_GET ) eastRecvAck(eBl,biW,bjW) = 1
382          IF ( eastCommMode .EQ. COMM_GET ) westRecvAck(eBl,biE,bjE) = 1.          IF ( eastCommMode.EQ.COMM_GET ) westRecvAck(eBl,biE,bjE) = 1
383         ENDDO         ENDDO
384        ENDDO        ENDDO
385    
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22