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

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

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

revision 1.1 by heimbach, Fri Jul 27 22:15:23 2007 UTC revision 1.2 by jmc, Tue Jul 29 20:25:23 2008 UTC
# Line 95  C     Receive messages or extract buffer Line 95  C     Receive messages or extract buffer
95         nN=exch2_nNeighbours(thisTile)         nN=exch2_nNeighbours(thisTile)
96         DO N=1,nN         DO N=1,nN
97          farTile=exch2_neighbourId(N,thisTile)          farTile=exch2_neighbourId(N,thisTile)
98          oN=exch2_opposingSend_Record(N,thisTile)          tIlo =exch2_iLo(N,thisTile)
99          tIlo =exch2_itlo_c(oN,farTile)          tIhi =exch2_iHi(N,thisTile)
100          tIhi =exch2_ithi_c(oN,farTile)          tJlo =exch2_jLo(N,thisTile)
101          tJlo =exch2_jtlo_c(oN,farTile)          tJhi =exch2_jHi(N,thisTile)
         tJhi =exch2_jthi_c(oN,farTile)  
102          CALL EXCH2_GET_RECV_BOUNDS(          CALL EXCH2_GET_RECV_BOUNDS(
103       I       fieldCode, exchWidthX,       I       fieldCode, exchWidthX,
104       O       tiStride, tjStride,       O       tiStride, tjStride,
# Line 150  C     Post sends as messages or buffer c Line 149  C     Post sends as messages or buffer c
149         nN=exch2_nNeighbours(thisTile)         nN=exch2_nNeighbours(thisTile)
150         DO N=1,nN         DO N=1,nN
151          farTile=exch2_neighbourId(N,thisTile)          farTile=exch2_neighbourId(N,thisTile)
152          tIlo =exch2_itlo_c(N,thisTile)          oN=exch2_opposingSend(N,thisTile)
153          tIhi =exch2_ithi_c(N,thisTile)          tIlo =exch2_iLo(oN,farTile)
154          tJlo =exch2_jtlo_c(N,thisTile)          tIhi =exch2_iHi(oN,farTile)
155          tJhi =exch2_jthi_c(N,thisTile)          tJlo =exch2_jLo(oN,farTile)
156            tJhi =exch2_jHi(oN,farTile)
157          CALL EXCH2_GET_SEND_BOUNDS(          CALL EXCH2_GET_SEND_BOUNDS(
158       I       fieldCode, exchWidthX,       I       fieldCode, exchWidthX,
159       O       tiStride, tjStride,       O       tiStride, tjStride,
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22