Parent Directory | Revision Log | Revision Graph | Patch
revision 1.7 by cnh, Wed Oct 28 03:11:35 1998 UTC | revision 1.8 by adcroft, Mon Mar 22 17:37:43 1999 UTC | |
---|---|---|
# | Line 136 C Could be periodic in X and/or Y - | Line 136 C Could be periodic in X and/or Y - |
136 | #endif /* CAN_PREVENT_Y_PERIODICITY */ | #endif /* CAN_PREVENT_Y_PERIODICITY */ |
137 | ||
138 | CALL MPI_CART_CREATE( | CALL MPI_CART_CREATE( |
139 | I MPI_COMM_WORLD,2,mpiGridSpec,mpiPeriodicity,_mpiTRUE_, | I MPI_COMM_MODEL,2,mpiGridSpec,mpiPeriodicity,_mpiTRUE_, |
140 | O mpiComm, mpiRC ) | O mpiComm, mpiRC ) |
141 | IF ( mpiRC .NE. MPI_SUCCESS ) THEN | IF ( mpiRC .NE. MPI_SUCCESS ) THEN |
142 | eeBootError = .TRUE. | eeBootError = .TRUE. |
# | Line 458 C-- Assign MPI values used in generat | Line 458 C-- Assign MPI values used in generat |
458 | mpiTagN = 4 | mpiTagN = 4 |
459 | ||
460 | C | C |
461 | CALL MPI_Barrier(MPI_COMM_WORLD,mpiRC) | CALL MPI_Barrier(MPI_COMM_MODEL,mpiRC) |
462 | ||
463 | ||
464 | C | C |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |