Changeset 981 for XIOS/trunk/src/interface/fortran/ixios_interfaces.F90
- Timestamp:
- 10/24/16 16:16:51 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/trunk/src/interface/fortran/ixios_interfaces.F90
r961 r981 63 63 USE iscalargroup_attr, ONLY : xios(set_scalargroup_attr_hdl), xios(get_scalargroup_attr_hdl), xios(is_defined_scalargroup_attr_hdl) 64 64 65 USE izoom_axis, ONLY : xios(get_zoom_axis_handle) 66 67 USE izoom_axis_attr, ONLY : xios(set_zoom_axis_attr_hdl), xios(get_zoom_axis_attr_hdl), xios(is_defined_zoom_axis_attr_hdl) 68 65 !------------------------------------------------------------------------------- 66 !!! Transformation INTERFACES 67 !------------------------------------------------------------------------------- 68 !!! DOMAIN TRANSFORMATIONS 69 69 USE izoom_domain, ONLY : xios(get_zoom_domain_handle) 70 70 71 71 USE izoom_domain_attr, ONLY : xios(set_zoom_domain_attr_hdl), xios(get_zoom_domain_attr_hdl), xios(is_defined_zoom_domain_attr_hdl) 72 73 USE iinterpolate_axis, ONLY : xios(get_interpolate_axis_handle)74 75 USE iinterpolate_axis_attr, ONLY : xios(set_interpolate_axis_attr_hdl), xios(get_interpolate_axis_attr_hdl), &76 xios(is_defined_interpolate_axis_attr_hdl)77 72 78 73 USE iinterpolate_domain, ONLY : xios(get_interpolate_domain_handle) … … 80 75 USE iinterpolate_domain_attr, ONLY : xios(set_interpolate_domain_attr_hdl), xios(get_interpolate_domain_attr_hdl), & 81 76 xios(is_defined_interpolate_domain_attr_hdl) 82 83 USE iinverse_axis, ONLY : xios(get_inverse_axis_handle)84 85 USE iinverse_axis_attr, ONLY : xios(set_inverse_axis_attr_hdl), xios(get_inverse_axis_attr_hdl), xios(is_defined_inverse_axis_attr_hdl)86 77 87 78 USE igenerate_rectilinear_domain, ONLY : xios(get_generate_rectilinear_domain_handle) … … 90 81 xios(get_generate_rectilinear_domain_attr_hdl), & 91 82 xios(is_defined_generate_rectilinear_domain_attr_hdl) 83 92 84 USE icompute_connectivity_domain, ONLY : xios(get_compute_connectivity_domain_handle) 93 85 … … 96 88 xios(is_defined_compute_connectivity_domain_attr_hdl) 97 89 90 USE iexpand_domain, ONLY : xios(get_expand_domain_handle) 91 92 USE iexpand_domain_attr, ONLY : xios(set_expand_domain_attr_hdl), & 93 xios(get_expand_domain_attr_hdl), & 94 xios(is_defined_expand_domain_attr_hdl) 95 96 !!! AXIS TRANSFORMATIONS 97 USE izoom_axis, ONLY : xios(get_zoom_axis_handle) 98 99 USE izoom_axis_attr, ONLY : xios(set_zoom_axis_attr_hdl), xios(get_zoom_axis_attr_hdl), xios(is_defined_zoom_axis_attr_hdl) 100 101 USE iinterpolate_axis, ONLY : xios(get_interpolate_axis_handle) 102 103 USE iinterpolate_axis_attr, ONLY : xios(set_interpolate_axis_attr_hdl), & 104 xios(get_interpolate_axis_attr_hdl), & 105 xios(is_defined_interpolate_axis_attr_hdl) 106 107 USE iinverse_axis, ONLY : xios(get_inverse_axis_handle) 108 109 USE iinverse_axis_attr, ONLY : xios(set_inverse_axis_attr_hdl), & 110 xios(get_inverse_axis_attr_hdl), & 111 xios(is_defined_inverse_axis_attr_hdl) 112 113 USE ireduce_domain_to_axis, ONLY : xios(get_reduce_domain_to_axis_handle) 114 115 USE ireduce_domain_to_axis_attr, ONLY : xios(set_reduce_domain_to_axis_attr_hdl), & 116 xios(get_reduce_domain_to_axis_attr_hdl), & 117 xios(is_defined_reduce_domain_to_axis_attr_hdl) 118 119 USE iextract_domain_to_axis, ONLY : xios(get_extract_domain_to_axis_handle) 120 121 USE iextract_domain_to_axis_attr, ONLY : xios(set_extract_domain_to_axis_attr_hdl), & 122 xios(get_extract_domain_to_axis_attr_hdl), & 123 xios(is_defined_extract_domain_to_axis_attr_hdl) 124 125 !!! SCALAR TRANSFORMATIONS 126 127 98 128 USE ireduce_axis_to_scalar, ONLY : xios(get_reduce_axis_to_scalar_handle) 99 129 … … 101 131 xios(get_reduce_axis_to_scalar_attr_hdl), & 102 132 xios(is_defined_reduce_axis_to_scalar_attr_hdl) 133 134 USE ireduce_domain_to_scalar, ONLY : xios(get_reduce_domain_to_scalar_handle) 135 136 USE ireduce_domain_to_scalar_attr, ONLY : xios(set_reduce_domain_to_scalar_attr_hdl), & 137 xios(get_reduce_domain_to_scalar_attr_hdl), & 138 xios(is_defined_reduce_domain_to_scalar_attr_hdl) 139 140 USE iextract_axis_to_scalar, ONLY : xios(get_extract_axis_to_scalar_handle) 141 142 USE iextract_axis_to_scalar_attr, ONLY : xios(set_extract_axis_to_scalar_attr_hdl), & 143 xios(get_extract_axis_to_scalar_attr_hdl), & 144 xios(is_defined_extract_axis_to_scalar_attr_hdl) 103 145 104 146 USE ixml_tree, ONLY : xios(add_axis), xios(add_file), xios(add_grid), xios(add_field), xios(add_domain), & … … 111 153 xios(add_interpolateaxistoaxis), xios(add_inverseaxistoaxis), xios(add_scalar), & 112 154 xios(add_scalargroup), xios(add_scalartogrid), xios(add_reduceaxistoscalartoscalar), & 113 xios(add_computeconnectivitydomaintodomain) 155 xios(add_computeconnectivitydomaintodomain), xios(add_reducedomaintoaxistoaxis), & 156 xios(add_extractdomaintoaxistoaxis), xios(add_reducedomaintoscalartoscalar), & 157 xios(add_extractaxistoscalartoscalar), xios(add_expanddomaintodomain) 114 158 115 159 PRIVATE … … 125 169 xios(set_generate_rectilinear_domain_attr_hdl), xios(set_scalar_attr_hdl), & 126 170 xios(set_scalargroup_attr_hdl), xios(set_reduce_axis_to_scalar_attr_hdl), & 127 xios(set_compute_connectivity_domain_attr_hdl) 171 xios(set_compute_connectivity_domain_attr_hdl), xios(set_reduce_domain_to_scalar_attr_hdl), & 172 xios(set_reduce_domain_to_axis_attr_hdl), xios(set_extract_domain_to_axis_attr_hdl), & 173 xios(set_extract_axis_to_scalar_attr_hdl), xios(set_expand_domain_attr_hdl) 128 174 END INTERFACE xios(set_attr) 175 129 176 130 177 INTERFACE xios(get_attr) … … 138 185 xios(get_generate_rectilinear_domain_attr_hdl), xios(get_scalar_attr_hdl), & 139 186 xios(get_scalargroup_attr_hdl), xios(get_reduce_axis_to_scalar_attr_hdl), & 140 xios(get_compute_connectivity_domain_attr_hdl) 187 xios(get_compute_connectivity_domain_attr_hdl), xios(get_reduce_domain_to_scalar_attr_hdl), & 188 xios(get_reduce_domain_to_axis_attr_hdl), xios(get_extract_domain_to_axis_attr_hdl), & 189 xios(get_extract_axis_to_scalar_attr_hdl), xios(get_expand_domain_attr_hdl) 141 190 END INTERFACE xios(get_attr) 142 191 … … 151 200 xios(is_defined_inverse_axis_attr_hdl), xios(is_defined_generate_rectilinear_domain_attr_hdl), & 152 201 xios(is_defined_scalar_attr_hdl), xios(is_defined_scalargroup_attr_hdl), & 153 xios(is_defined_reduce_axis_to_scalar_attr_hdl), xios(is_defined_compute_connectivity_domain_attr_hdl) 202 xios(is_defined_reduce_axis_to_scalar_attr_hdl), xios(is_defined_compute_connectivity_domain_attr_hdl), & 203 xios(is_defined_reduce_domain_to_scalar_attr_hdl), xios(is_defined_reduce_domain_to_axis_attr_hdl), & 204 xios(is_defined_extract_domain_to_axis_attr_hdl), xios(is_defined_extract_axis_to_scalar_attr_hdl), & 205 xios(is_defined_expand_domain_attr_hdl) 154 206 END INTERFACE xios(is_defined_attr) 155 207 156 208 INTERFACE xios(get_handle) 157 MODULE PROCEDURE xios(get_context_handle), xios(get_domain_handle), xios(get_domaingroup_handle), & 158 xios(get_file_handle), xios(get_filegroup_handle), xios(get_grid_handle), & 159 xios(get_gridgroup_handle), xios(get_axis_handle), xios(get_axisgroup_handle), & 160 xios(get_field_handle), xios(get_fieldgroup_handle),xios(get_variable_handle), & 161 xios(get_variablegroup_handle), xios(get_zoom_axis_handle), & 162 xios(get_zoom_domain_handle), xios(get_interpolate_axis_handle), & 163 xios(get_interpolate_domain_handle), xios(get_inverse_axis_handle), & 164 xios(get_generate_rectilinear_domain_handle), xios(get_scalar_handle), & 165 xios(get_scalargroup_handle), xios(get_reduce_axis_to_scalar_handle), & 166 xios(get_compute_connectivity_domain_handle) 209 MODULE PROCEDURE xios(get_context_handle), xios(get_domain_handle), xios(get_domaingroup_handle), & 210 xios(get_file_handle), xios(get_filegroup_handle), xios(get_grid_handle), & 211 xios(get_gridgroup_handle), xios(get_axis_handle), xios(get_axisgroup_handle), & 212 xios(get_field_handle), xios(get_fieldgroup_handle),xios(get_variable_handle), & 213 xios(get_variablegroup_handle), xios(get_zoom_axis_handle), & 214 xios(get_zoom_domain_handle), xios(get_interpolate_axis_handle), & 215 xios(get_interpolate_domain_handle), xios(get_inverse_axis_handle), & 216 xios(get_generate_rectilinear_domain_handle), xios(get_scalar_handle), & 217 xios(get_scalargroup_handle), xios(get_reduce_axis_to_scalar_handle), & 218 xios(get_compute_connectivity_domain_handle), xios(get_reduce_domain_to_scalar_handle), & 219 xios(get_reduce_domain_to_axis_handle), xios(get_extract_domain_to_axis_handle), & 220 xios(get_extract_axis_to_scalar_handle), xios(get_expand_domain_handle) 167 221 END INTERFACE xios(get_handle) 168 222 … … 176 230 xios(add_zoomaxistoaxis), xios(add_interpolateaxistoaxis), xios(add_inverseaxistoaxis), & 177 231 xios(add_scalar), xios(add_scalartogrid), xios(add_reduceaxistoscalartoscalar), & 178 xios(add_computeconnectivitydomaintodomain) 232 xios(add_computeconnectivitydomaintodomain), xios(add_reducedomaintoscalartoscalar), & 233 xios(add_reducedomaintoaxistoaxis), xios(add_extractdomaintoaxistoaxis), & 234 xios(add_extractaxistoscalartoscalar), xios(add_expanddomaintodomain) 179 235 END INTERFACE xios(add_child) 180 236
Note: See TracChangeset
for help on using the changeset viewer.