Ignore:
Timestamp:
01/31/19 12:12:52 (5 years ago)
Author:
yushan
Message:

branch merged with trunk @1645. arch file (ep&mpi) added for ADA

File:
1 edited

Legend:

Unmodified
Added
Removed

  • XIOS/dev/dev_trunk_omp/src/interface/c/icdata.cpp

    r1605 r1646  
    4343   // it is only used from the parse_xml.exe standalone test tool. 
    4444   void cxios_init(void) 
     45   TRY 
    4546   { 
    4647     CXios::initialize(); 
    4748   } 
     49   CATCH_DUMP_STACK 
    4850 
    4951   void cxios_init_server(void) 
     52   TRY 
    5053   { 
    5154     CXios::initServerSide(); 
    5255   } 
     56   CATCH_DUMP_STACK 
    5357 
    5458   void cxios_init_client(const char* client_id , int len_client_id, MPI_Fint* f_local_comm, MPI_Fint* f_return_comm ) 
     59   TRY 
    5560   { 
    5661      std::string str; 
    … …  
    8287      CTimer::get("XIOS").suspend(); 
    8388   } 
     89   CATCH_DUMP_STACK 
    8490 
    8591   void cxios_context_initialize(const char* context_id , int len_context_id, MPI_Fint* f_comm) 
     92   TRY 
    8693   { 
    8794     std::string str; 
    … …  
    100107     CTimer::get("XIOS").suspend(); 
    101108   } 
     109   CATCH_DUMP_STACK 
    102110 
    103111   void cxios_oasis_enddef() 
     112   TRY 
    104113   { 
    105114     CTimer::get("XIOS").resume(); 
    … …  
    107116     CTimer::get("XIOS").suspend(); 
    108117   } 
     118   CATCH_DUMP_STACK 
    109119 
    110120   void cxios_context_is_initialized(const char* context_id , int len_context_id, bool* initialized) 
     121   TRY 
    111122   { 
    112123     std::string str; 
    … …  
    118129     CTimer::get("XIOS").suspend(); 
    119130   } 
    120  
    121     void cxios_context_close_definition() 
     131   CATCH_DUMP_STACK 
     132 
     133   void cxios_context_close_definition() 
     134   TRY 
    122135   { 
    123136     CTimer::get("XIOS").resume(); 
    … …  
    128141     CTimer::get("XIOS").suspend(); 
    129142   } 
     143   CATCH_DUMP_STACK 
    130144 
    131145   void cxios_context_finalize() 
     146   TRY 
    132147   { 
    133148     CTimer::get("XIOS").resume(); 
    … …  
    138153     CTimer::get("XIOS").suspend(); 
    139154   } 
     155   CATCH_DUMP_STACK 
    140156 
    141157   void cxios_finalize() 
     158   TRY 
    142159   { 
    143160     CTimer::get("XIOS").resume(); 
    … …  
    145162     CXios::clientFinalize(); 
    146163   } 
     164   CATCH_DUMP_STACK 
    147165 
    148166   void cxios_solve_inheritance() 
     167   TRY 
    149168   { 
    150169     CTimer::get("XIOS").resume(); 
    … …  
    153172     CTimer::get("XIOS").suspend(); 
    154173   } 
     174   CATCH_DUMP_STACK 
    155175 
    156176   /*! \brief This group of functions retrieve variable information from the configuration file (.xml) 
    … …  
    165185   */ 
    166186   void cxios_get_variable_data_k8(const char* varId, int varIdSize, double* data, bool* isVarExisted) 
     187   TRY 
    167188   { 
    168189      std::string varIdStr; 
    … …  
    183204      CTimer::get("XIOS").suspend(); 
    184205   } 
     206   CATCH_DUMP_STACK 
    185207 
    186208   void cxios_get_variable_data_k4(const char* varId, int varIdSize, float* data, bool* isVarExisted) 
     209   TRY 
    187210   { 
    188211      std::string varIdStr; 
    … …  
    203226      CTimer::get("XIOS").suspend(); 
    204227   } 
     228   CATCH_DUMP_STACK 
    205229 
    206230   void cxios_get_variable_data_int(const char* varId, int varIdSize, int* data, bool* isVarExisted) 
     231   TRY 
    207232   { 
    208233      std::string varIdStr; 
    … …  
    223248      CTimer::get("XIOS").suspend(); 
    224249   } 
     250   CATCH_DUMP_STACK 
    225251 
    226252   void cxios_get_variable_data_logic(const char* varId, int varIdSize, bool* data, bool* isVarExisted) 
     253   TRY 
    227254   { 
    228255      std::string varIdStr; 
    … …  
    243270      CTimer::get("XIOS").suspend(); 
    244271   } 
     272   CATCH_DUMP_STACK 
    245273 
    246274   void cxios_get_variable_data_char(const char* varId, int varIdSize, char* data, int dataSizeIn, bool* isVarExisted) 
     275   TRY 
    247276   { 
    248277      std::string varIdStr; 
    … …  
    264293      CTimer::get("XIOS").suspend(); 
    265294   } 
     295   CATCH_DUMP_STACK 
    266296 
    267297   /*! \brief This group of functions write information into existing variable in the configuration file (.xml) 
    … …  
    276306   */ 
    277307   void cxios_set_variable_data_k8(const char* varId, int varIdSize, double data, bool* isVarExisted) 
    278    { 
     308   TRY 
     309  { 
    279310      std::string varIdStr; 
    280311      if (!cstr2string(varId, varIdSize, varIdStr)) return; 
    … …  
    295326      CTimer::get("XIOS").suspend(); 
    296327   } 
     328   CATCH_DUMP_STACK 
    297329 
    298330   void cxios_set_variable_data_k4(const char* varId, int varIdSize, float data, bool* isVarExisted) 
     331   TRY 
    299332   { 
    300333      std::string varIdStr; 
    … …  
    316349      CTimer::get("XIOS").suspend(); 
    317350   } 
     351   CATCH_DUMP_STACK 
    318352 
    319353   void cxios_set_variable_data_int(const char* varId, int varIdSize, int data, bool* isVarExisted) 
     354   TRY 
    320355   { 
    321356      std::string varIdStr; 
    … …  
    338373      CTimer::get("XIOS").suspend(); 
    339374   } 
     375   CATCH_DUMP_STACK 
    340376 
    341377   void cxios_set_variable_data_logic(const char* varId, int varIdSize, bool data, bool* isVarExisted) 
     378   TRY 
    342379   { 
    343380      std::string varIdStr; 
    … …  
    359396      CTimer::get("XIOS").suspend(); 
    360397   } 
     398   CATCH_DUMP_STACK 
    361399 
    362400   void cxios_set_variable_data_char(const char* varId, int varIdSize, const char* data, int dataSizeIn, bool* isVarExisted) 
    363    { 
     401   TRY 
     402  { 
    364403      std::string varIdStr, dataStr; 
    365404      if (!cstr2string(varId, varIdSize, varIdStr)) return; 
    … …  
    385424      CTimer::get("XIOS").suspend(); 
    386425   } 
    387  
     426   CATCH_DUMP_STACK 
    388427 
    389428   // ---------------------- Ecriture des données ------------------------------ 
    390429 
    391430   void cxios_write_data_k80(const char* fieldid, int fieldid_size, double* data_k8, int data_Xsize) 
     431   TRY 
    392432   { 
    393433      std::string fieldid_str; 
    … …  
    404444      CTimer::get("XIOS").suspend(); 
    405445   } 
     446   CATCH_DUMP_STACK 
    406447 
    407448   void cxios_write_data_k81(const char* fieldid, int fieldid_size, double* data_k8, int data_Xsize) 
     449   TRY 
    408450   { 
    409451      std::string fieldid_str; 
    … …  
    423465      CTimer::get("XIOS").suspend(); 
    424466   } 
     467   CATCH_DUMP_STACK 
    425468 
    426469   void cxios_write_data_k82(const char* fieldid, int fieldid_size, double* data_k8, int data_Xsize, int data_Ysize) 
     470   TRY 
    427471   { 
    428472      std::string fieldid_str; 
    … …  
    442486      CTimer::get("XIOS").suspend(); 
    443487   } 
     488   CATCH_DUMP_STACK 
    444489 
    445490   void cxios_write_data_k83(const char* fieldid, int fieldid_size, double* data_k8, int data_Xsize, int data_Ysize, int data_Zsize) 
     491   TRY 
    446492   { 
    447493      std::string fieldid_str; 
    … …  
    461507      CTimer::get("XIOS").suspend(); 
    462508   } 
     509   CATCH_DUMP_STACK 
    463510 
    464511   void cxios_write_data_k84(const char* fieldid, int fieldid_size, double* data_k8, int data_0size, int data_1size, int data_2size, int data_3size) 
     512   TRY 
    465513   { 
    466514      std::string fieldid_str; 
    … …  
    480528      CTimer::get("XIOS").suspend(); 
    481529   } 
     530   CATCH_DUMP_STACK 
    482531 
    483532   void cxios_write_data_k85(const char* fieldid, int fieldid_size, double* data_k8, 
    484533                             int data_0size, int data_1size, int data_2size, 
    485534                             int data_3size, int data_4size) 
     535   TRY 
    486536   { 
    487537      std::string fieldid_str; 
    … …  
    501551      CTimer::get("XIOS").suspend(); 
    502552   } 
     553   CATCH_DUMP_STACK 
    503554 
    504555   void cxios_write_data_k86(const char* fieldid, int fieldid_size, double* data_k8, 
    505556                             int data_0size, int data_1size, int data_2size, 
    506557                             int data_3size, int data_4size, int data_5size) 
     558   TRY 
    507559   { 
    508560      std::string fieldid_str; 
    … …  
    522574      CTimer::get("XIOS").suspend(); 
    523575   } 
     576   CATCH_DUMP_STACK 
    524577 
    525578   void cxios_write_data_k87(const char* fieldid, int fieldid_size, double* data_k8, 
    … …  
    527580                             int data_3size, int data_4size, int data_5size, 
    528581                             int data_6size) 
     582   TRY 
    529583   { 
    530584      std::string fieldid_str; 
    … …  
    544598      CTimer::get("XIOS").suspend(); 
    545599   } 
     600   CATCH_DUMP_STACK 
    546601 
    547602   void cxios_write_data_k40(const char* fieldid, int fieldid_size, float* data_k4, int data_Xsize) 
     603   TRY 
    548604   { 
    549605      std::string fieldid_str; 
    … …  
    563619      CTimer::get("XIOS").suspend(); 
    564620   } 
     621   CATCH_DUMP_STACK 
    565622 
    566623   void cxios_write_data_k41(const char* fieldid, int fieldid_size, float* data_k4, int data_Xsize) 
     624   TRY 
    567625   { 
    568626      std::string fieldid_str; 
    … …  
    584642      CTimer::get("XIOS").suspend(); 
    585643   } 
     644   CATCH_DUMP_STACK 
    586645 
    587646   void cxios_write_data_k42(const char* fieldid, int fieldid_size, float* data_k4, int data_Xsize, int data_Ysize) 
     647   TRY 
    588648   { 
    589649      std::string fieldid_str; 
    … …  
    605665      CTimer::get("XIOS").suspend(); 
    606666   } 
     667   CATCH_DUMP_STACK 
    607668 
    608669   void cxios_write_data_k43(const char* fieldid, int fieldid_size, float* data_k4, int data_Xsize, int data_Ysize, int data_Zsize) 
     670   TRY 
    609671   { 
    610672      std::string fieldid_str; 
    … …  
    626688      CTimer::get("XIOS").suspend(); 
    627689    } 
     690   CATCH_DUMP_STACK 
    628691 
    629692   void cxios_write_data_k44(const char* fieldid, int fieldid_size, float* data_k4, 
    630693                             int data_0size, int data_1size, int data_2size, 
    631694                             int data_3size) 
     695   TRY 
    632696   { 
    633697      std::string fieldid_str; 
    … …  
    649713      CTimer::get("XIOS").suspend(); 
    650714    } 
     715   CATCH_DUMP_STACK 
    651716 
    652717   void cxios_write_data_k45(const char* fieldid, int fieldid_size, float* data_k4, 
    653718                             int data_0size, int data_1size, int data_2size, 
    654719                             int data_3size, int data_4size) 
     720   TRY 
    655721   { 
    656722      std::string fieldid_str; 
    … …  
    672738      CTimer::get("XIOS").suspend(); 
    673739    } 
     740   CATCH_DUMP_STACK 
    674741 
    675742   void cxios_write_data_k46(const char* fieldid, int fieldid_size, float* data_k4, 
    676743                             int data_0size, int data_1size, int data_2size, 
    677744                             int data_3size, int data_4size, int data_5size) 
     745   TRY 
    678746   { 
    679747      std::string fieldid_str; 
    … …  
    695763      CTimer::get("XIOS").suspend(); 
    696764    } 
     765   CATCH_DUMP_STACK 
    697766 
    698767   void cxios_write_data_k47(const char* fieldid, int fieldid_size, float* data_k4, 
    … …  
    700769                             int data_3size, int data_4size, int data_5size, 
    701770                             int data_6size) 
     771   TRY 
    702772   { 
    703773      std::string fieldid_str; 
    … …  
    719789      CTimer::get("XIOS").suspend(); 
    720790    } 
     791   CATCH_DUMP_STACK 
    721792 
    722793   // ---------------------- Lecture des données ------------------------------ 
    723794 
    724795   void cxios_read_data_k80(const char* fieldid, int fieldid_size, double* data_k8, int data_Xsize) 
     796   TRY 
    725797   { 
    726798      std::string fieldid_str; 
    … …  
    740812      CTimer::get("XIOS").suspend(); 
    741813   } 
     814   CATCH_DUMP_STACK 
    742815 
    743816   void cxios_read_data_k81(const char* fieldid, int fieldid_size, double* data_k8, int data_Xsize) 
     817   TRY 
    744818   { 
    745819      std::string fieldid_str; 
    … …  
    759833      CTimer::get("XIOS").suspend(); 
    760834   } 
     835   CATCH_DUMP_STACK 
    761836 
    762837   void cxios_read_data_k82(const char* fieldid, int fieldid_size, double* data_k8, int data_Xsize, int data_Ysize) 
     838   TRY 
    763839   { 
    764840      std::string fieldid_str; 
    … …  
    778854      CTimer::get("XIOS").suspend(); 
    779855   } 
     856   CATCH_DUMP_STACK 
    780857 
    781858   void cxios_read_data_k83(const char* fieldid, int fieldid_size, double* data_k8, int data_Xsize, int data_Ysize, int data_Zsize) 
     859   TRY 
    782860   { 
    783861      std::string fieldid_str; 
    … …  
    797875      CTimer::get("XIOS").suspend(); 
    798876   } 
     877   CATCH_DUMP_STACK 
    799878 
    800879   void cxios_read_data_k84(const char* fieldid, int fieldid_size, double* data_k8, 
    801880                            int data_0size, int data_1size, int data_2size, 
    802881                            int data_3size) 
     882   TRY 
    803883   { 
    804884      std::string fieldid_str; 
    … …  
    818898      CTimer::get("XIOS").suspend(); 
    819899   } 
     900   CATCH_DUMP_STACK 
    820901 
    821902   void cxios_read_data_k85(const char* fieldid, int fieldid_size, double* data_k8, 
    822903                            int data_0size, int data_1size, int data_2size, 
    823904                            int data_3size, int data_4size) 
     905   TRY 
    824906   { 
    825907      std::string fieldid_str; 
    … …  
    839921      CTimer::get("XIOS").suspend(); 
    840922   } 
     923   CATCH_DUMP_STACK 
    841924 
    842925   void cxios_read_data_k86(const char* fieldid, int fieldid_size, double* data_k8, 
    843926                            int data_0size, int data_1size, int data_2size, 
    844927                            int data_3size, int data_4size, int data_5size) 
     928   TRY 
    845929   { 
    846930      std::string fieldid_str; 
    … …  
    860944      CTimer::get("XIOS").suspend(); 
    861945   } 
     946   CATCH_DUMP_STACK 
    862947 
    863948   void cxios_read_data_k87(const char* fieldid, int fieldid_size, double* data_k8, 
    … …  
    865950                            int data_3size, int data_4size, int data_5size, 
    866951                            int data_6size) 
     952   TRY 
    867953   { 
    868954      std::string fieldid_str; 
    … …  
    882968      CTimer::get("XIOS").suspend(); 
    883969   } 
     970   CATCH_DUMP_STACK 
    884971 
    885972   void cxios_read_data_k40(const char* fieldid, int fieldid_size, float* data_k4, int data_Xsize) 
     973   TRY 
    886974   { 
    887975      std::string fieldid_str; 
    … …  
    903991      CTimer::get("XIOS").suspend(); 
    904992   } 
     993   CATCH_DUMP_STACK 
    905994 
    906995   void cxios_read_data_k41(const char* fieldid, int fieldid_size, float* data_k4, int data_Xsize) 
     996   TRY 
    907997   { 
    908998      std::string fieldid_str; 
    … …  
    9241014      CTimer::get("XIOS").suspend(); 
    9251015   } 
     1016   CATCH_DUMP_STACK 
    9261017 
    9271018   void cxios_read_data_k42(const char* fieldid, int fieldid_size, float* data_k4, int data_Xsize, int data_Ysize) 
     1019   TRY 
    9281020   { 
    9291021      std::string fieldid_str; 
    … …  
    9451037      CTimer::get("XIOS").suspend(); 
    9461038   } 
     1039   CATCH_DUMP_STACK 
    9471040 
    9481041   void cxios_read_data_k43(const char* fieldid, int fieldid_size, float* data_k4, int data_Xsize, int data_Ysize, int data_Zsize) 
     1042   TRY 
    9491043   { 
    9501044      std::string fieldid_str; 
    … …  
    9661060      CTimer::get("XIOS").suspend(); 
    9671061    } 
     1062   CATCH_DUMP_STACK 
    9681063 
    9691064   void cxios_read_data_k44(const char* fieldid, int fieldid_size, float* data_k4, 
    9701065                            int data_0size, int data_1size, int data_2size, 
    9711066                            int data_3size) 
     1067   TRY 
    9721068   { 
    9731069      std::string fieldid_str; 
    … …  
    9891085      CTimer::get("XIOS").suspend(); 
    9901086    } 
     1087   CATCH_DUMP_STACK 
    9911088 
    9921089   void cxios_read_data_k45(const char* fieldid, int fieldid_size, float* data_k4, 
    9931090                            int data_0size, int data_1size, int data_2size, 
    9941091                            int data_3size, int data_4size) 
     1092   TRY 
    9951093   { 
    9961094      std::string fieldid_str; 
    … …  
    10121110      CTimer::get("XIOS").suspend(); 
    10131111    } 
     1112   CATCH_DUMP_STACK 
    10141113 
    10151114   void cxios_read_data_k46(const char* fieldid, int fieldid_size, float* data_k4, 
    10161115                            int data_0size, int data_1size, int data_2size, 
    10171116                            int data_3size, int data_4size, int data_5size) 
     1117   TRY 
    10181118   { 
    10191119      std::string fieldid_str; 
    … …  
    10351135      CTimer::get("XIOS").suspend(); 
    10361136    } 
     1137   CATCH_DUMP_STACK 
    10371138 
    10381139   void cxios_read_data_k47(const char* fieldid, int fieldid_size, float* data_k4, 
    … …  
    10401141                            int data_3size, int data_4size, int data_5size, 
    10411142                            int data_6size) 
     1143   TRY 
    10421144   { 
    10431145      std::string fieldid_str; 
    … …  
    10591161      CTimer::get("XIOS").suspend(); 
    10601162    } 
     1163   CATCH_DUMP_STACK 
    10611164} // extern "C" 
Note: See TracChangeset for help on using the changeset viewer.