[576] | 1 | #include "xios_fortran_prefix.hpp" |
---|
| 2 | |
---|
| 3 | MODULE XIOS_INTERFACES |
---|
| 4 | |
---|
| 5 | USE icontext, ONLY : xios(get_context_handle) |
---|
| 6 | |
---|
| 7 | USE icontext_attr, ONLY : xios(set_context_attr_hdl), xios(get_context_attr_hdl), xios(is_defined_context_attr_hdl) |
---|
| 8 | |
---|
[886] | 9 | USE idata, ONLY : xios(send_field_r8_0d), xios(send_field_r8_1d), xios(send_field_r8_2d), xios(send_field_r8_3d), & |
---|
[932] | 10 | xios(send_field_r8_4d), xios(send_field_r8_5d), xios(send_field_r8_6d), xios(send_field_r8_7d), & |
---|
[886] | 11 | xios(send_field_r4_0d), xios(send_field_r4_1d), xios(send_field_r4_2d), xios(send_field_r4_3d), & |
---|
[932] | 12 | xios(send_field_r4_4d), xios(send_field_r4_5d), xios(send_field_r4_6d), xios(send_field_r4_7d), & |
---|
| 13 | xios(recv_field_r8_1d), xios(recv_field_r8_2d), xios(recv_field_r8_3d), & |
---|
| 14 | xios(recv_field_r8_4d), xios(recv_field_r8_5d), xios(recv_field_r8_6d), xios(recv_field_r8_7d), & |
---|
| 15 | xios(recv_field_r4_1d), xios(recv_field_r4_2d), xios(recv_field_r4_3d), & |
---|
| 16 | xios(recv_field_r4_4d), xios(recv_field_r4_5d), xios(recv_field_r4_6d), xios(recv_field_r4_7d), & |
---|
| 17 | xios(getVar_k8), xios(getVar_k4), xios(getVar_int), xios(getVar_logic), xios(getVar_char), & |
---|
[576] | 18 | xios(setVar_k8), xios(setVar_k4), xios(setVar_int), xios(setVar_logic), xios(setVar_char) |
---|
| 19 | |
---|
| 20 | USE idomain, ONLY : xios(get_domain_handle), xios(get_domaingroup_handle) |
---|
| 21 | |
---|
| 22 | USE idomain_attr, ONLY : xios(set_domain_attr_hdl), xios(get_domain_attr_hdl), xios(is_defined_domain_attr_hdl) |
---|
| 23 | |
---|
| 24 | USE idomaingroup_attr, ONLY : xios(set_domaingroup_attr_hdl), xios(get_domaingroup_attr_hdl), xios(is_defined_domaingroup_attr_hdl) |
---|
| 25 | |
---|
| 26 | USE ifield, ONLY : xios(get_field_handle), xios(get_fieldgroup_handle), xios(field_is_active_id), xios(field_is_active_hdl) |
---|
| 27 | |
---|
| 28 | USE ifield_attr, ONLY : xios(set_field_attr_hdl), xios(get_field_attr_hdl), xios(is_defined_field_attr_hdl) |
---|
| 29 | |
---|
| 30 | USE ifieldgroup_attr, ONLY : xios(set_fieldgroup_attr_hdl), xios(get_fieldgroup_attr_hdl), xios(is_defined_fieldgroup_attr_hdl) |
---|
| 31 | |
---|
| 32 | USE ivariable, ONLY : xios(get_variable_handle), xios(get_variablegroup_handle) |
---|
| 33 | |
---|
| 34 | USE ivariable_attr, ONLY : xios(set_variable_attr_hdl), xios(get_variable_attr_hdl), xios(is_defined_variable_attr_hdl) |
---|
| 35 | |
---|
[577] | 36 | USE ivariablegroup_attr, ONLY : xios(set_variablegroup_attr_hdl), xios(get_variablegroup_attr_hdl), & |
---|
| 37 | xios(is_defined_variablegroup_attr_hdl) |
---|
[576] | 38 | |
---|
| 39 | USE ifile, ONLY : xios(get_file_handle), xios(get_filegroup_handle) |
---|
| 40 | |
---|
| 41 | USE ifile_attr, ONLY : xios(set_file_attr_hdl), xios(get_file_attr_hdl), xios(is_defined_file_attr_hdl) |
---|
| 42 | |
---|
| 43 | USE ifilegroup_attr, ONLY : xios(set_filegroup_attr_hdl), xios(get_filegroup_attr_hdl), xios(is_defined_filegroup_attr_hdl) |
---|
| 44 | |
---|
| 45 | USE igrid, ONLY : xios(get_grid_handle), xios(get_gridgroup_handle) |
---|
| 46 | |
---|
| 47 | USE igrid_attr, ONLY : xios(set_grid_attr_hdl), xios(get_grid_attr_hdl), xios(is_defined_grid_attr_hdl) |
---|
| 48 | |
---|
| 49 | USE igridgroup_attr, ONLY : xios(set_gridgroup_attr_hdl), xios(get_gridgroup_attr_hdl), xios(is_defined_gridgroup_attr_hdl) |
---|
| 50 | |
---|
| 51 | USE iaxis, ONLY : xios(get_axis_handle), xios(get_axisgroup_handle) |
---|
| 52 | |
---|
| 53 | USE iaxis_attr, ONLY : xios(set_axis_attr_hdl), xios(get_axis_attr_hdl), xios(is_defined_axis_attr_hdl) |
---|
| 54 | |
---|
| 55 | USE iaxisgroup_attr, ONLY : xios(set_axisgroup_attr_hdl), xios(get_axisgroup_attr_hdl), xios(is_defined_axisgroup_attr_hdl) |
---|
| 56 | |
---|
[891] | 57 | USE iscalar, ONLY : xios(get_scalar_handle), xios(get_scalargroup_handle) |
---|
| 58 | |
---|
| 59 | USE iscalar_attr, ONLY : xios(set_scalar_attr_hdl), xios(get_scalar_attr_hdl), xios(is_defined_scalar_attr_hdl) |
---|
| 60 | |
---|
| 61 | USE iscalargroup_attr, ONLY : xios(set_scalargroup_attr_hdl), xios(get_scalargroup_attr_hdl), xios(is_defined_scalargroup_attr_hdl) |
---|
| 62 | |
---|
[784] | 63 | USE izoom_axis, ONLY : xios(get_zoom_axis_handle) |
---|
| 64 | |
---|
| 65 | USE izoom_axis_attr, ONLY : xios(set_zoom_axis_attr_hdl), xios(get_zoom_axis_attr_hdl), xios(is_defined_zoom_axis_attr_hdl) |
---|
| 66 | |
---|
| 67 | USE izoom_domain, ONLY : xios(get_zoom_domain_handle) |
---|
| 68 | |
---|
| 69 | USE izoom_domain_attr, ONLY : xios(set_zoom_domain_attr_hdl), xios(get_zoom_domain_attr_hdl), xios(is_defined_zoom_domain_attr_hdl) |
---|
| 70 | |
---|
[786] | 71 | USE iinterpolate_axis, ONLY : xios(get_interpolate_axis_handle) |
---|
| 72 | |
---|
| 73 | USE iinterpolate_axis_attr, ONLY : xios(set_interpolate_axis_attr_hdl), xios(get_interpolate_axis_attr_hdl), & |
---|
| 74 | xios(is_defined_interpolate_axis_attr_hdl) |
---|
| 75 | |
---|
| 76 | USE iinterpolate_domain, ONLY : xios(get_interpolate_domain_handle) |
---|
| 77 | |
---|
| 78 | USE iinterpolate_domain_attr, ONLY : xios(set_interpolate_domain_attr_hdl), xios(get_interpolate_domain_attr_hdl), & |
---|
| 79 | xios(is_defined_interpolate_domain_attr_hdl) |
---|
| 80 | |
---|
| 81 | USE iinverse_axis, ONLY : xios(get_inverse_axis_handle) |
---|
| 82 | |
---|
| 83 | USE iinverse_axis_attr, ONLY : xios(set_inverse_axis_attr_hdl), xios(get_inverse_axis_attr_hdl), xios(is_defined_inverse_axis_attr_hdl) |
---|
| 84 | |
---|
| 85 | USE igenerate_rectilinear_domain, ONLY : xios(get_generate_rectilinear_domain_handle) |
---|
| 86 | |
---|
| 87 | USE igenerate_rectilinear_domain_attr, ONLY : xios(set_generate_rectilinear_domain_attr_hdl), & |
---|
| 88 | xios(get_generate_rectilinear_domain_attr_hdl), & |
---|
| 89 | xios(is_defined_generate_rectilinear_domain_attr_hdl) |
---|
| 90 | |
---|
[891] | 91 | USE ireduce_axis_to_scalar, ONLY : xios(get_reduce_axis_to_scalar_handle) |
---|
| 92 | |
---|
[903] | 93 | USE ireduce_axis_to_scalar_attr, ONLY : xios(set_reduce_axis_to_scalar_attr_hdl), & |
---|
| 94 | xios(get_reduce_axis_to_scalar_attr_hdl), & |
---|
| 95 | xios(is_defined_reduce_axis_to_scalar_attr_hdl) |
---|
[891] | 96 | |
---|
[576] | 97 | USE ixml_tree, ONLY : xios(add_axis), xios(add_file), xios(add_grid), xios(add_field), xios(add_domain), & |
---|
| 98 | xios(add_fieldtofile), xios(add_variabletofile), xios(add_variabletofield), & |
---|
| 99 | xios(add_axisgroup), xios(add_filegroup), xios(add_gridgroup), xios(add_fieldgroup), & |
---|
| 100 | xios(add_domaingroup), xios(add_fieldgrouptofile), xios(add_variablegrouptofile), & |
---|
[836] | 101 | xios(add_variablegrouptofield), xios(add_axistogrid), xios(add_domaintogrid), & |
---|
| 102 | xios(add_zoomdomaintodomain), xios(add_interpolatedomaintodomain), & |
---|
| 103 | xios(add_generatedomaintodomain), xios(add_zoomaxistoaxis), & |
---|
[891] | 104 | xios(add_interpolateaxistoaxis), xios(add_inverseaxistoaxis), xios(add_scalar), & |
---|
| 105 | xios(add_scalargroup), xios(add_scalartogrid), xios(add_reduceaxistoscalartoscalar) |
---|
[576] | 106 | |
---|
| 107 | PRIVATE |
---|
| 108 | |
---|
| 109 | INTERFACE xios(set_attr) |
---|
| 110 | MODULE PROCEDURE xios(set_domaingroup_attr_hdl), xios(set_domain_attr_hdl), xios(set_fieldgroup_attr_hdl), & |
---|
| 111 | xios(set_field_attr_hdl),xios(set_variable_attr_hdl), xios(set_variablegroup_attr_hdl), & |
---|
| 112 | xios(set_file_attr_hdl), xios(set_filegroup_attr_hdl), & |
---|
| 113 | xios(set_grid_attr_hdl), xios(set_gridgroup_attr_hdl), xios(set_axis_attr_hdl) , & |
---|
[784] | 114 | xios(set_axisgroup_attr_hdl), xios(set_context_attr_hdl), xios(set_zoom_axis_attr_hdl), & |
---|
[786] | 115 | xios(set_zoom_domain_attr_hdl), xios(set_interpolate_axis_attr_hdl), & |
---|
| 116 | xios(set_interpolate_domain_attr_hdl), xios(set_inverse_axis_attr_hdl), & |
---|
[891] | 117 | xios(set_generate_rectilinear_domain_attr_hdl), xios(set_scalar_attr_hdl), & |
---|
| 118 | xios(set_scalargroup_attr_hdl), xios(set_reduce_axis_to_scalar_attr_hdl) |
---|
[576] | 119 | END INTERFACE xios(set_attr) |
---|
| 120 | |
---|
| 121 | INTERFACE xios(get_attr) |
---|
| 122 | MODULE PROCEDURE xios(get_domaingroup_attr_hdl), xios(get_domain_attr_hdl), xios(get_fieldgroup_attr_hdl), & |
---|
| 123 | xios(get_field_attr_hdl), xios(get_variable_attr_hdl), xios(get_variablegroup_attr_hdl), & |
---|
| 124 | xios(get_file_attr_hdl), xios(get_filegroup_attr_hdl), & |
---|
| 125 | xios(get_grid_attr_hdl), xios(get_gridgroup_attr_hdl), xios(get_axis_attr_hdl) , & |
---|
[784] | 126 | xios(get_axisgroup_attr_hdl), xios(get_context_attr_hdl), xios(get_zoom_axis_attr_hdl), & |
---|
[786] | 127 | xios(get_zoom_domain_attr_hdl), xios(get_interpolate_axis_attr_hdl), & |
---|
| 128 | xios(get_interpolate_domain_attr_hdl), xios(get_inverse_axis_attr_hdl), & |
---|
[891] | 129 | xios(get_generate_rectilinear_domain_attr_hdl), xios(get_scalar_attr_hdl), & |
---|
| 130 | xios(get_scalargroup_attr_hdl), xios(get_reduce_axis_to_scalar_attr_hdl) |
---|
[576] | 131 | END INTERFACE xios(get_attr) |
---|
| 132 | |
---|
| 133 | INTERFACE xios(is_defined_attr) |
---|
| 134 | MODULE PROCEDURE xios(is_defined_domaingroup_attr_hdl), xios(is_defined_domain_attr_hdl), xios(is_defined_fieldgroup_attr_hdl), & |
---|
| 135 | xios(is_defined_field_attr_hdl), xios(is_defined_variable_attr_hdl), xios(is_defined_variablegroup_attr_hdl), & |
---|
| 136 | xios(is_defined_file_attr_hdl), xios(is_defined_filegroup_attr_hdl), & |
---|
| 137 | xios(is_defined_grid_attr_hdl), xios(is_defined_gridgroup_attr_hdl), xios(is_defined_axis_attr_hdl) , & |
---|
[784] | 138 | xios(is_defined_axisgroup_attr_hdl), xios(is_defined_context_attr_hdl), & |
---|
[786] | 139 | xios(is_defined_zoom_axis_attr_hdl), xios(is_defined_zoom_domain_attr_hdl), & |
---|
| 140 | xios(is_defined_interpolate_axis_attr_hdl), xios(is_defined_interpolate_domain_attr_hdl), & |
---|
[891] | 141 | xios(is_defined_inverse_axis_attr_hdl), xios(is_defined_generate_rectilinear_domain_attr_hdl), & |
---|
| 142 | xios(is_defined_scalar_attr_hdl), xios(is_defined_scalargroup_attr_hdl), & |
---|
| 143 | xios(is_defined_reduce_axis_to_scalar_attr_hdl) |
---|
[576] | 144 | END INTERFACE xios(is_defined_attr) |
---|
| 145 | |
---|
| 146 | INTERFACE xios(get_handle) |
---|
| 147 | MODULE PROCEDURE xios(get_context_handle), xios(get_domain_handle), xios(get_domaingroup_handle), & |
---|
| 148 | xios(get_file_handle), xios(get_filegroup_handle), xios(get_grid_handle), & |
---|
| 149 | xios(get_gridgroup_handle), xios(get_axis_handle), xios(get_axisgroup_handle), & |
---|
| 150 | xios(get_field_handle), xios(get_fieldgroup_handle),xios(get_variable_handle), & |
---|
[786] | 151 | xios(get_variablegroup_handle), xios(get_zoom_axis_handle), & |
---|
| 152 | xios(get_zoom_domain_handle), xios(get_interpolate_axis_handle), & |
---|
| 153 | xios(get_interpolate_domain_handle), xios(get_inverse_axis_handle), & |
---|
[891] | 154 | xios(get_generate_rectilinear_domain_handle), xios(get_scalar_handle), & |
---|
| 155 | xios(get_scalargroup_handle), xios(get_reduce_axis_to_scalar_handle) |
---|
[576] | 156 | END INTERFACE xios(get_handle) |
---|
| 157 | |
---|
| 158 | INTERFACE xios(add_child) |
---|
| 159 | MODULE PROCEDURE xios(add_axis), xios(add_file), xios(add_grid), xios(add_field), xios(add_domain), & |
---|
| 160 | xios(add_fieldtofile), xios(add_variabletofile), xios(add_variabletofield), xios(add_axisgroup), & |
---|
| 161 | xios(add_filegroup), xios(add_gridgroup), xios(add_fieldgroup), xios(add_domaingroup), & |
---|
[835] | 162 | xios(add_fieldgrouptofile), xios(add_variablegrouptofile),xios(add_variablegrouptofield), & |
---|
[836] | 163 | xios(add_axistogrid), xios(add_domaintogrid), xios(add_zoomdomaintodomain), & |
---|
| 164 | xios(add_interpolatedomaintodomain), xios(add_generatedomaintodomain), & |
---|
[891] | 165 | xios(add_zoomaxistoaxis), xios(add_interpolateaxistoaxis), xios(add_inverseaxistoaxis), & |
---|
| 166 | xios(add_scalar), xios(add_scalartogrid), xios(add_reduceaxistoscalartoscalar) |
---|
[576] | 167 | END INTERFACE xios(add_child) |
---|
| 168 | |
---|
| 169 | INTERFACE xios(send_field) |
---|
[932] | 170 | MODULE PROCEDURE xios(send_field_r8_0d), xios(send_field_r8_1d), xios(send_field_r8_2d), xios(send_field_r8_3d), & |
---|
| 171 | xios(send_field_r8_4d), xios(send_field_r8_5d), xios(send_field_r8_6d), xios(send_field_r8_7d), & |
---|
| 172 | xios(send_field_r4_0d), xios(send_field_r4_1d), xios(send_field_r4_2d), xios(send_field_r4_3d), & |
---|
| 173 | xios(send_field_r4_4d), xios(send_field_r4_5d), xios(send_field_r4_6d), xios(send_field_r4_7d) |
---|
[576] | 174 | END INTERFACE xios(send_field) |
---|
| 175 | |
---|
[593] | 176 | INTERFACE xios(recv_field) |
---|
| 177 | MODULE PROCEDURE xios(recv_field_r8_1d), xios(recv_field_r8_2d), xios(recv_field_r8_3d), & |
---|
[932] | 178 | xios(recv_field_r8_4d), xios(recv_field_r8_5d), xios(recv_field_r8_6d), xios(recv_field_r8_7d), & |
---|
| 179 | xios(recv_field_r4_1d), xios(recv_field_r4_2d), xios(recv_field_r4_3d), & |
---|
| 180 | xios(recv_field_r4_4d), xios(recv_field_r4_5d), xios(recv_field_r4_6d), xios(recv_field_r4_7d) |
---|
[593] | 181 | END INTERFACE xios(recv_field) |
---|
| 182 | |
---|
[576] | 183 | INTERFACE xios(field_is_active) |
---|
| 184 | MODULE PROCEDURE xios(field_is_active_id),xios(field_is_active_hdl) |
---|
| 185 | END INTERFACE xios(field_is_active) |
---|
| 186 | |
---|
| 187 | INTERFACE xios(getVar) |
---|
| 188 | MODULE PROCEDURE xios(getVar_k8), xios(getVar_k4), xios(getVar_int), xios(getVar_logic), xios(getVar_char) |
---|
| 189 | END INTERFACE xios(getVar) |
---|
| 190 | |
---|
| 191 | INTERFACE xios(setVar) |
---|
| 192 | MODULE PROCEDURE xios(setVar_k8), xios(setVar_k4), xios(setVar_int), xios(setVar_logic), xios(setVar_char) |
---|
| 193 | END INTERFACE xios(setVar) |
---|
| 194 | |
---|
[593] | 195 | PUBLIC :: xios(set_attr), xios(get_attr), xios(is_defined_attr), xios(get_handle), xios(add_child), & |
---|
[886] | 196 | xios(send_field), xios(recv_field), xios(field_is_active), xios(getVar), xios(setVar) |
---|
[576] | 197 | |
---|
| 198 | END MODULE XIOS_INTERFACES |
---|