Ignore:
Timestamp:
04/23/21 15:00:35 (3 years ago)
Author:
oabramkina
Message:

Merging branch dev_oa with tiling into trunk

File:
1 edited

Legend:

Unmodified
Added
Removed

  • XIOS/trunk/src/interface/c/icdata.cpp

    r2025 r2131  
    438438 
    439439   
    440    void cxios_write_data_k81_hdl(CField* field, double* data_k8, int data_Xsize) 
     440   void cxios_write_data_k81_hdl(CField* field, double* data_k8, int data_Xsize, int tileid) 
    441441   TRY 
    442442   { 
    … …  
    449449 
    450450      CArray<double, 1> data(data_k8, shape(data_Xsize), neverDeleteData); 
    451       field->setData(data); 
     451      field->setData(data, tileid); 
    452452 
    453453      CTimer::get("XIOS send field").suspend(); 
    … …  
    456456   CATCH_DUMP_STACK 
    457457    
    458    void cxios_write_data_k81(const char* fieldid, int fieldid_size, double* data_k8, int data_Xsize) 
    459    TRY 
    460    { 
    461       std::string fieldid_str; 
    462       if (!cstr2string(fieldid, fieldid_size, fieldid_str)) return; 
    463       cxios_write_data_k81_hdl(CField::get(fieldid_str), data_k8, data_Xsize) ; 
     458   void cxios_write_data_k81(const char* fieldid, int fieldid_size, double* data_k8, int data_Xsize, int tileid) 
     459   TRY 
     460   { 
     461      std::string fieldid_str; 
     462      if (!cstr2string(fieldid, fieldid_size, fieldid_str)) return; 
     463      cxios_write_data_k81_hdl(CField::get(fieldid_str), data_k8, data_Xsize, tileid) ; 
    464464     
    465465   } 
    … …  
    468468 
    469469 
    470    void cxios_write_data_k82_hdl(CField* field, double* data_k8, int data_Xsize, int data_Ysize) 
     470   void cxios_write_data_k82_hdl(CField* field, double* data_k8, int data_Xsize, int data_Ysize, int tileid) 
    471471   TRY 
    472472   { 
    … …  
    479479 
    480480      CArray<double, 2>data(data_k8, shape(data_Xsize, data_Ysize), neverDeleteData); 
    481       field->setData(data); 
    482  
    483       CTimer::get("XIOS send field").suspend(); 
    484       CTimer::get("XIOS").suspend(); 
    485    } 
    486    CATCH_DUMP_STACK 
    487  
    488    void cxios_write_data_k82(const char* fieldid, int fieldid_size, double* data_k8, int data_Xsize, int data_Ysize) 
    489    TRY 
    490    { 
    491       std::string fieldid_str; 
    492       if (!cstr2string(fieldid, fieldid_size, fieldid_str)) return; 
    493       cxios_write_data_k82_hdl(CField::get(fieldid_str), data_k8, data_Xsize, data_Ysize) ; 
    494    } 
    495    CATCH_DUMP_STACK 
    496  
    497  
    498  
    499  
    500  
    501  
    502    void cxios_write_data_k83_hdl(CField* field, double* data_k8, int data_Xsize, int data_Ysize, int data_Zsize) 
     481      field->setData(data, tileid); 
     482 
     483      CTimer::get("XIOS send field").suspend(); 
     484      CTimer::get("XIOS").suspend(); 
     485   } 
     486   CATCH_DUMP_STACK 
     487 
     488   void cxios_write_data_k82(const char* fieldid, int fieldid_size, double* data_k8, int data_Xsize, int data_Ysize, int tileid) 
     489   TRY 
     490   { 
     491      std::string fieldid_str; 
     492      if (!cstr2string(fieldid, fieldid_size, fieldid_str)) return; 
     493      cxios_write_data_k82_hdl(CField::get(fieldid_str), data_k8, data_Xsize, data_Ysize, tileid) ; 
     494   } 
     495   CATCH_DUMP_STACK 
     496 
     497 
     498 
     499 
     500 
     501 
     502   void cxios_write_data_k83_hdl(CField* field, double* data_k8, int data_Xsize, int data_Ysize, int data_Zsize, int tileid) 
    503503   TRY 
    504504   { 
    … …  
    511511 
    512512      CArray<double, 3>data(data_k8, shape(data_Xsize, data_Ysize, data_Zsize), neverDeleteData); 
    513       field->setData(data); 
     513      field->setData(data, tileid); 
    514514 
    515515      CTimer::get("XIOS send field").suspend(); 
    … …  
    518518   CATCH_DUMP_STACK 
    519519    
    520    void cxios_write_data_k83(const char* fieldid, int fieldid_size, double* data_k8, int data_Xsize, int data_Ysize, int data_Zsize) 
    521    TRY 
    522    { 
    523       std::string fieldid_str; 
    524       if (!cstr2string(fieldid, fieldid_size, fieldid_str)) return; 
    525       cxios_write_data_k83_hdl(CField::get(fieldid_str), data_k8, data_Xsize, data_Ysize, data_Zsize) ; 
    526  
    527  
    528    } 
    529    CATCH_DUMP_STACK 
    530  
    531  
    532  
    533  
    534  
    535  
    536    void cxios_write_data_k84_hdl(CField* field, double* data_k8, int data_0size, int data_1size, int data_2size, int data_3size) 
     520   void cxios_write_data_k83(const char* fieldid, int fieldid_size, double* data_k8, int data_Xsize, int data_Ysize, int data_Zsize, int tileid) 
     521   TRY 
     522   { 
     523      std::string fieldid_str; 
     524      if (!cstr2string(fieldid, fieldid_size, fieldid_str)) return; 
     525      cxios_write_data_k83_hdl(CField::get(fieldid_str), data_k8, data_Xsize, data_Ysize, data_Zsize, tileid) ; 
     526 
     527 
     528   } 
     529   CATCH_DUMP_STACK 
     530 
     531 
     532 
     533 
     534 
     535 
     536   void cxios_write_data_k84_hdl(CField* field, double* data_k8, int data_0size, int data_1size, int data_2size, int data_3size, int tileid) 
    537537   TRY 
    538538   { 
    … …  
    545545 
    546546      CArray<double, 4>data(data_k8, shape(data_0size, data_1size, data_2size, data_3size), neverDeleteData); 
    547       field->setData(data); 
    548  
    549       CTimer::get("XIOS send field").suspend(); 
    550       CTimer::get("XIOS").suspend(); 
    551    } 
    552    CATCH_DUMP_STACK 
    553  
    554    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) 
    555    TRY 
    556    { 
    557       std::string fieldid_str; 
    558       if (!cstr2string(fieldid, fieldid_size, fieldid_str)) return; 
    559  
    560       CTimer::get("XIOS").resume(); 
    561       CTimer::get("XIOS send field").resume(); 
    562       cxios_write_data_k84_hdl(CField::get(fieldid_str), data_k8, data_0size, data_1size, data_2size, data_3size) ; 
     547      field->setData(data, tileid); 
     548 
     549      CTimer::get("XIOS send field").suspend(); 
     550      CTimer::get("XIOS").suspend(); 
     551   } 
     552   CATCH_DUMP_STACK 
     553 
     554   void cxios_write_data_k84(const char* fieldid, int fieldid_size, double* data_k8, 
     555                             int data_0size, int data_1size, int data_2size, 
     556                             int data_3size, int tileid) 
     557   TRY 
     558   { 
     559      std::string fieldid_str; 
     560      if (!cstr2string(fieldid, fieldid_size, fieldid_str)) return; 
     561 
     562      CTimer::get("XIOS").resume(); 
     563      CTimer::get("XIOS send field").resume(); 
     564      cxios_write_data_k84_hdl(CField::get(fieldid_str), data_k8, data_0size, data_1size, data_2size, data_3size, tileid) ; 
    563565   } 
    564566   CATCH_DUMP_STACK 
    … …  
    570572   void cxios_write_data_k85_hdl(CField* field, double* data_k8, 
    571573                             int data_0size, int data_1size, int data_2size, 
    572                              int data_3size, int data_4size) 
     574                             int data_3size, int data_4size, int tileid) 
    573575   TRY 
    574576   { 
    … …  
    581583 
    582584      CArray<double, 5>data(data_k8, shape(data_0size, data_1size, data_2size, data_3size, data_4size), neverDeleteData); 
    583       field->setData(data); 
     585      field->setData(data, tileid); 
    584586 
    585587      CTimer::get("XIOS send field").suspend(); 
    … …  
    590592   void cxios_write_data_k85(const char* fieldid, int fieldid_size, double* data_k8, 
    591593                             int data_0size, int data_1size, int data_2size, 
    592                              int data_3size, int data_4size) 
    593    TRY 
    594    { 
    595       std::string fieldid_str; 
    596       if (!cstr2string(fieldid, fieldid_size, fieldid_str)) return; 
    597       cxios_write_data_k85_hdl(CField::get(fieldid_str), data_k8, data_0size, data_1size, data_2size, data_3size, data_4size) ; 
     594                             int data_3size, int data_4size, int tileid) 
     595   TRY 
     596   { 
     597      std::string fieldid_str; 
     598      if (!cstr2string(fieldid, fieldid_size, fieldid_str)) return; 
     599      cxios_write_data_k85_hdl(CField::get(fieldid_str), data_k8, data_0size, data_1size, data_2size, data_3size, data_4size, tileid) ; 
    598600 
    599601   } 
    … …  
    604606   void cxios_write_data_k86_hdl(CField* field, double* data_k8, 
    605607                             int data_0size, int data_1size, int data_2size, 
    606                              int data_3size, int data_4size, int data_5size) 
     608                             int data_3size, int data_4size, int data_5size, int tileid) 
    607609   TRY 
    608610   { 
    … …  
    616618 
    617619      CArray<double, 6>data(data_k8, shape(data_0size, data_1size, data_2size, data_3size, data_4size, data_5size), neverDeleteData); 
    618       field->setData(data); 
     620      field->setData(data, tileid); 
    619621 
    620622      CTimer::get("XIOS send field").suspend(); 
    … …  
    625627   void cxios_write_data_k86(const char* fieldid, int fieldid_size, double* data_k8, 
    626628                             int data_0size, int data_1size, int data_2size, 
    627                              int data_3size, int data_4size, int data_5size) 
    628    TRY 
    629    { 
    630       std::string fieldid_str; 
    631       if (!cstr2string(fieldid, fieldid_size, fieldid_str)) return; 
    632       cxios_write_data_k86_hdl(CField::get(fieldid_str), data_k8, data_0size, data_1size, data_2size, data_3size, data_4size, data_5size) ; 
     629                             int data_3size, int data_4size, int data_5size, int tileid) 
     630   TRY 
     631   { 
     632      std::string fieldid_str; 
     633      if (!cstr2string(fieldid, fieldid_size, fieldid_str)) return; 
     634      cxios_write_data_k86_hdl(CField::get(fieldid_str), data_k8, data_0size, data_1size, data_2size, data_3size, data_4size, data_5size, tileid) ; 
    633635 
    634636  } 
    … …  
    641643                             int data_0size, int data_1size, int data_2size, 
    642644                             int data_3size, int data_4size, int data_5size, 
    643                              int data_6size) 
     645                             int data_6size, int tileid) 
    644646   TRY 
    645647   { 
    … …  
    652654 
    653655      CArray<double, 7>data(data_k8, shape(data_0size, data_1size, data_2size, data_3size, data_4size, data_5size, data_6size), neverDeleteData); 
    654       field->setData(data); 
     656      field->setData(data, tileid); 
    655657 
    656658      CTimer::get("XIOS send field").suspend(); 
    … …  
    662664                             int data_0size, int data_1size, int data_2size, 
    663665                             int data_3size, int data_4size, int data_5size, 
    664                              int data_6size) 
    665    TRY 
    666    { 
    667       std::string fieldid_str; 
    668       if (!cstr2string(fieldid, fieldid_size, fieldid_str)) return; 
    669       cxios_write_data_k87_hdl(CField::get(fieldid_str), data_k8, data_0size, data_1size, data_2size, data_3size, data_4size, data_5size, data_6size) ; 
     666                             int data_6size, int tileid) 
     667   TRY 
     668   { 
     669      std::string fieldid_str; 
     670      if (!cstr2string(fieldid, fieldid_size, fieldid_str)) return; 
     671      cxios_write_data_k87_hdl(CField::get(fieldid_str), data_k8, data_0size, data_1size, data_2size, data_3size, data_4size, 
     672                               data_5size, data_6size, tileid) ; 
    670673   } 
    671674   CATCH_DUMP_STACK 
    … …  
    704707    
    705708    
    706    void cxios_write_data_k41_hdl(CField* field, float* data_k4, int data_Xsize) 
     709   void cxios_write_data_k41_hdl(CField* field, float* data_k4, int data_Xsize, int tileid) 
    707710   TRY 
    708711   { 
    … …  
    717720      CArray<double, 1> data(data_Xsize); 
    718721      data = data_tmp; 
    719       field->setData(data); 
    720  
    721       CTimer::get("XIOS send field").suspend(); 
    722       CTimer::get("XIOS").suspend(); 
    723    } 
    724    CATCH_DUMP_STACK 
    725  
    726    void cxios_write_data_k41(const char* fieldid, int fieldid_size, float* data_k4, int data_Xsize) 
    727    TRY 
    728    { 
    729       std::string fieldid_str; 
    730       if (!cstr2string(fieldid, fieldid_size, fieldid_str)) return; 
    731       cxios_write_data_k41_hdl(CField::get(fieldid_str), data_k4, data_Xsize); 
    732    } 
    733    CATCH_DUMP_STACK 
    734  
    735  
    736    void cxios_write_data_k42_hdl(CField* field, float* data_k4, int data_Xsize, int data_Ysize) 
     722      field->setData(data, tileid); 
     723 
     724      CTimer::get("XIOS send field").suspend(); 
     725      CTimer::get("XIOS").suspend(); 
     726   } 
     727   CATCH_DUMP_STACK 
     728 
     729   void cxios_write_data_k41(const char* fieldid, int fieldid_size, float* data_k4, int data_Xsize, int tileid) 
     730   TRY 
     731   { 
     732      std::string fieldid_str; 
     733      if (!cstr2string(fieldid, fieldid_size, fieldid_str)) return; 
     734      cxios_write_data_k41_hdl(CField::get(fieldid_str), data_k4, data_Xsize, tileid); 
     735   } 
     736   CATCH_DUMP_STACK 
     737 
     738 
     739   void cxios_write_data_k42_hdl(CField* field, float* data_k4, int data_Xsize, int data_Ysize, int tileid) 
    737740   TRY 
    738741   { 
    … …  
    747750      CArray<double, 2> data(data_Xsize, data_Ysize); 
    748751      data = data_tmp; 
    749       field->setData(data); 
    750  
    751       CTimer::get("XIOS send field").suspend(); 
    752       CTimer::get("XIOS").suspend(); 
    753    } 
    754    CATCH_DUMP_STACK 
    755  
    756    void cxios_write_data_k42(const char* fieldid, int fieldid_size, float* data_k4, int data_Xsize, int data_Ysize) 
    757    TRY 
    758    { 
    759       std::string fieldid_str; 
    760       if (!cstr2string(fieldid, fieldid_size, fieldid_str)) return; 
    761       cxios_write_data_k42_hdl(CField::get(fieldid_str), data_k4, data_Xsize,data_Ysize); 
    762    } 
    763    CATCH_DUMP_STACK 
    764  
    765  
    766  
    767  
    768    void cxios_write_data_k43_hdl(CField* field, float* data_k4, int data_Xsize, int data_Ysize, int data_Zsize) 
     752      field->setData(data, tileid); 
     753 
     754      CTimer::get("XIOS send field").suspend(); 
     755      CTimer::get("XIOS").suspend(); 
     756   } 
     757   CATCH_DUMP_STACK 
     758 
     759   void cxios_write_data_k42(const char* fieldid, int fieldid_size, float* data_k4, int data_Xsize, int data_Ysize, int tileid) 
     760   TRY 
     761   { 
     762      std::string fieldid_str; 
     763      if (!cstr2string(fieldid, fieldid_size, fieldid_str)) return; 
     764      cxios_write_data_k42_hdl(CField::get(fieldid_str), data_k4, data_Xsize,data_Ysize, tileid); 
     765   } 
     766   CATCH_DUMP_STACK 
     767 
     768 
     769 
     770 
     771   void cxios_write_data_k43_hdl(CField* field, float* data_k4, int data_Xsize, int data_Ysize, int data_Zsize, int tileid) 
    769772   TRY 
    770773   { 
    … …  
    779782      CArray<double, 3> data(data_Xsize, data_Ysize, data_Zsize); 
    780783      data = data_tmp; 
    781       field->setData(data); 
     784      field->setData(data, tileid); 
    782785 
    783786      CTimer::get("XIOS send field").suspend(); 
    … …  
    786789   CATCH_DUMP_STACK 
    787790    
    788    void cxios_write_data_k43(const char* fieldid, int fieldid_size, float* data_k4, int data_Xsize, int data_Ysize, int data_Zsize) 
    789    TRY 
    790    { 
    791       std::string fieldid_str; 
    792       if (!cstr2string(fieldid, fieldid_size, fieldid_str)) return; 
    793       cxios_write_data_k43_hdl(CField::get(fieldid_str), data_k4, data_Xsize,data_Ysize, data_Zsize); 
     791   void cxios_write_data_k43(const char* fieldid, int fieldid_size, float* data_k4, int data_Xsize, int data_Ysize, int data_Zsize, int tileid) 
     792   TRY 
     793   { 
     794      std::string fieldid_str; 
     795      if (!cstr2string(fieldid, fieldid_size, fieldid_str)) return; 
     796      cxios_write_data_k43_hdl(CField::get(fieldid_str), data_k4, data_Xsize,data_Ysize, data_Zsize, tileid); 
    794797    } 
    795798   CATCH_DUMP_STACK 
    … …  
    799802   void cxios_write_data_k44_hdl(CField* field, float* data_k4, 
    800803                             int data_0size, int data_1size, int data_2size, 
    801                              int data_3size) 
     804                             int data_3size, int tileid) 
    802805   TRY 
    803806   { 
    … …  
    812815      CArray<double, 4> data(data_0size, data_1size, data_2size, data_3size); 
    813816      data = data_tmp; 
    814       field->setData(data); 
     817      field->setData(data, tileid); 
    815818 
    816819      CTimer::get("XIOS send field").suspend(); 
    … …  
    821824   void cxios_write_data_k44(const char* fieldid, int fieldid_size, float* data_k4, 
    822825                             int data_0size, int data_1size, int data_2size, 
    823                              int data_3size) 
    824    TRY 
    825    { 
    826       std::string fieldid_str; 
    827       if (!cstr2string(fieldid, fieldid_size, fieldid_str)) return; 
    828       cxios_write_data_k44_hdl(CField::get(fieldid_str), data_k4, data_0size, data_1size, data_2size, data_3size) ; 
     826                             int data_3size, int tileid) 
     827   TRY 
     828   { 
     829      std::string fieldid_str; 
     830      if (!cstr2string(fieldid, fieldid_size, fieldid_str)) return; 
     831      cxios_write_data_k44_hdl(CField::get(fieldid_str), data_k4, data_0size, data_1size, data_2size, data_3size, tileid) ; 
    829832    } 
    830833   CATCH_DUMP_STACK 
    … …  
    835838   void cxios_write_data_k45_hdl(CField* field, float* data_k4, 
    836839                             int data_0size, int data_1size, int data_2size, 
    837                              int data_3size, int data_4size) 
     840                             int data_3size, int data_4size, int tileid) 
    838841   TRY 
    839842   { 
    … …  
    848851      CArray<double, 5> data(data_0size, data_1size, data_2size, data_3size, data_4size); 
    849852      data = data_tmp; 
    850       field->setData(data); 
     853      field->setData(data, tileid); 
    851854 
    852855      CTimer::get("XIOS send field").suspend(); 
    … …  
    857860   void cxios_write_data_k45(const char* fieldid, int fieldid_size, float* data_k4, 
    858861                             int data_0size, int data_1size, int data_2size, 
    859                              int data_3size, int data_4size) 
    860    TRY 
    861    { 
    862       std::string fieldid_str; 
    863       if (!cstr2string(fieldid, fieldid_size, fieldid_str)) return; 
    864       cxios_write_data_k45_hdl(CField::get(fieldid_str), data_k4, data_0size, data_1size, data_2size, data_3size, data_4size) ; 
     862                             int data_3size, int data_4size, int tileid) 
     863   TRY 
     864   { 
     865      std::string fieldid_str; 
     866      if (!cstr2string(fieldid, fieldid_size, fieldid_str)) return; 
     867      cxios_write_data_k45_hdl(CField::get(fieldid_str), data_k4, data_0size, data_1size, data_2size, data_3size, data_4size, tileid) ; 
    865868    } 
    866869   CATCH_DUMP_STACK 
    … …  
    870873   void cxios_write_data_k46_hdl(CField* field, float* data_k4, 
    871874                             int data_0size, int data_1size, int data_2size, 
    872                              int data_3size, int data_4size, int data_5size) 
     875                             int data_3size, int data_4size, int data_5size, int tileid) 
    873876   TRY 
    874877   { 
    … …  
    883886      CArray<double, 6> data(data_0size, data_1size, data_2size, data_3size, data_4size, data_5size); 
    884887      data = data_tmp; 
    885       field->setData(data); 
     888      field->setData(data, tileid); 
    886889 
    887890      CTimer::get("XIOS send field").suspend(); 
    … …  
    892895   void cxios_write_data_k46(const char* fieldid, int fieldid_size, float* data_k4, 
    893896                             int data_0size, int data_1size, int data_2size, 
    894                              int data_3size, int data_4size, int data_5size) 
    895    TRY 
    896    { 
    897       std::string fieldid_str; 
    898       if (!cstr2string(fieldid, fieldid_size, fieldid_str)) return; 
    899       cxios_write_data_k46_hdl(CField::get(fieldid_str), data_k4, data_0size, data_1size, data_2size, data_3size, data_4size, data_5size) ; 
     897                             int data_3size, int data_4size, int data_5size, int tileid) 
     898   TRY 
     899   { 
     900      std::string fieldid_str; 
     901      if (!cstr2string(fieldid, fieldid_size, fieldid_str)) return; 
     902      cxios_write_data_k46_hdl(CField::get(fieldid_str), data_k4, data_0size, data_1size, data_2size, data_3size, data_4size, data_5size, tileid) ; 
    900903    } 
    901904   CATCH_DUMP_STACK 
    … …  
    905908                             int data_0size, int data_1size, int data_2size, 
    906909                             int data_3size, int data_4size, int data_5size, 
    907                              int data_6size) 
     910                             int data_6size, int tileid) 
    908911   TRY 
    909912   { 
    … …  
    918921      CArray<double, 7> data(data_0size, data_1size, data_2size, data_3size, data_4size, data_5size, data_6size); 
    919922      data = data_tmp; 
    920       field->setData(data); 
     923      field->setData(data, tileid); 
    921924 
    922925      CTimer::get("XIOS send field").suspend(); 
    … …  
    928931                             int data_0size, int data_1size, int data_2size, 
    929932                             int data_3size, int data_4size, int data_5size, 
    930                              int data_6size) 
    931    TRY 
    932    { 
    933       std::string fieldid_str; 
    934       if (!cstr2string(fieldid, fieldid_size, fieldid_str)) return; 
    935       cxios_write_data_k47_hdl(CField::get(fieldid_str), data_k4, data_0size, data_1size, data_2size, data_3size, data_4size, data_5size, data_6size) ; 
     933                             int data_6size, int tileid) 
     934   TRY 
     935   { 
     936      std::string fieldid_str; 
     937      if (!cstr2string(fieldid, fieldid_size, fieldid_str)) return; 
     938      cxios_write_data_k47_hdl(CField::get(fieldid_str), data_k4, data_0size, data_1size, data_2size, data_3size, data_4size, 
     939                                data_5size, data_6size, tileid) ; 
    936940    } 
    937941   CATCH_DUMP_STACK 
Note: See TracChangeset for help on using the changeset viewer.