/[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.3 by jmc, Fri May 15 16:04:22 2009 UTC revision 1.4 by jmc, Fri May 22 00:15:00 2009 UTC
# Line 115  c         ENDDO Line 115  c         ENDDO
115          IF (.TRUE.) THEN          IF (.TRUE.) THEN
116  #endif /* ALLOW_EXCH2 */  #endif /* ALLOW_EXCH2 */
117    
118            iBase = 0            iBase = myXGlobalLo-1
119            jBase = 0            jBase = myYGlobalLo-1
 c         iBase = myXGlobalLo-1  
 c         jBase = myYGlobalLo-1  
120    
121            DO bj=1,nSy            DO bj=1,nSy
122             DO bi=1,nSx             DO bi=1,nSx
# Line 201  c         ENDDO Line 199  c         ENDDO
199           IF (.TRUE.) THEN           IF (.TRUE.) THEN
200  #endif /* ALLOW_EXCH2 */  #endif /* ALLOW_EXCH2 */
201    
202            iBase = MOD(np0,nPx)            iBase = mpi_myXGlobalLo(np)-1
203            jBase = np0/nPx            jBase = mpi_myYGlobalLo(np)-1
           iBase = iBase*nSx*sNx  
           jBase = jBase*nSy*sNy  
 c         iBase = mpi_myXGlobalLo(np)-1  
 c         jBase = mpi_myYGlobalLo(np)-1  
204    
205            DO bj=1,nSy            DO bj=1,nSy
206             DO bi=1,nSx             DO bi=1,nSx
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22