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

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

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

revision 1.3 by edhill, Mon Apr 5 15:27:06 2004 UTC revision 1.4 by jmc, Fri Jul 22 18:21:55 2005 UTC
# Line 29  C Line 29  C
29  #define  W2_USE_E2_SAFEMODE  #define  W2_USE_E2_SAFEMODE
30    
31  #include "EEPARAMS.h"  #include "EEPARAMS.h"
       CHARACTER*(MAX_LEN_MBUF) messageBuffer  
32  C  C
33  C     === Routine arguments ===  C     === Routine arguments ===
34        INTEGER tILo, tIHi, tiStride        INTEGER tILo, tIHi, tiStride
# Line 56  C                    :: itc etc... targe Line 55  C                    :: itc etc... targe
55  C                    :: isl etc... source local  C                    :: isl etc... source local
56  C                    :: isc etc... source canonical  C                    :: isc etc... source canonical
57        INTEGER itl, jtl, ktl        INTEGER itl, jtl, ktl
58        INTEGER itc, jtc, ktc        INTEGER itc, jtc
59        INTEGER isc, jsc, ksc        INTEGER isc, jsc
60        INTEGER isl, jsl, ksl        INTEGER isl, jsl
61    c     INTEGER ktc, ksc, ksl
62  C     tt         :: Target tile  C     tt         :: Target tile
63  C     itb, jtb   :: Target local to canonical offsets  C     itb, jtb   :: Target local to canonical offsets
64  C  C
# Line 74  C Line 74  C
74  C     MPI setup  C     MPI setup
75  #include "SIZE.h"  #include "SIZE.h"
76  #include "EESUPPORT.h"  #include "EESUPPORT.h"
77    #ifdef ALLOW_USE_MPI
78        INTEGER theTag1, theTag2, theType, theHandle1, theHandle2        INTEGER theTag1, theTag2, theType, theHandle1, theHandle2
79        INTEGER sProc, tProc, mpiRc        INTEGER sProc, tProc, mpiRc
80    #endif
81          CHARACTER*(MAX_LEN_MBUF) messageBuffer
82    
83        IF     ( commSetting .EQ. 'P' ) THEN        IF     ( commSetting .EQ. 'P' ) THEN
84  C      Need to check that buffer synchronisation token is decremented  C      Need to check that buffer synchronisation token is decremented
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22