/[MITgcm]/MITgcm/eesupp/src/gather_2d_rx.template
ViewVC logotype

Diff of /MITgcm/eesupp/src/gather_2d_rx.template

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

revision 1.1 by jmc, Mon May 11 02:13:29 2009 UTC revision 1.2 by jmc, Tue May 12 19:53:02 2009 UTC
# Line 23  C     !USES: Line 23  C     !USES:
23  #include "EEPARAMS.h"  #include "EEPARAMS.h"
24  #include "EESUPPORT.h"  #include "EESUPPORT.h"
25  #ifdef ALLOW_EXCH2  #ifdef ALLOW_EXCH2
26    #include "W2_EXCH2_SIZE.h"
27  #include "W2_EXCH2_TOPOLOGY.h"  #include "W2_EXCH2_TOPOLOGY.h"
 #include "W2_EXCH2_PARAMS.h"  
28  #endif /* ALLOW_EXCH2 */  #endif /* ALLOW_EXCH2 */
29    
30  C     !INPUT/OUTPUT PARAMETERS:  C     !INPUT/OUTPUT PARAMETERS:
# Line 167  C--   Process 0 gathers the local arrays Line 167  C--   Process 0 gathers the local arrays
167  c         DO bj=1,nSy  c         DO bj=1,nSy
168            bj=1            bj=1
169             DO bi=1,nSx             DO bi=1,nSx
170               tN = W2_mpi_myTileList(np,bi)               tN = W2_procTileList(bi,np)
171               IF   ( exch2_mydNx(tN) .GT. xSize ) THEN               IF   ( exch2_mydNx(tN) .GT. xSize ) THEN
172  C-           face x-size larger than glob-size : fold it  C-           face x-size larger than glob-size : fold it
173                 iGjLoc = 0                 iGjLoc = 0
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22