/[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.3 by cnh, Thu Apr 23 20:56:54 1998 UTC revision 1.4 by cnh, Wed Jun 10 15:27:32 1998 UTC
# Line 270  C--    Get MPI id for neighboring procs. Line 270  C--    Get MPI id for neighboring procs.
270         ENDIF         ENDIF
271         pidNW = mpiPidNW         pidNW = mpiPidNW
272         mpiGridSpec(1) = mpiPx+1         mpiGridSpec(1) = mpiPx+1
273         IF ( mpiPeriodicity(1) .EQ. _mpiTRUE_ .AND. mpiGridSpec(1) .LT. 0     )         IF ( mpiPeriodicity(1) .EQ. _mpiTRUE_ .AND. mpiGridSpec(1) .GT. nPx-1 )
274       &  mpiGridSpec(1) = nPx-1       &  mpiGridSpec(1) = 0
275         mpiGridSpec(2) = mpiPy+1         mpiGridSpec(2) = mpiPy+1
276         IF ( mpiPeriodicity(2) .EQ. _mpiTRUE_ .AND. mpiGridSpec(2) .GT. nPy-1 )         IF ( mpiPeriodicity(2) .EQ. _mpiTRUE_ .AND. mpiGridSpec(2) .GT. nPy-1 )
277       &  mpiGridSpec(2) = 0       &  mpiGridSpec(2) = 0
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22