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

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

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

revision 1.5 by heimbach, Fri Jul 27 22:15:23 2007 UTC revision 1.6 by jmc, Tue Jul 29 20:25:23 2008 UTC
# Line 106  c     INTEGER theTag, theSize, theType Line 106  c     INTEGER theTag, theSize, theType
106  #endif  #endif
107    
108        tt=exch2_neighbourId(nN, thisTile )        tt=exch2_neighbourId(nN, thisTile )
109        oN=exch2_opposingSend_record(nN, thisTile )        oN=exch2_opposingSend(nN, thisTile )
110    
111  C     Handle receive end data transport according to communication mechanism between  C     Handle receive end data transport according to communication mechanism between
112  C     source and target tile  C     source and target tile
# Line 115  C      1 Need to check and spin on data Line 115  C      1 Need to check and spin on data
115  C        assume only one thread per process.  C        assume only one thread per process.
116    
117  C      2 Need to set e2Bufr to use put buffer from opposing send.  C      2 Need to set e2Bufr to use put buffer from opposing send.
118         oN = exch2_opposingSend_record(nN, thisTile )         oN = exch2_opposingSend(nN, thisTile )
119         mb = oN         mb = oN
120         DO I=1,nt         DO I=1,nt
121          IF ( myTiles(I) .EQ. tt ) THEN          IF ( myTiles(I) .EQ. tt ) THEN
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22