/[MITgcm]/MITgcm/pkg/exch2/w2_eeboot.F
ViewVC logotype

Diff of /MITgcm/pkg/exch2/w2_eeboot.F

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

revision 1.13 by jmc, Fri Apr 16 18:14:24 2010 UTC revision 1.14 by jmc, Sat Jul 9 21:52:34 2011 UTC
# Line 23  C     !USES: Line 23  C     !USES:
23    
24  #include "SIZE.h"  #include "SIZE.h"
25  #include "EEPARAMS.h"  #include "EEPARAMS.h"
 #include "EESUPPORT.h"  
26  #include "W2_EXCH2_SIZE.h"  #include "W2_EXCH2_SIZE.h"
27  #include "W2_EXCH2_TOPOLOGY.h"  #include "W2_EXCH2_TOPOLOGY.h"
28  #include "W2_EXCH2_PARAMS.h"  #include "W2_EXCH2_PARAMS.h"
# Line 50  C     Set dummy myThid value (we are not Line 49  C     Set dummy myThid value (we are not
49        myThid = 1        myThid = 1
50    
51  C     Initialise to zero EXCH2_TOPOLOGY common blocks  C     Initialise to zero EXCH2_TOPOLOGY common blocks
52          exch2_nTiles = 0
53        DO I = 1,W2_maxNbTiles        DO I = 1,W2_maxNbTiles
54          exch2_tNx(I)    = 0          exch2_tNx(I)    = 0
55          exch2_tNy(I)    = 0          exch2_tNy(I)    = 0
# Line 112  C     functional relationship that was u Line 112  C     functional relationship that was u
112  C     Fill also W2_procTileList for Single-CPU-IO.  C     Fill also W2_procTileList for Single-CPU-IO.
113    
114  C     Number of tiles I handle is nSx*nSy  C     Number of tiles I handle is nSx*nSy
115        thisProc = 1        thisProc = 1 + myProcId
 #ifdef ALLOW_USE_MPI  
       thisProc = 1+myPid  
 #endif  
116        J = 0        J = 0
117        DO I=1,nTiles        DO I=1,exch2_nTiles
118         IF ( exch2_myFace(I) .NE. 0 ) THEN         IF ( exch2_myFace(I) .NE. 0 ) THEN
119  C--   old ordering (makes no difference if nSy*nPy=1 )  C--   old ordering (makes no difference if nSy*nPy=1 )
120  c       np = 1 + J/(nSx*nSy)  c       np = 1 + J/(nSx*nSy)
Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14
  ViewVC Help
Powered by ViewVC 1.1.22