Changeset 576


Ignore:
Timestamp:
03/13/15 17:49:10 (5 years ago)
Author:
rlacroix
Message:

Fix compilation with PGI for the development version of XIOS 2.0

  • Convert parse_xml.cpp to Fortran (port r573 to the trunk).
  • Modify date_interface to work-around a problem related to xios_duration type.
  • Reorganize the XIOS module to work-around a problem related to operator overloads for xios_duration and xios_date types.
Location:
XIOS
Files:
2 added
1 deleted
4 edited

Legend:

Unmodified
Added
Removed
  • XIOS/branchs/xios-1.0/src/test/parse_xml.f90

    r573 r576  
    1111 
    1212END PROGRAM parse_xml 
    13  
    14  
    15    
    16  
    17    
  • XIOS/trunk/src/interface/c/icdata.cpp

    r510 r576  
    3939 
    4040   // -------------------- Traitement des données ------------------------------ 
     41 
     42   // This function is not exported to the public Fortran interface, 
     43   // it is only used from the parse_xml.exe standalone test tool. 
     44   void cxios_init(void) 
     45   { 
     46     CXios::initialize(); 
     47   } 
     48 
    4149   void cxios_init_server(void) 
    4250   { 
  • XIOS/trunk/src/interface/fortran/date_interface.F90

    r549 r576  
    33MODULE DATE_INTERFACE 
    44   USE, INTRINSIC :: ISO_C_BINDING 
     5   USE IDURATION, only : txios(duration) 
    56 
    67   TYPE, BIND(C) :: txios(date) 
    78      INTEGER(kind = C_INT) :: year, month, day, hour, minute, second 
    89   END TYPE txios(date) 
     10 
     11   PRIVATE :: txios(duration) 
    912 
    1013   INTERFACE ! Ne pas appeler directement/Interface FORTRAN 2003 <-> C99 
     
    1821      TYPE(txios(date)) FUNCTION cxios_date_add_duration(date, dur) BIND(C) 
    1922         USE ISO_C_BINDING 
    20          USE IDURATION, only : txios(duration) 
    2123         IMPORT :: txios(date) 
     24         IMPORT :: txios(duration) 
    2225         TYPE(txios(date)), VALUE :: date 
    2326         TYPE(txios(duration)), VALUE :: dur 
     
    2629      TYPE(txios(date)) FUNCTION cxios_date_sub_duration(date, dur) BIND(C) 
    2730         USE ISO_C_BINDING 
    28          USE IDURATION, only : txios(duration) 
    2931         IMPORT :: txios(date) 
     32         IMPORT :: txios(duration) 
    3033         TYPE(txios(date)), VALUE :: date 
    3134         TYPE(txios(duration)), VALUE :: dur 
     
    3437      TYPE(txios(duration)) FUNCTION cxios_date_sub(date1, date2) BIND(C) 
    3538         USE ISO_C_BINDING 
    36          USE IDURATION, only : txios(duration) 
    3739         IMPORT :: txios(date) 
     40         IMPORT :: txios(duration) 
    3841         TYPE(txios(date)), VALUE :: date1, date2 
    3942      END FUNCTION cxios_date_sub 
  • XIOS/trunk/src/interface/fortran/ixios.F90

    r549 r576  
    33MODULE XIOS 
    44 
    5 USE icalendar, ONLY : xios(define_calendar), xios(set_timestep), xios(set_start_date), xios(set_time_origin), & 
     5USE icalendar, ONLY : xios(define_calendar), xios(set_timestep), xios(set_start_date), xios(set_time_origin),   & 
    66                      xios(get_calendar_type), xios(get_timestep), xios(get_start_date), xios(get_time_origin), & 
    7                       xios(update_calendar), xios(get_current_date), & 
     7                      xios(update_calendar), xios(get_current_date),                                            & 
    88                      xios(get_year_length_in_seconds), xios(get_day_length_in_seconds) 
    99 
    10 USE icontext, ONLY : txios(context), xios(get_context_handle), xios(set_current_context),    & 
    11                      xios(is_valid_context) 
     10USE icontext, ONLY : txios(context), xios(set_current_context), xios(is_valid_context) 
    1211 
    13 USE icontext_attr, ONLY : xios(set_context_attr), xios(set_context_attr_hdl), & 
    14                           xios(get_context_attr), xios(get_context_attr_hdl), & 
    15                           xios(is_defined_context_attr), xios(is_defined_context_attr_hdl) 
     12USE icontext_attr, ONLY : xios(set_context_attr), xios(get_context_attr), xios(is_defined_context_attr) 
    1613 
    17 USE idata, ONLY : xios(initialize),xios(init_server), xios(finalize), xios(context_initialize),  & 
    18                   xios(context_is_initialized), xios(close_context_definition),xios(solve_inheritance),       & 
    19                   xios(context_finalize), xios(send_field_r8_1d), xios(send_field_r8_2d), & 
    20                   xios(send_field_r8_3d), xios(send_field_r4_1d), xios(send_field_r4_2d), & 
    21                   xios(send_field_r4_3d), xios(getVar_k8), xios(getVar_k4), xios(getVar_int), & 
    22                   xios(getVar_logic), xios(getVar_char), xios(setVar_k8), xios(setVar_k4), xios(setVar_int), & 
    23                   xios(setVar_logic), xios(setVar_char) 
     14USE idata, ONLY : xios(initialize), xios(init_server), xios(finalize), xios(context_initialize), xios(context_is_initialized), & 
     15                  xios(close_context_definition), xios(context_finalize), xios(solve_inheritance) 
    2416 
    25 USE idate, ONLY : txios(date), & 
    26                   xios(date_convert_to_seconds), & 
    27                   xios(date_add_duration), xios(date_sub_duration), xios(date_sub), & 
    28                   xios(date_eq), xios(date_neq), xios(date_lt), xios(date_le), xios(date_gt), xios(date_ge), & 
     17USE idomain, ONLY : txios(domain), txios(domaingroup), xios(is_valid_domain), xios(is_valid_domaingroup) 
     18 
     19USE idomain_attr, ONLY : xios(set_domain_attr), xios(get_domain_attr), xios(is_defined_domain_attr) 
     20 
     21USE idomaingroup_attr, ONLY : xios(set_domaingroup_attr), xios(get_domaingroup_attr), xios(is_defined_domaingroup_attr) 
     22 
     23USE iduration, ONLY: txios(duration),                                                                            & 
     24                     xios(year), xios(month), xios(day), xios(hour), xios(minute), xios(second), xios(timestep), & 
     25                     xios(duration_add), xios(duration_sub), xios(duration_mult), xios(duration_neg),            & 
     26                     xios(duration_eq), xios(duration_neq),                                                      & 
     27                     OPERATOR(+), OPERATOR(-), OPERATOR(*) 
     28 
     29USE idate, ONLY : txios(date),                                                                                & 
     30                  xios(date_convert_to_seconds),                                                              & 
     31                  xios(date_add_duration), xios(date_sub_duration), xios(date_sub),                           & 
     32                  xios(date_eq), xios(date_neq), xios(date_lt), xios(date_le), xios(date_gt), xios(date_ge),  & 
    2933                  xios(date_get_second_of_year), xios(date_get_day_of_year), xios(date_get_fraction_of_year), & 
    30                   xios(date_get_second_of_day), xios(date_get_fraction_of_day), & 
    31                   OPERATOR(+), OPERATOR(-), & 
    32                   OPERATOR(==), OPERATOR(/=), OPERATOR(<), OPERATOR(<=), OPERATOR(>), OPERATOR(>=), & 
     34                  xios(date_get_second_of_day), xios(date_get_fraction_of_day),                               & 
     35                  OPERATOR(+), OPERATOR(-),                                                                   & 
     36                  OPERATOR(==), OPERATOR(/=), OPERATOR(<), OPERATOR(<=), OPERATOR(>), OPERATOR(>=),           & 
    3337                  ASSIGNMENT(=) 
    3438 
    35 USE idomain, ONLY : txios(domain), txios(domaingroup), xios(get_domain_handle),  & 
    36                     xios(get_domaingroup_handle),xios(is_valid_domain),     & 
    37                     xios(is_valid_domaingroup) 
     39USE ifield, ONLY : txios(field), txios(fieldgroup), xios(is_valid_field), xios(is_valid_fieldgroup) 
    3840 
    39 USE idomain_attr, ONLY :  xios(set_domain_attr), xios(set_domain_attr_hdl),  & 
    40                           xios(get_domain_attr), xios(get_domain_attr_hdl), & 
    41                           xios(is_defined_domain_attr), xios(is_defined_domain_attr_hdl) 
     41USE ifield_attr, ONLY : xios(set_field_attr), xios(get_field_attr), xios(is_defined_field_attr) 
    4242 
    43 USE idomaingroup_attr, ONLY : xios(set_domaingroup_attr), xios(set_domaingroup_attr_hdl),  & 
    44                               xios(get_domaingroup_attr), xios(get_domaingroup_attr_hdl), & 
    45                               xios(is_defined_domaingroup_attr), xios(is_defined_domaingroup_attr_hdl) 
     43USE ifieldgroup_attr, ONLY : xios(set_fieldgroup_attr), xios(get_fieldgroup_attr), xios(is_defined_fieldgroup_attr) 
    4644 
    47 USE iduration, ONLY: txios(duration), & 
    48                      xios(year), xios(month), xios(day), xios(hour), xios(minute), xios(second), xios(timestep), & 
    49                      xios(duration_add), xios(duration_sub), xios(duration_mult), xios(duration_neg), & 
    50                      xios(duration_eq), xios(duration_neq), & 
    51                      OPERATOR(+), OPERATOR(-), OPERATOR(*) 
     45USE ivariable, ONLY : txios(variable), txios(variablegroup), xios(is_valid_variable), xios(is_valid_variablegroup) 
    5246 
    53 USE ifield, ONLY : txios(field), txios(fieldgroup), xios(get_field_handle),  & 
    54                    xios(get_fieldgroup_handle), xios(is_valid_field),        & 
    55                    xios(is_valid_fieldgroup),xios(field_is_active_id),xios(field_is_active_hdl) 
     47USE ivariable_attr, ONLY : xios(set_variable_attr), xios(get_variable_attr), xios(is_defined_variable_attr) 
    5648 
    57 USE ifield_attr, ONLY : xios(set_field_attr),xios(set_field_attr_hdl),    & 
    58                         xios(get_field_attr),xios(get_field_attr_hdl), & 
    59                         xios(is_defined_field_attr),xios(is_defined_field_attr_hdl) 
     49USE ivariablegroup_attr, ONLY : xios(set_variablegroup_attr), xios(get_variablegroup_attr), xios(is_defined_variablegroup_attr) 
    6050 
    61 USE ifieldgroup_attr, ONLY : xios(set_fieldgroup_attr), xios(set_fieldgroup_attr_hdl),  & 
    62                              xios(get_fieldgroup_attr), xios(get_fieldgroup_attr_hdl), & 
    63                              xios(is_defined_fieldgroup_attr), xios(is_defined_fieldgroup_attr_hdl) 
     51USE ifile, ONLY : txios(file), txios(filegroup), xios(is_valid_file), xios(is_valid_filegroup) 
    6452 
    65 USE ivariable, ONLY : txios(variable), txios(variablegroup), xios(get_variable_handle),  & 
    66                    xios(get_variablegroup_handle), xios(is_valid_variable),        & 
    67                    xios(is_valid_variablegroup) 
     53USE ifile_attr, ONLY : xios(set_file_attr), xios(get_file_attr), xios(is_defined_file_attr) 
    6854 
    69 USE ivariable_attr, ONLY : xios(set_variable_attr),xios(set_variable_attr_hdl),    & 
    70                         xios(get_variable_attr),xios(get_variable_attr_hdl), & 
    71                         xios(is_defined_variable_attr),xios(is_defined_variable_attr_hdl) 
     55USE ifilegroup_attr, ONLY : xios(set_filegroup_attr), xios(get_filegroup_attr), xios(is_defined_filegroup_attr) 
    7256 
    73 USE ivariablegroup_attr, ONLY : xios(set_variablegroup_attr), xios(set_variablegroup_attr_hdl),  & 
    74                              xios(get_variablegroup_attr), xios(get_variablegroup_attr_hdl), & 
    75                              xios(is_defined_variablegroup_attr), xios(is_defined_variablegroup_attr_hdl) 
     57USE igrid, ONLY : txios(grid), txios(gridgroup), xios(is_valid_grid), xios(is_valid_gridgroup) 
    7658 
    77 USE ifile, ONLY : txios(file), txios(filegroup), xios(get_file_handle),    & 
    78                   xios(get_filegroup_handle), xios(is_valid_file), xios(is_valid_filegroup) 
     59USE igrid_attr, ONLY : xios(set_grid_attr), xios(get_grid_attr), xios(is_defined_grid_attr) 
    7960 
    80 USE ifile_attr, ONLY : xios(set_file_attr),xios(set_file_attr_hdl), & 
    81                        xios(get_file_attr),xios(get_file_attr_hdl), & 
    82                        xios(is_defined_file_attr),xios(is_defined_file_attr_hdl) 
     61USE igridgroup_attr, ONLY : xios(set_gridgroup_attr), xios(get_gridgroup_attr), xios(is_defined_gridgroup_attr) 
    8362 
    84 USE ifilegroup_attr, ONLY : xios(set_filegroup_attr), xios(set_filegroup_attr_hdl), & 
    85                             xios(get_filegroup_attr), xios(get_filegroup_attr_hdl), & 
    86                             xios(is_defined_filegroup_attr), xios(is_defined_filegroup_attr_hdl) 
     63USE iaxis, ONLY : txios(axis), txios(axisgroup), xios(is_valid_axis), xios(is_valid_axisgroup) 
    8764 
    88 USE igrid, ONLY : txios(grid), txios(gridgroup), xios(get_grid_handle),     & 
    89                   xios(get_gridgroup_handle), xios(is_valid_grid), xios(is_valid_gridgroup) 
     65USE iaxis_attr, ONLY : xios(set_axis_attr), xios(get_axis_attr), xios(is_defined_axis_attr) 
    9066 
    91 USE igrid_attr, ONLY : xios(set_grid_attr_hdl), xios(set_grid_attr), & 
    92                        xios(get_grid_attr_hdl), xios(get_grid_attr), & 
    93                        xios(is_defined_grid_attr_hdl), xios(is_defined_grid_attr) 
     67USE iaxisgroup_attr, ONLY : xios(set_axisgroup_attr), xios(get_axisgroup_attr), xios(is_defined_axisgroup_attr) 
    9468 
    95 USE igridgroup_attr, ONLY : xios(set_gridgroup_attr), xios(set_gridgroup_attr_hdl),  & 
    96                             xios(get_gridgroup_attr), xios(get_gridgroup_attr_hdl), & 
    97                             xios(is_defined_gridgroup_attr), xios(is_defined_gridgroup_attr_hdl) 
    98  
    99 USE iaxis, ONLY : txios(axis), txios(axisgroup), xios(get_axis_handle),     & 
    100                   xios(get_axisgroup_handle), xios(is_valid_axis), xios(is_valid_axisgroup) 
    101  
    102 USE iaxis_attr, ONLY :  xios(set_axis_attr), xios(set_axis_attr_hdl), & 
    103                         xios(get_axis_attr), xios(get_axis_attr_hdl), & 
    104                         xios(is_defined_axis_attr), xios(is_defined_axis_attr_hdl) 
    105  
    106 USE iaxisgroup_attr, ONLY : xios(set_axisgroup_attr), xios(set_axisgroup_attr_hdl), & 
    107                             xios(get_axisgroup_attr), xios(get_axisgroup_attr_hdl), & 
    108                             xios(is_defined_axisgroup_attr), xios(is_defined_axisgroup_attr_hdl) 
    109  
    110 USE ixml_tree, ONLY : xios(add_axis), xios(add_file), xios(add_grid), xios(add_field), xios(add_domain),          & 
    111                      xios(add_fieldtofile), xios(add_variabletofile), xios(add_variabletofield),                  & 
    112                      xios(add_axisgroup), xios(add_filegroup), xios(add_gridgroup), xios(add_fieldgroup),         & 
    113                      xios(add_domaingroup), xios(add_fieldgrouptofile), xios(add_variablegrouptofile),            & 
    114                      xios(add_variablegrouptofield) 
    115  
    116 PRIVATE 
    117  
    118  
    119 INTERFACE xios(set_attr) 
    120   MODULE PROCEDURE xios(set_domaingroup_attr_hdl), xios(set_domain_attr_hdl), xios(set_fieldgroup_attr_hdl), & 
    121                    xios(set_field_attr_hdl),xios(set_variable_attr_hdl), xios(set_variablegroup_attr_hdl),   & 
    122                    xios(set_file_attr_hdl), xios(set_filegroup_attr_hdl),                                    & 
    123                    xios(set_grid_attr_hdl), xios(set_gridgroup_attr_hdl), xios(set_axis_attr_hdl) ,          & 
    124                    xios(set_axisgroup_attr_hdl), xios(set_context_attr_hdl) 
    125 END INTERFACE xios(set_attr) 
    126  
    127 INTERFACE xios(get_attr) 
    128   MODULE PROCEDURE xios(get_domaingroup_attr_hdl), xios(get_domain_attr_hdl), xios(get_fieldgroup_attr_hdl), & 
    129                    xios(get_field_attr_hdl), xios(get_variable_attr_hdl), xios(get_variablegroup_attr_hdl),  & 
    130                    xios(get_file_attr_hdl), xios(get_filegroup_attr_hdl),                                    & 
    131                    xios(get_grid_attr_hdl), xios(get_gridgroup_attr_hdl), xios(get_axis_attr_hdl) ,          & 
    132                    xios(get_axisgroup_attr_hdl), xios(get_context_attr_hdl) 
    133 END INTERFACE xios(get_attr) 
    134  
    135 INTERFACE xios(is_defined_attr) 
    136   MODULE PROCEDURE xios(is_defined_domaingroup_attr_hdl), xios(is_defined_domain_attr_hdl), xios(is_defined_fieldgroup_attr_hdl), & 
    137                    xios(is_defined_field_attr_hdl), xios(is_defined_variable_attr_hdl), xios(is_defined_variablegroup_attr_hdl),  & 
    138                    xios(is_defined_file_attr_hdl), xios(is_defined_filegroup_attr_hdl),                                           & 
    139                    xios(is_defined_grid_attr_hdl), xios(is_defined_gridgroup_attr_hdl), xios(is_defined_axis_attr_hdl) ,          & 
    140                    xios(is_defined_axisgroup_attr_hdl), xios(is_defined_context_attr_hdl) 
    141 END INTERFACE xios(is_defined_attr) 
    142  
    143 INTERFACE xios(get_handle) 
    144   MODULE PROCEDURE  xios(get_context_handle), xios(get_domain_handle), xios(get_domaingroup_handle),        & 
    145                     xios(get_file_handle), xios(get_filegroup_handle), xios(get_grid_handle),               & 
    146                     xios(get_gridgroup_handle), xios(get_axis_handle), xios(get_axisgroup_handle),          & 
    147                     xios(get_field_handle), xios(get_fieldgroup_handle),xios(get_variable_handle),          & 
    148                     xios(get_variablegroup_handle) 
    149 END INTERFACE xios(get_handle) 
    150  
    151 INTERFACE xios(add_child) 
    152   MODULE PROCEDURE xios(add_axis), xios(add_file), xios(add_grid), xios(add_field), xios(add_domain),                & 
    153                    xios(add_fieldtofile), xios(add_variabletofile), xios(add_variabletofield), xios(add_axisgroup),  & 
    154                    xios(add_filegroup), xios(add_gridgroup), xios(add_fieldgroup), xios(add_domaingroup),            & 
    155                    xios(add_fieldgrouptofile), xios(add_variablegrouptofile),xios(add_variablegrouptofield) 
    156 END INTERFACE xios(add_child) 
    157  
    158  
    159 INTERFACE xios(send_field) 
    160   MODULE PROCEDURE  xios(send_field_r8_1d), xios(send_field_r8_2d), xios(send_field_r8_3d),              & 
    161                     xios(send_field_r4_1d), xios(send_field_r4_2d), xios(send_field_r4_3d) 
    162 END INTERFACE xios(send_field) 
    163  
    164 INTERFACE xios(field_is_active) 
    165   MODULE PROCEDURE xios(field_is_active_id),xios(field_is_active_hdl) 
    166 END INTERFACE 
    167  
    168 INTERFACE xios(getVar) 
    169   MODULE PROCEDURE xios(getVar_k8), xios(getVar_k4), xios(getVar_int), xios(getVar_logic), xios(getVar_char) 
    170 END INTERFACE xios(getVar) 
    171  
    172 INTERFACE xios(setVar) 
    173   MODULE PROCEDURE xios(setVar_k8), xios(setVar_k4), xios(setVar_int), xios(setVar_logic), xios(setVar_char) 
    174 END INTERFACE xios(setVar) 
    175  
    176  PUBLIC :: txios(domain), txios(domaingroup),txios(field), txios(fieldgroup),txios(file), txios(filegroup), & 
    177           txios(grid), txios(gridgroup), txios(axis), txios(axisgroup),txios(context), txios(date),         & 
    178           txios(duration), txios(variable) 
    179  
    180  PUBLIC :: xios(set_attr), xios(set_domain_attr), xios(set_domaingroup_attr), xios(set_fieldgroup_attr), & 
    181           xios(set_field_attr), xios(set_file_attr), xios(set_filegroup_attr),          & 
    182           xios(set_grid_attr), xios(set_gridgroup_attr), xios(set_axis_attr) ,          & 
    183           xios(set_axisgroup_attr), xios(set_context_attr) 
    184  
    185  PUBLIC :: xios(get_attr), xios(get_domain_attr), xios(get_domaingroup_attr), xios(get_fieldgroup_attr), & 
    186           xios(get_field_attr), xios(get_file_attr), xios(get_filegroup_attr),          & 
    187           xios(get_grid_attr), xios(get_gridgroup_attr), xios(get_axis_attr) ,          & 
    188           xios(get_axisgroup_attr), xios(get_context_attr) 
    189  
    190 PUBLIC :: xios(is_defined_attr), xios(is_defined_domain_attr), xios(is_defined_domaingroup_attr), xios(is_defined_fieldgroup_attr), & 
    191           xios(is_defined_field_attr), xios(is_defined_file_attr), xios(is_defined_filegroup_attr),          & 
    192           xios(is_defined_grid_attr), xios(is_defined_gridgroup_attr), xios(is_defined_axis_attr) ,          & 
    193           xios(is_defined_axisgroup_attr), xios(is_defined_context_attr) 
    194  
    195  PUBLIC :: xios(get_handle) 
    196  PUBLIC :: xios(add_child) 
    197  
    198  PUBLIC :: xios(is_valid_context),xios(is_valid_domain), xios(is_valid_domaingroup),xios(is_valid_field),        & 
    199            xios(is_valid_fieldgroup), xios(is_valid_file), xios(is_valid_filegroup), xios(is_valid_grid),         & 
    200            xios(is_valid_gridgroup), xios(is_valid_axis), xios(is_valid_axisgroup), xios(is_valid_variable),      & 
    201            xios(is_valid_variablegroup) 
    202  
    203  PUBLIC :: xios(set_current_context) 
    204  PUBLIC :: xios(initialize), xios(init_server), xios(finalize), xios(context_initialize),xios(context_is_initialized), & 
    205            xios(solve_inheritance), xios(close_context_definition), xios(context_finalize), xios(send_field),          & 
    206            xios(field_is_active) 
    207  
    208  PUBLIC :: xios(define_calendar), xios(set_timestep), xios(set_start_date), xios(set_time_origin), & 
    209            xios(get_calendar_type), xios(get_timestep), xios(get_start_date), xios(get_time_origin), & 
    210            xios(update_calendar), xios(get_current_date), & 
    211            xios(get_year_length_in_seconds), xios(get_day_length_in_seconds) 
    212  
    213  PUBLIC :: xios(year), xios(month), xios(day), xios(hour), xios(minute), xios(second), xios(timestep), & 
    214            xios(duration_add), xios(duration_sub), xios(duration_mult), xios(duration_neg), & 
    215            xios(duration_eq), xios(duration_neq) 
    216  
    217  PUBLIC :: xios(date_convert_to_seconds), & 
    218            xios(date_add_duration), xios(date_sub_duration), xios(date_sub), & 
    219            xios(date_eq), xios(date_neq), xios(date_lt), xios(date_le), xios(date_gt), xios(date_ge), & 
    220            xios(date_get_second_of_year), xios(date_get_day_of_year), xios(date_get_fraction_of_year), & 
    221            xios(date_get_second_of_day), xios(date_get_fraction_of_day) 
    222  
    223  PUBLIC :: OPERATOR(+), OPERATOR(-), OPERATOR(*), & 
    224            OPERATOR(==), OPERATOR(/=), OPERATOR(<), OPERATOR(<=), OPERATOR(>), OPERATOR(>=), & 
    225            ASSIGNMENT(=) 
    226  
    227  PUBLIC :: xios(getVar) 
    228  PUBLIC :: xios(setVar) 
     69USE XIOS_INTERFACES, ONLY : xios(set_attr), xios(get_attr), xios(is_defined_attr), xios(get_handle), & 
     70                            xios(add_child), xios(send_field), xios(field_is_active), xios(getVar), xios(setVar) 
    22971 
    23072END MODULE XIOS 
Note: See TracChangeset for help on using the changeset viewer.