Changeset 1628 for XIOS/dev/dev_trunk_omp/src/test/test_omp.f90
- Timestamp:
- 12/18/18 17:34:59 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/dev/dev_trunk_omp/src/test/test_omp.f90
r1604 r1628 45 45 CALL MPI_COMM_RANK(MPI_COMM_WORLD,rank,ierr) 46 46 CALL MPI_COMM_SIZE(MPI_COMM_WORLD,size,ierr) 47 if(rank < size- 2) then47 if(rank < size-4) then 48 48 49 49 !$omp parallel default(firstprivate)
Note: See TracChangeset
for help on using the changeset viewer.