/[MITgcm]/MITgcm/pkg/flt/exch2_send_put_vec.F
ViewVC logotype

Diff of /MITgcm/pkg/flt/exch2_send_put_vec.F

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

revision 1.1 by jahn, Wed Dec 22 21:24:58 2010 UTC revision 1.2 by jmc, Tue Sep 4 00:46:15 2012 UTC
# Line 14  C !ROUTINE: EXCH2_RL_SEND_PUT_VEC Line 14  C !ROUTINE: EXCH2_RL_SEND_PUT_VEC
14    
15  C !INTERFACE:  C !INTERFACE:
16        SUBROUTINE EXCH2_RL_SEND_PUT_VEC(        SUBROUTINE EXCH2_RL_SEND_PUT_VEC(
17       I                        array,       I                        array,
18       O                        bufRec,       O                        bufRec,
19       O                        theHandle,       O                        theHandle,
20       I                        myd1, myThid )       I                        myd1, myThid )
21  C     !DESCRIPTION:  C     !DESCRIPTION:
# Line 122  C        Send the data Line 122  C        Send the data
122  #ifndef ALWAYS_USE_MPI  #ifndef ALWAYS_USE_MPI
123           IF ( usingMPI ) THEN           IF ( usingMPI ) THEN
124  #endif  #endif
125           theProc = exch2_tProc(tgT) - 1           theProc = W2_tileProc(tgT) - 1
126           theTag  = (thisTile-1)*W2_maxNeighbours + nN           theTag  = (thisTile-1)*W2_maxNeighbours + nN
127           theSize = myd1           theSize = myd1
128           theType = _MPI_TYPE_RL           theType = _MPI_TYPE_RL
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22