Changeset 1141 for XIOS/dev/branch_yushan_merged/src/test/test_remap.f90
- Timestamp:
- 05/22/17 14:52:44 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/dev/branch_yushan_merged/src/test/test_remap.f90
r1138 r1141 44 44 45 45 CALL MPI_COMM_RANK(MPI_COMM_WORLD,rank,ierr) 46 if(rank < 2) then 46 CALL MPI_COMM_SIZE(MPI_COMM_WORLD,size,ierr) 47 if(rank < size-2) then 47 48 48 49 !!! XIOS Initialization (get the local communicator)
Note: See TracChangeset
for help on using the changeset viewer.