/[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.4 by jmc, Fri Jul 22 18:21:55 2005 UTC revision 1.5 by jmc, Sun Jul 24 01:21:36 2005 UTC
# Line 1  Line 1 
1  C $Header$  C $Header$
2  C $Name$  C $Name$
3    
4  #include "CPP_OPTIONS.h"  #include "CPP_EEOPTIONS.h"
5    #include "W2_OPTIONS.h"
6    
7        SUBROUTINE EXCH2_SEND_RX2 (        SUBROUTINE EXCH2_SEND_RX2 (
8       I       tIlo, tIhi, tiStride,       I       tIlo, tIhi, tiStride,
# Line 23  C     bufr2 along +j axis in target tile Line 24  C     bufr2 along +j axis in target tile
24    
25        IMPLICIT NONE        IMPLICIT NONE
26    
27  C  #include "SIZE.h"
28  #include "W2_OPTIONS.h"  #include "EEPARAMS.h"
29    #include "EESUPPORT.h"
30  #include "W2_EXCH2_TOPOLOGY.h"  #include "W2_EXCH2_TOPOLOGY.h"
 #define  W2_USE_E2_SAFEMODE  
31    
 #include "EEPARAMS.h"  
 C  
32  C     === Routine arguments ===  C     === Routine arguments ===
33        INTEGER tILo, tIHi, tiStride        INTEGER tILo, tIHi, tiStride
34        INTEGER tJLo, tJHi, tjStride        INTEGER tJLo, tJHi, tjStride
# Line 72  C Line 71  C
71        INTEGER jtlreduce        INTEGER jtlreduce
72    
73  C     MPI setup  C     MPI setup
 #include "SIZE.h"  
 #include "EESUPPORT.h"  
74  #ifdef ALLOW_USE_MPI  #ifdef ALLOW_USE_MPI
75        INTEGER theTag1, theTag2, theType, theHandle1, theHandle2        INTEGER theTag1, theTag2, theType, theHandle1, theHandle2
76        INTEGER sProc, tProc, mpiRc        INTEGER sProc, tProc, mpiRc
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22