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

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

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

revision 1.2 by jmc, Fri Apr 23 20:21:07 2010 UTC revision 1.3 by jmc, Mon Sep 3 19:40:33 2012 UTC
# Line 38  C !USES: Line 38  C !USES:
38  #include "W2_EXCH2_SIZE.h"  #include "W2_EXCH2_SIZE.h"
39  #include "W2_EXCH2_TOPOLOGY.h"  #include "W2_EXCH2_TOPOLOGY.h"
40    
   
41  C !INPUT/OUTPUT PARAMETERS:  C !INPUT/OUTPUT PARAMETERS:
42  C     === Routine arguments ===  C     === Routine arguments ===
43  C     tIlo1, tIhi1  :: index range in I that will be filled in target "array1"  C     tIlo1, tIhi1  :: index range in I that will be filled in target "array1"
# Line 120  C     itb, jtb    :: Target local to can Line 119  C     itb, jtb    :: Target local to can
119        INTEGER pi(2), pj(2)        INTEGER pi(2), pj(2)
120        _RX     sa1, sa2, val1, val2        _RX     sa1, sa2, val1, val2
121    
 C     MPI setup  
 #ifdef ALLOW_USE_MPI  
       INTEGER theTag1, theTag2, theType, theHandle1, theHandle2  
       INTEGER sProc, tProc, mpiRc  
 #endif  
122  #if ( (defined W2_E2_DEBUG_ON) || (defined W2_USE_E2_SAFEMODE) )  #if ( (defined W2_E2_DEBUG_ON) || (defined W2_USE_E2_SAFEMODE) )
123        CHARACTER*(MAX_LEN_MBUF) msgBuf        CHARACTER*(MAX_LEN_MBUF) msgBuf
124  #endif  #endif
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22