Changeset 1678


Ignore:
Timestamp:
06/25/19 16:26:50 (2 years ago)
Author:
yushan
Message:

MARK: Dynamic workflow graph developement. Branch up to date with trunk @1676. Generic testcase not yet tested

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  
    88                      xios(get_year_length_in_seconds), xios(get_day_length_in_seconds) 
    99 
    10 USE icontext, ONLY : txios(context), xios(set_current_context), xios(is_valid_context) 
     10USE icontext, ONLY : txios(context), xios(set_current_context), xios(get_current_context), xios(is_valid_context) 
    1111 
    1212USE 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  
    866866 
    867867      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) 
    869872      { 
    870873              
  • XIOS/dev/dev_trunk_omp/src/node/domain.cpp

    r1661 r1678  
    243243      bool distributed =  !((!ni.isEmpty() && (ni == ni_glo) && !nj.isEmpty() && (nj == nj_glo)) || 
    244244              (!i_index.isEmpty() && i_index.numElements() == ni_glo*nj_glo)); 
     245      bool distributed_glo ; 
    245246      distributed |= (1 == CContext::getCurrent()->client->clientSize); 
    246247 
     
    20782079 
    20792080      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) 
    20812085      { 
    20822086              
Note: See TracChangeset for help on using the changeset viewer.