Ignore:
Timestamp:
05/21/12 17:57:22 (10 years ago)
Author:
ymipsl
Message:
  • Supress lot of shared_ptr
  • instrument code for vampir-trace and timer diagnostic

YM

File:
1 edited

Legend:

Unmodified
Added
Removed
  • XIOS/trunk/src/interface/c_attr/icdomain_attr.cpp

    r345 r347  
    1010#include "group_template_impl.hpp" 
    1111#include "icutil.hpp" 
     12#include "timer.hpp" 
    1213 
    1314extern "C" 
     
    1718  void cxios_set_domain_data_dim(domain_Ptr domain_hdl, int data_dim) 
    1819  { 
     20     CTimer::get("XIOS").resume(); 
    1921    domain_hdl->data_dim.setValue(data_dim); 
    2022    domain_hdl->sendAttributToServer(domain_hdl->data_dim); 
     23     CTimer::get("XIOS").suspend(); 
    2124  } 
    2225   
     
    2932  void cxios_set_domain_data_i_index(domain_Ptr domain_hdl, int* data_i_index, int extent1) 
    3033  { 
     34     CTimer::get("XIOS").resume(); 
    3135    ARRAY(int,1) array_tmp(new CArray<int,1>(boost::extents[extent1])); 
    3236    std::copy(data_i_index, &(data_i_index[array_tmp->num_elements()]), array_tmp->data()); 
     
    3943    if (!array_copy(domain_hdl->data_i_index.getValue(), data_i_index, extent1)) 
    4044     ERROR("void cxios_set_domain_data_i_index(domain_Ptr domain_hdl, int* data_i_index, int extent1)",<<"Output array size is not conform to array size attribute") ; 
     45     CTimer::get("XIOS").suspend(); 
    4146  } 
    4247   
     
    4449  void cxios_set_domain_data_ibegin(domain_Ptr domain_hdl, int data_ibegin) 
    4550  { 
     51     CTimer::get("XIOS").resume(); 
    4652    domain_hdl->data_ibegin.setValue(data_ibegin); 
    4753    domain_hdl->sendAttributToServer(domain_hdl->data_ibegin); 
     54     CTimer::get("XIOS").suspend(); 
    4855  } 
    4956   
     
    5663  void cxios_set_domain_data_j_index(domain_Ptr domain_hdl, int* data_j_index, int extent1) 
    5764  { 
     65     CTimer::get("XIOS").resume(); 
    5866    ARRAY(int,1) array_tmp(new CArray<int,1>(boost::extents[extent1])); 
    5967    std::copy(data_j_index, &(data_j_index[array_tmp->num_elements()]), array_tmp->data()); 
     
    6674    if (!array_copy(domain_hdl->data_j_index.getValue(), data_j_index, extent1)) 
    6775     ERROR("void cxios_set_domain_data_j_index(domain_Ptr domain_hdl, int* data_j_index, int extent1)",<<"Output array size is not conform to array size attribute") ; 
     76     CTimer::get("XIOS").suspend(); 
    6877  } 
    6978   
     
    7180  void cxios_set_domain_data_jbegin(domain_Ptr domain_hdl, int data_jbegin) 
    7281  { 
     82     CTimer::get("XIOS").resume(); 
    7383    domain_hdl->data_jbegin.setValue(data_jbegin); 
    7484    domain_hdl->sendAttributToServer(domain_hdl->data_jbegin); 
     85     CTimer::get("XIOS").suspend(); 
    7586  } 
    7687   
     
    8394  void cxios_set_domain_data_n_index(domain_Ptr domain_hdl, int data_n_index) 
    8495  { 
     96     CTimer::get("XIOS").resume(); 
    8597    domain_hdl->data_n_index.setValue(data_n_index); 
    8698    domain_hdl->sendAttributToServer(domain_hdl->data_n_index); 
     99     CTimer::get("XIOS").suspend(); 
    87100  } 
    88101   
     
    95108  void cxios_set_domain_data_ni(domain_Ptr domain_hdl, int data_ni) 
    96109  { 
     110     CTimer::get("XIOS").resume(); 
    97111    domain_hdl->data_ni.setValue(data_ni); 
    98112    domain_hdl->sendAttributToServer(domain_hdl->data_ni); 
     113     CTimer::get("XIOS").suspend(); 
    99114  } 
    100115   
     
    107122  void cxios_set_domain_data_nj(domain_Ptr domain_hdl, int data_nj) 
    108123  { 
     124     CTimer::get("XIOS").resume(); 
    109125    domain_hdl->data_nj.setValue(data_nj); 
    110126    domain_hdl->sendAttributToServer(domain_hdl->data_nj); 
     127     CTimer::get("XIOS").suspend(); 
    111128  } 
    112129   
     
    121138    std::string domain_group_ref_str; 
    122139    if(!cstr2string(domain_group_ref, domain_group_ref_size, domain_group_ref_str)) return; 
     140     CTimer::get("XIOS").resume(); 
    123141    domain_hdl->domain_group_ref.setValue(domain_group_ref_str); 
    124142    domain_hdl->sendAttributToServer(domain_hdl->domain_group_ref); 
     143     CTimer::get("XIOS").suspend(); 
    125144  } 
    126145   
    127146  void cxios_get_domain_domain_group_ref(domain_Ptr domain_hdl, char * domain_group_ref, int domain_group_ref_size) 
    128147  { 
     148     CTimer::get("XIOS").resume(); 
    129149    if(!string_copy(domain_hdl->domain_group_ref.getValue(),domain_group_ref , domain_group_ref_size)) 
    130150      ERROR("void cxios_get_domain_domain_group_ref(domain_Ptr domain_hdl, char * domain_group_ref, int domain_group_ref_size)", <<"Input string is to short"); 
     151     CTimer::get("XIOS").suspend(); 
    131152  } 
    132153   
     
    134155  void cxios_set_domain_ibegin(domain_Ptr domain_hdl, int ibegin) 
    135156  { 
     157     CTimer::get("XIOS").resume(); 
    136158    domain_hdl->ibegin.setValue(ibegin); 
    137159    domain_hdl->sendAttributToServer(domain_hdl->ibegin); 
     160     CTimer::get("XIOS").suspend(); 
    138161  } 
    139162   
     
    146169  void cxios_set_domain_iend(domain_Ptr domain_hdl, int iend) 
    147170  { 
     171     CTimer::get("XIOS").resume(); 
    148172    domain_hdl->iend.setValue(iend); 
    149173    domain_hdl->sendAttributToServer(domain_hdl->iend); 
     174     CTimer::get("XIOS").suspend(); 
    150175  } 
    151176   
     
    158183  void cxios_set_domain_jbegin(domain_Ptr domain_hdl, int jbegin) 
    159184  { 
     185     CTimer::get("XIOS").resume(); 
    160186    domain_hdl->jbegin.setValue(jbegin); 
    161187    domain_hdl->sendAttributToServer(domain_hdl->jbegin); 
     188     CTimer::get("XIOS").suspend(); 
    162189  } 
    163190   
     
    170197  void cxios_set_domain_jend(domain_Ptr domain_hdl, int jend) 
    171198  { 
     199     CTimer::get("XIOS").resume(); 
    172200    domain_hdl->jend.setValue(jend); 
    173201    domain_hdl->sendAttributToServer(domain_hdl->jend); 
     202     CTimer::get("XIOS").suspend(); 
    174203  } 
    175204   
     
    182211  void cxios_set_domain_latvalue(domain_Ptr domain_hdl, double* latvalue, int extent1) 
    183212  { 
     213     CTimer::get("XIOS").resume(); 
    184214    ARRAY(double,1) array_tmp(new CArray<double,1>(boost::extents[extent1])); 
    185215    std::copy(latvalue, &(latvalue[array_tmp->num_elements()]), array_tmp->data()); 
     
    192222    if (!array_copy(domain_hdl->latvalue.getValue(), latvalue, extent1)) 
    193223     ERROR("void cxios_set_domain_latvalue(domain_Ptr domain_hdl, double* latvalue, int extent1)",<<"Output array size is not conform to array size attribute") ; 
     224     CTimer::get("XIOS").suspend(); 
    194225  } 
    195226   
     
    199230    std::string long_name_str; 
    200231    if(!cstr2string(long_name, long_name_size, long_name_str)) return; 
     232     CTimer::get("XIOS").resume(); 
    201233    domain_hdl->long_name.setValue(long_name_str); 
    202234    domain_hdl->sendAttributToServer(domain_hdl->long_name); 
     235     CTimer::get("XIOS").suspend(); 
    203236  } 
    204237   
    205238  void cxios_get_domain_long_name(domain_Ptr domain_hdl, char * long_name, int long_name_size) 
    206239  { 
     240     CTimer::get("XIOS").resume(); 
    207241    if(!string_copy(domain_hdl->long_name.getValue(),long_name , long_name_size)) 
    208242      ERROR("void cxios_get_domain_long_name(domain_Ptr domain_hdl, char * long_name, int long_name_size)", <<"Input string is to short"); 
     243     CTimer::get("XIOS").suspend(); 
    209244  } 
    210245   
     
    212247  void cxios_set_domain_lonvalue(domain_Ptr domain_hdl, double* lonvalue, int extent1) 
    213248  { 
     249     CTimer::get("XIOS").resume(); 
    214250    ARRAY(double,1) array_tmp(new CArray<double,1>(boost::extents[extent1])); 
    215251    std::copy(lonvalue, &(lonvalue[array_tmp->num_elements()]), array_tmp->data()); 
     
    222258    if (!array_copy(domain_hdl->lonvalue.getValue(), lonvalue, extent1)) 
    223259     ERROR("void cxios_set_domain_lonvalue(domain_Ptr domain_hdl, double* lonvalue, int extent1)",<<"Output array size is not conform to array size attribute") ; 
     260     CTimer::get("XIOS").suspend(); 
    224261  } 
    225262   
     
    227264  void cxios_set_domain_mask(domain_Ptr domain_hdl, bool* mask, int extent1, int extent2) 
    228265  { 
     266     CTimer::get("XIOS").resume(); 
    229267    ARRAY(bool,2) array_tmp(new CArray<bool,2>(boost::extents[extent1][extent2])); 
    230268    std::copy(mask, &(mask[array_tmp->num_elements()]), array_tmp->data()); 
     
    237275    if (!array_copy(domain_hdl->mask.getValue(), mask, extent1, extent2)) 
    238276     ERROR("void cxios_set_domain_mask(domain_Ptr domain_hdl, bool* mask, int extent1, int extent2)",<<"Output array size is not conform to array size attribute") ; 
     277     CTimer::get("XIOS").suspend(); 
    239278  } 
    240279   
     
    244283    std::string name_str; 
    245284    if(!cstr2string(name, name_size, name_str)) return; 
     285     CTimer::get("XIOS").resume(); 
    246286    domain_hdl->name.setValue(name_str); 
    247287    domain_hdl->sendAttributToServer(domain_hdl->name); 
     288     CTimer::get("XIOS").suspend(); 
    248289  } 
    249290   
    250291  void cxios_get_domain_name(domain_Ptr domain_hdl, char * name, int name_size) 
    251292  { 
     293     CTimer::get("XIOS").resume(); 
    252294    if(!string_copy(domain_hdl->name.getValue(),name , name_size)) 
    253295      ERROR("void cxios_get_domain_name(domain_Ptr domain_hdl, char * name, int name_size)", <<"Input string is to short"); 
     296     CTimer::get("XIOS").suspend(); 
    254297  } 
    255298   
     
    257300  void cxios_set_domain_ni(domain_Ptr domain_hdl, int ni) 
    258301  { 
     302     CTimer::get("XIOS").resume(); 
    259303    domain_hdl->ni.setValue(ni); 
    260304    domain_hdl->sendAttributToServer(domain_hdl->ni); 
     305     CTimer::get("XIOS").suspend(); 
    261306  } 
    262307   
     
    269314  void cxios_set_domain_ni_glo(domain_Ptr domain_hdl, int ni_glo) 
    270315  { 
     316     CTimer::get("XIOS").resume(); 
    271317    domain_hdl->ni_glo.setValue(ni_glo); 
    272318    domain_hdl->sendAttributToServer(domain_hdl->ni_glo); 
     319     CTimer::get("XIOS").suspend(); 
    273320  } 
    274321   
     
    281328  void cxios_set_domain_nj(domain_Ptr domain_hdl, int nj) 
    282329  { 
     330     CTimer::get("XIOS").resume(); 
    283331    domain_hdl->nj.setValue(nj); 
    284332    domain_hdl->sendAttributToServer(domain_hdl->nj); 
     333     CTimer::get("XIOS").suspend(); 
    285334  } 
    286335   
     
    293342  void cxios_set_domain_nj_glo(domain_Ptr domain_hdl, int nj_glo) 
    294343  { 
     344     CTimer::get("XIOS").resume(); 
    295345    domain_hdl->nj_glo.setValue(nj_glo); 
    296346    domain_hdl->sendAttributToServer(domain_hdl->nj_glo); 
     347     CTimer::get("XIOS").suspend(); 
    297348  } 
    298349   
     
    307358    std::string standard_name_str; 
    308359    if(!cstr2string(standard_name, standard_name_size, standard_name_str)) return; 
     360     CTimer::get("XIOS").resume(); 
    309361    domain_hdl->standard_name.setValue(standard_name_str); 
    310362    domain_hdl->sendAttributToServer(domain_hdl->standard_name); 
     363     CTimer::get("XIOS").suspend(); 
    311364  } 
    312365   
    313366  void cxios_get_domain_standard_name(domain_Ptr domain_hdl, char * standard_name, int standard_name_size) 
    314367  { 
     368     CTimer::get("XIOS").resume(); 
    315369    if(!string_copy(domain_hdl->standard_name.getValue(),standard_name , standard_name_size)) 
    316370      ERROR("void cxios_get_domain_standard_name(domain_Ptr domain_hdl, char * standard_name, int standard_name_size)", <<"Input string is to short"); 
     371     CTimer::get("XIOS").suspend(); 
    317372  } 
    318373   
     
    320375  void cxios_set_domain_zoom_ibegin(domain_Ptr domain_hdl, int zoom_ibegin) 
    321376  { 
     377     CTimer::get("XIOS").resume(); 
    322378    domain_hdl->zoom_ibegin.setValue(zoom_ibegin); 
    323379    domain_hdl->sendAttributToServer(domain_hdl->zoom_ibegin); 
     380     CTimer::get("XIOS").suspend(); 
    324381  } 
    325382   
     
    332389  void cxios_set_domain_zoom_ibegin_loc(domain_Ptr domain_hdl, int zoom_ibegin_loc) 
    333390  { 
     391     CTimer::get("XIOS").resume(); 
    334392    domain_hdl->zoom_ibegin_loc.setValue(zoom_ibegin_loc); 
    335393    domain_hdl->sendAttributToServer(domain_hdl->zoom_ibegin_loc); 
     394     CTimer::get("XIOS").suspend(); 
    336395  } 
    337396   
     
    344403  void cxios_set_domain_zoom_jbegin(domain_Ptr domain_hdl, int zoom_jbegin) 
    345404  { 
     405     CTimer::get("XIOS").resume(); 
    346406    domain_hdl->zoom_jbegin.setValue(zoom_jbegin); 
    347407    domain_hdl->sendAttributToServer(domain_hdl->zoom_jbegin); 
     408     CTimer::get("XIOS").suspend(); 
    348409  } 
    349410   
     
    356417  void cxios_set_domain_zoom_jbegin_loc(domain_Ptr domain_hdl, int zoom_jbegin_loc) 
    357418  { 
     419     CTimer::get("XIOS").resume(); 
    358420    domain_hdl->zoom_jbegin_loc.setValue(zoom_jbegin_loc); 
    359421    domain_hdl->sendAttributToServer(domain_hdl->zoom_jbegin_loc); 
     422     CTimer::get("XIOS").suspend(); 
    360423  } 
    361424   
     
    368431  void cxios_set_domain_zoom_ni(domain_Ptr domain_hdl, int zoom_ni) 
    369432  { 
     433     CTimer::get("XIOS").resume(); 
    370434    domain_hdl->zoom_ni.setValue(zoom_ni); 
    371435    domain_hdl->sendAttributToServer(domain_hdl->zoom_ni); 
     436     CTimer::get("XIOS").suspend(); 
    372437  } 
    373438   
     
    380445  void cxios_set_domain_zoom_ni_loc(domain_Ptr domain_hdl, int zoom_ni_loc) 
    381446  { 
     447     CTimer::get("XIOS").resume(); 
    382448    domain_hdl->zoom_ni_loc.setValue(zoom_ni_loc); 
    383449    domain_hdl->sendAttributToServer(domain_hdl->zoom_ni_loc); 
     450     CTimer::get("XIOS").suspend(); 
    384451  } 
    385452   
     
    392459  void cxios_set_domain_zoom_nj(domain_Ptr domain_hdl, int zoom_nj) 
    393460  { 
     461     CTimer::get("XIOS").resume(); 
    394462    domain_hdl->zoom_nj.setValue(zoom_nj); 
    395463    domain_hdl->sendAttributToServer(domain_hdl->zoom_nj); 
     464     CTimer::get("XIOS").suspend(); 
    396465  } 
    397466   
     
    404473  void cxios_set_domain_zoom_nj_loc(domain_Ptr domain_hdl, int zoom_nj_loc) 
    405474  { 
     475     CTimer::get("XIOS").resume(); 
    406476    domain_hdl->zoom_nj_loc.setValue(zoom_nj_loc); 
    407477    domain_hdl->sendAttributToServer(domain_hdl->zoom_nj_loc); 
     478     CTimer::get("XIOS").suspend(); 
    408479  } 
    409480   
Note: See TracChangeset for help on using the changeset viewer.