Changeset 13608


Ignore:
Timestamp:
10/10/12 23:23:14 (12 years ago)
Author:
Eric.Larour
Message:

CHG: get rid of MyRank routines in Params.
Keep transitioning from extern for my_rank and num_procs to IssmComm static class

Location:
issm/trunk-jpl/src/c
Files:
9 edited

Legend:

Unmodified
Added
Removed

  • issm/trunk-jpl/src/c/classes/objects/DependentObject.cpp

    r13483 r13608  
    6666int    DependentObject::Id(void){ return -1; }
    6767/*}}}*/
    68 /*FUNCTION DependentObject::MyRank{{{*/
    69 int    DependentObject::MyRank(void){
    70         extern int my_rank;
    71 
    72         return my_rank;
    73 }
    74 /*}}}*/
    7568/*FUNCTION DependentObject::ObjectEnum{{{*/
    7669int DependentObject::ObjectEnum(void){

  • issm/trunk-jpl/src/c/classes/objects/DependentObject.h

    r13483 r13608  
    3535                void  DeepEcho();
    3636                int   Id();
    37                 int   MyRank();
    3837                int   ObjectEnum();
    3938                Object* copy(void);

  • issm/trunk-jpl/src/c/classes/objects/IndependentObject.cpp

    r13607 r13608  
    6565int    IndependentObject::Id(void){ return -1; }
    6666/*}}}*/
    67 /*FUNCTION IndependentObject::MyRank{{{*/
    68 int    IndependentObject::MyRank(void){
    69         extern int my_rank;
    70 
    71         return my_rank;
    72 }
    73 /*}}}*/
    7467/*FUNCTION IndependentObject::ObjectEnum{{{*/
    7568int IndependentObject::ObjectEnum(void){
    … …  
    8982void IndependentObject::FetchIndependent(IoModel* iomodel){
    9083
    91         extern int my_rank;
     84        int my_rank2;
    9285        FILE* fid=NULL;
     86       
     87        /*recover my_rank2:*/
     88        my_rank2=IssmComm::GetRank();
    9389
    9490        #ifdef _HAVE_ADOLC_ //cannot come here unless you are running AD mode, from DeclaredIndependents:
    … …  
    109105
    110106                /*We have to read a scalar from disk. First read the dimensions of the scalar, then the scalar: */
    111                 if(my_rank==0){
     107                if(my_rank2==0){
    112108                        if(fread(&pscalar,sizeof(IssmPDouble),1,fid)!=1)_error_("could not read scalar ");
    113109                }
    … …  
    147143                /*We have to read a matrix from disk. First read the dimensions of the matrix, then the whole matrix: */
    148144                /*numberofelements: */
    149                 if(my_rank==0){ 
     145                if(my_rank2==0){ 
    150146                        if(fread(&M,sizeof(int),1,fid)!=1) _error_("could not read number of rows for matrix ");
    151147                }
    … …  
    154150                #endif
    155151
    156                 if(my_rank==0){ 
     152                if(my_rank2==0){ 
    157153                        if(fread(&N,sizeof(int),1,fid)!=1) _error_("could not read number of columns for matrix ");
    158154                }
    … …  
    167163
    168164                        /*Read matrix on node 0, then broadcast: */
    169                         if(my_rank==0){ 
     165                        if(my_rank2==0){ 
    170166                                if(fread(buffer,M*N*sizeof(IssmPDouble),1,fid)!=1) _error_("could not read matrix ");
    171167                               

  • issm/trunk-jpl/src/c/classes/objects/IndependentObject.h

    r13426 r13608  
    3030                void  DeepEcho();
    3131                int   Id();
    32                 int   MyRank();
    3332                int   ObjectEnum();
    3433                Object* copy(void);

  • issm/trunk-jpl/src/c/classes/objects/Node.cpp

    r13414 r13608  
    979979void  Node::SetClone(int* minranks){
    980980
    981         extern int my_rank;
    982 
    983         if (minranks[sid]==my_rank){
     981        int my_rank2;
     982       
     983        /*recover my_rank2:*/
     984        my_rank2=IssmComm::GetRank();
     985
     986        if (minranks[sid]==my_rank2){
    984987                indexing.clone=false;
    985988        }

  • issm/trunk-jpl/src/c/classes/objects/Params/DataSetParam.cpp

    r13425 r13608  
    5757int    DataSetParam::Id(void){ return -1; }
    5858/*}}}*/
    59 /*FUNCTION DataSetParam::MyRank{{{*/
    60 int    DataSetParam::MyRank(void){
    61         extern int my_rank;
    62         return my_rank;
    63 }
    64 /*}}}*/
    6559/*FUNCTION DataSetParam::ObjectEnum{{{*/
    6660int DataSetParam::ObjectEnum(void){

  • issm/trunk-jpl/src/c/classes/objects/Params/DataSetParam.h

    r13425 r13608  
    3636                void  DeepEcho();
    3737                int   Id();
    38                 int   MyRank();
    3938                int   ObjectEnum();
    4039                Object* copy();

  • issm/trunk-jpl/src/c/classes/objects/Vertex.cpp

    r13416 r13608  
    178178void  Vertex::SetClone(int* minranks){
    179179
    180         extern int my_rank;
     180        int my_rank2;
     181       
     182        /*recover my_rank2:*/
     183        my_rank2=IssmComm::GetRank();
    181184
    182         if (minranks[this->sid]==my_rank){
     185        if (minranks[this->sid]==my_rank2){
    183186                this->clone=false;
    184187        }

  • issm/trunk-jpl/src/c/solutions/controltao_core.cpp

    r13540 r13608  
    5454
    5555        /*Initialize TAO*/
    56         TaoCreate(PETSC_COMM_WORLD,&tao);
     56        TaoCreate(IssmComm::GetComm(),&tao);
    5757        if(VerboseControl()) _pprintLine_("   Initializing the Toolkit for Advanced Optimization (TAO)");
    5858        TaoSetFromOptions(tao);
Note: See TracChangeset for help on using the changeset viewer.