Ignore:
Timestamp:
12/18/18 17:34:59 (5 years ago)
Author:
yushan
Message:

bug fix (Nb of files less than Nb of servers)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • XIOS/dev/dev_trunk_omp/src/test/test_omp.f90

    r1604 r1628  
    4545    CALL MPI_COMM_RANK(MPI_COMM_WORLD,rank,ierr) 
    4646    CALL MPI_COMM_SIZE(MPI_COMM_WORLD,size,ierr) 
    47     if(rank < size-2) then 
     47    if(rank < size-4) then 
    4848 
    4949    !$omp parallel default(firstprivate) 
Note: See TracChangeset for help on using the changeset viewer.