Changeset 1167


Ignore:
Timestamp:
06/12/17 18:01:26 (4 years ago)
Author:
oabramkina
Message:

Two server levels: minor corrections to make registries functioning again.

Tested on curie with toy_cmip6.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • XIOS/dev/dev_olga/src/server.cpp

    r1158 r1167  
    219219        // Create server intraComm 
    220220        if (!CXios::usingServer2) 
     221        { 
    221222          MPI_Comm_dup(localComm, &intraComm); 
     223          MPI_Comm_rank(localComm,&rank_) ; 
     224        } 
    222225        else 
    223226        { 
     
    659662     int CServer::getRank() 
    660663     { 
    661        return rank_; 
     664       int rank; 
     665       MPI_Comm_rank(intraComm,&rank); 
     666       return rank; 
    662667     } 
    663668 
     
    682687        ++numDigit; 
    683688      } 
    684       id = getRank(); 
     689      id = rank_; //getRank(); 
    685690 
    686691      fileNameClient << fileName << "_" << std::setfill('0') << std::setw(numDigit) << id << ext; 
Note: See TracChangeset for help on using the changeset viewer.