Changeset 417


Ignore:
Timestamp:
01/25/13 18:00:47 (12 years ago)
Author:
ymipsl
Message:

correct tracing resume/suspend in generated fortran interface.

YM

File:
1 edited

Legend:

Unmodified
Added
Removed
  • XIOS/trunk/src/generate_interface_impl.hpp

    r415 r417  
    564564    oss<<"  "<<className<<"_hdl->"<<name<<".reference(tmp.copy());"<<iendl ;\ 
    565565    oss<<"  "<<className<<"_hdl->sendAttributToServer("<<className<<"_hdl->"<<name<<");"<<iendl ;\ 
     566    oss<<"   CTimer::get(\"XIOS\").suspend();"<<iendl ;\ 
    566567    oss<<"}"<<iendl ;\ 
    567568    oss<<iendl; \ 
    568569    oss<<"void cxios_get_"<<className<<"_"<<name<<"("<<className<<"_Ptr "<<className<<"_hdl, "<< typeName<<"* "<<name<<", int extent1)"<<iendl ;\ 
    569570    oss<<"{"<<iendl; \ 
     571    oss<<"  CTimer::get(\"XIOS\").resume();"<<iendl ; \ 
    570572    oss<<"  CArray<"<<typeName<<",1> tmp("<<name<<",shape(extent1),neverDeleteData) ;"<<iendl ;\ 
    571573    oss<<"  tmp="<<className<<"_hdl->"<<name<<" ;"<<iendl ;\ 
     
    585587    oss<<"  "<<className<<"_hdl->"<<name<<".reference(tmp.copy());"<<iendl ;\ 
    586588    oss<<"  "<<className<<"_hdl->sendAttributToServer("<<className<<"_hdl->"<<name<<");"<<iendl ;\ 
     589    oss<<"   CTimer::get(\"XIOS\").suspend();"<<iendl ;\ 
    587590    oss<<"}"<<iendl ;\ 
    588591    oss<<iendl; \ 
    589592    oss<<"void cxios_get_"<<className<<"_"<<name<<"("<<className<<"_Ptr "<<className<<"_hdl, "<< typeName<<"* "<<name<<", int extent1, int extent2)"<<iendl ;\ 
    590593    oss<<"{"<<iendl; \ 
     594    oss<<"  CTimer::get(\"XIOS\").resume();"<<iendl ; \ 
    591595    oss<<"  CArray<"<<typeName<<",2> tmp("<<name<<",shape(extent1,extent2),neverDeleteData) ;"<<iendl ;\ 
    592596    oss<<"  tmp="<<className<<"_hdl->"<<name<<" ;"<<iendl ;\ 
     
    606610    oss<<"  "<<className<<"_hdl->"<<name<<".reference(tmp.copy());"<<iendl ;\ 
    607611    oss<<"  "<<className<<"_hdl->sendAttributToServer("<<className<<"_hdl->"<<name<<");"<<iendl ;\ 
     612    oss<<"   CTimer::get(\"XIOS\").suspend();"<<iendl ;\ 
    608613    oss<<"}"<<iendl ;\ 
    609614    oss<<iendl; \ 
    610615    oss<<"void cxios_get_"<<className<<"_"<<name<<"("<<className<<"_Ptr "<<className<<"_hdl, "<< typeName<<"* "<<name<<", int extent1, int extent2, int extent3)"<<iendl ;\ 
    611616    oss<<"{"<<iendl; \ 
     617    oss<<"  CTimer::get(\"XIOS\").resume();"<<iendl ; \ 
    612618    oss<<"  CArray<"<<typeName<<",3> tmp("<<name<<",shape(extent1,extent2,extent3),neverDeleteData) ;"<<iendl ;\ 
    613619    oss<<"  tmp="<<className<<"_hdl->"<<name<<" ;"<<iendl ;\ 
Note: See TracChangeset for help on using the changeset viewer.