/[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.2 by edhill, Mon Apr 5 15:27:06 2004 UTC revision 1.3 by jmc, Fri Jul 22 18:21:55 2005 UTC
# Line 23  C Line 23  C
23  #include "W2_EXCH2_TOPOLOGY.h"  #include "W2_EXCH2_TOPOLOGY.h"
24    
25  #include "EEPARAMS.h"  #include "EEPARAMS.h"
       CHARACTER*(MAX_LEN_MBUF) messageBuffer  
26  C  C
27  C     === Routine arguments ===  C     === Routine arguments ===
28  C     tIlo, tIhi, tIstride :: index range in I that will be filled in target "array"  C     tIlo, tIhi, tIstride :: index range in I that will be filled in target "array"
# Line 78  C                    :: itc etc... targe Line 77  C                    :: itc etc... targe
77  C                    :: isl etc... source local  C                    :: isl etc... source local
78  C                    :: isc etc... source canonical  C                    :: isc etc... source canonical
79        INTEGER itl, jtl, ktl        INTEGER itl, jtl, ktl
80        INTEGER itc, jtc, ktc  c     INTEGER itc, jtc, ktc
81        INTEGER isc, jsc, ksc  c     INTEGER isc, jsc, ksc
82        INTEGER isl, jsl, ksl  c     INTEGER isl, jsl, ksl
83  C     tt         :: Target tile  C     tt         :: Target tile
84  C     iBufr      :: Buffer counter  C     iBufr      :: Buffer counter
85        INTEGER tt        INTEGER tt
# Line 91  C     ir     :: Line 90  C     ir     ::
90  C     oN     :: Opposing send record number  C     oN     :: Opposing send record number
91        INTEGER oN        INTEGER oN
92  C     Loop counters  C     Loop counters
93        INTEGER I, nri, nrj, nrk  c     INTEGER I, nri, nrj, nrk
94          INTEGER I
95    
96  C     MPI setup  C     MPI setup
97  #include "SIZE.h"  #include "SIZE.h"
98  #include "EESUPPORT.h"  #include "EESUPPORT.h"
       INTEGER theTag, theSize, theType  
       INTEGER sProc, tProc  
99  #ifdef ALLOW_USE_MPI  #ifdef ALLOW_USE_MPI
100    c     INTEGER theTag, theSize, theType
101          INTEGER theTag, theType
102          INTEGER sProc, tProc
103          INTEGER nri, nrj, nrk
104        INTEGER mpiStatus(MPI_STATUS_SIZE), mpiRc        INTEGER mpiStatus(MPI_STATUS_SIZE), mpiRc
105    #ifdef W2_E2_DEBUG_ON
106          CHARACTER*(MAX_LEN_MBUF) messageBuffer
107    #endif
108  #endif  #endif
109    
110        tt=exch2_neighbourId(nN, thisTile )        tt=exch2_neighbourId(nN, thisTile )
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22