Changeset 1678
- Timestamp:
- 06/25/19 16:26:50 (5 years ago)
- Location:
- XIOS/dev/dev_trunk_omp
- Files:
-
- 7 added
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/dev/dev_trunk_omp/src/interface/fortran/ixios.F90
r1587 r1678 8 8 xios(get_year_length_in_seconds), xios(get_day_length_in_seconds) 9 9 10 USE icontext, ONLY : txios(context), xios(set_current_context), xios( is_valid_context)10 USE icontext, ONLY : txios(context), xios(set_current_context), xios(get_current_context), xios(is_valid_context) 11 11 12 12 USE icontext_attr, ONLY : xios(set_context_attr), xios(get_context_attr), xios(is_defined_context_attr) -
XIOS/dev/dev_trunk_omp/src/node/axis.cpp
r1661 r1678 866 866 867 867 numberWrittenIndexes_[writtenCommSize] = nbWritten; 868 if (isDistributed()) 868 869 bool distributed_glo, distributed=isDistributed() ; 870 MPI_Allreduce(&distributed,&distributed_glo, 1, MPI_INT, MPI_LOR, writtenComm) ; 871 if (distributed_glo) 869 872 { 870 873 -
XIOS/dev/dev_trunk_omp/src/node/domain.cpp
r1661 r1678 243 243 bool distributed = !((!ni.isEmpty() && (ni == ni_glo) && !nj.isEmpty() && (nj == nj_glo)) || 244 244 (!i_index.isEmpty() && i_index.numElements() == ni_glo*nj_glo)); 245 bool distributed_glo ; 245 246 distributed |= (1 == CContext::getCurrent()->client->clientSize); 246 247 … … 2078 2079 2079 2080 numberWrittenIndexes_[writtenCommSize] = nbWritten; 2080 if (isDistributed()) 2081 bool distributed_glo, distributed=isDistributed() ; 2082 MPI_Allreduce(&distributed,&distributed_glo, 1, MPI_INT, MPI_LOR, writtenComm) ; 2083 2084 if (distributed_glo) 2081 2085 { 2082 2086
Note: See TracChangeset
for help on using the changeset viewer.