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

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

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

revision 1.4 by heimbach, Thu Nov 6 22:00:31 2003 UTC revision 1.5 by jmc, Sat Nov 5 00:51:06 2005 UTC
# Line 17  C     global,local - working arrays used Line 17  C     global,local - working arrays used
17    
18        INTEGER iG,jG, i, j, bi, bj        INTEGER iG,jG, i, j, bi, bj
19  #ifdef ALLOW_USE_MPI  #ifdef ALLOW_USE_MPI
       COMMON /GlobalLo/ mpi_myXGlobalLo, mpi_myYGlobalLo  
       INTEGER mpi_myXGlobalLo(nPx*nPy)  
       INTEGER mpi_myYGlobalLo(nPx*nPy)  
   
20        _RL     temp(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL     temp(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
21        INTEGER istatus(MPI_STATUS_SIZE), ierr        INTEGER istatus(MPI_STATUS_SIZE), ierr
22        INTEGER lbuff, idest, itag, npe, ready_to_receive        INTEGER lbuff, idest, itag, npe, ready_to_receive
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22