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

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

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

revision 1.2 by jmc, Tue Oct 9 00:04:53 2007 UTC revision 1.3 by jmc, Sun Jan 4 00:58:23 2009 UTC
# Line 2  C $Header$ Line 2  C $Header$
2  C $Name$  C $Name$
3    
4  #include "CPP_OPTIONS.h"  #include "CPP_OPTIONS.h"
5  #include "CPP_EEOPTIONS.h"  
6    C--   Contents
7    C--   o EXCH_RL_RECV_GET_VEC_X
8    C--   o EXCH_RL_RECV_GET_VEC_Y
9    
10    C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
11    
12        SUBROUTINE EXCH_RL_RECV_GET_VEC_X( arrayE, arrayW,        SUBROUTINE EXCH_RL_RECV_GET_VEC_X( arrayE, arrayW,
13       I            myd1, myThid )       I            myd1, myThid )
# Line 26  C     == Routine arguments == Line 31  C     == Routine arguments ==
31  C     arrayE - Arrays to exchange be exchanged.  C     arrayE - Arrays to exchange be exchanged.
32  C     arrayW  C     arrayW
33  C     myd1   - sizes.  C     myd1   - sizes.
 C     myd2  
34  C     theSimulationMode - Forward or reverse mode exchange ( provides  C     theSimulationMode - Forward or reverse mode exchange ( provides
35  C                         support for adjoint integration of code. )  C                         support for adjoint integration of code. )
36  C     myThid            - Thread number of this instance of S/R EXCH...  C     myThid            - Thread number of this instance of S/R EXCH...
37  C     eBl               - Edge buffer level  C     eBl               - Edge buffer level
38        INTEGER myd1        INTEGER myd1
       INTEGER myd2  
39        _RL arrayE(myd1, nSx, nSy), arrayW(myd1, nSx, nSy)        _RL arrayE(myd1, nSx, nSy), arrayW(myd1, nSx, nSy)
       INTEGER theSimulationMode  
40        INTEGER myThid        INTEGER myThid
41  CEndOfInterface  CEndOfInterface
42    
# Line 48  C     theSize Line 50  C     theSize
50  C     westCommMode               - Working variables holding type  C     westCommMode               - Working variables holding type
51  C     eastCommMode                 of communication a particular  C     eastCommMode                 of communication a particular
52  C                                  tile face uses.  C                                  tile face uses.
53        INTEGER I, J        INTEGER I
54        INTEGER bi, bj, biW, bjW, biE, bjE        INTEGER bi, bj, biW, bjW, biE, bjE
55        INTEGER westCommMode        INTEGER westCommMode
56        INTEGER eastCommMode        INTEGER eastCommMode
# Line 198  C--   Read from the buffers Line 200  C--   Read from the buffers
200        RETURN        RETURN
201        END        END
202    
203    C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
204    
205        SUBROUTINE EXCH_RL_RECV_GET_VEC_Y( arrayN, arrayS,        SUBROUTINE EXCH_RL_RECV_GET_VEC_Y( arrayN, arrayS,
206       I            myd1, myThid )       I            myd1, myThid )
# Line 221  C     == Routine arguments == Line 224  C     == Routine arguments ==
224  C     arrayN - Arrays to exchange be exchanged.  C     arrayN - Arrays to exchange be exchanged.
225  C     arrayS  C     arrayS
226  C     myd1   - sizes.  C     myd1   - sizes.
 C     myd2  
227  C     theSimulationMode - Forward or reverse mode exchange ( provides  C     theSimulationMode - Forward or reverse mode exchange ( provides
228  C                         support for adjoint integration of code. )  C                         support for adjoint integration of code. )
229  C     myThid            - Thread number of this instance of S/R EXCH...  C     myThid            - Thread number of this instance of S/R EXCH...
230        INTEGER myd1        INTEGER myd1
       INTEGER myd2  
231        _RL arrayN(myd1, nSx, nSy), arrayS(myd1, nSx, nSy)        _RL arrayN(myd1, nSx, nSy), arrayS(myd1, nSx, nSy)
       INTEGER theSimulationMode  
232        INTEGER myThid        INTEGER myThid
233  CEndOfInterface  CEndOfInterface
234    
# Line 242  C     theSize Line 242  C     theSize
242  C     southCommMode               - Working variables holding type  C     southCommMode               - Working variables holding type
243  C     northCommMode                 of communication a particular  C     northCommMode                 of communication a particular
244  C                                  tile face uses.  C                                  tile face uses.
245        INTEGER I, J        INTEGER I
246        INTEGER bi, bj, biS, bjS, biN, bjN        INTEGER bi, bj, biS, bjS, biN, bjN
247        INTEGER southCommMode        INTEGER southCommMode
248        INTEGER northCommMode        INTEGER northCommMode
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22