Changeset 1745 for XIOS/dev/dev_trunk_omp/src/test/test_omp.f90
- Timestamp:
- 10/17/19 10:22:09 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/dev/dev_trunk_omp/src/test/test_omp.f90
r1681 r1745 54 54 55 55 CALL MPI_INIT_THREAD(3, provided, ierr) 56 if(provided .NE. 3) then56 ! if(provided .NE. 3) then 57 57 print*, "provided thread level = ", provided 58 call MPI_Abort()59 endif58 ! call MPI_Abort() 59 ! endif 60 60 61 61 CALL init_wait
Note: See TracChangeset
for help on using the changeset viewer.