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

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

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

revision 1.2 by cnh, Fri Sep 21 03:55:50 2001 UTC revision 1.3 by dimitri, Wed Nov 12 00:02:44 2003 UTC
# Line 110  C--   iii. Set data read flag + memory s Line 110  C--   iii. Set data read flag + memory s
110  #endif  #endif
111           theProc = tilePidS(bi,bj)           theProc = tilePidS(bi,bj)
112           theTag  = _tileTagRecvS(bi,bj)           theTag  = _tileTagRecvS(bi,bj)
113           theType = MPI_DOUBLE_PRECISION           theType = _MPI_TYPE_RX
114           theSize = sNx*exchWidthY*myNz           theSize = sNx*exchWidthY*myNz
115           IF ( theCornerMode .EQ. EXCH_UPDATE_CORNERS )           IF ( theCornerMode .EQ. EXCH_UPDATE_CORNERS )
116       &    theSize = (sNx+2*exchWidthX)*exchWidthY*myNz       &    theSize = (sNx+2*exchWidthX)*exchWidthY*myNz
# Line 129  C--   iii. Set data read flag + memory s Line 129  C--   iii. Set data read flag + memory s
129  #endif  #endif
130           theProc = tilePidN(bi,bj)           theProc = tilePidN(bi,bj)
131           theTag  = _tileTagRecvN(bi,bj)           theTag  = _tileTagRecvN(bi,bj)
132           theType = MPI_DOUBLE_PRECISION           theType = _MPI_TYPE_RX
133           theSize = sNx*exchWidthY*myNz           theSize = sNx*exchWidthY*myNz
134           IF ( theCornerMode .EQ. EXCH_UPDATE_CORNERS )           IF ( theCornerMode .EQ. EXCH_UPDATE_CORNERS )
135       &    theSize = (sNx+2*exchWidthX)*exchWidthY*myNz       &    theSize = (sNx+2*exchWidthX)*exchWidthY*myNz
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22