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

Location:
XIOS/dev/dev_trunk_omp/src/interface
Files:
69 edited

Legend:

Unmodified
Added
Removed

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

    r1542 r1646  
    2828    
    2929   void cxios_axis_handle_create (XAxisPtr * _ret, const char * _id, int _id_len) 
     30   TRY 
    3031   { 
    3132      std::string id;  
    … …  
    3536      CTimer::get("XIOS").suspend() ; 
    3637   } 
     38   CATCH_DUMP_STACK 
    3739    
    3840   void cxios_axisgroup_handle_create (XAxisGroupPtr * _ret, const char * _id, int _id_len) 
     41   TRY 
    3942   { 
    4043      std::string id;  
    … …  
    4447      CTimer::get("XIOS").suspend() ; 
    4548    } 
     49   CATCH_DUMP_STACK 
    4650 
    4751   // -------------------- Vérification des identifiants ----------------------- 
    4852 
    4953   void cxios_axis_valid_id (bool * _ret, const char * _id, int _id_len) 
     54   TRY 
    5055   { 
    5156      std::string id; 
    … …  
    5661      CTimer::get("XIOS").suspend() ; 
    5762   } 
     63   CATCH_DUMP_STACK 
    5864 
    5965   void cxios_axisgroup_valid_id (bool * _ret, const char * _id, int _id_len) 
     66   TRY 
    6067   { 
    6168      std::string id; 
    … …  
    6774 
    6875   } 
     76   CATCH_DUMP_STACK 
    6977    
    7078} // extern "C" 

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

    r1542 r1646  
    1010{ 
    1111  void cxios_update_calendar(int step) 
     12  TRY 
    1213  { 
    1314    CTimer::get("XIOS").resume(); 
    … …  
    1920    CTimer::get("XIOS").suspend(); 
    2021  } 
     22  CATCH_DUMP_STACK 
    2123 
    2224  void cxios_get_current_date(cxios_date* current_date_c) 
     25  TRY 
    2326  { 
    2427    CTimer::get("XIOS").resume(); 
    … …  
    3740    CTimer::get("XIOS").suspend(); 
    3841  } 
     42  CATCH_DUMP_STACK 
    3943 
    4044  int cxios_get_year_length_in_seconds(int year) 
     45  TRY 
    4146  { 
    4247    CTimer::get("XIOS").resume(); 
    … …  
    5055    return length; 
    5156  } 
     57  CATCH_DUMP_STACK 
    5258 
    5359  int cxios_get_day_length_in_seconds() 
     60  TRY 
    5461  { 
    5562    CTimer::get("XIOS").resume(); 
    … …  
    6370    return length; 
    6471  } 
     72  CATCH_DUMP_STACK 
    6573} 

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

    r1542 r1646  
    2929 
    3030  void cxios_calendar_wrapper_handle_create(XCalendarWrapperPtr* _ret, const char* _id, int _id_len) 
     31  TRY 
    3132  { 
    3233    std::string id; 
    … …  
    3637    CTimer::get("XIOS").suspend(); 
    3738  } 
     39  CATCH_DUMP_STACK 
    3840 
    3941  void cxios_get_current_calendar_wrapper(XCalendarWrapperPtr* _ret) 
     42  TRY 
    4043  { 
    4144    CTimer::get("XIOS").resume(); 
    … …  
    4346    CTimer::get("XIOS").suspend(); 
    4447  } 
     48  CATCH_DUMP_STACK 
    4549 
    4650  // -------------------- Vérification des identifiants ----------------------- 
    4751 
    4852  void cxios_calendar_wrapper_valid_id(bool* _ret, const char* _id, int _id_len) 
     53  TRY 
    4954  { 
    5055    std::string id; 
    … …  
    5459    CTimer::get("XIOS").suspend(); 
    5560  } 
     61  CATCH_DUMP_STACK 
    5662 
    5763  // ----------------------- Custom getters and setters ----------------------- 
    5864 
    5965  void cxios_set_calendar_wrapper_date_start_date(XCalendarWrapperPtr calendarWrapper_hdl, cxios_date start_date_c) 
     66  TRY 
    6067  { 
    6168    CTimer::get("XIOS").resume(); 
    … …  
    7077    CTimer::get("XIOS").suspend(); 
    7178  } 
     79  CATCH_DUMP_STACK 
    7280 
    7381  void cxios_get_calendar_wrapper_date_start_date(XCalendarWrapperPtr calendarWrapper_hdl, cxios_date* start_date_c) 
     82  TRY 
    7483  { 
    7584    CTimer::get("XIOS").resume(); 
    … …  
    8392    CTimer::get("XIOS").suspend(); 
    8493  } 
     94  CATCH_DUMP_STACK 
    8595 
    8696  void cxios_set_calendar_wrapper_date_time_origin(XCalendarWrapperPtr calendarWrapper_hdl, cxios_date time_origin_c) 
     97  TRY 
    8798  { 
    8899    CTimer::get("XIOS").resume(); 
    … …  
    97108    CTimer::get("XIOS").suspend(); 
    98109  } 
     110  CATCH_DUMP_STACK 
    99111 
    100112  void cxios_get_calendar_wrapper_date_time_origin(XCalendarWrapperPtr calendarWrapper_hdl, cxios_date* time_origin_c) 
     113  TRY 
    101114  { 
    102115    CTimer::get("XIOS").resume(); 
    … …  
    110123    CTimer::get("XIOS").suspend(); 
    111124  } 
     125  CATCH_DUMP_STACK 
    112126 
    113127  // ----------------------- Calendar creation and update ---------------------- 
    114128 
    115129  void cxios_create_calendar(XCalendarWrapperPtr calendarWrapper_hdl) 
     130  TRY 
    116131  { 
    117132    CTimer::get("XIOS").resume(); 
    … …  
    119134    CTimer::get("XIOS").suspend(); 
    120135  } 
     136  CATCH_DUMP_STACK 
    121137 
    122138  void cxios_update_calendar_timestep(XCalendarWrapperPtr calendarWrapper_hdl) 
     139  TRY 
    123140  { 
    124141    CTimer::get("XIOS").resume(); 
    … …  
    126143    CTimer::get("XIOS").suspend(); 
    127144  } 
     145  CATCH_DUMP_STACK 
    128146} // extern "C" 

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

    r1542 r1646  
    2525   // ------------------------ Création des handle ----------------------------- 
    2626   void cxios_compute_connectivity_domain_handle_create(XComConDomainPtr * _ret, const char * _id, int _id_len) 
     27   TRY 
    2728   { 
    2829      std::string id; 
    … …  
    3233      CTimer::get("XIOS").suspend() ; 
    3334   } 
     35   CATCH_DUMP_STACK 
    3436 
    3537   // -------------------- Vérification des identifiants ----------------------- 
    3638   void cxios_compute_connectivity_domain_valid_id(bool * _ret, const char * _id, int _id_len) 
     39   TRY 
    3740   { 
    3841      std::string id; 
    … …  
    4346      CTimer::get("XIOS").suspend() ; 
    4447   } 
     48   CATCH_DUMP_STACK 
    4549} // extern "C" 

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

    r1542 r1646  
    3232 
    3333   void cxios_context_handle_create (XContextPtr * _ret, const char * _id, int _id_len) 
     34   TRY 
    3435   { 
    3536      std::string id; 
    … …  
    5455      // Lever une exeception ici 
    5556   } 
     57   CATCH_DUMP_STACK 
    5658 
    5759   // ------------------------ Changements de contextes ------------------------ 
    5860 
    5961   void cxios_context_get_current(XContextPtr* context) 
     62   TRY 
    6063   { 
    6164      CTimer::get("XIOS").resume(); 
    … …  
    6366      CTimer::get("XIOS").suspend(); 
    6467   } 
     68   CATCH_DUMP_STACK 
    6569 
    6670   void cxios_context_set_current(XContextPtr context, bool withswap) 
     71   TRY 
    6772   { 
    6873      CTimer::get("XIOS").resume() ; 
    … …  
    7075      CTimer::get("XIOS").suspend() ; 
    7176   } 
     77   CATCH_DUMP_STACK 
    7278 
    7379   // -------------------- Vérification des identifiants ----------------------- 
    7480 
    7581   void cxios_context_valid_id (bool * _ret, const char * _id, int _id_len) 
     82   TRY 
    7683   { 
    7784      std::string id; 
    … …  
    93100      CTimer::get("XIOS").suspend(); 
    94101   } 
     102   CATCH_DUMP_STACK 
    95103} // extern "C" 

  • 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" 

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

    r1542 r1646  
    3535{ 
    3636  long long int cxios_date_convert_to_seconds(cxios_date date_c) 
     37  TRY 
    3738  { 
    3839    xios::CDate date = xios::CDate(getCalendar("long long int cxios_date_convert_to_seconds(cxios_date date_c)"), 
    … …  
    4142    return date; 
    4243  } 
     44  CATCH_DUMP_STACK 
    4345 
    4446  void cxios_date_convert_to_string(cxios_date date_c, char* str, int str_size) 
     47  TRY 
    4548  { 
    4649    xios::CDate date = xios::CDate(getCalendar("void cxios_date_convert_to_string(cxios_date date_c, char* str, int str_size)"), 
    … …  
    5154      ERROR("void cxios_date_convert_to_string(cxios_date date_c, char* str, int str_size)", << "Input string is too short"); 
    5255  } 
     56  CATCH_DUMP_STACK 
    5357 
    5458  cxios_date cxios_date_convert_from_string(const char* str, int str_size) 
     59  TRY 
    5560  { 
    5661    std::string date_str; 
    … …  
    6368    return { date.getYear(), date.getMonth(), date.getDay(), date.getHour(), date.getMinute(), date.getSecond() }; 
    6469  } 
     70  CATCH_DUMP_STACK 
    6571 
    6672  cxios_date cxios_date_add_duration(cxios_date date_c, cxios_duration dur_c) 
     73  TRY 
    6774  { 
    6875    xios::CDate date = xios::CDate(getCalendar("cxios_date cxios_date_add_duration(cxios_date date_c, cxios_duration dur_c)"), 
    … …  
    7380    return { res.getYear(), res.getMonth(), res.getDay(), res.getHour(), res.getMinute(), res.getSecond() }; 
    7481  } 
     82  CATCH_DUMP_STACK 
    7583 
    7684  cxios_date cxios_date_sub_duration(cxios_date date_c, cxios_duration dur_c) 
     85  TRY 
    7786  { 
    7887    xios::CDate date = xios::CDate(getCalendar("cxios_date cxios_date_sub_duration(cxios_date date_c, cxios_duration dur_c)"), 
    … …  
    8493    return { res.getYear(), res.getMonth(), res.getDay(), res.getHour(), res.getMinute(), res.getSecond() }; 
    8594  } 
     95  CATCH_DUMP_STACK 
    8696 
    8797  cxios_duration cxios_date_sub(cxios_date date1_c, cxios_date date2_c) 
     98  TRY 
    8899  { 
    89100    xios::CDate date1 = xios::CDate(getCalendar("cxios_duration cxios_date_sub(cxios_date date1_c, cxios_date date2_c)"), 
    … …  
    96107    return { res.year, res.month, res.day, res.hour, res.minute, res.second, res.timestep }; 
    97108  } 
     109  CATCH_DUMP_STACK 
    98110 
    99111  bool cxios_date_eq(cxios_date date1_c, cxios_date date2_c) 
     112  TRY 
    100113  { 
    101114    xios::CDate date1 = xios::CDate(getCalendar("bool cxios_date_eq(cxios_date date1_c, cxios_date date2_c)"), 
    … …  
    107120    return (date1 == date2); 
    108121  } 
     122  CATCH_DUMP_STACK 
    109123 
    110124  bool cxios_date_neq(cxios_date date1_c, cxios_date date2_c) 
     125  TRY 
    111126  { 
    112127    xios::CDate date1 = xios::CDate(getCalendar("bool cxios_date_eq(cxios_date date1_c, cxios_date date2_c)"), 
    … …  
    118133    return (date1 != date2); 
    119134  } 
     135  CATCH_DUMP_STACK 
    120136 
    121137  bool cxios_date_lt(cxios_date date1_c, cxios_date date2_c) 
     138  TRY 
    122139  { 
    123140    xios::CDate date1 = xios::CDate(getCalendar("bool cxios_date_eq(cxios_date date1_c, cxios_date date2_c)"), 
    … …  
    129146    return (date1 < date2); 
    130147  } 
     148  CATCH_DUMP_STACK 
    131149 
    132150  bool cxios_date_le(cxios_date date1_c, cxios_date date2_c) 
     151  TRY 
    133152  { 
    134153    xios::CDate date1 = xios::CDate(getCalendar("bool cxios_date_eq(cxios_date date1_c, cxios_date date2_c)"), 
    … …  
    140159    return (date1 <= date2); 
    141160  } 
     161  CATCH_DUMP_STACK 
    142162 
    143163  bool cxios_date_gt(cxios_date date1_c, cxios_date date2_c) 
     164  TRY 
    144165  { 
    145166    xios::CDate date1 = xios::CDate(getCalendar("bool cxios_date_eq(cxios_date date1_c, cxios_date date2_c)"), 
    … …  
    151172    return (date1 > date2); 
    152173  } 
     174  CATCH_DUMP_STACK 
    153175 
    154176  bool cxios_date_ge(cxios_date date1_c, cxios_date date2_c) 
     177  TRY 
    155178  { 
    156179    xios::CDate date1 = xios::CDate(getCalendar("bool cxios_date_eq(cxios_date date1_c, cxios_date date2_c)"), 
    … …  
    162185    return (date1 >= date2); 
    163186  } 
     187  CATCH_DUMP_STACK 
    164188 
    165189  int cxios_date_get_second_of_year(cxios_date date_c) 
     190  TRY 
    166191  { 
    167192    xios::CDate date = xios::CDate(getCalendar("int cxios_date_get_second_of_year(cxios_date date_c)"), 
    … …  
    170195    return date.getSecondOfYear(); 
    171196  } 
     197  CATCH_DUMP_STACK 
    172198 
    173199  double cxios_date_get_day_of_year(cxios_date date_c) 
     200  TRY 
    174201  { 
    175202    xios::CDate date = xios::CDate(getCalendar("int cxios_date_get_day_of_year(cxios_date date_c)"), 
    … …  
    178205    return date.getDayOfYear(); 
    179206  } 
     207  CATCH_DUMP_STACK 
    180208 
    181209  double cxios_date_get_fraction_of_year(cxios_date date_c) 
     210  TRY 
    182211  { 
    183212    xios::CDate date = xios::CDate(getCalendar("int cxios_date_get_fraction_of_year(cxios_date date_c)"), 
    … …  
    186215    return date.getFractionOfYear(); 
    187216  } 
     217  CATCH_DUMP_STACK 
    188218 
    189219  int cxios_date_get_second_of_day(cxios_date date_c) 
     220  TRY 
    190221  { 
    191222    xios::CDate date = xios::CDate(getCalendar("int cxios_date_get_second_of_day(cxios_date date_c)"), 
    … …  
    194225    return date.getSecondOfDay(); 
    195226  } 
     227  CATCH_DUMP_STACK 
    196228 
    197229  double cxios_date_get_fraction_of_day(cxios_date date_c) 
     230  TRY 
    198231  { 
    199232    xios::CDate date = xios::CDate(getCalendar("int cxios_date_get_fraction_of_day(cxios_date date_c)"), 
    … …  
    202235    return date.getFractionOfDay(); 
    203236  } 
     237  CATCH_DUMP_STACK 
    204238} // extern "C" 

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

    r1542 r1646  
    2929    
    3030   void cxios_domain_handle_create (XDomainPtr * _ret, const char * _id, int _id_len) 
     31   TRY 
    3132   { 
    3233      std::string id;  
    … …  
    3637      CTimer::get("XIOS").suspend() ; 
    3738   } 
     39   CATCH_DUMP_STACK 
    3840    
    3941   void cxios_domaingroup_handle_create (XDomainGroupPtr * _ret, const char * _id, int _id_len) 
     42   TRY 
    4043   { 
    4144      std::string id;  
    … …  
    4649      CTimer::get("XIOS").suspend() ; 
    4750   } 
     51   CATCH_DUMP_STACK 
    4852 
    4953   // -------------------- Vérification des identifiants ----------------------- 
    5054 
    5155   void cxios_domain_valid_id (bool * _ret, const char * _id, int _id_len) 
     56   TRY 
    5257   { 
    5358      std::string id; 
    … …  
    5863      CTimer::get("XIOS").suspend() ; 
    5964   } 
     65   CATCH_DUMP_STACK 
    6066 
    6167   void cxios_domaingroup_valid_id (bool * _ret, const char * _id, int _id_len) 
     68   TRY 
    6269   { 
    6370      std::string id; 
    … …  
    6774      CTimer::get("XIOS").suspend() ; 
    6875   } 
     76   CATCH_DUMP_STACK 
    6977} // extern "C" 

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

    r1542 r1646  
    2626   // ------------------------ Création des handle ----------------------------- 
    2727   void cxios_duplicate_scalar_to_axis_handle_create(XDuplicateScalarToAxisPtr * _ret, const char * _id, int _id_len) 
     28   TRY 
    2829   { 
    2930      std::string id; 
    … …  
    3334      CTimer::get("XIOS").suspend() ; 
    3435   } 
     36   CATCH_DUMP_STACK 
    3537 
    3638   // -------------------- Vérification des identifiants ----------------------- 
    3739   void cxios_duplicate_scalar_to_axis_valid_id(bool * _ret, const char * _id, int _id_len) 
     40   TRY 
    3841   { 
    3942      std::string id; 
    … …  
    4447      CTimer::get("XIOS").suspend() ; 
    4548   } 
     49   CATCH_DUMP_STACK 
    4650 
    4751} // extern "C" 

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

    r1472 r1646  
     1#include "xios.hpp" 
     2 
    13#include "icutil.hpp" 
    24#include "icdate.hpp" 
    … …  
    68{ 
    79  void cxios_duration_convert_to_string(cxios_duration dur_c, char* str, int str_size) 
     10  TRY 
    811  { 
    912    xios::CDuration dur( dur_c.year, dur_c.month, dur_c.day, dur_c.hour, dur_c.minute, dur_c.second, dur_c.timestep ); 
    … …  
    1215      ERROR("void cxios_duration_convert_to_string(cxios_duration dur_c, char* str, int str_size)", << "Input string is too short"); 
    1316  } 
     17  CATCH_DUMP_STACK 
    1418 
    1519  cxios_duration cxios_duration_convert_from_string(const char* str, int str_size) 
     20  TRY 
    1621  { 
    1722    std::string dur_str; 
    … …  
    2328    return { dur.year, dur.month, dur.day, dur.hour, dur.minute, dur.second, dur.timestep }; 
    2429  } 
     30  CATCH_DUMP_STACK 
    2531 
    2632  cxios_duration cxios_duration_add(cxios_duration dur1_c, cxios_duration dur2_c) 
     33  TRY 
    2734  { 
    2835    xios::CDuration dur1( dur1_c.year, dur1_c.month, dur1_c.day, dur1_c.hour, dur1_c.minute, dur1_c.second, dur1_c.timestep ); 
    … …  
    3239    return { res.year, res.month, res.day, res.hour, res.minute, res.second, res.timestep }; 
    3340  } 
     41  CATCH_DUMP_STACK 
    3442 
    3543  cxios_duration cxios_duration_sub(cxios_duration dur1_c, cxios_duration dur2_c) 
     44  TRY 
    3645  { 
    3746    xios::CDuration dur1( dur1_c.year, dur1_c.month, dur1_c.day, dur1_c.hour, dur1_c.minute, dur1_c.second, dur1_c.timestep ); 
    … …  
    4150    return { res.year, res.month, res.day, res.hour, res.minute, res.second, res.timestep }; 
    4251  } 
     52  CATCH_DUMP_STACK 
    4353 
    4454  cxios_duration cxios_duration_mult(double val, cxios_duration dur_c) 
     55  TRY 
    4556  { 
    4657    xios::CDuration dur( dur_c.year, dur_c.month, dur_c.day, dur_c.hour, dur_c.minute, dur_c.second, dur_c.timestep ); 
    … …  
    4859    return { res.year, res.month, res.day, res.hour, res.minute, res.second, res.timestep }; 
    4960  } 
     61  CATCH_DUMP_STACK 
    5062 
    5163  cxios_duration cxios_duration_neg(cxios_duration dur_c) 
     64  TRY 
    5265  { 
    5366    xios::CDuration dur( dur_c.year, dur_c.month, dur_c.day, dur_c.hour, dur_c.minute, dur_c.second, dur_c.timestep ); 
    … …  
    5568    return { res.year, res.month, res.day, res.hour, res.minute, res.second, res.timestep }; 
    5669  } 
     70  CATCH_DUMP_STACK 
    5771 
    5872  bool cxios_duration_eq(cxios_duration dur1_c, cxios_duration dur2_c) 
     73  TRY 
    5974  { 
    6075    xios::CDuration dur1( dur1_c.year, dur1_c.month, dur1_c.day, dur1_c.hour, dur1_c.minute, dur1_c.second, dur1_c.timestep ); 
    … …  
    6277    return (dur1 == dur2); 
    6378  } 
     79  CATCH_DUMP_STACK 
    6480 
    6581  bool cxios_duration_neq(cxios_duration dur1_c, cxios_duration dur2_c) 
     82  TRY 
    6683  { 
    6784    xios::CDuration dur1( dur1_c.year, dur1_c.month, dur1_c.day, dur1_c.hour, dur1_c.minute, dur1_c.second, dur1_c.timestep ); 
    … …  
    6986    return (dur1 != dur2); 
    7087  } 
     88  CATCH_DUMP_STACK 
    7189} 

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

    r1542 r1646  
    2727   // ------------------------ Création des handle ----------------------------- 
    2828   void cxios_expand_domain_handle_create(XExpandDomainPtr * _ret, const char * _id, int _id_len) 
     29   TRY 
    2930   { 
    3031      std::string id; 
    … …  
    3435      CTimer::get("XIOS").suspend() ; 
    3536   } 
     37   CATCH_DUMP_STACK 
    3638 
    3739   // -------------------- Vérification des identifiants ----------------------- 
    3840   void cxios_expand_domain_valid_id(bool * _ret, const char * _id, int _id_len) 
     41   TRY 
    3942   { 
    4043      std::string id; 
    … …  
    4548      CTimer::get("XIOS").suspend() ; 
    4649   } 
     50   CATCH_DUMP_STACK 
    4751} // extern "C" 

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

    r1542 r1646  
    2626   // ------------------------ Création des handle ----------------------------- 
    2727   void cxios_extract_domain_to_axis_handle_create(XExtractDomainToAxisPtr * _ret, const char * _id, int _id_len) 
     28   TRY 
    2829   { 
    2930      std::string id; 
    … …  
    3334      CTimer::get("XIOS").suspend() ; 
    3435   } 
     36   CATCH_DUMP_STACK 
    3537 
    3638   // -------------------- Vérification des identifiants ----------------------- 
    3739   void cxios_extract_domain_to_axis_valid_id(bool * _ret, const char * _id, int _id_len) 
     40   TRY 
    3841   { 
    3942      std::string id; 
    … …  
    4447      CTimer::get("XIOS").suspend() ; 
    4548   } 
     49   CATCH_DUMP_STACK 
    4650 
    4751} // extern "C" 

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

    r1542 r1646  
    2626   // ------------------------ Création des handle ----------------------------- 
    2727   void cxios_extract_axis_to_scalar_handle_create(XExtractAxisToScalarPtr * _ret, const char * _id, int _id_len) 
     28   TRY 
    2829   { 
    2930      std::string id; 
    … …  
    3334      CTimer::get("XIOS").suspend() ; 
    3435   } 
     36   CATCH_DUMP_STACK 
    3537 
    3638   // -------------------- Vérification des identifiants ----------------------- 
    3739   void cxios_extract_axis_to_scalar_valid_id(bool * _ret, const char * _id, int _id_len) 
     40   TRY 
    3841   { 
    3942      std::string id; 
    … …  
    4447      CTimer::get("XIOS").suspend() ; 
    4548   } 
     49   CATCH_DUMP_STACK 
    4650 
    4751} // extern "C" 

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

    r1542 r1646  
    3535    
    3636   void cxios_field_handle_create (XFieldPtr * _ret, const char * _id, int _id_len) 
     37   TRY 
    3738   { 
    3839      std::string id;  
    … …  
    4243      CTimer::get("XIOS").suspend() ; 
    4344   } 
     45   CATCH_DUMP_STACK 
    4446    
    4547   void cxios_fieldgroup_handle_create (XFieldGroupPtr * _ret, const char * _id, int _id_len) 
     48   TRY 
    4649   { 
    4750      std::string id;  
    … …  
    5154      CTimer::get("XIOS").suspend() ; 
    5255   } 
    53  
     56   CATCH_DUMP_STACK 
    5457 
    5558   // -------------------- Vérification des identifiants ----------------------- 
    5659 
    5760   void cxios_field_valid_id (bool * _ret, const char * _id, int _id_len) 
     61   TRY 
    5862   { 
    5963      std::string id; 
    … …  
    6367      CTimer::get("XIOS").suspend() ; 
    6468   } 
     69   CATCH_DUMP_STACK 
    6570 
    6671   void cxios_fieldgroup_valid_id (bool * _ret, const char * _id, int _id_len) 
     72   TRY 
    6773   { 
    6874      std::string id; 
    … …  
    7278      CTimer::get("XIOS").suspend() ; 
    7379   } 
     80   CATCH_DUMP_STACK 
    7481 
    7582// -----------------------------------------------------------------------------------------------------    
    … …  
    7885 
    7986  void cxios_field_is_active (XFieldPtr field_hdl, bool at_current_timestep, bool* ret) 
     87  TRY 
    8088  { 
    8189    CTimer::get("XIOS").resume() ; 
    … …  
    8391    CTimer::get("XIOS").suspend() ; 
    8492  } 
     93  CATCH_DUMP_STACK 
    8594 
    8695// ----------------------------------------------------------------------------------------------------- 
    … …  
    8897// ----------------------------------------------------------------------------------------------------- 
    8998  void cxios_field_get_domain_handle(XDomainPtr * domain_hdl_ret, XFieldPtr field_hdl, int domainIndex) 
     99  TRY 
    90100  { 
    91101     CTimer::get("XIOS").resume() ; 
    … …  
    93103     CTimer::get("XIOS").suspend(); 
    94104  } 
     105  CATCH_DUMP_STACK 
    95106 
    96107  void cxios_field_get_axis_handle(XAxisPtr * axis_hdl_ret, XFieldPtr field_hdl, int axisIndex) 
     108  TRY 
    97109  { 
    98110     CTimer::get("XIOS").resume() ; 
    … …  
    100112     CTimer::get("XIOS").suspend(); 
    101113  } 
     114  CATCH_DUMP_STACK 
    102115 
    103116  void cxios_field_get_scalar_handle(XScalarPtr * scalar_hdl_ret, XFieldPtr field_hdl, int scalarIndex) 
     117  TRY 
    104118  { 
    105119     CTimer::get("XIOS").resume() ; 
    … …  
    107121     CTimer::get("XIOS").suspend(); 
    108122  } 
     123  CATCH_DUMP_STACK 
    109124} // extern "C" 

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

    r1542 r1646  
    2828    
    2929   void cxios_file_handle_create (XFilePtr * _ret, const char * _id, int _id_len) 
     30   TRY 
    3031   { 
    3132      std::string id;  
    … …  
    3536      CTimer::get("XIOS").suspend() ; 
    3637   } 
     38   CATCH_DUMP_STACK 
    3739    
    3840   void cxios_filegroup_handle_create (XFileGroupPtr * _ret, const char * _id, int _id_len) 
     41   TRY 
    3942   { 
    4043      std::string id;  
    … …  
    4447      CTimer::get("XIOS").suspend() ; 
    4548   } 
     49   CATCH_DUMP_STACK 
    4650 
    4751   // -------------------- Vérification des identifiants ----------------------- 
    4852 
    4953   void cxios_file_valid_id (bool * _ret, const char * _id, int _id_len) 
     54   TRY 
    5055   { 
    5156      std::string id; 
    … …  
    5560      CTimer::get("XIOS").suspend() ; 
    5661   } 
     62   CATCH_DUMP_STACK 
    5763 
    5864   void cxios_filegroup_valid_id (bool * _ret, const char * _id, int _id_len) 
     65   TRY 
    5966   { 
    6067      std::string id; 
    … …  
    6471      CTimer::get("XIOS").suspend() ; 
    6572   } 
     73   CATCH_DUMP_STACK 
    6674} // extern "C" 

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

    r1542 r1646  
    2727   // ------------------------ Création des handle ----------------------------- 
    2828   void cxios_generate_rectilinear_domain_handle_create(XGenDomainPtr * _ret, const char * _id, int _id_len) 
     29   TRY 
    2930   { 
    3031      std::string id; 
    … …  
    3435      CTimer::get("XIOS").suspend() ; 
    3536   } 
     37   CATCH_DUMP_STACK 
    3638 
    3739   // -------------------- Vérification des identifiants ----------------------- 
    3840   void cxios_generate_rectilinear_domain_valid_id(bool * _ret, const char * _id, int _id_len) 
     41   TRY 
    3942   { 
    4043      std::string id; 
    … …  
    4548      CTimer::get("XIOS").suspend() ; 
    4649   } 
     50   CATCH_DUMP_STACK 
    4751} // extern "C" 

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

    r1542 r1646  
    2727   
    2828   void cxios_grid_handle_create (XGridPtr * _ret, const char * _id, int _id_len) 
     29   TRY 
    2930   { 
    3031      std::string id;  
    … …  
    3435      CTimer::get("XIOS").suspend() ; 
    3536   } 
     37   CATCH_DUMP_STACK 
    3638    
    3739   void cxios_gridgroup_handle_create (XGridGroupPtr * _ret, const char * _id, int _id_len) 
     40   TRY 
    3841   { 
    3942      std::string id;  
    … …  
    4346      CTimer::get("XIOS").suspend() ; 
    4447   } 
     48   CATCH_DUMP_STACK 
    4549 
    4650   // -------------------- Vérification des identifiants ----------------------- 
    4751 
    4852   void cxios_grid_valid_id (bool * _ret, const char * _id, int _id_len) 
     53   TRY 
    4954   { 
    5055      std::string id; 
    … …  
    5459      CTimer::get("XIOS").suspend() ; 
    5560   } 
     61   CATCH_DUMP_STACK 
    5662 
    5763   void cxios_gridgroup_valid_id (bool * _ret, const char * _id, int _id_len) 
     64   TRY 
    5865   { 
    5966      std::string id; 
    … …  
    6370      CTimer::get("XIOS").suspend() ; 
    6471   } 
     72   CATCH_DUMP_STACK 
    6573} // extern "C" 

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

    r1542 r1646  
    2727   // ------------------------ Création des handle ----------------------------- 
    2828   void cxios_interpolate_domain_handle_create(XInterpolateDomainPtr * _ret, const char * _id, int _id_len) 
     29   TRY 
    2930   { 
    3031      std::string id; 
    … …  
    3435      CTimer::get("XIOS").suspend() ; 
    3536   } 
     37   CATCH_DUMP_STACK 
    3638 
    3739   // -------------------- Vérification des identifiants ----------------------- 
    3840   void cxios_interpolate_domain_valid_id(bool * _ret, const char * _id, int _id_len) 
     41   TRY 
    3942   { 
    4043      std::string id; 
    … …  
    4548      CTimer::get("XIOS").suspend() ; 
    4649   } 
     50   CATCH_DUMP_STACK 
    4751 
    4852    // ------------------------ Création des handle ----------------------------- 
    4953   void cxios_interpolate_axis_handle_create(XInterpolateAxisPtr * _ret, const char * _id, int _id_len) 
     54   TRY 
    5055   { 
    5156      std::string id; 
    … …  
    5560      CTimer::get("XIOS").suspend() ; 
    5661   } 
     62   CATCH_DUMP_STACK 
    5763 
    5864   // -------------------- Vérification des identifiants ----------------------- 
    5965   void cxios_interpolate_axis_valid_id(bool * _ret, const char * _id, int _id_len) 
     66   TRY 
    6067   { 
    6168      std::string id; 
    … …  
    6673      CTimer::get("XIOS").suspend() ; 
    6774   } 
     75   CATCH_DUMP_STACK 
    6876} // extern "C" 

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

    r1542 r1646  
    2727   // ------------------------ Création des handle ----------------------------- 
    2828   void cxios_inverse_axis_handle_create(XInverseAxisPtr * _ret, const char * _id, int _id_len) 
     29   TRY 
    2930   { 
    3031      std::string id; 
    … …  
    3435      CTimer::get("XIOS").suspend() ; 
    3536   } 
     37   CATCH_DUMP_STACK 
    3638 
    3739   // -------------------- Vérification des identifiants ----------------------- 
    3840   void cxios_inverse_axis_valid_id(bool * _ret, const char * _id, int _id_len) 
     41   TRY 
    3942   { 
    4043      std::string id; 
    … …  
    4548      CTimer::get("XIOS").suspend() ; 
    4649   } 
     50   CATCH_DUMP_STACK 
    4751} // extern "C" 

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

    r1542 r1646  
    2727   // ------------------------ Création des handle ----------------------------- 
    2828   void cxios_reduce_axis_to_axis_handle_create(XReduceAxisToAxisPtr * _ret, const char * _id, int _id_len) 
     29   TRY 
    2930   { 
    3031      std::string id; 
    … …  
    3435      CTimer::get("XIOS").suspend() ; 
    3536   } 
     37   CATCH_DUMP_STACK 
    3638 
    3739   // -------------------- Vérification des identifiants ----------------------- 
    3840   void cxios_reduce_axis_to_axis_valid_id(bool * _ret, const char * _id, int _id_len) 
     41   TRY 
    3942   { 
    4043      std::string id; 
    … …  
    4548      CTimer::get("XIOS").suspend() ; 
    4649   } 
     50   CATCH_DUMP_STACK 
    4751 
    4852} // extern "C" 

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

    r1542 r1646  
    2727   // ------------------------ Création des handle ----------------------------- 
    2828   void cxios_reduce_scalar_to_scalar_handle_create(XReduceScalarToScalarPtr * _ret, const char * _id, int _id_len) 
     29   TRY 
    2930   { 
    3031      std::string id; 
    … …  
    3435      CTimer::get("XIOS").suspend() ; 
    3536   } 
     37   CATCH_DUMP_STACK 
    3638 
    3739   // -------------------- Vérification des identifiants ----------------------- 
    3840   void cxios_reduce_scalar_to_scalar_valid_id(bool * _ret, const char * _id, int _id_len) 
     41   TRY 
    3942   { 
    4043      std::string id; 
    … …  
    4548      CTimer::get("XIOS").suspend() ; 
    4649   } 
     50   CATCH_DUMP_STACK 
    4751 
    4852} // extern "C" 

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

    r1542 r1646  
    2727   // ------------------------ Création des handle ----------------------------- 
    2828   void cxios_reduce_domain_to_axis_handle_create(XReduceDomainToAxisPtr * _ret, const char * _id, int _id_len) 
     29   TRY 
    2930   { 
    3031      std::string id; 
    … …  
    3435      CTimer::get("XIOS").suspend() ; 
    3536   } 
     37   CATCH_DUMP_STACK 
    3638 
    3739   // -------------------- Vérification des identifiants ----------------------- 
    3840   void cxios_reduce_domain_to_axis_valid_id(bool * _ret, const char * _id, int _id_len) 
     41   TRY 
    3942   { 
    4043      std::string id; 
    … …  
    4548      CTimer::get("XIOS").suspend() ; 
    4649   } 
     50   CATCH_DUMP_STACK 
    4751 
    4852} // extern "C" 

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

    r1542 r1646  
    2727   // ------------------------ Création des handle ----------------------------- 
    2828   void cxios_reduce_axis_to_scalar_handle_create(XReduceAxisToScalarPtr * _ret, const char * _id, int _id_len) 
     29   TRY 
    2930   { 
    3031      std::string id; 
    … …  
    3435      CTimer::get("XIOS").suspend() ; 
    3536   } 
     37   CATCH_DUMP_STACK 
    3638 
    3739   // -------------------- Vérification des identifiants ----------------------- 
    3840   void cxios_reduce_axis_to_scalar_valid_id(bool * _ret, const char * _id, int _id_len) 
     41   TRY 
    3942   { 
    4043      std::string id; 
    … …  
    4548      CTimer::get("XIOS").suspend() ; 
    4649   } 
     50   CATCH_DUMP_STACK 
    4751 
    4852   void cxios_reduce_domain_to_scalar_handle_create(XReduceDomainToScalarPtr * _ret, const char * _id, int _id_len) 
     53   TRY 
    4954   { 
    5055      std::string id; 
    … …  
    5459      CTimer::get("XIOS").suspend() ; 
    5560   } 
     61   CATCH_DUMP_STACK 
    5662 
    5763   // -------------------- Vérification des identifiants ----------------------- 
    5864   void cxios_reduce_domain_to_scalar_valid_id(bool * _ret, const char * _id, int _id_len) 
     65   TRY 
    5966   { 
    6067      std::string id; 
    … …  
    6572      CTimer::get("XIOS").suspend() ; 
    6673   } 
     74   CATCH_DUMP_STACK 
    6775 
    6876} // extern "C" 

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

    r1542 r1646  
    2727   // ------------------------ Création des handle ----------------------------- 
    2828   void cxios_reorder_domain_handle_create(XReorderDomainPtr * _ret, const char * _id, int _id_len) 
     29   TRY 
    2930   { 
    3031      std::string id; 
    … …  
    3435      CTimer::get("XIOS").suspend() ; 
    3536   } 
     37   CATCH_DUMP_STACK 
    3638 
    3739   // -------------------- Vérification des identifiants ----------------------- 
    3840   void cxios_reorder_domain_valid_id(bool * _ret, const char * _id, int _id_len) 
     41   TRY 
    3942   { 
    4043      std::string id; 
    … …  
    4548      CTimer::get("XIOS").suspend() ; 
    4649   } 
     50   CATCH_DUMP_STACK 
    4751} // extern "C" 

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

    r1542 r1646  
    2828 
    2929   void cxios_scalar_handle_create (XScalarPtr * _ret, const char * _id, int _id_len) 
     30   TRY 
    3031   { 
    3132      std::string id; 
    … …  
    3536      CTimer::get("XIOS").suspend() ; 
    3637   } 
     38   CATCH_DUMP_STACK 
    3739 
    3840   void cxios_scalargroup_handle_create (XScalarGroupPtr * _ret, const char * _id, int _id_len) 
     41   TRY 
    3942   { 
    4043      std::string id; 
    … …  
    4447      CTimer::get("XIOS").suspend() ; 
    4548    } 
     49   CATCH_DUMP_STACK 
    4650 
    4751   // -------------------- Vérification des identifiants ----------------------- 
    4852 
    4953   void cxios_scalar_valid_id (bool * _ret, const char * _id, int _id_len) 
     54   TRY 
    5055   { 
    5156      std::string id; 
    … …  
    5661      CTimer::get("XIOS").suspend() ; 
    5762   } 
     63   CATCH_DUMP_STACK 
    5864 
    5965   void cxios_scalargroup_valid_id (bool * _ret, const char * _id, int _id_len) 
     66   TRY 
    6067   { 
    6168      std::string id; 
    … …  
    6774 
    6875   } 
     76   CATCH_DUMP_STACK 
    6977 
    7078} // extern "C" 

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

    r1542 r1646  
    2727   // ------------------------ Création des handle ----------------------------- 
    2828   void cxios_temporal_splitting_handle_create(XTemporalSplittingPtr * _ret, const char * _id, int _id_len) 
     29   TRY 
    2930   { 
    3031      std::string id; 
    … …  
    3435      CTimer::get("XIOS").suspend() ; 
    3536   } 
     37   CATCH_DUMP_STACK 
    3638 
    3739   // -------------------- Vérification des identifiants ----------------------- 
    3840   void cxios_temporal_splitting_valid_id(bool * _ret, const char * _id, int _id_len) 
     41   TRY 
    3942   { 
    4043      std::string id; 
    … …  
    4548      CTimer::get("XIOS").suspend() ; 
    4649   } 
     50   CATCH_DUMP_STACK 
    4751 
    4852} // extern "C" 

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

    r1542 r1646  
    2929    
    3030   void cxios_variable_handle_create (XVariablePtr * _ret, const char * _id, int _id_len) 
     31   TRY 
    3132   { 
    3233      std::string id;  
    … …  
    3637      CTimer::get("XIOS").suspend() ; 
    3738   } 
     39   CATCH_DUMP_STACK 
    3840    
    3941   void cxios_variablegroup_handle_create (XVariableGroupPtr * _ret, const char * _id, int _id_len) 
     42   TRY 
    4043   { 
    4144      std::string id;  
    … …  
    4548      CTimer::get("XIOS").suspend() ; 
    4649    } 
     50   CATCH_DUMP_STACK 
    4751 
    4852   // -------------------- Vérification des identifiants ----------------------- 
    4953 
    5054   void cxios_variable_valid_id (bool * _ret, const char * _id, int _id_len) 
     55   TRY 
    5156   { 
    5257      std::string id; 
    … …  
    5762      CTimer::get("XIOS").suspend() ; 
    5863   } 
     64   CATCH_DUMP_STACK 
    5965 
    6066   void cxios_variablegroup_valid_id (bool * _ret, const char * _id, int _id_len) 
     67   TRY 
    6168   { 
    6269      std::string id; 
    … …  
    6875 
    6976   } 
     77   CATCH_DUMP_STACK 
    7078    
    7179} // extern "C" 

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

    r1542 r1646  
    2828   // ------------------------ Création des handle ----------------------------- 
    2929   void cxios_zoom_axis_handle_create (XZoomAxisPtr * _ret, const char * _id, int _id_len) 
     30   TRY 
    3031   { 
    3132      std::string id; 
    … …  
    3536      CTimer::get("XIOS").suspend() ; 
    3637   } 
     38   CATCH_DUMP_STACK 
    3739 
    3840   // -------------------- Vérification des identifiants ----------------------- 
    3941   void cxios_zoom_axis_valid_id (bool * _ret, const char * _id, int _id_len) 
     42   TRY 
    4043   { 
    4144      std::string id; 
    … …  
    4649      CTimer::get("XIOS").suspend() ; 
    4750   } 
     51   CATCH_DUMP_STACK 
    4852 
    4953   // ------------------------ Création des handle ----------------------------- 
    5054   void cxios_zoom_domain_handle_create(XZoomDomainPtr * _ret, const char * _id, int _id_len) 
     55   TRY 
    5156   { 
    5257      std::string id; 
    … …  
    5661      CTimer::get("XIOS").suspend() ; 
    5762   } 
     63   CATCH_DUMP_STACK 
    5864 
    5965   // -------------------- Vérification des identifiants ----------------------- 
    6066   void cxios_zoom_domain_valid_id(bool * _ret, const char * _id, int _id_len) 
     67   TRY 
    6168   { 
    6269      std::string id; 
    … …  
    6774      CTimer::get("XIOS").suspend() ; 
    6875   } 
     76   CATCH_DUMP_STACK 
    6977} // extern "C" 

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

    r1601 r1646  
    11#include "oasis_cinterface.hpp" 
    22#include <string> 
     3#ifdef _usingEP 
    34using namespace ep_lib; 
     5#endif 
    46 
    57namespace xios 

  • XIOS/dev/dev_trunk_omp/src/interface/c_attr/icaxis_attr.cpp

    r1542 r1646  
    44 
    55#include <boost/multi_array.hpp> 
    6 #include <memory> 
    76#include "xios.hpp" 
    87#include "attribute_template.hpp" 

  • XIOS/dev/dev_trunk_omp/src/interface/c_attr/icaxisgroup_attr.cpp

    r1542 r1646  
    44 
    55#include <boost/multi_array.hpp> 
    6 #include <memory> 
    76#include "xios.hpp" 
    87#include "attribute_template.hpp" 

  • XIOS/dev/dev_trunk_omp/src/interface/c_attr/iccalendar_wrapper_attr.cpp

    r1542 r1646  
    44 
    55#include <boost/multi_array.hpp> 
    6 #include <memory> 
    76#include "xios.hpp" 
    87#include "attribute_template.hpp" 

  • XIOS/dev/dev_trunk_omp/src/interface/c_attr/iccompute_connectivity_domain_attr.cpp

    r1542 r1646  
    44 
    55#include <boost/multi_array.hpp> 
    6 #include <memory> 
    76#include "xios.hpp" 
    87#include "attribute_template.hpp" 

  • XIOS/dev/dev_trunk_omp/src/interface/c_attr/iccontext_attr.cpp

    r1542 r1646  
    44 
    55#include <boost/multi_array.hpp> 
    6 #include <memory> 
    76#include "xios.hpp" 
    87#include "attribute_template.hpp" 

  • XIOS/dev/dev_trunk_omp/src/interface/c_attr/icdomain_attr.cpp

    r1542 r1646  
    44 
    55#include <boost/multi_array.hpp> 
    6 #include <memory> 
    76#include "xios.hpp" 
    87#include "attribute_template.hpp" 
    … …  
    952951 
    953952 
     953  void cxios_set_domain_radius(domain_Ptr domain_hdl, double radius) 
     954  { 
     955    CTimer::get("XIOS").resume(); 
     956    domain_hdl->radius.setValue(radius); 
     957    CTimer::get("XIOS").suspend(); 
     958  } 
     959 
     960  void cxios_get_domain_radius(domain_Ptr domain_hdl, double* radius) 
     961  { 
     962    CTimer::get("XIOS").resume(); 
     963    *radius = domain_hdl->radius.getInheritedValue(); 
     964    CTimer::get("XIOS").suspend(); 
     965  } 
     966 
     967  bool cxios_is_defined_domain_radius(domain_Ptr domain_hdl) 
     968  { 
     969     CTimer::get("XIOS").resume(); 
     970     bool isDefined = domain_hdl->radius.hasInheritedValue(); 
     971     CTimer::get("XIOS").suspend(); 
     972     return isDefined; 
     973  } 
     974 
     975 
    954976  void cxios_set_domain_standard_name(domain_Ptr domain_hdl, const char * standard_name, int standard_name_size) 
    955977  { 

  • XIOS/dev/dev_trunk_omp/src/interface/c_attr/icdomaingroup_attr.cpp

    r1542 r1646  
    44 
    55#include <boost/multi_array.hpp> 
    6 #include <memory> 
    76#include "xios.hpp" 
    87#include "attribute_template.hpp" 
    … …  
    978977 
    979978 
     979  void cxios_set_domaingroup_radius(domaingroup_Ptr domaingroup_hdl, double radius) 
     980  { 
     981    CTimer::get("XIOS").resume(); 
     982    domaingroup_hdl->radius.setValue(radius); 
     983    CTimer::get("XIOS").suspend(); 
     984  } 
     985 
     986  void cxios_get_domaingroup_radius(domaingroup_Ptr domaingroup_hdl, double* radius) 
     987  { 
     988    CTimer::get("XIOS").resume(); 
     989    *radius = domaingroup_hdl->radius.getInheritedValue(); 
     990    CTimer::get("XIOS").suspend(); 
     991  } 
     992 
     993  bool cxios_is_defined_domaingroup_radius(domaingroup_Ptr domaingroup_hdl) 
     994  { 
     995     CTimer::get("XIOS").resume(); 
     996     bool isDefined = domaingroup_hdl->radius.hasInheritedValue(); 
     997     CTimer::get("XIOS").suspend(); 
     998     return isDefined; 
     999  } 
     1000 
     1001 
    9801002  void cxios_set_domaingroup_standard_name(domaingroup_Ptr domaingroup_hdl, const char * standard_name, int standard_name_size) 
    9811003  { 

  • XIOS/dev/dev_trunk_omp/src/interface/c_attr/icduplicate_scalar_to_axis_attr.cpp

    r1542 r1646  
    44 
    55#include <boost/multi_array.hpp> 
    6 #include <memory> 
    76#include "xios.hpp" 
    87#include "attribute_template.hpp" 

  • XIOS/dev/dev_trunk_omp/src/interface/c_attr/icexpand_domain_attr.cpp

    r1542 r1646  
    44 
    55#include <boost/multi_array.hpp> 
    6 #include <memory> 
    76#include "xios.hpp" 
    87#include "attribute_template.hpp" 

  • XIOS/dev/dev_trunk_omp/src/interface/c_attr/icextract_axis_to_scalar_attr.cpp

    r1542 r1646  
    44 
    55#include <boost/multi_array.hpp> 
    6 #include <memory> 
    76#include "xios.hpp" 
    87#include "attribute_template.hpp" 

  • XIOS/dev/dev_trunk_omp/src/interface/c_attr/icextract_domain_to_axis_attr.cpp

    r1542 r1646  
    44 
    55#include <boost/multi_array.hpp> 
    6 #include <memory> 
    76#include "xios.hpp" 
    87#include "attribute_template.hpp" 

  • XIOS/dev/dev_trunk_omp/src/interface/c_attr/icfield_attr.cpp

    r1542 r1646  
    44 
    55#include <boost/multi_array.hpp> 
    6 #include <memory> 
    76#include "xios.hpp" 
    87#include "attribute_template.hpp" 

  • XIOS/dev/dev_trunk_omp/src/interface/c_attr/icfieldgroup_attr.cpp

    r1542 r1646  
    44 
    55#include <boost/multi_array.hpp> 
    6 #include <memory> 
    76#include "xios.hpp" 
    87#include "attribute_template.hpp" 

  • XIOS/dev/dev_trunk_omp/src/interface/c_attr/icfile_attr.cpp

    r1542 r1646  
    44 
    55#include <boost/multi_array.hpp> 
    6 #include <memory> 
    76#include "xios.hpp" 
    87#include "attribute_template.hpp" 

  • XIOS/dev/dev_trunk_omp/src/interface/c_attr/icfilegroup_attr.cpp

    r1542 r1646  
    44 
    55#include <boost/multi_array.hpp> 
    6 #include <memory> 
    76#include "xios.hpp" 
    87#include "attribute_template.hpp" 

  • XIOS/dev/dev_trunk_omp/src/interface/c_attr/icgenerate_rectilinear_domain_attr.cpp

    r1542 r1646  
    44 
    55#include <boost/multi_array.hpp> 
    6 #include <memory> 
    76#include "xios.hpp" 
    87#include "attribute_template.hpp" 

  • XIOS/dev/dev_trunk_omp/src/interface/c_attr/icgrid_attr.cpp

    r1542 r1646  
    44 
    55#include <boost/multi_array.hpp> 
    6 #include <memory> 
    76#include "xios.hpp" 
    87#include "attribute_template.hpp" 

  • XIOS/dev/dev_trunk_omp/src/interface/c_attr/icgridgroup_attr.cpp

    r1542 r1646  
    44 
    55#include <boost/multi_array.hpp> 
    6 #include <memory> 
    76#include "xios.hpp" 
    87#include "attribute_template.hpp" 

  • XIOS/dev/dev_trunk_omp/src/interface/c_attr/icinterpolate_axis_attr.cpp

    r1542 r1646  
    44 
    55#include <boost/multi_array.hpp> 
    6 #include <memory> 
    76#include "xios.hpp" 
    87#include "attribute_template.hpp" 

  • XIOS/dev/dev_trunk_omp/src/interface/c_attr/icinterpolate_domain_attr.cpp

    r1542 r1646  
    44 
    55#include <boost/multi_array.hpp> 
    6 #include <memory> 
    76#include "xios.hpp" 
    87#include "attribute_template.hpp" 
    … …  
    162161 
    163162 
     163  void cxios_set_interpolate_domain_use_area(interpolate_domain_Ptr interpolate_domain_hdl, bool use_area) 
     164  { 
     165    CTimer::get("XIOS").resume(); 
     166    interpolate_domain_hdl->use_area.setValue(use_area); 
     167    CTimer::get("XIOS").suspend(); 
     168  } 
     169 
     170  void cxios_get_interpolate_domain_use_area(interpolate_domain_Ptr interpolate_domain_hdl, bool* use_area) 
     171  { 
     172    CTimer::get("XIOS").resume(); 
     173    *use_area = interpolate_domain_hdl->use_area.getInheritedValue(); 
     174    CTimer::get("XIOS").suspend(); 
     175  } 
     176 
     177  bool cxios_is_defined_interpolate_domain_use_area(interpolate_domain_Ptr interpolate_domain_hdl) 
     178  { 
     179     CTimer::get("XIOS").resume(); 
     180     bool isDefined = interpolate_domain_hdl->use_area.hasInheritedValue(); 
     181     CTimer::get("XIOS").suspend(); 
     182     return isDefined; 
     183  } 
     184 
     185 
    164186  void cxios_set_interpolate_domain_weight_filename(interpolate_domain_Ptr interpolate_domain_hdl, const char * weight_filename, int weight_filename_size) 
    165187  { 

  • XIOS/dev/dev_trunk_omp/src/interface/c_attr/icinverse_axis_attr.cpp

    r1542 r1646  
    44 
    55#include <boost/multi_array.hpp> 
    6 #include <memory> 
    76#include "xios.hpp" 
    87#include "attribute_template.hpp" 

  • XIOS/dev/dev_trunk_omp/src/interface/c_attr/icreduce_axis_to_axis_attr.cpp

    r1542 r1646  
    44 
    55#include <boost/multi_array.hpp> 
    6 #include <memory> 
    76#include "xios.hpp" 
    87#include "attribute_template.hpp" 

  • XIOS/dev/dev_trunk_omp/src/interface/c_attr/icreduce_axis_to_scalar_attr.cpp

    r1542 r1646  
    44 
    55#include <boost/multi_array.hpp> 
    6 #include <memory> 
    76#include "xios.hpp" 
    87#include "attribute_template.hpp" 

  • XIOS/dev/dev_trunk_omp/src/interface/c_attr/icreduce_domain_to_axis_attr.cpp

    r1542 r1646  
    44 
    55#include <boost/multi_array.hpp> 
    6 #include <memory> 
    76#include "xios.hpp" 
    87#include "attribute_template.hpp" 

  • XIOS/dev/dev_trunk_omp/src/interface/c_attr/icreduce_domain_to_scalar_attr.cpp

    r1542 r1646  
    44 
    55#include <boost/multi_array.hpp> 
    6 #include <memory> 
    76#include "xios.hpp" 
    87#include "attribute_template.hpp" 

  • XIOS/dev/dev_trunk_omp/src/interface/c_attr/icreduce_scalar_to_scalar_attr.cpp

    r1542 r1646  
    44 
    55#include <boost/multi_array.hpp> 
    6 #include <memory> 
    76#include "xios.hpp" 
    87#include "attribute_template.hpp" 

  • XIOS/dev/dev_trunk_omp/src/interface/c_attr/icreorder_domain_attr.cpp

    r1542 r1646  
    44 
    55#include <boost/multi_array.hpp> 
    6 #include <memory> 
    76#include "xios.hpp" 
    87#include "attribute_template.hpp" 

  • XIOS/dev/dev_trunk_omp/src/interface/c_attr/icscalar_attr.cpp

    r1542 r1646  
    44 
    55#include <boost/multi_array.hpp> 
    6 #include <memory> 
    76#include "xios.hpp" 
    87#include "attribute_template.hpp" 

  • XIOS/dev/dev_trunk_omp/src/interface/c_attr/icscalargroup_attr.cpp

    r1542 r1646  
    44 
    55#include <boost/multi_array.hpp> 
    6 #include <memory> 
    76#include "xios.hpp" 
    87#include "attribute_template.hpp" 

  • XIOS/dev/dev_trunk_omp/src/interface/c_attr/ictemporal_splitting_attr.cpp

    r1542 r1646  
    44 
    55#include <boost/multi_array.hpp> 
    6 #include <memory> 
    76#include "xios.hpp" 
    87#include "attribute_template.hpp" 

  • XIOS/dev/dev_trunk_omp/src/interface/c_attr/icvariable_attr.cpp

    r1542 r1646  
    44 
    55#include <boost/multi_array.hpp> 
    6 #include <memory> 
    76#include "xios.hpp" 
    87#include "attribute_template.hpp" 

  • XIOS/dev/dev_trunk_omp/src/interface/c_attr/icvariablegroup_attr.cpp

    r1542 r1646  
    44 
    55#include <boost/multi_array.hpp> 
    6 #include <memory> 
    76#include "xios.hpp" 
    87#include "attribute_template.hpp" 

  • XIOS/dev/dev_trunk_omp/src/interface/c_attr/iczoom_axis_attr.cpp

    r1542 r1646  
    44 
    55#include <boost/multi_array.hpp> 
    6 #include <memory> 
    76#include "xios.hpp" 
    87#include "attribute_template.hpp" 

  • XIOS/dev/dev_trunk_omp/src/interface/c_attr/iczoom_domain_attr.cpp

    r1542 r1646  
    44 
    55#include <boost/multi_array.hpp> 
    6 #include <memory> 
    76#include "xios.hpp" 
    87#include "attribute_template.hpp" 

  • XIOS/dev/dev_trunk_omp/src/interface/fortran_attr/domain_interface_attr.F90

    r1492 r1646  
    782782 
    783783 
     784    SUBROUTINE cxios_set_domain_radius(domain_hdl, radius) BIND(C) 
     785      USE ISO_C_BINDING 
     786      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
     787      REAL (KIND=C_DOUBLE)      , VALUE :: radius 
     788    END SUBROUTINE cxios_set_domain_radius 
     789 
     790    SUBROUTINE cxios_get_domain_radius(domain_hdl, radius) BIND(C) 
     791      USE ISO_C_BINDING 
     792      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
     793      REAL (KIND=C_DOUBLE)             :: radius 
     794    END SUBROUTINE cxios_get_domain_radius 
     795 
     796    FUNCTION cxios_is_defined_domain_radius(domain_hdl) BIND(C) 
     797      USE ISO_C_BINDING 
     798      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_radius 
     799      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
     800    END FUNCTION cxios_is_defined_domain_radius 
     801 
     802 
    784803    SUBROUTINE cxios_set_domain_standard_name(domain_hdl, standard_name, standard_name_size) BIND(C) 
    785804      USE ISO_C_BINDING 

  • XIOS/dev/dev_trunk_omp/src/interface/fortran_attr/domaingroup_interface_attr.F90

    r1492 r1646  
    803803 
    804804 
     805    SUBROUTINE cxios_set_domaingroup_radius(domaingroup_hdl, radius) BIND(C) 
     806      USE ISO_C_BINDING 
     807      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 
     808      REAL (KIND=C_DOUBLE)      , VALUE :: radius 
     809    END SUBROUTINE cxios_set_domaingroup_radius 
     810 
     811    SUBROUTINE cxios_get_domaingroup_radius(domaingroup_hdl, radius) BIND(C) 
     812      USE ISO_C_BINDING 
     813      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 
     814      REAL (KIND=C_DOUBLE)             :: radius 
     815    END SUBROUTINE cxios_get_domaingroup_radius 
     816 
     817    FUNCTION cxios_is_defined_domaingroup_radius(domaingroup_hdl) BIND(C) 
     818      USE ISO_C_BINDING 
     819      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_radius 
     820      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 
     821    END FUNCTION cxios_is_defined_domaingroup_radius 
     822 
     823 
    805824    SUBROUTINE cxios_set_domaingroup_standard_name(domaingroup_hdl, standard_name, standard_name_size) BIND(C) 
    806825      USE ISO_C_BINDING 

  • XIOS/dev/dev_trunk_omp/src/interface/fortran_attr/idomain_attr.F90

    r1492 r1646  
    1616    , data_nj, dim_i_name, dim_j_name, domain_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d  & 
    1717    , latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo  & 
    18     , nj, nj_glo, nvertex, prec, standard_name, type ) 
     18    , nj, nj_glo, nvertex, prec, radius, standard_name, type ) 
    1919 
    2020    IMPLICIT NONE 
    … …  
    6161      INTEGER  , OPTIONAL, INTENT(IN) :: nvertex 
    6262      INTEGER  , OPTIONAL, INTENT(IN) :: prec 
     63      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: radius 
    6364      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name 
    6465      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type 
    … …  
    7172      , data_nj, dim_i_name, dim_j_name, domain_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d  & 
    7273      , latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo  & 
    73       , nj, nj_glo, nvertex, prec, standard_name, type ) 
     74      , nj, nj_glo, nvertex, prec, radius, standard_name, type ) 
    7475 
    7576  END SUBROUTINE xios(set_domain_attr) 
    … …  
    8081    , data_nj, dim_i_name, dim_j_name, domain_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d  & 
    8182    , latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo  & 
    82     , nj, nj_glo, nvertex, prec, standard_name, type ) 
     83    , nj, nj_glo, nvertex, prec, radius, standard_name, type ) 
    8384 
    8485    IMPLICIT NONE 
    … …  
    124125      INTEGER  , OPTIONAL, INTENT(IN) :: nvertex 
    125126      INTEGER  , OPTIONAL, INTENT(IN) :: prec 
     127      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: radius 
    126128      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name 
    127129      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type 
    … …  
    132134      , data_nj, dim_i_name, dim_j_name, domain_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d  & 
    133135      , latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo  & 
    134       , nj, nj_glo, nvertex, prec, standard_name, type ) 
     136      , nj, nj_glo, nvertex, prec, radius, standard_name, type ) 
    135137 
    136138  END SUBROUTINE xios(set_domain_attr_hdl) 
    … …  
    141143    , data_ni_, data_nj_, dim_i_name_, dim_j_name_, domain_ref_, i_index_, ibegin_, j_index_, jbegin_  & 
    142144    , lat_name_, latvalue_1d_, latvalue_2d_, lon_name_, long_name_, lonvalue_1d_, lonvalue_2d_, mask_1d_  & 
    143     , mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, nvertex_, prec_, standard_name_, type_ ) 
     145    , mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, nvertex_, prec_, radius_, standard_name_, type_  & 
     146     ) 
    144147 
    145148    IMPLICIT NONE 
    … …  
    185188      INTEGER  , OPTIONAL, INTENT(IN) :: nvertex_ 
    186189      INTEGER  , OPTIONAL, INTENT(IN) :: prec_ 
     190      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: radius_ 
    187191      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name_ 
    188192      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type_ 
    … …  
    382386      ENDIF 
    383387 
     388      IF (PRESENT(radius_)) THEN 
     389        CALL cxios_set_domain_radius & 
     390      (domain_hdl%daddr, radius_) 
     391      ENDIF 
     392 
    384393      IF (PRESENT(standard_name_)) THEN 
    385394        CALL cxios_set_domain_standard_name & 
    … …  
    399408    , data_nj, dim_i_name, dim_j_name, domain_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d  & 
    400409    , latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo  & 
    401     , nj, nj_glo, nvertex, prec, standard_name, type ) 
     410    , nj, nj_glo, nvertex, prec, radius, standard_name, type ) 
    402411 
    403412    IMPLICIT NONE 
    … …  
    444453      INTEGER  , OPTIONAL, INTENT(OUT) :: nvertex 
    445454      INTEGER  , OPTIONAL, INTENT(OUT) :: prec 
     455      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: radius 
    446456      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name 
    447457      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type 
    … …  
    454464      , data_nj, dim_i_name, dim_j_name, domain_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d  & 
    455465      , latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo  & 
    456       , nj, nj_glo, nvertex, prec, standard_name, type ) 
     466      , nj, nj_glo, nvertex, prec, radius, standard_name, type ) 
    457467 
    458468  END SUBROUTINE xios(get_domain_attr) 
    … …  
    463473    , data_nj, dim_i_name, dim_j_name, domain_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d  & 
    464474    , latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo  & 
    465     , nj, nj_glo, nvertex, prec, standard_name, type ) 
     475    , nj, nj_glo, nvertex, prec, radius, standard_name, type ) 
    466476 
    467477    IMPLICIT NONE 
    … …  
    507517      INTEGER  , OPTIONAL, INTENT(OUT) :: nvertex 
    508518      INTEGER  , OPTIONAL, INTENT(OUT) :: prec 
     519      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: radius 
    509520      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name 
    510521      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type 
    … …  
    515526      , data_nj, dim_i_name, dim_j_name, domain_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d  & 
    516527      , latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo  & 
    517       , nj, nj_glo, nvertex, prec, standard_name, type ) 
     528      , nj, nj_glo, nvertex, prec, radius, standard_name, type ) 
    518529 
    519530  END SUBROUTINE xios(get_domain_attr_hdl) 
    … …  
    524535    , data_ni_, data_nj_, dim_i_name_, dim_j_name_, domain_ref_, i_index_, ibegin_, j_index_, jbegin_  & 
    525536    , lat_name_, latvalue_1d_, latvalue_2d_, lon_name_, long_name_, lonvalue_1d_, lonvalue_2d_, mask_1d_  & 
    526     , mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, nvertex_, prec_, standard_name_, type_ ) 
     537    , mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, nvertex_, prec_, radius_, standard_name_, type_  & 
     538     ) 
    527539 
    528540    IMPLICIT NONE 
    … …  
    568580      INTEGER  , OPTIONAL, INTENT(OUT) :: nvertex_ 
    569581      INTEGER  , OPTIONAL, INTENT(OUT) :: prec_ 
     582      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: radius_ 
    570583      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name_ 
    571584      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type_ 
    … …  
    765778      ENDIF 
    766779 
     780      IF (PRESENT(radius_)) THEN 
     781        CALL cxios_get_domain_radius & 
     782      (domain_hdl%daddr, radius_) 
     783      ENDIF 
     784 
    767785      IF (PRESENT(standard_name_)) THEN 
    768786        CALL cxios_get_domain_standard_name & 
    … …  
    782800    , data_nj, dim_i_name, dim_j_name, domain_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d  & 
    783801    , latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo  & 
    784     , nj, nj_glo, nvertex, prec, standard_name, type ) 
     802    , nj, nj_glo, nvertex, prec, radius, standard_name, type ) 
    785803 
    786804    IMPLICIT NONE 
    … …  
    863881      LOGICAL, OPTIONAL, INTENT(OUT) :: prec 
    864882      LOGICAL(KIND=C_BOOL) :: prec_tmp 
     883      LOGICAL, OPTIONAL, INTENT(OUT) :: radius 
     884      LOGICAL(KIND=C_BOOL) :: radius_tmp 
    865885      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name 
    866886      LOGICAL(KIND=C_BOOL) :: standard_name_tmp 
    … …  
    875895      , data_nj, dim_i_name, dim_j_name, domain_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d  & 
    876896      , latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo  & 
    877       , nj, nj_glo, nvertex, prec, standard_name, type ) 
     897      , nj, nj_glo, nvertex, prec, radius, standard_name, type ) 
    878898 
    879899  END SUBROUTINE xios(is_defined_domain_attr) 
    … …  
    884904    , data_nj, dim_i_name, dim_j_name, domain_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d  & 
    885905    , latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo  & 
    886     , nj, nj_glo, nvertex, prec, standard_name, type ) 
     906    , nj, nj_glo, nvertex, prec, radius, standard_name, type ) 
    887907 
    888908    IMPLICIT NONE 
    … …  
    964984      LOGICAL, OPTIONAL, INTENT(OUT) :: prec 
    965985      LOGICAL(KIND=C_BOOL) :: prec_tmp 
     986      LOGICAL, OPTIONAL, INTENT(OUT) :: radius 
     987      LOGICAL(KIND=C_BOOL) :: radius_tmp 
    966988      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name 
    967989      LOGICAL(KIND=C_BOOL) :: standard_name_tmp 
    … …  
    974996      , data_nj, dim_i_name, dim_j_name, domain_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d  & 
    975997      , latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo  & 
    976       , nj, nj_glo, nvertex, prec, standard_name, type ) 
     998      , nj, nj_glo, nvertex, prec, radius, standard_name, type ) 
    977999 
    9781000  END SUBROUTINE xios(is_defined_domain_attr_hdl) 
    … …  
    9831005    , data_ni_, data_nj_, dim_i_name_, dim_j_name_, domain_ref_, i_index_, ibegin_, j_index_, jbegin_  & 
    9841006    , lat_name_, latvalue_1d_, latvalue_2d_, lon_name_, long_name_, lonvalue_1d_, lonvalue_2d_, mask_1d_  & 
    985     , mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, nvertex_, prec_, standard_name_, type_ ) 
     1007    , mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, nvertex_, prec_, radius_, standard_name_, type_  & 
     1008     ) 
    9861009 
    9871010    IMPLICIT NONE 
    … …  
    10631086      LOGICAL, OPTIONAL, INTENT(OUT) :: prec_ 
    10641087      LOGICAL(KIND=C_BOOL) :: prec__tmp 
     1088      LOGICAL, OPTIONAL, INTENT(OUT) :: radius_ 
     1089      LOGICAL(KIND=C_BOOL) :: radius__tmp 
    10651090      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name_ 
    10661091      LOGICAL(KIND=C_BOOL) :: standard_name__tmp 
    … …  
    12961321      ENDIF 
    12971322 
     1323      IF (PRESENT(radius_)) THEN 
     1324        radius__tmp = cxios_is_defined_domain_radius & 
     1325      (domain_hdl%daddr) 
     1326        radius_ = radius__tmp 
     1327      ENDIF 
     1328 
    12981329      IF (PRESENT(standard_name_)) THEN 
    12991330        standard_name__tmp = cxios_is_defined_domain_standard_name & 

  • XIOS/dev/dev_trunk_omp/src/interface/fortran_attr/idomaingroup_attr.F90

    r1492 r1646  
    1616    , data_nj, dim_i_name, dim_j_name, domain_ref, group_ref, i_index, ibegin, j_index, jbegin, lat_name  & 
    1717    , latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d  & 
    18     , name, ni, ni_glo, nj, nj_glo, nvertex, prec, standard_name, type ) 
     18    , name, ni, ni_glo, nj, nj_glo, nvertex, prec, radius, standard_name, type ) 
    1919 
    2020    IMPLICIT NONE 
    … …  
    6262      INTEGER  , OPTIONAL, INTENT(IN) :: nvertex 
    6363      INTEGER  , OPTIONAL, INTENT(IN) :: prec 
     64      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: radius 
    6465      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name 
    6566      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type 
    … …  
    7273      , data_nj, dim_i_name, dim_j_name, domain_ref, group_ref, i_index, ibegin, j_index, jbegin, lat_name  & 
    7374      , latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d  & 
    74       , name, ni, ni_glo, nj, nj_glo, nvertex, prec, standard_name, type ) 
     75      , name, ni, ni_glo, nj, nj_glo, nvertex, prec, radius, standard_name, type ) 
    7576 
    7677  END SUBROUTINE xios(set_domaingroup_attr) 
    … …  
    8182    , data_nj, dim_i_name, dim_j_name, domain_ref, group_ref, i_index, ibegin, j_index, jbegin, lat_name  & 
    8283    , latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d  & 
    83     , name, ni, ni_glo, nj, nj_glo, nvertex, prec, standard_name, type ) 
     84    , name, ni, ni_glo, nj, nj_glo, nvertex, prec, radius, standard_name, type ) 
    8485 
    8586    IMPLICIT NONE 
    … …  
    126127      INTEGER  , OPTIONAL, INTENT(IN) :: nvertex 
    127128      INTEGER  , OPTIONAL, INTENT(IN) :: prec 
     129      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: radius 
    128130      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name 
    129131      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type 
    … …  
    134136      , data_nj, dim_i_name, dim_j_name, domain_ref, group_ref, i_index, ibegin, j_index, jbegin, lat_name  & 
    135137      , latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d  & 
    136       , name, ni, ni_glo, nj, nj_glo, nvertex, prec, standard_name, type ) 
     138      , name, ni, ni_glo, nj, nj_glo, nvertex, prec, radius, standard_name, type ) 
    137139 
    138140  END SUBROUTINE xios(set_domaingroup_attr_hdl) 
    … …  
    143145    , data_ni_, data_nj_, dim_i_name_, dim_j_name_, domain_ref_, group_ref_, i_index_, ibegin_, j_index_  & 
    144146    , jbegin_, lat_name_, latvalue_1d_, latvalue_2d_, lon_name_, long_name_, lonvalue_1d_, lonvalue_2d_  & 
    145     , mask_1d_, mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, nvertex_, prec_, standard_name_, type_  & 
    146     ) 
     147    , mask_1d_, mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, nvertex_, prec_, radius_, standard_name_  & 
     148    , type_ ) 
    147149 
    148150    IMPLICIT NONE 
    … …  
    189191      INTEGER  , OPTIONAL, INTENT(IN) :: nvertex_ 
    190192      INTEGER  , OPTIONAL, INTENT(IN) :: prec_ 
     193      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: radius_ 
    191194      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name_ 
    192195      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type_ 
    … …  
    391394      ENDIF 
    392395 
     396      IF (PRESENT(radius_)) THEN 
     397        CALL cxios_set_domaingroup_radius & 
     398      (domaingroup_hdl%daddr, radius_) 
     399      ENDIF 
     400 
    393401      IF (PRESENT(standard_name_)) THEN 
    394402        CALL cxios_set_domaingroup_standard_name & 
    … …  
    408416    , data_nj, dim_i_name, dim_j_name, domain_ref, group_ref, i_index, ibegin, j_index, jbegin, lat_name  & 
    409417    , latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d  & 
    410     , name, ni, ni_glo, nj, nj_glo, nvertex, prec, standard_name, type ) 
     418    , name, ni, ni_glo, nj, nj_glo, nvertex, prec, radius, standard_name, type ) 
    411419 
    412420    IMPLICIT NONE 
    … …  
    454462      INTEGER  , OPTIONAL, INTENT(OUT) :: nvertex 
    455463      INTEGER  , OPTIONAL, INTENT(OUT) :: prec 
     464      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: radius 
    456465      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name 
    457466      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type 
    … …  
    464473      , data_nj, dim_i_name, dim_j_name, domain_ref, group_ref, i_index, ibegin, j_index, jbegin, lat_name  & 
    465474      , latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d  & 
    466       , name, ni, ni_glo, nj, nj_glo, nvertex, prec, standard_name, type ) 
     475      , name, ni, ni_glo, nj, nj_glo, nvertex, prec, radius, standard_name, type ) 
    467476 
    468477  END SUBROUTINE xios(get_domaingroup_attr) 
    … …  
    473482    , data_nj, dim_i_name, dim_j_name, domain_ref, group_ref, i_index, ibegin, j_index, jbegin, lat_name  & 
    474483    , latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d  & 
    475     , name, ni, ni_glo, nj, nj_glo, nvertex, prec, standard_name, type ) 
     484    , name, ni, ni_glo, nj, nj_glo, nvertex, prec, radius, standard_name, type ) 
    476485 
    477486    IMPLICIT NONE 
    … …  
    518527      INTEGER  , OPTIONAL, INTENT(OUT) :: nvertex 
    519528      INTEGER  , OPTIONAL, INTENT(OUT) :: prec 
     529      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: radius 
    520530      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name 
    521531      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type 
    … …  
    526536      , data_nj, dim_i_name, dim_j_name, domain_ref, group_ref, i_index, ibegin, j_index, jbegin, lat_name  & 
    527537      , latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d  & 
    528       , name, ni, ni_glo, nj, nj_glo, nvertex, prec, standard_name, type ) 
     538      , name, ni, ni_glo, nj, nj_glo, nvertex, prec, radius, standard_name, type ) 
    529539 
    530540  END SUBROUTINE xios(get_domaingroup_attr_hdl) 
    … …  
    535545    , data_ni_, data_nj_, dim_i_name_, dim_j_name_, domain_ref_, group_ref_, i_index_, ibegin_, j_index_  & 
    536546    , jbegin_, lat_name_, latvalue_1d_, latvalue_2d_, lon_name_, long_name_, lonvalue_1d_, lonvalue_2d_  & 
    537     , mask_1d_, mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, nvertex_, prec_, standard_name_, type_  & 
    538     ) 
     547    , mask_1d_, mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, nvertex_, prec_, radius_, standard_name_  & 
     548    , type_ ) 
    539549 
    540550    IMPLICIT NONE 
    … …  
    581591      INTEGER  , OPTIONAL, INTENT(OUT) :: nvertex_ 
    582592      INTEGER  , OPTIONAL, INTENT(OUT) :: prec_ 
     593      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: radius_ 
    583594      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name_ 
    584595      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type_ 
    … …  
    783794      ENDIF 
    784795 
     796      IF (PRESENT(radius_)) THEN 
     797        CALL cxios_get_domaingroup_radius & 
     798      (domaingroup_hdl%daddr, radius_) 
     799      ENDIF 
     800 
    785801      IF (PRESENT(standard_name_)) THEN 
    786802        CALL cxios_get_domaingroup_standard_name & 
    … …  
    800816    , data_nj, dim_i_name, dim_j_name, domain_ref, group_ref, i_index, ibegin, j_index, jbegin, lat_name  & 
    801817    , latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d  & 
    802     , name, ni, ni_glo, nj, nj_glo, nvertex, prec, standard_name, type ) 
     818    , name, ni, ni_glo, nj, nj_glo, nvertex, prec, radius, standard_name, type ) 
    803819 
    804820    IMPLICIT NONE 
    … …  
    883899      LOGICAL, OPTIONAL, INTENT(OUT) :: prec 
    884900      LOGICAL(KIND=C_BOOL) :: prec_tmp 
     901      LOGICAL, OPTIONAL, INTENT(OUT) :: radius 
     902      LOGICAL(KIND=C_BOOL) :: radius_tmp 
    885903      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name 
    886904      LOGICAL(KIND=C_BOOL) :: standard_name_tmp 
    … …  
    895913      , data_nj, dim_i_name, dim_j_name, domain_ref, group_ref, i_index, ibegin, j_index, jbegin, lat_name  & 
    896914      , latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d  & 
    897       , name, ni, ni_glo, nj, nj_glo, nvertex, prec, standard_name, type ) 
     915      , name, ni, ni_glo, nj, nj_glo, nvertex, prec, radius, standard_name, type ) 
    898916 
    899917  END SUBROUTINE xios(is_defined_domaingroup_attr) 
    … …  
    904922    , data_nj, dim_i_name, dim_j_name, domain_ref, group_ref, i_index, ibegin, j_index, jbegin, lat_name  & 
    905923    , latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d  & 
    906     , name, ni, ni_glo, nj, nj_glo, nvertex, prec, standard_name, type ) 
     924    , name, ni, ni_glo, nj, nj_glo, nvertex, prec, radius, standard_name, type ) 
    907925 
    908926    IMPLICIT NONE 
    … …  
    9861004      LOGICAL, OPTIONAL, INTENT(OUT) :: prec 
    9871005      LOGICAL(KIND=C_BOOL) :: prec_tmp 
     1006      LOGICAL, OPTIONAL, INTENT(OUT) :: radius 
     1007      LOGICAL(KIND=C_BOOL) :: radius_tmp 
    9881008      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name 
    9891009      LOGICAL(KIND=C_BOOL) :: standard_name_tmp 
    … …  
    9961016      , data_nj, dim_i_name, dim_j_name, domain_ref, group_ref, i_index, ibegin, j_index, jbegin, lat_name  & 
    9971017      , latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d  & 
    998       , name, ni, ni_glo, nj, nj_glo, nvertex, prec, standard_name, type ) 
     1018      , name, ni, ni_glo, nj, nj_glo, nvertex, prec, radius, standard_name, type ) 
    9991019 
    10001020  END SUBROUTINE xios(is_defined_domaingroup_attr_hdl) 
    … …  
    10051025    , data_ni_, data_nj_, dim_i_name_, dim_j_name_, domain_ref_, group_ref_, i_index_, ibegin_, j_index_  & 
    10061026    , jbegin_, lat_name_, latvalue_1d_, latvalue_2d_, lon_name_, long_name_, lonvalue_1d_, lonvalue_2d_  & 
    1007     , mask_1d_, mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, nvertex_, prec_, standard_name_, type_  & 
    1008     ) 
     1027    , mask_1d_, mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, nvertex_, prec_, radius_, standard_name_  & 
     1028    , type_ ) 
    10091029 
    10101030    IMPLICIT NONE 
    … …  
    10881108      LOGICAL, OPTIONAL, INTENT(OUT) :: prec_ 
    10891109      LOGICAL(KIND=C_BOOL) :: prec__tmp 
     1110      LOGICAL, OPTIONAL, INTENT(OUT) :: radius_ 
     1111      LOGICAL(KIND=C_BOOL) :: radius__tmp 
    10901112      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name_ 
    10911113      LOGICAL(KIND=C_BOOL) :: standard_name__tmp 
    … …  
    13271349      ENDIF 
    13281350 
     1351      IF (PRESENT(radius_)) THEN 
     1352        radius__tmp = cxios_is_defined_domaingroup_radius & 
     1353      (domaingroup_hdl%daddr) 
     1354        radius_ = radius__tmp 
     1355      ENDIF 
     1356 
    13291357      IF (PRESENT(standard_name_)) THEN 
    13301358        standard_name__tmp = cxios_is_defined_domaingroup_standard_name & 

  • XIOS/dev/dev_trunk_omp/src/interface/fortran_attr/iinterpolate_domain_attr.F90

    r1492 r1646  
    1313  SUBROUTINE xios(set_interpolate_domain_attr)  & 
    1414    ( interpolate_domain_id, detect_missing_value, mode, order, quantity, read_write_convention  & 
    15     , renormalize, weight_filename, write_weight ) 
     15    , renormalize, use_area, weight_filename, write_weight ) 
    1616 
    1717    IMPLICIT NONE 
    … …  
    2727      LOGICAL  , OPTIONAL, INTENT(IN) :: renormalize 
    2828      LOGICAL (KIND=C_BOOL) :: renormalize_tmp 
     29      LOGICAL  , OPTIONAL, INTENT(IN) :: use_area 
     30      LOGICAL (KIND=C_BOOL) :: use_area_tmp 
    2931      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: weight_filename 
    3032      LOGICAL  , OPTIONAL, INTENT(IN) :: write_weight 
    … …  
    3537      CALL xios(set_interpolate_domain_attr_hdl_)   & 
    3638      ( interpolate_domain_hdl, detect_missing_value, mode, order, quantity, read_write_convention  & 
    37       , renormalize, weight_filename, write_weight ) 
     39      , renormalize, use_area, weight_filename, write_weight ) 
    3840 
    3941  END SUBROUTINE xios(set_interpolate_domain_attr) 
    … …  
    4143  SUBROUTINE xios(set_interpolate_domain_attr_hdl)  & 
    4244    ( interpolate_domain_hdl, detect_missing_value, mode, order, quantity, read_write_convention  & 
    43     , renormalize, weight_filename, write_weight ) 
     45    , renormalize, use_area, weight_filename, write_weight ) 
    4446 
    4547    IMPLICIT NONE 
    … …  
    5456      LOGICAL  , OPTIONAL, INTENT(IN) :: renormalize 
    5557      LOGICAL (KIND=C_BOOL) :: renormalize_tmp 
     58      LOGICAL  , OPTIONAL, INTENT(IN) :: use_area 
     59      LOGICAL (KIND=C_BOOL) :: use_area_tmp 
    5660      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: weight_filename 
    5761      LOGICAL  , OPTIONAL, INTENT(IN) :: write_weight 
    … …  
    6064      CALL xios(set_interpolate_domain_attr_hdl_)  & 
    6165      ( interpolate_domain_hdl, detect_missing_value, mode, order, quantity, read_write_convention  & 
    62       , renormalize, weight_filename, write_weight ) 
     66      , renormalize, use_area, weight_filename, write_weight ) 
    6367 
    6468  END SUBROUTINE xios(set_interpolate_domain_attr_hdl) 
    … …  
    6670  SUBROUTINE xios(set_interpolate_domain_attr_hdl_)   & 
    6771    ( interpolate_domain_hdl, detect_missing_value_, mode_, order_, quantity_, read_write_convention_  & 
    68     , renormalize_, weight_filename_, write_weight_ ) 
     72    , renormalize_, use_area_, weight_filename_, write_weight_ ) 
    6973 
    7074    IMPLICIT NONE 
    … …  
    7983      LOGICAL  , OPTIONAL, INTENT(IN) :: renormalize_ 
    8084      LOGICAL (KIND=C_BOOL) :: renormalize__tmp 
     85      LOGICAL  , OPTIONAL, INTENT(IN) :: use_area_ 
     86      LOGICAL (KIND=C_BOOL) :: use_area__tmp 
    8187      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: weight_filename_ 
    8288      LOGICAL  , OPTIONAL, INTENT(IN) :: write_weight_ 
    … …  
    116122      ENDIF 
    117123 
     124      IF (PRESENT(use_area_)) THEN 
     125        use_area__tmp = use_area_ 
     126        CALL cxios_set_interpolate_domain_use_area & 
     127      (interpolate_domain_hdl%daddr, use_area__tmp) 
     128      ENDIF 
     129 
    118130      IF (PRESENT(weight_filename_)) THEN 
    119131        CALL cxios_set_interpolate_domain_weight_filename & 
    … …  
    131143  SUBROUTINE xios(get_interpolate_domain_attr)  & 
    132144    ( interpolate_domain_id, detect_missing_value, mode, order, quantity, read_write_convention  & 
    133     , renormalize, weight_filename, write_weight ) 
     145    , renormalize, use_area, weight_filename, write_weight ) 
    134146 
    135147    IMPLICIT NONE 
    … …  
    145157      LOGICAL  , OPTIONAL, INTENT(OUT) :: renormalize 
    146158      LOGICAL (KIND=C_BOOL) :: renormalize_tmp 
     159      LOGICAL  , OPTIONAL, INTENT(OUT) :: use_area 
     160      LOGICAL (KIND=C_BOOL) :: use_area_tmp 
    147161      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: weight_filename 
    148162      LOGICAL  , OPTIONAL, INTENT(OUT) :: write_weight 
    … …  
    153167      CALL xios(get_interpolate_domain_attr_hdl_)   & 
    154168      ( interpolate_domain_hdl, detect_missing_value, mode, order, quantity, read_write_convention  & 
    155       , renormalize, weight_filename, write_weight ) 
     169      , renormalize, use_area, weight_filename, write_weight ) 
    156170 
    157171  END SUBROUTINE xios(get_interpolate_domain_attr) 
    … …  
    159173  SUBROUTINE xios(get_interpolate_domain_attr_hdl)  & 
    160174    ( interpolate_domain_hdl, detect_missing_value, mode, order, quantity, read_write_convention  & 
    161     , renormalize, weight_filename, write_weight ) 
     175    , renormalize, use_area, weight_filename, write_weight ) 
    162176 
    163177    IMPLICIT NONE 
    … …  
    172186      LOGICAL  , OPTIONAL, INTENT(OUT) :: renormalize 
    173187      LOGICAL (KIND=C_BOOL) :: renormalize_tmp 
     188      LOGICAL  , OPTIONAL, INTENT(OUT) :: use_area 
     189      LOGICAL (KIND=C_BOOL) :: use_area_tmp 
    174190      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: weight_filename 
    175191      LOGICAL  , OPTIONAL, INTENT(OUT) :: write_weight 
    … …  
    178194      CALL xios(get_interpolate_domain_attr_hdl_)  & 
    179195      ( interpolate_domain_hdl, detect_missing_value, mode, order, quantity, read_write_convention  & 
    180       , renormalize, weight_filename, write_weight ) 
     196      , renormalize, use_area, weight_filename, write_weight ) 
    181197 
    182198  END SUBROUTINE xios(get_interpolate_domain_attr_hdl) 
    … …  
    184200  SUBROUTINE xios(get_interpolate_domain_attr_hdl_)   & 
    185201    ( interpolate_domain_hdl, detect_missing_value_, mode_, order_, quantity_, read_write_convention_  & 
    186     , renormalize_, weight_filename_, write_weight_ ) 
     202    , renormalize_, use_area_, weight_filename_, write_weight_ ) 
    187203 
    188204    IMPLICIT NONE 
    … …  
    197213      LOGICAL  , OPTIONAL, INTENT(OUT) :: renormalize_ 
    198214      LOGICAL (KIND=C_BOOL) :: renormalize__tmp 
     215      LOGICAL  , OPTIONAL, INTENT(OUT) :: use_area_ 
     216      LOGICAL (KIND=C_BOOL) :: use_area__tmp 
    199217      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: weight_filename_ 
    200218      LOGICAL  , OPTIONAL, INTENT(OUT) :: write_weight_ 
    … …  
    234252      ENDIF 
    235253 
     254      IF (PRESENT(use_area_)) THEN 
     255        CALL cxios_get_interpolate_domain_use_area & 
     256      (interpolate_domain_hdl%daddr, use_area__tmp) 
     257        use_area_ = use_area__tmp 
     258      ENDIF 
     259 
    236260      IF (PRESENT(weight_filename_)) THEN 
    237261        CALL cxios_get_interpolate_domain_weight_filename & 
    … …  
    249273  SUBROUTINE xios(is_defined_interpolate_domain_attr)  & 
    250274    ( interpolate_domain_id, detect_missing_value, mode, order, quantity, read_write_convention  & 
    251     , renormalize, weight_filename, write_weight ) 
     275    , renormalize, use_area, weight_filename, write_weight ) 
    252276 
    253277    IMPLICIT NONE 
    … …  
    266290      LOGICAL, OPTIONAL, INTENT(OUT) :: renormalize 
    267291      LOGICAL(KIND=C_BOOL) :: renormalize_tmp 
     292      LOGICAL, OPTIONAL, INTENT(OUT) :: use_area 
     293      LOGICAL(KIND=C_BOOL) :: use_area_tmp 
    268294      LOGICAL, OPTIONAL, INTENT(OUT) :: weight_filename 
    269295      LOGICAL(KIND=C_BOOL) :: weight_filename_tmp 
    … …  
    275301      CALL xios(is_defined_interpolate_domain_attr_hdl_)   & 
    276302      ( interpolate_domain_hdl, detect_missing_value, mode, order, quantity, read_write_convention  & 
    277       , renormalize, weight_filename, write_weight ) 
     303      , renormalize, use_area, weight_filename, write_weight ) 
    278304 
    279305  END SUBROUTINE xios(is_defined_interpolate_domain_attr) 
    … …  
    281307  SUBROUTINE xios(is_defined_interpolate_domain_attr_hdl)  & 
    282308    ( interpolate_domain_hdl, detect_missing_value, mode, order, quantity, read_write_convention  & 
    283     , renormalize, weight_filename, write_weight ) 
     309    , renormalize, use_area, weight_filename, write_weight ) 
    284310 
    285311    IMPLICIT NONE 
    … …  
    297323      LOGICAL, OPTIONAL, INTENT(OUT) :: renormalize 
    298324      LOGICAL(KIND=C_BOOL) :: renormalize_tmp 
     325      LOGICAL, OPTIONAL, INTENT(OUT) :: use_area 
     326      LOGICAL(KIND=C_BOOL) :: use_area_tmp 
    299327      LOGICAL, OPTIONAL, INTENT(OUT) :: weight_filename 
    300328      LOGICAL(KIND=C_BOOL) :: weight_filename_tmp 
    … …  
    304332      CALL xios(is_defined_interpolate_domain_attr_hdl_)  & 
    305333      ( interpolate_domain_hdl, detect_missing_value, mode, order, quantity, read_write_convention  & 
    306       , renormalize, weight_filename, write_weight ) 
     334      , renormalize, use_area, weight_filename, write_weight ) 
    307335 
    308336  END SUBROUTINE xios(is_defined_interpolate_domain_attr_hdl) 
    … …  
    310338  SUBROUTINE xios(is_defined_interpolate_domain_attr_hdl_)   & 
    311339    ( interpolate_domain_hdl, detect_missing_value_, mode_, order_, quantity_, read_write_convention_  & 
    312     , renormalize_, weight_filename_, write_weight_ ) 
     340    , renormalize_, use_area_, weight_filename_, write_weight_ ) 
    313341 
    314342    IMPLICIT NONE 
    … …  
    326354      LOGICAL, OPTIONAL, INTENT(OUT) :: renormalize_ 
    327355      LOGICAL(KIND=C_BOOL) :: renormalize__tmp 
     356      LOGICAL, OPTIONAL, INTENT(OUT) :: use_area_ 
     357      LOGICAL(KIND=C_BOOL) :: use_area__tmp 
    328358      LOGICAL, OPTIONAL, INTENT(OUT) :: weight_filename_ 
    329359      LOGICAL(KIND=C_BOOL) :: weight_filename__tmp 
    … …  
    367397      ENDIF 
    368398 
     399      IF (PRESENT(use_area_)) THEN 
     400        use_area__tmp = cxios_is_defined_interpolate_domain_use_area & 
     401      (interpolate_domain_hdl%daddr) 
     402        use_area_ = use_area__tmp 
     403      ENDIF 
     404 
    369405      IF (PRESENT(weight_filename_)) THEN 
    370406        weight_filename__tmp = cxios_is_defined_interpolate_domain_weight_filename & 

  • XIOS/dev/dev_trunk_omp/src/interface/fortran_attr/interpolate_domain_interface_attr.F90

    r1492 r1646  
    8888 
    8989 
    90     SUBROUTINE cxios_set_interpolate_domain_read_write_convention(interpolate_domain_hdl, read_write_convention, read_write_convention_size) BIND(C) 
     90    SUBROUTINE cxios_set_interpolate_domain_read_write_convention(interpolate_domain_hdl, read_write_convention, read_write_conven& 
     91&tion_size) BIND(C) 
    9192      USE ISO_C_BINDING 
    9293      INTEGER (kind = C_INTPTR_T), VALUE :: interpolate_domain_hdl 
    … …  
    9596    END SUBROUTINE cxios_set_interpolate_domain_read_write_convention 
    9697 
    97     SUBROUTINE cxios_get_interpolate_domain_read_write_convention(interpolate_domain_hdl, read_write_convention, read_write_convention_size) BIND(C) 
     98    SUBROUTINE cxios_get_interpolate_domain_read_write_convention(interpolate_domain_hdl, read_write_convention, read_write_conven& 
     99&tion_size) BIND(C) 
    98100      USE ISO_C_BINDING 
    99101      INTEGER (kind = C_INTPTR_T), VALUE :: interpolate_domain_hdl 
    … …  
    126128      INTEGER (kind = C_INTPTR_T), VALUE :: interpolate_domain_hdl 
    127129    END FUNCTION cxios_is_defined_interpolate_domain_renormalize 
     130 
     131 
     132    SUBROUTINE cxios_set_interpolate_domain_use_area(interpolate_domain_hdl, use_area) BIND(C) 
     133      USE ISO_C_BINDING 
     134      INTEGER (kind = C_INTPTR_T), VALUE :: interpolate_domain_hdl 
     135      LOGICAL (KIND=C_BOOL)      , VALUE :: use_area 
     136    END SUBROUTINE cxios_set_interpolate_domain_use_area 
     137 
     138    SUBROUTINE cxios_get_interpolate_domain_use_area(interpolate_domain_hdl, use_area) BIND(C) 
     139      USE ISO_C_BINDING 
     140      INTEGER (kind = C_INTPTR_T), VALUE :: interpolate_domain_hdl 
     141      LOGICAL (KIND=C_BOOL)             :: use_area 
     142    END SUBROUTINE cxios_get_interpolate_domain_use_area 
     143 
     144    FUNCTION cxios_is_defined_interpolate_domain_use_area(interpolate_domain_hdl) BIND(C) 
     145      USE ISO_C_BINDING 
     146      LOGICAL(kind=C_BOOL) :: cxios_is_defined_interpolate_domain_use_area 
     147      INTEGER (kind = C_INTPTR_T), VALUE :: interpolate_domain_hdl 
     148    END FUNCTION cxios_is_defined_interpolate_domain_use_area 
    128149 
    129150 
Note: See TracChangeset for help on using the changeset viewer.