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

Diff of /MITgcm/pkg/exch2/exch2_rx2_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 101  CRG communication depends on order!!! Line 101  CRG communication depends on order!!!
101  CRG       DO N=1,nN  CRG       DO N=1,nN
102         DO N=nN,1,-1         DO N=nN,1,-1
103          farTile=exch2_neighbourId(N,thisTile)          farTile=exch2_neighbourId(N,thisTile)
104          oN=exch2_opposingSend_Record(N,thisTile)          tIlo =exch2_iLo(N,thisTile)
105          tIlo =exch2_itlo_c(oN,farTile)          tIhi =exch2_iHi(N,thisTile)
106          tIhi =exch2_ithi_c(oN,farTile)          tJlo =exch2_jLo(N,thisTile)
107          tJlo =exch2_jtlo_c(oN,farTile)          tJhi =exch2_jHi(N,thisTile)
         tJhi =exch2_jthi_c(oN,farTile)  
108          CALL EXCH2_GET_RECV_BOUNDS(          CALL EXCH2_GET_RECV_BOUNDS(
109       I       fieldCode, exchWidthX,       I       fieldCode, exchWidthX,
110       O       tiStride, tjStride,       O       tiStride, tjStride,
# Line 160  C     Post sends as messages or buffer c Line 159  C     Post sends as messages or buffer c
159         nN=exch2_nNeighbours(thisTile)         nN=exch2_nNeighbours(thisTile)
160         DO N=1,nN         DO N=1,nN
161          farTile=exch2_neighbourId(N,thisTile)          farTile=exch2_neighbourId(N,thisTile)
162          tIlo =exch2_itlo_c(N,thisTile)          oN=exch2_opposingSend(N,thisTile)
163          tIhi =exch2_ithi_c(N,thisTile)          tIlo =exch2_iLo(oN,farTile)
164          tJlo =exch2_jtlo_c(N,thisTile)          tIhi =exch2_iHi(oN,farTile)
165          tJhi =exch2_jthi_c(N,thisTile)          tJlo =exch2_jLo(oN,farTile)
166            tJhi =exch2_jHi(oN,farTile)
167          CALL EXCH2_GET_SEND_BOUNDS(          CALL EXCH2_GET_SEND_BOUNDS(
168       I       fieldCode, exchWidthX,       I       fieldCode, exchWidthX,
169       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