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

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

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

revision 1.19 by dimitri, Tue Apr 6 00:25:56 2004 UTC revision 1.20 by dimitri, Tue Apr 6 01:20:44 2004 UTC
# Line 60  C                         units. Line 60  C                         units.
60        INTEGER elCount        INTEGER elCount
61        INTEGER elLen        INTEGER elLen
62        INTEGER elStride        INTEGER elStride
63          INTEGER npe,itemp,ierr,istatus(MPI_STATUS_SIZE)
64          INTEGER mpiBufSize,mpiRequest
65    #endif /* ALLOW_USE_MPI */
66          INTEGER myThid
67    
68  C--   Variables needed for mpi gather scatter routines.  C--   Variables needed for mpi gather scatter routines.
69        COMMON /GlobalLo/ mpi_myXGlobalLo, mpi_myYGlobalLo        COMMON /GlobalLo/ mpi_myXGlobalLo, mpi_myYGlobalLo
70        INTEGER mpi_myXGlobalLo(nPx*nPy)        INTEGER mpi_myXGlobalLo(nPx*nPy)
71        INTEGER mpi_myYGlobalLo(nPx*nPy)        INTEGER mpi_myYGlobalLo(nPx*nPy)
       INTEGER npe,itemp,ierr,istatus(MPI_STATUS_SIZE)  
       INTEGER mpiBufSize,mpiRequest  
   
 #endif /* ALLOW_USE_MPI */  
       INTEGER myThid  
72  CEOP  CEOP
73    
74  C--   Default values set to single processor case  C--   Default values set to single processor case
# Line 86  C     processes. A process can be its ow Line 85  C     processes. A process can be its ow
85        pidE        = 1        pidE        = 1
86        pidN        = 1        pidN        = 1
87        pidS        = 1        pidS        = 1
88          mpi_myXGlobalLo(1)=1
89          mpi_myYGlobalLo(1)=1
90  c     errorMessageUnit    = 0  c     errorMessageUnit    = 0
91  c     standardMessageUnit = 6  c     standardMessageUnit = 6
92    
Legend:
Removed from v.1.19  
changed lines
  Added in v.1.20
  ViewVC Help
Powered by ViewVC 1.1.22