Ignore:
Timestamp:
10/14/20 11:38:20 (4 years ago)
Author:
oabramkina
Message:

dev_oa: adding interface to xios_send permitting sending a tile

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r1639 r1963  
    429429   CATCH_DUMP_STACK 
    430430 
    431    void cxios_write_data_k81(const char* fieldid, int fieldid_size, double* data_k8, int data_Xsize) 
     431   void cxios_write_data_k81(const char* fieldid, int fieldid_size, double* data_k8, int data_Xsize, int tileid) 
    432432   TRY 
    433433   { 
    … …  
    443443 
    444444      CArray<double, 1> data(data_k8, shape(data_Xsize), neverDeleteData); 
    445       CField::get(fieldid_str)->setData(data); 
    446  
    447       CTimer::get("XIOS send field").suspend(); 
    448       CTimer::get("XIOS").suspend(); 
    449    } 
    450    CATCH_DUMP_STACK 
    451  
    452    void cxios_write_data_k82(const char* fieldid, int fieldid_size, double* data_k8, int data_Xsize, int data_Ysize) 
     445      CField::get(fieldid_str)->setData(data, tileid); 
     446 
     447      CTimer::get("XIOS send field").suspend(); 
     448      CTimer::get("XIOS").suspend(); 
     449   } 
     450   CATCH_DUMP_STACK 
     451 
     452   void cxios_write_data_k82(const char* fieldid, int fieldid_size, double* data_k8, int data_Xsize, int data_Ysize, int tileid) 
    453453   TRY 
    454454   { 
    … …  
    464464 
    465465      CArray<double, 2>data(data_k8, shape(data_Xsize, data_Ysize), neverDeleteData); 
    466       CField::get(fieldid_str)->setData(data); 
    467  
    468       CTimer::get("XIOS send field").suspend(); 
    469       CTimer::get("XIOS").suspend(); 
    470    } 
    471    CATCH_DUMP_STACK 
    472  
    473    void cxios_write_data_k83(const char* fieldid, int fieldid_size, double* data_k8, int data_Xsize, int data_Ysize, int data_Zsize) 
     466      CField::get(fieldid_str)->setData(data, tileid); 
     467 
     468      CTimer::get("XIOS send field").suspend(); 
     469      CTimer::get("XIOS").suspend(); 
     470   } 
     471   CATCH_DUMP_STACK 
     472 
     473   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) 
    474474   TRY 
    475475   { 
    … …  
    485485 
    486486      CArray<double, 3>data(data_k8, shape(data_Xsize, data_Ysize, data_Zsize), neverDeleteData); 
    487       CField::get(fieldid_str)->setData(data); 
    488  
    489       CTimer::get("XIOS send field").suspend(); 
    490       CTimer::get("XIOS").suspend(); 
    491    } 
    492    CATCH_DUMP_STACK 
    493  
    494    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) 
     487      CField::get(fieldid_str)->setData(data, tileid); 
     488 
     489      CTimer::get("XIOS send field").suspend(); 
     490      CTimer::get("XIOS").suspend(); 
     491   } 
     492   CATCH_DUMP_STACK 
     493 
     494   void cxios_write_data_k84(const char* fieldid, int fieldid_size, double* data_k8, int data_0size, int data_1size, 
     495                             int data_2size, int data_3size, int tileid) 
    495496   TRY 
    496497   { 
    … …  
    506507 
    507508      CArray<double, 4>data(data_k8, shape(data_0size, data_1size, data_2size, data_3size), neverDeleteData); 
    508       CField::get(fieldid_str)->setData(data); 
     509      CField::get(fieldid_str)->setData(data, tileid); 
    509510 
    510511      CTimer::get("XIOS send field").suspend(); 
    … …  
    515516   void cxios_write_data_k85(const char* fieldid, int fieldid_size, double* data_k8, 
    516517                             int data_0size, int data_1size, int data_2size, 
    517                              int data_3size, int data_4size) 
     518                             int data_3size, int data_4size, int tileid) 
    518519   TRY 
    519520   { 
    … …  
    529530 
    530531      CArray<double, 5>data(data_k8, shape(data_0size, data_1size, data_2size, data_3size, data_4size), neverDeleteData); 
    531       CField::get(fieldid_str)->setData(data); 
     532      CField::get(fieldid_str)->setData(data, tileid); 
    532533 
    533534      CTimer::get("XIOS send field").suspend(); 
    … …  
    538539   void cxios_write_data_k86(const char* fieldid, int fieldid_size, double* data_k8, 
    539540                             int data_0size, int data_1size, int data_2size, 
    540                              int data_3size, int data_4size, int data_5size) 
     541                             int data_3size, int data_4size, int data_5size, int tileid) 
    541542   TRY 
    542543   { 
    … …  
    552553 
    553554      CArray<double, 6>data(data_k8, shape(data_0size, data_1size, data_2size, data_3size, data_4size, data_5size), neverDeleteData); 
    554       CField::get(fieldid_str)->setData(data); 
     555      CField::get(fieldid_str)->setData(data, tileid); 
    555556 
    556557      CTimer::get("XIOS send field").suspend(); 
    … …  
    562563                             int data_0size, int data_1size, int data_2size, 
    563564                             int data_3size, int data_4size, int data_5size, 
    564                              int data_6size) 
     565                             int data_6size, int tileid) 
    565566   TRY 
    566567   { 
    … …  
    576577 
    577578      CArray<double, 7>data(data_k8, shape(data_0size, data_1size, data_2size, data_3size, data_4size, data_5size, data_6size), neverDeleteData); 
    578       CField::get(fieldid_str)->setData(data); 
     579      CField::get(fieldid_str)->setData(data, tileid); 
    579580 
    580581      CTimer::get("XIOS send field").suspend(); 
    … …  
    604605   CATCH_DUMP_STACK 
    605606 
    606    void cxios_write_data_k41(const char* fieldid, int fieldid_size, float* data_k4, int data_Xsize) 
     607   void cxios_write_data_k41(const char* fieldid, int fieldid_size, float* data_k4, int data_Xsize, int tileid) 
    607608   TRY 
    608609   { 
    … …  
    620621      CArray<double, 1> data(data_Xsize); 
    621622      data = data_tmp; 
    622       CField::get(fieldid_str)->setData(data); 
    623  
    624       CTimer::get("XIOS send field").suspend(); 
    625       CTimer::get("XIOS").suspend(); 
    626    } 
    627    CATCH_DUMP_STACK 
    628  
    629    void cxios_write_data_k42(const char* fieldid, int fieldid_size, float* data_k4, int data_Xsize, int data_Ysize) 
     623      CField::get(fieldid_str)->setData(data, tileid); 
     624 
     625      CTimer::get("XIOS send field").suspend(); 
     626      CTimer::get("XIOS").suspend(); 
     627   } 
     628   CATCH_DUMP_STACK 
     629 
     630   void cxios_write_data_k42(const char* fieldid, int fieldid_size, float* data_k4, int data_Xsize, int data_Ysize, int tileid) 
    630631   TRY 
    631632   { 
    … …  
    643644      CArray<double, 2> data(data_Xsize, data_Ysize); 
    644645      data = data_tmp; 
    645       CField::get(fieldid_str)->setData(data); 
    646  
    647       CTimer::get("XIOS send field").suspend(); 
    648       CTimer::get("XIOS").suspend(); 
    649    } 
    650    CATCH_DUMP_STACK 
    651  
    652    void cxios_write_data_k43(const char* fieldid, int fieldid_size, float* data_k4, int data_Xsize, int data_Ysize, int data_Zsize) 
     646      CField::get(fieldid_str)->setData(data, tileid); 
     647 
     648      CTimer::get("XIOS send field").suspend(); 
     649      CTimer::get("XIOS").suspend(); 
     650   } 
     651   CATCH_DUMP_STACK 
     652 
     653   void cxios_write_data_k43(const char* fieldid, int fieldid_size, float* data_k4, int data_Xsize, int data_Ysize, 
     654                             int data_Zsize, int tileid) 
    653655   TRY 
    654656   { 
    … …  
    666668      CArray<double, 3> data(data_Xsize, data_Ysize, data_Zsize); 
    667669      data = data_tmp; 
    668       CField::get(fieldid_str)->setData(data); 
     670      CField::get(fieldid_str)->setData(data, tileid); 
    669671 
    670672      CTimer::get("XIOS send field").suspend(); 
    … …  
    675677   void cxios_write_data_k44(const char* fieldid, int fieldid_size, float* data_k4, 
    676678                             int data_0size, int data_1size, int data_2size, 
    677                              int data_3size) 
     679                             int data_3size, int tileid) 
    678680   TRY 
    679681   { 
    … …  
    691693      CArray<double, 4> data(data_0size, data_1size, data_2size, data_3size); 
    692694      data = data_tmp; 
    693       CField::get(fieldid_str)->setData(data); 
     695      CField::get(fieldid_str)->setData(data, tileid); 
    694696 
    695697      CTimer::get("XIOS send field").suspend(); 
    … …  
    700702   void cxios_write_data_k45(const char* fieldid, int fieldid_size, float* data_k4, 
    701703                             int data_0size, int data_1size, int data_2size, 
    702                              int data_3size, int data_4size) 
     704                             int data_3size, int data_4size, int tileid) 
    703705   TRY 
    704706   { 
    … …  
    716718      CArray<double, 5> data(data_0size, data_1size, data_2size, data_3size, data_4size); 
    717719      data = data_tmp; 
    718       CField::get(fieldid_str)->setData(data); 
     720      CField::get(fieldid_str)->setData(data, tileid); 
    719721 
    720722      CTimer::get("XIOS send field").suspend(); 
    … …  
    725727   void cxios_write_data_k46(const char* fieldid, int fieldid_size, float* data_k4, 
    726728                             int data_0size, int data_1size, int data_2size, 
    727                              int data_3size, int data_4size, int data_5size) 
     729                             int data_3size, int data_4size, int data_5size, int tileid) 
    728730   TRY 
    729731   { 
    … …  
    741743      CArray<double, 6> data(data_0size, data_1size, data_2size, data_3size, data_4size, data_5size); 
    742744      data = data_tmp; 
    743       CField::get(fieldid_str)->setData(data); 
     745      CField::get(fieldid_str)->setData(data, tileid); 
    744746 
    745747      CTimer::get("XIOS send field").suspend(); 
    … …  
    751753                             int data_0size, int data_1size, int data_2size, 
    752754                             int data_3size, int data_4size, int data_5size, 
    753                              int data_6size) 
     755                             int data_6size, int tileid) 
    754756   TRY 
    755757   { 
    … …  
    767769      CArray<double, 7> data(data_0size, data_1size, data_2size, data_3size, data_4size, data_5size, data_6size); 
    768770      data = data_tmp; 
    769       CField::get(fieldid_str)->setData(data); 
     771      CField::get(fieldid_str)->setData(data, tileid); 
    770772 
    771773      CTimer::get("XIOS send field").suspend(); 
Note: See TracChangeset for help on using the changeset viewer.