/[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.5 by jmc, Mon Jun 8 03:34:03 2009 UTC revision 1.6 by jmc, Sun Jun 28 01:02:17 2009 UTC
# Line 78  C     safer to reset to zero to avoid un Line 78  C     safer to reset to zero to avoid un
78              ENDDO              ENDDO
79            ENDIF            ENDIF
80    
81  c         DO bj=1,nSy            DO bj=1,nSy
           bj=1  
82             DO bi=1,nSx             DO bi=1,nSx
83               tN = W2_myTileList(bi)               tN = W2_myTileList(bi,bj)
84               IF   ( exch2_mydNx(tN) .GT. xSize ) THEN               IF   ( exch2_mydNx(tN) .GT. xSize ) THEN
85  C-           face x-size larger than glob-size : fold it  C-           face x-size larger than glob-size : fold it
86                 iGjLoc = 0                 iGjLoc = 0
# Line 108  C-           default (face fit into glob Line 107  C-           default (face fit into glob
107               ENDDO               ENDDO
108    
109             ENDDO             ENDDO
110  c         ENDDO            ENDDO
111    
112          ELSE          ELSE
113  #else /* ALLOW_EXCH2 */  #else /* ALLOW_EXCH2 */
# Line 162  C--   Process 0 gathers the local arrays Line 161  C--   Process 0 gathers the local arrays
161  #ifdef ALLOW_EXCH2  #ifdef ALLOW_EXCH2
162           IF ( useExch2GlobLayOut ) THEN           IF ( useExch2GlobLayOut ) THEN
163    
164  c         DO bj=1,nSy            DO bj=1,nSy
           bj=1  
165             DO bi=1,nSx             DO bi=1,nSx
166               tN = W2_procTileList(bi,np)               tN = W2_procTileList(bi,bj,np)
167               IF   ( exch2_mydNx(tN) .GT. xSize ) THEN               IF   ( exch2_mydNx(tN) .GT. xSize ) THEN
168  C-           face x-size larger than glob-size : fold it  C-           face x-size larger than glob-size : fold it
169                 iGjLoc = 0                 iGjLoc = 0
# Line 192  C-           default (face fit into glob Line 190  C-           default (face fit into glob
190               ENDDO               ENDDO
191    
192             ENDDO             ENDDO
193  c         ENDDO            ENDDO
194    
195           ELSE           ELSE
196  #else /* ALLOW_EXCH2 */  #else /* ALLOW_EXCH2 */
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22