/[MITgcm]/MITgcm/eesupp/src/ini_communication_patterns.F
ViewVC logotype

Diff of /MITgcm/eesupp/src/ini_communication_patterns.F

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

revision 1.1 by cnh, Tue Sep 29 18:53:45 1998 UTC revision 1.3 by cnh, Sun Feb 4 14:38:43 2001 UTC
# Line 1  Line 1 
1  C $Header$  C $Header$
2    C $Name$
3    
4  #include "CPP_EEOPTIONS.h"  #include "CPP_EEOPTIONS.h"
5    
# Line 94  C     tile in this process. Line 95  C     tile in this process.
95        DO bj=myByLo(myThid),myByHi(myThid)        DO bj=myByLo(myThid),myByHi(myThid)
96         DO bi=myBxLo(myThid),myBxHi(myThid)         DO bi=myBxLo(myThid),myBxHi(myThid)
97  C       o My tile identifier  C       o My tile identifier
98          tileNo(bi,bj) = (bj0(myPy)-1+bj-1)*nSx*nPx+bi0(myPx)+bi-1  Crg     tileNo(bi,bj) = (bj0(myPy)-1+bj-1)*nSx*nPx+bi0(myPx)+bi-1
99          thePx = myPx          thePx = myPx
100          thePy = myPy          thePy = myPy
101          theBj = bj          theBj = bj
# Line 113  C       o My west neighbor tile and proc Line 114  C       o My west neighbor tile and proc
114           procW = pidW           procW = pidW
115           IF ( pxW .LT. 1 ) pxW   = nPx           IF ( pxW .LT. 1 ) pxW   = nPx
116          ENDIF          ENDIF
117          tileNoW (bi,bj) = (bj0(myPy)-1+bj-1)*nSx*nPx+bi0(pxW)+biW-1  Crg     tileNoW (bi,bj) = (bj0(myPy)-1+bj-1)*nSx*nPx+bi0(pxW)+biW-1
118          thePx = pxW          thePx = pxW
119          thePy = myPy          thePy = myPy
120          theBj = bj          theBj = bj
# Line 135  C       o My east neighbor tile and proc Line 136  C       o My east neighbor tile and proc
136           procE = pidE           procE = pidE
137           IF ( pxE .GT. nPx ) pxE   = 1           IF ( pxE .GT. nPx ) pxE   = 1
138          ENDIF          ENDIF
139          tileNoE(bi,bj)  = (bj0(myPy)-1+bj-1)*nSx*nPx+bi0(pxE)+biE-1  Crg     tileNoE(bi,bj)  = (bj0(myPy)-1+bj-1)*nSx*nPx+bi0(pxE)+biE-1
140          thePx = pxE          thePx = pxE
141          thePy = myPy          thePy = myPy
142          theBi = biE          theBi = biE
# Line 157  C       o My north neighbor tile and pro Line 158  C       o My north neighbor tile and pro
158           procN = pidN           procN = pidN
159           IF ( pyN .GT. nPy ) pyN   = 1           IF ( pyN .GT. nPy ) pyN   = 1
160          ENDIF          ENDIF
161           tileNoN(bi,bj) = (bj0(pyN)-1+bjN-1)*nSx*nPx+bi0(myPx)+bi-1  Crg     tileNoN(bi,bj) = (bj0(pyN)-1+bjN-1)*nSx*nPx+bi0(myPx)+bi-1
162          thePx = myPx          thePx = myPx
163          thePy = pyN          thePy = pyN
164          theBi = bi          theBi = bi
# Line 179  C       o My south neighbor tile and pro Line 180  C       o My south neighbor tile and pro
180           procS = pidS           procS = pidS
181           IF ( pyS .LT. 1 ) pyS = nPy           IF ( pyS .LT. 1 ) pyS = nPy
182          ENDIF          ENDIF
183           tileNoS(bi,bj) = (bj0(pyS+1)-1+bjS-1)*nSx*nPx+bi0(myPx+1)+bi-1  Crg     tileNoS(bi,bj) = (bj0(pyS+1)-1+bjS-1)*nSx*nPx+bi0(myPx+1)+bi-1
184          thePx = myPx          thePx = myPx
185          thePy = pyS          thePy = pyS
186          theBi = bi          theBi = bi
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22