Changeset 432 for XIOS/trunk/src/interface/fortran_attr
- Timestamp:
- 06/03/13 11:21:19 (11 years ago)
- Location:
- XIOS/trunk/src/interface/fortran_attr
- Files:
-
- 22 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/trunk/src/interface/fortran_attr/axis_interface_attr.f90
r415 r432 23 23 END SUBROUTINE cxios_get_axis_long_name 24 24 25 FUNCTION cxios_is_defined_axis_long_name(axis_hdl ) BIND(C) 26 USE ISO_C_BINDING 27 LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_long_name 28 INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 29 END FUNCTION cxios_is_defined_axis_long_name 30 25 31 26 32 SUBROUTINE cxios_set_axis_name(axis_hdl, name, name_size) BIND(C) … … 38 44 END SUBROUTINE cxios_get_axis_name 39 45 46 FUNCTION cxios_is_defined_axis_name(axis_hdl ) BIND(C) 47 USE ISO_C_BINDING 48 LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_name 49 INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 50 END FUNCTION cxios_is_defined_axis_name 51 40 52 41 53 SUBROUTINE cxios_set_axis_positive(axis_hdl, positive, positive_size) BIND(C) … … 53 65 END SUBROUTINE cxios_get_axis_positive 54 66 67 FUNCTION cxios_is_defined_axis_positive(axis_hdl ) BIND(C) 68 USE ISO_C_BINDING 69 LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_positive 70 INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 71 END FUNCTION cxios_is_defined_axis_positive 72 55 73 56 74 SUBROUTINE cxios_set_axis_size(axis_hdl, size) BIND(C) … … 65 83 INTEGER (KIND=C_INT) :: size 66 84 END SUBROUTINE cxios_get_axis_size 85 86 FUNCTION cxios_is_defined_axis_size(axis_hdl ) BIND(C) 87 USE ISO_C_BINDING 88 LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_size 89 INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 90 END FUNCTION cxios_is_defined_axis_size 67 91 68 92 … … 81 105 END SUBROUTINE cxios_get_axis_standard_name 82 106 107 FUNCTION cxios_is_defined_axis_standard_name(axis_hdl ) BIND(C) 108 USE ISO_C_BINDING 109 LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_standard_name 110 INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 111 END FUNCTION cxios_is_defined_axis_standard_name 112 83 113 84 114 SUBROUTINE cxios_set_axis_unit(axis_hdl, unit, unit_size) BIND(C) … … 95 125 INTEGER (kind = C_INT) , VALUE :: unit_size 96 126 END SUBROUTINE cxios_get_axis_unit 127 128 FUNCTION cxios_is_defined_axis_unit(axis_hdl ) BIND(C) 129 USE ISO_C_BINDING 130 LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_unit 131 INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 132 END FUNCTION cxios_is_defined_axis_unit 97 133 98 134 … … 111 147 END SUBROUTINE cxios_get_axis_value 112 148 149 FUNCTION cxios_is_defined_axis_value(axis_hdl ) BIND(C) 150 USE ISO_C_BINDING 151 LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_value 152 INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 153 END FUNCTION cxios_is_defined_axis_value 154 113 155 114 156 SUBROUTINE cxios_set_axis_zoom_begin(axis_hdl, zoom_begin) BIND(C) … … 124 166 END SUBROUTINE cxios_get_axis_zoom_begin 125 167 168 FUNCTION cxios_is_defined_axis_zoom_begin(axis_hdl ) BIND(C) 169 USE ISO_C_BINDING 170 LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_zoom_begin 171 INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 172 END FUNCTION cxios_is_defined_axis_zoom_begin 173 126 174 127 175 SUBROUTINE cxios_set_axis_zoom_end(axis_hdl, zoom_end) BIND(C) … … 137 185 END SUBROUTINE cxios_get_axis_zoom_end 138 186 187 FUNCTION cxios_is_defined_axis_zoom_end(axis_hdl ) BIND(C) 188 USE ISO_C_BINDING 189 LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_zoom_end 190 INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 191 END FUNCTION cxios_is_defined_axis_zoom_end 192 139 193 140 194 SUBROUTINE cxios_set_axis_zoom_size(axis_hdl, zoom_size) BIND(C) … … 149 203 INTEGER (KIND=C_INT) :: zoom_size 150 204 END SUBROUTINE cxios_get_axis_zoom_size 205 206 FUNCTION cxios_is_defined_axis_zoom_size(axis_hdl ) BIND(C) 207 USE ISO_C_BINDING 208 LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_zoom_size 209 INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 210 END FUNCTION cxios_is_defined_axis_zoom_size 151 211 152 212 -
XIOS/trunk/src/interface/fortran_attr/axisgroup_interface_attr.f90
r415 r432 23 23 END SUBROUTINE cxios_get_axisgroup_group_ref 24 24 25 FUNCTION cxios_is_defined_axisgroup_group_ref(axisgroup_hdl ) BIND(C) 26 USE ISO_C_BINDING 27 LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_group_ref 28 INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 29 END FUNCTION cxios_is_defined_axisgroup_group_ref 30 25 31 26 32 SUBROUTINE cxios_set_axisgroup_long_name(axisgroup_hdl, long_name, long_name_size) BIND(C) … … 38 44 END SUBROUTINE cxios_get_axisgroup_long_name 39 45 46 FUNCTION cxios_is_defined_axisgroup_long_name(axisgroup_hdl ) BIND(C) 47 USE ISO_C_BINDING 48 LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_long_name 49 INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 50 END FUNCTION cxios_is_defined_axisgroup_long_name 51 40 52 41 53 SUBROUTINE cxios_set_axisgroup_name(axisgroup_hdl, name, name_size) BIND(C) … … 53 65 END SUBROUTINE cxios_get_axisgroup_name 54 66 67 FUNCTION cxios_is_defined_axisgroup_name(axisgroup_hdl ) BIND(C) 68 USE ISO_C_BINDING 69 LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_name 70 INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 71 END FUNCTION cxios_is_defined_axisgroup_name 72 55 73 56 74 SUBROUTINE cxios_set_axisgroup_positive(axisgroup_hdl, positive, positive_size) BIND(C) … … 68 86 END SUBROUTINE cxios_get_axisgroup_positive 69 87 88 FUNCTION cxios_is_defined_axisgroup_positive(axisgroup_hdl ) BIND(C) 89 USE ISO_C_BINDING 90 LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_positive 91 INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 92 END FUNCTION cxios_is_defined_axisgroup_positive 93 70 94 71 95 SUBROUTINE cxios_set_axisgroup_size(axisgroup_hdl, size) BIND(C) … … 80 104 INTEGER (KIND=C_INT) :: size 81 105 END SUBROUTINE cxios_get_axisgroup_size 106 107 FUNCTION cxios_is_defined_axisgroup_size(axisgroup_hdl ) BIND(C) 108 USE ISO_C_BINDING 109 LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_size 110 INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 111 END FUNCTION cxios_is_defined_axisgroup_size 82 112 83 113 … … 96 126 END SUBROUTINE cxios_get_axisgroup_standard_name 97 127 128 FUNCTION cxios_is_defined_axisgroup_standard_name(axisgroup_hdl ) BIND(C) 129 USE ISO_C_BINDING 130 LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_standard_name 131 INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 132 END FUNCTION cxios_is_defined_axisgroup_standard_name 133 98 134 99 135 SUBROUTINE cxios_set_axisgroup_unit(axisgroup_hdl, unit, unit_size) BIND(C) … … 110 146 INTEGER (kind = C_INT) , VALUE :: unit_size 111 147 END SUBROUTINE cxios_get_axisgroup_unit 148 149 FUNCTION cxios_is_defined_axisgroup_unit(axisgroup_hdl ) BIND(C) 150 USE ISO_C_BINDING 151 LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_unit 152 INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 153 END FUNCTION cxios_is_defined_axisgroup_unit 112 154 113 155 … … 126 168 END SUBROUTINE cxios_get_axisgroup_value 127 169 170 FUNCTION cxios_is_defined_axisgroup_value(axisgroup_hdl ) BIND(C) 171 USE ISO_C_BINDING 172 LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_value 173 INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 174 END FUNCTION cxios_is_defined_axisgroup_value 175 128 176 129 177 SUBROUTINE cxios_set_axisgroup_zoom_begin(axisgroup_hdl, zoom_begin) BIND(C) … … 139 187 END SUBROUTINE cxios_get_axisgroup_zoom_begin 140 188 189 FUNCTION cxios_is_defined_axisgroup_zoom_begin(axisgroup_hdl ) BIND(C) 190 USE ISO_C_BINDING 191 LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_zoom_begin 192 INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 193 END FUNCTION cxios_is_defined_axisgroup_zoom_begin 194 141 195 142 196 SUBROUTINE cxios_set_axisgroup_zoom_end(axisgroup_hdl, zoom_end) BIND(C) … … 152 206 END SUBROUTINE cxios_get_axisgroup_zoom_end 153 207 208 FUNCTION cxios_is_defined_axisgroup_zoom_end(axisgroup_hdl ) BIND(C) 209 USE ISO_C_BINDING 210 LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_zoom_end 211 INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 212 END FUNCTION cxios_is_defined_axisgroup_zoom_end 213 154 214 155 215 SUBROUTINE cxios_set_axisgroup_zoom_size(axisgroup_hdl, zoom_size) BIND(C) … … 164 224 INTEGER (KIND=C_INT) :: zoom_size 165 225 END SUBROUTINE cxios_get_axisgroup_zoom_size 226 227 FUNCTION cxios_is_defined_axisgroup_zoom_size(axisgroup_hdl ) BIND(C) 228 USE ISO_C_BINDING 229 LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_zoom_size 230 INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 231 END FUNCTION cxios_is_defined_axisgroup_zoom_size 166 232 167 233 -
XIOS/trunk/src/interface/fortran_attr/context_interface_attr.f90
r336 r432 23 23 END SUBROUTINE cxios_get_context_calendar_type 24 24 25 FUNCTION cxios_is_defined_context_calendar_type(context_hdl ) BIND(C) 26 USE ISO_C_BINDING 27 LOGICAL(kind=C_BOOL) :: cxios_is_defined_context_calendar_type 28 INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl 29 END FUNCTION cxios_is_defined_context_calendar_type 30 25 31 26 32 SUBROUTINE cxios_set_context_output_dir(context_hdl, output_dir, output_dir_size) BIND(C) … … 37 43 INTEGER (kind = C_INT) , VALUE :: output_dir_size 38 44 END SUBROUTINE cxios_get_context_output_dir 45 46 FUNCTION cxios_is_defined_context_output_dir(context_hdl ) BIND(C) 47 USE ISO_C_BINDING 48 LOGICAL(kind=C_BOOL) :: cxios_is_defined_context_output_dir 49 INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl 50 END FUNCTION cxios_is_defined_context_output_dir 39 51 40 52 … … 53 65 END SUBROUTINE cxios_get_context_start_date 54 66 67 FUNCTION cxios_is_defined_context_start_date(context_hdl ) BIND(C) 68 USE ISO_C_BINDING 69 LOGICAL(kind=C_BOOL) :: cxios_is_defined_context_start_date 70 INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl 71 END FUNCTION cxios_is_defined_context_start_date 72 55 73 56 74 SUBROUTINE cxios_set_context_time_origin(context_hdl, time_origin, time_origin_size) BIND(C) … … 67 85 INTEGER (kind = C_INT) , VALUE :: time_origin_size 68 86 END SUBROUTINE cxios_get_context_time_origin 87 88 FUNCTION cxios_is_defined_context_time_origin(context_hdl ) BIND(C) 89 USE ISO_C_BINDING 90 LOGICAL(kind=C_BOOL) :: cxios_is_defined_context_time_origin 91 INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl 92 END FUNCTION cxios_is_defined_context_time_origin 69 93 70 94 … … 83 107 END SUBROUTINE cxios_get_context_timestep 84 108 109 FUNCTION cxios_is_defined_context_timestep(context_hdl ) BIND(C) 110 USE ISO_C_BINDING 111 LOGICAL(kind=C_BOOL) :: cxios_is_defined_context_timestep 112 INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl 113 END FUNCTION cxios_is_defined_context_timestep 114 85 115 86 116 END INTERFACE -
XIOS/trunk/src/interface/fortran_attr/domain_interface_attr.f90
r326 r432 21 21 END SUBROUTINE cxios_get_domain_data_dim 22 22 23 FUNCTION cxios_is_defined_domain_data_dim(domain_hdl ) BIND(C) 24 USE ISO_C_BINDING 25 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_data_dim 26 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 27 END FUNCTION cxios_is_defined_domain_data_dim 28 23 29 24 30 SUBROUTINE cxios_set_domain_data_i_index(domain_hdl, data_i_index, extent1) BIND(C) … … 35 41 INTEGER (kind = C_INT), VALUE :: extent1 36 42 END SUBROUTINE cxios_get_domain_data_i_index 43 44 FUNCTION cxios_is_defined_domain_data_i_index(domain_hdl ) BIND(C) 45 USE ISO_C_BINDING 46 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_data_i_index 47 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 48 END FUNCTION cxios_is_defined_domain_data_i_index 37 49 38 50 … … 49 61 END SUBROUTINE cxios_get_domain_data_ibegin 50 62 63 FUNCTION cxios_is_defined_domain_data_ibegin(domain_hdl ) BIND(C) 64 USE ISO_C_BINDING 65 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_data_ibegin 66 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 67 END FUNCTION cxios_is_defined_domain_data_ibegin 68 51 69 52 70 SUBROUTINE cxios_set_domain_data_j_index(domain_hdl, data_j_index, extent1) BIND(C) … … 63 81 INTEGER (kind = C_INT), VALUE :: extent1 64 82 END SUBROUTINE cxios_get_domain_data_j_index 83 84 FUNCTION cxios_is_defined_domain_data_j_index(domain_hdl ) BIND(C) 85 USE ISO_C_BINDING 86 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_data_j_index 87 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 88 END FUNCTION cxios_is_defined_domain_data_j_index 65 89 66 90 … … 77 101 END SUBROUTINE cxios_get_domain_data_jbegin 78 102 103 FUNCTION cxios_is_defined_domain_data_jbegin(domain_hdl ) BIND(C) 104 USE ISO_C_BINDING 105 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_data_jbegin 106 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 107 END FUNCTION cxios_is_defined_domain_data_jbegin 108 79 109 80 110 SUBROUTINE cxios_set_domain_data_n_index(domain_hdl, data_n_index) BIND(C) … … 90 120 END SUBROUTINE cxios_get_domain_data_n_index 91 121 122 FUNCTION cxios_is_defined_domain_data_n_index(domain_hdl ) BIND(C) 123 USE ISO_C_BINDING 124 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_data_n_index 125 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 126 END FUNCTION cxios_is_defined_domain_data_n_index 127 92 128 93 129 SUBROUTINE cxios_set_domain_data_ni(domain_hdl, data_ni) BIND(C) … … 103 139 END SUBROUTINE cxios_get_domain_data_ni 104 140 141 FUNCTION cxios_is_defined_domain_data_ni(domain_hdl ) BIND(C) 142 USE ISO_C_BINDING 143 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_data_ni 144 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 145 END FUNCTION cxios_is_defined_domain_data_ni 146 105 147 106 148 SUBROUTINE cxios_set_domain_data_nj(domain_hdl, data_nj) BIND(C) … … 115 157 INTEGER (KIND=C_INT) :: data_nj 116 158 END SUBROUTINE cxios_get_domain_data_nj 159 160 FUNCTION cxios_is_defined_domain_data_nj(domain_hdl ) BIND(C) 161 USE ISO_C_BINDING 162 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_data_nj 163 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 164 END FUNCTION cxios_is_defined_domain_data_nj 117 165 118 166 … … 131 179 END SUBROUTINE cxios_get_domain_domain_group_ref 132 180 181 FUNCTION cxios_is_defined_domain_domain_group_ref(domain_hdl ) BIND(C) 182 USE ISO_C_BINDING 183 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_domain_group_ref 184 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 185 END FUNCTION cxios_is_defined_domain_domain_group_ref 186 133 187 134 188 SUBROUTINE cxios_set_domain_ibegin(domain_hdl, ibegin) BIND(C) … … 144 198 END SUBROUTINE cxios_get_domain_ibegin 145 199 200 FUNCTION cxios_is_defined_domain_ibegin(domain_hdl ) BIND(C) 201 USE ISO_C_BINDING 202 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_ibegin 203 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 204 END FUNCTION cxios_is_defined_domain_ibegin 205 146 206 147 207 SUBROUTINE cxios_set_domain_iend(domain_hdl, iend) BIND(C) … … 157 217 END SUBROUTINE cxios_get_domain_iend 158 218 219 FUNCTION cxios_is_defined_domain_iend(domain_hdl ) BIND(C) 220 USE ISO_C_BINDING 221 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_iend 222 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 223 END FUNCTION cxios_is_defined_domain_iend 224 159 225 160 226 SUBROUTINE cxios_set_domain_jbegin(domain_hdl, jbegin) BIND(C) … … 170 236 END SUBROUTINE cxios_get_domain_jbegin 171 237 238 FUNCTION cxios_is_defined_domain_jbegin(domain_hdl ) BIND(C) 239 USE ISO_C_BINDING 240 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_jbegin 241 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 242 END FUNCTION cxios_is_defined_domain_jbegin 243 172 244 173 245 SUBROUTINE cxios_set_domain_jend(domain_hdl, jend) BIND(C) … … 183 255 END SUBROUTINE cxios_get_domain_jend 184 256 257 FUNCTION cxios_is_defined_domain_jend(domain_hdl ) BIND(C) 258 USE ISO_C_BINDING 259 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_jend 260 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 261 END FUNCTION cxios_is_defined_domain_jend 262 185 263 186 264 SUBROUTINE cxios_set_domain_latvalue(domain_hdl, latvalue, extent1) BIND(C) … … 197 275 INTEGER (kind = C_INT), VALUE :: extent1 198 276 END SUBROUTINE cxios_get_domain_latvalue 277 278 FUNCTION cxios_is_defined_domain_latvalue(domain_hdl ) BIND(C) 279 USE ISO_C_BINDING 280 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_latvalue 281 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 282 END FUNCTION cxios_is_defined_domain_latvalue 199 283 200 284 … … 213 297 END SUBROUTINE cxios_get_domain_long_name 214 298 299 FUNCTION cxios_is_defined_domain_long_name(domain_hdl ) BIND(C) 300 USE ISO_C_BINDING 301 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_long_name 302 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 303 END FUNCTION cxios_is_defined_domain_long_name 304 215 305 216 306 SUBROUTINE cxios_set_domain_lonvalue(domain_hdl, lonvalue, extent1) BIND(C) … … 227 317 INTEGER (kind = C_INT), VALUE :: extent1 228 318 END SUBROUTINE cxios_get_domain_lonvalue 319 320 FUNCTION cxios_is_defined_domain_lonvalue(domain_hdl ) BIND(C) 321 USE ISO_C_BINDING 322 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_lonvalue 323 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 324 END FUNCTION cxios_is_defined_domain_lonvalue 229 325 230 326 … … 244 340 INTEGER (kind = C_INT), VALUE :: extent2 245 341 END SUBROUTINE cxios_get_domain_mask 342 343 FUNCTION cxios_is_defined_domain_mask(domain_hdl ) BIND(C) 344 USE ISO_C_BINDING 345 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_mask 346 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 347 END FUNCTION cxios_is_defined_domain_mask 246 348 247 349 … … 260 362 END SUBROUTINE cxios_get_domain_name 261 363 364 FUNCTION cxios_is_defined_domain_name(domain_hdl ) BIND(C) 365 USE ISO_C_BINDING 366 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_name 367 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 368 END FUNCTION cxios_is_defined_domain_name 369 262 370 263 371 SUBROUTINE cxios_set_domain_ni(domain_hdl, ni) BIND(C) … … 273 381 END SUBROUTINE cxios_get_domain_ni 274 382 383 FUNCTION cxios_is_defined_domain_ni(domain_hdl ) BIND(C) 384 USE ISO_C_BINDING 385 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_ni 386 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 387 END FUNCTION cxios_is_defined_domain_ni 388 275 389 276 390 SUBROUTINE cxios_set_domain_ni_glo(domain_hdl, ni_glo) BIND(C) … … 286 400 END SUBROUTINE cxios_get_domain_ni_glo 287 401 402 FUNCTION cxios_is_defined_domain_ni_glo(domain_hdl ) BIND(C) 403 USE ISO_C_BINDING 404 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_ni_glo 405 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 406 END FUNCTION cxios_is_defined_domain_ni_glo 407 288 408 289 409 SUBROUTINE cxios_set_domain_nj(domain_hdl, nj) BIND(C) … … 299 419 END SUBROUTINE cxios_get_domain_nj 300 420 421 FUNCTION cxios_is_defined_domain_nj(domain_hdl ) BIND(C) 422 USE ISO_C_BINDING 423 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_nj 424 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 425 END FUNCTION cxios_is_defined_domain_nj 426 301 427 302 428 SUBROUTINE cxios_set_domain_nj_glo(domain_hdl, nj_glo) BIND(C) … … 311 437 INTEGER (KIND=C_INT) :: nj_glo 312 438 END SUBROUTINE cxios_get_domain_nj_glo 439 440 FUNCTION cxios_is_defined_domain_nj_glo(domain_hdl ) BIND(C) 441 USE ISO_C_BINDING 442 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_nj_glo 443 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 444 END FUNCTION cxios_is_defined_domain_nj_glo 313 445 314 446 … … 327 459 END SUBROUTINE cxios_get_domain_standard_name 328 460 461 FUNCTION cxios_is_defined_domain_standard_name(domain_hdl ) BIND(C) 462 USE ISO_C_BINDING 463 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_standard_name 464 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 465 END FUNCTION cxios_is_defined_domain_standard_name 466 329 467 330 468 SUBROUTINE cxios_set_domain_zoom_ibegin(domain_hdl, zoom_ibegin) BIND(C) … … 340 478 END SUBROUTINE cxios_get_domain_zoom_ibegin 341 479 480 FUNCTION cxios_is_defined_domain_zoom_ibegin(domain_hdl ) BIND(C) 481 USE ISO_C_BINDING 482 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_zoom_ibegin 483 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 484 END FUNCTION cxios_is_defined_domain_zoom_ibegin 485 342 486 343 487 SUBROUTINE cxios_set_domain_zoom_ibegin_loc(domain_hdl, zoom_ibegin_loc) BIND(C) … … 353 497 END SUBROUTINE cxios_get_domain_zoom_ibegin_loc 354 498 499 FUNCTION cxios_is_defined_domain_zoom_ibegin_loc(domain_hdl ) BIND(C) 500 USE ISO_C_BINDING 501 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_zoom_ibegin_loc 502 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 503 END FUNCTION cxios_is_defined_domain_zoom_ibegin_loc 504 355 505 356 506 SUBROUTINE cxios_set_domain_zoom_jbegin(domain_hdl, zoom_jbegin) BIND(C) … … 366 516 END SUBROUTINE cxios_get_domain_zoom_jbegin 367 517 518 FUNCTION cxios_is_defined_domain_zoom_jbegin(domain_hdl ) BIND(C) 519 USE ISO_C_BINDING 520 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_zoom_jbegin 521 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 522 END FUNCTION cxios_is_defined_domain_zoom_jbegin 523 368 524 369 525 SUBROUTINE cxios_set_domain_zoom_jbegin_loc(domain_hdl, zoom_jbegin_loc) BIND(C) … … 379 535 END SUBROUTINE cxios_get_domain_zoom_jbegin_loc 380 536 537 FUNCTION cxios_is_defined_domain_zoom_jbegin_loc(domain_hdl ) BIND(C) 538 USE ISO_C_BINDING 539 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_zoom_jbegin_loc 540 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 541 END FUNCTION cxios_is_defined_domain_zoom_jbegin_loc 542 381 543 382 544 SUBROUTINE cxios_set_domain_zoom_ni(domain_hdl, zoom_ni) BIND(C) … … 392 554 END SUBROUTINE cxios_get_domain_zoom_ni 393 555 556 FUNCTION cxios_is_defined_domain_zoom_ni(domain_hdl ) BIND(C) 557 USE ISO_C_BINDING 558 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_zoom_ni 559 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 560 END FUNCTION cxios_is_defined_domain_zoom_ni 561 394 562 395 563 SUBROUTINE cxios_set_domain_zoom_ni_loc(domain_hdl, zoom_ni_loc) BIND(C) … … 405 573 END SUBROUTINE cxios_get_domain_zoom_ni_loc 406 574 575 FUNCTION cxios_is_defined_domain_zoom_ni_loc(domain_hdl ) BIND(C) 576 USE ISO_C_BINDING 577 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_zoom_ni_loc 578 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 579 END FUNCTION cxios_is_defined_domain_zoom_ni_loc 580 407 581 408 582 SUBROUTINE cxios_set_domain_zoom_nj(domain_hdl, zoom_nj) BIND(C) … … 418 592 END SUBROUTINE cxios_get_domain_zoom_nj 419 593 594 FUNCTION cxios_is_defined_domain_zoom_nj(domain_hdl ) BIND(C) 595 USE ISO_C_BINDING 596 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_zoom_nj 597 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 598 END FUNCTION cxios_is_defined_domain_zoom_nj 599 420 600 421 601 SUBROUTINE cxios_set_domain_zoom_nj_loc(domain_hdl, zoom_nj_loc) BIND(C) … … 430 610 INTEGER (KIND=C_INT) :: zoom_nj_loc 431 611 END SUBROUTINE cxios_get_domain_zoom_nj_loc 612 613 FUNCTION cxios_is_defined_domain_zoom_nj_loc(domain_hdl ) BIND(C) 614 USE ISO_C_BINDING 615 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_zoom_nj_loc 616 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 617 END FUNCTION cxios_is_defined_domain_zoom_nj_loc 432 618 433 619 -
XIOS/trunk/src/interface/fortran_attr/domaingroup_interface_attr.f90
r326 r432 21 21 END SUBROUTINE cxios_get_domaingroup_data_dim 22 22 23 FUNCTION cxios_is_defined_domaingroup_data_dim(domaingroup_hdl ) BIND(C) 24 USE ISO_C_BINDING 25 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_data_dim 26 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 27 END FUNCTION cxios_is_defined_domaingroup_data_dim 28 23 29 24 30 SUBROUTINE cxios_set_domaingroup_data_i_index(domaingroup_hdl, data_i_index, extent1) BIND(C) … … 35 41 INTEGER (kind = C_INT), VALUE :: extent1 36 42 END SUBROUTINE cxios_get_domaingroup_data_i_index 43 44 FUNCTION cxios_is_defined_domaingroup_data_i_index(domaingroup_hdl ) BIND(C) 45 USE ISO_C_BINDING 46 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_data_i_index 47 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 48 END FUNCTION cxios_is_defined_domaingroup_data_i_index 37 49 38 50 … … 49 61 END SUBROUTINE cxios_get_domaingroup_data_ibegin 50 62 63 FUNCTION cxios_is_defined_domaingroup_data_ibegin(domaingroup_hdl ) BIND(C) 64 USE ISO_C_BINDING 65 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_data_ibegin 66 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 67 END FUNCTION cxios_is_defined_domaingroup_data_ibegin 68 51 69 52 70 SUBROUTINE cxios_set_domaingroup_data_j_index(domaingroup_hdl, data_j_index, extent1) BIND(C) … … 63 81 INTEGER (kind = C_INT), VALUE :: extent1 64 82 END SUBROUTINE cxios_get_domaingroup_data_j_index 83 84 FUNCTION cxios_is_defined_domaingroup_data_j_index(domaingroup_hdl ) BIND(C) 85 USE ISO_C_BINDING 86 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_data_j_index 87 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 88 END FUNCTION cxios_is_defined_domaingroup_data_j_index 65 89 66 90 … … 77 101 END SUBROUTINE cxios_get_domaingroup_data_jbegin 78 102 103 FUNCTION cxios_is_defined_domaingroup_data_jbegin(domaingroup_hdl ) BIND(C) 104 USE ISO_C_BINDING 105 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_data_jbegin 106 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 107 END FUNCTION cxios_is_defined_domaingroup_data_jbegin 108 79 109 80 110 SUBROUTINE cxios_set_domaingroup_data_n_index(domaingroup_hdl, data_n_index) BIND(C) … … 90 120 END SUBROUTINE cxios_get_domaingroup_data_n_index 91 121 122 FUNCTION cxios_is_defined_domaingroup_data_n_index(domaingroup_hdl ) BIND(C) 123 USE ISO_C_BINDING 124 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_data_n_index 125 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 126 END FUNCTION cxios_is_defined_domaingroup_data_n_index 127 92 128 93 129 SUBROUTINE cxios_set_domaingroup_data_ni(domaingroup_hdl, data_ni) BIND(C) … … 103 139 END SUBROUTINE cxios_get_domaingroup_data_ni 104 140 141 FUNCTION cxios_is_defined_domaingroup_data_ni(domaingroup_hdl ) BIND(C) 142 USE ISO_C_BINDING 143 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_data_ni 144 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 145 END FUNCTION cxios_is_defined_domaingroup_data_ni 146 105 147 106 148 SUBROUTINE cxios_set_domaingroup_data_nj(domaingroup_hdl, data_nj) BIND(C) … … 115 157 INTEGER (KIND=C_INT) :: data_nj 116 158 END SUBROUTINE cxios_get_domaingroup_data_nj 159 160 FUNCTION cxios_is_defined_domaingroup_data_nj(domaingroup_hdl ) BIND(C) 161 USE ISO_C_BINDING 162 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_data_nj 163 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 164 END FUNCTION cxios_is_defined_domaingroup_data_nj 117 165 118 166 … … 131 179 END SUBROUTINE cxios_get_domaingroup_domain_group_ref 132 180 181 FUNCTION cxios_is_defined_domaingroup_domain_group_ref(domaingroup_hdl ) BIND(C) 182 USE ISO_C_BINDING 183 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_domain_group_ref 184 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 185 END FUNCTION cxios_is_defined_domaingroup_domain_group_ref 186 133 187 134 188 SUBROUTINE cxios_set_domaingroup_group_ref(domaingroup_hdl, group_ref, group_ref_size) BIND(C) … … 146 200 END SUBROUTINE cxios_get_domaingroup_group_ref 147 201 202 FUNCTION cxios_is_defined_domaingroup_group_ref(domaingroup_hdl ) BIND(C) 203 USE ISO_C_BINDING 204 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_group_ref 205 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 206 END FUNCTION cxios_is_defined_domaingroup_group_ref 207 148 208 149 209 SUBROUTINE cxios_set_domaingroup_ibegin(domaingroup_hdl, ibegin) BIND(C) … … 159 219 END SUBROUTINE cxios_get_domaingroup_ibegin 160 220 221 FUNCTION cxios_is_defined_domaingroup_ibegin(domaingroup_hdl ) BIND(C) 222 USE ISO_C_BINDING 223 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_ibegin 224 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 225 END FUNCTION cxios_is_defined_domaingroup_ibegin 226 161 227 162 228 SUBROUTINE cxios_set_domaingroup_iend(domaingroup_hdl, iend) BIND(C) … … 172 238 END SUBROUTINE cxios_get_domaingroup_iend 173 239 240 FUNCTION cxios_is_defined_domaingroup_iend(domaingroup_hdl ) BIND(C) 241 USE ISO_C_BINDING 242 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_iend 243 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 244 END FUNCTION cxios_is_defined_domaingroup_iend 245 174 246 175 247 SUBROUTINE cxios_set_domaingroup_jbegin(domaingroup_hdl, jbegin) BIND(C) … … 185 257 END SUBROUTINE cxios_get_domaingroup_jbegin 186 258 259 FUNCTION cxios_is_defined_domaingroup_jbegin(domaingroup_hdl ) BIND(C) 260 USE ISO_C_BINDING 261 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_jbegin 262 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 263 END FUNCTION cxios_is_defined_domaingroup_jbegin 264 187 265 188 266 SUBROUTINE cxios_set_domaingroup_jend(domaingroup_hdl, jend) BIND(C) … … 198 276 END SUBROUTINE cxios_get_domaingroup_jend 199 277 278 FUNCTION cxios_is_defined_domaingroup_jend(domaingroup_hdl ) BIND(C) 279 USE ISO_C_BINDING 280 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_jend 281 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 282 END FUNCTION cxios_is_defined_domaingroup_jend 283 200 284 201 285 SUBROUTINE cxios_set_domaingroup_latvalue(domaingroup_hdl, latvalue, extent1) BIND(C) … … 212 296 INTEGER (kind = C_INT), VALUE :: extent1 213 297 END SUBROUTINE cxios_get_domaingroup_latvalue 298 299 FUNCTION cxios_is_defined_domaingroup_latvalue(domaingroup_hdl ) BIND(C) 300 USE ISO_C_BINDING 301 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_latvalue 302 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 303 END FUNCTION cxios_is_defined_domaingroup_latvalue 214 304 215 305 … … 228 318 END SUBROUTINE cxios_get_domaingroup_long_name 229 319 320 FUNCTION cxios_is_defined_domaingroup_long_name(domaingroup_hdl ) BIND(C) 321 USE ISO_C_BINDING 322 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_long_name 323 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 324 END FUNCTION cxios_is_defined_domaingroup_long_name 325 230 326 231 327 SUBROUTINE cxios_set_domaingroup_lonvalue(domaingroup_hdl, lonvalue, extent1) BIND(C) … … 242 338 INTEGER (kind = C_INT), VALUE :: extent1 243 339 END SUBROUTINE cxios_get_domaingroup_lonvalue 340 341 FUNCTION cxios_is_defined_domaingroup_lonvalue(domaingroup_hdl ) BIND(C) 342 USE ISO_C_BINDING 343 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_lonvalue 344 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 345 END FUNCTION cxios_is_defined_domaingroup_lonvalue 244 346 245 347 … … 259 361 INTEGER (kind = C_INT), VALUE :: extent2 260 362 END SUBROUTINE cxios_get_domaingroup_mask 363 364 FUNCTION cxios_is_defined_domaingroup_mask(domaingroup_hdl ) BIND(C) 365 USE ISO_C_BINDING 366 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_mask 367 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 368 END FUNCTION cxios_is_defined_domaingroup_mask 261 369 262 370 … … 275 383 END SUBROUTINE cxios_get_domaingroup_name 276 384 385 FUNCTION cxios_is_defined_domaingroup_name(domaingroup_hdl ) BIND(C) 386 USE ISO_C_BINDING 387 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_name 388 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 389 END FUNCTION cxios_is_defined_domaingroup_name 390 277 391 278 392 SUBROUTINE cxios_set_domaingroup_ni(domaingroup_hdl, ni) BIND(C) … … 288 402 END SUBROUTINE cxios_get_domaingroup_ni 289 403 404 FUNCTION cxios_is_defined_domaingroup_ni(domaingroup_hdl ) BIND(C) 405 USE ISO_C_BINDING 406 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_ni 407 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 408 END FUNCTION cxios_is_defined_domaingroup_ni 409 290 410 291 411 SUBROUTINE cxios_set_domaingroup_ni_glo(domaingroup_hdl, ni_glo) BIND(C) … … 301 421 END SUBROUTINE cxios_get_domaingroup_ni_glo 302 422 423 FUNCTION cxios_is_defined_domaingroup_ni_glo(domaingroup_hdl ) BIND(C) 424 USE ISO_C_BINDING 425 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_ni_glo 426 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 427 END FUNCTION cxios_is_defined_domaingroup_ni_glo 428 303 429 304 430 SUBROUTINE cxios_set_domaingroup_nj(domaingroup_hdl, nj) BIND(C) … … 314 440 END SUBROUTINE cxios_get_domaingroup_nj 315 441 442 FUNCTION cxios_is_defined_domaingroup_nj(domaingroup_hdl ) BIND(C) 443 USE ISO_C_BINDING 444 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_nj 445 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 446 END FUNCTION cxios_is_defined_domaingroup_nj 447 316 448 317 449 SUBROUTINE cxios_set_domaingroup_nj_glo(domaingroup_hdl, nj_glo) BIND(C) … … 326 458 INTEGER (KIND=C_INT) :: nj_glo 327 459 END SUBROUTINE cxios_get_domaingroup_nj_glo 460 461 FUNCTION cxios_is_defined_domaingroup_nj_glo(domaingroup_hdl ) BIND(C) 462 USE ISO_C_BINDING 463 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_nj_glo 464 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 465 END FUNCTION cxios_is_defined_domaingroup_nj_glo 328 466 329 467 … … 342 480 END SUBROUTINE cxios_get_domaingroup_standard_name 343 481 482 FUNCTION cxios_is_defined_domaingroup_standard_name(domaingroup_hdl ) BIND(C) 483 USE ISO_C_BINDING 484 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_standard_name 485 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 486 END FUNCTION cxios_is_defined_domaingroup_standard_name 487 344 488 345 489 SUBROUTINE cxios_set_domaingroup_zoom_ibegin(domaingroup_hdl, zoom_ibegin) BIND(C) … … 355 499 END SUBROUTINE cxios_get_domaingroup_zoom_ibegin 356 500 501 FUNCTION cxios_is_defined_domaingroup_zoom_ibegin(domaingroup_hdl ) BIND(C) 502 USE ISO_C_BINDING 503 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_zoom_ibegin 504 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 505 END FUNCTION cxios_is_defined_domaingroup_zoom_ibegin 506 357 507 358 508 SUBROUTINE cxios_set_domaingroup_zoom_ibegin_loc(domaingroup_hdl, zoom_ibegin_loc) BIND(C) … … 368 518 END SUBROUTINE cxios_get_domaingroup_zoom_ibegin_loc 369 519 520 FUNCTION cxios_is_defined_domaingroup_zoom_ibegin_loc(domaingroup_hdl ) BIND(C) 521 USE ISO_C_BINDING 522 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_zoom_ibegin_loc 523 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 524 END FUNCTION cxios_is_defined_domaingroup_zoom_ibegin_loc 525 370 526 371 527 SUBROUTINE cxios_set_domaingroup_zoom_jbegin(domaingroup_hdl, zoom_jbegin) BIND(C) … … 381 537 END SUBROUTINE cxios_get_domaingroup_zoom_jbegin 382 538 539 FUNCTION cxios_is_defined_domaingroup_zoom_jbegin(domaingroup_hdl ) BIND(C) 540 USE ISO_C_BINDING 541 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_zoom_jbegin 542 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 543 END FUNCTION cxios_is_defined_domaingroup_zoom_jbegin 544 383 545 384 546 SUBROUTINE cxios_set_domaingroup_zoom_jbegin_loc(domaingroup_hdl, zoom_jbegin_loc) BIND(C) … … 394 556 END SUBROUTINE cxios_get_domaingroup_zoom_jbegin_loc 395 557 558 FUNCTION cxios_is_defined_domaingroup_zoom_jbegin_loc(domaingroup_hdl ) BIND(C) 559 USE ISO_C_BINDING 560 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_zoom_jbegin_loc 561 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 562 END FUNCTION cxios_is_defined_domaingroup_zoom_jbegin_loc 563 396 564 397 565 SUBROUTINE cxios_set_domaingroup_zoom_ni(domaingroup_hdl, zoom_ni) BIND(C) … … 407 575 END SUBROUTINE cxios_get_domaingroup_zoom_ni 408 576 577 FUNCTION cxios_is_defined_domaingroup_zoom_ni(domaingroup_hdl ) BIND(C) 578 USE ISO_C_BINDING 579 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_zoom_ni 580 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 581 END FUNCTION cxios_is_defined_domaingroup_zoom_ni 582 409 583 410 584 SUBROUTINE cxios_set_domaingroup_zoom_ni_loc(domaingroup_hdl, zoom_ni_loc) BIND(C) … … 420 594 END SUBROUTINE cxios_get_domaingroup_zoom_ni_loc 421 595 596 FUNCTION cxios_is_defined_domaingroup_zoom_ni_loc(domaingroup_hdl ) BIND(C) 597 USE ISO_C_BINDING 598 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_zoom_ni_loc 599 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 600 END FUNCTION cxios_is_defined_domaingroup_zoom_ni_loc 601 422 602 423 603 SUBROUTINE cxios_set_domaingroup_zoom_nj(domaingroup_hdl, zoom_nj) BIND(C) … … 433 613 END SUBROUTINE cxios_get_domaingroup_zoom_nj 434 614 615 FUNCTION cxios_is_defined_domaingroup_zoom_nj(domaingroup_hdl ) BIND(C) 616 USE ISO_C_BINDING 617 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_zoom_nj 618 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 619 END FUNCTION cxios_is_defined_domaingroup_zoom_nj 620 435 621 436 622 SUBROUTINE cxios_set_domaingroup_zoom_nj_loc(domaingroup_hdl, zoom_nj_loc) BIND(C) … … 445 631 INTEGER (KIND=C_INT) :: zoom_nj_loc 446 632 END SUBROUTINE cxios_get_domaingroup_zoom_nj_loc 633 634 FUNCTION cxios_is_defined_domaingroup_zoom_nj_loc(domaingroup_hdl ) BIND(C) 635 USE ISO_C_BINDING 636 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_zoom_nj_loc 637 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 638 END FUNCTION cxios_is_defined_domaingroup_zoom_nj_loc 447 639 448 640 -
XIOS/trunk/src/interface/fortran_attr/field_interface_attr.f90
r326 r432 23 23 END SUBROUTINE cxios_get_field_axis_ref 24 24 25 FUNCTION cxios_is_defined_field_axis_ref(field_hdl ) BIND(C) 26 USE ISO_C_BINDING 27 LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_axis_ref 28 INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 29 END FUNCTION cxios_is_defined_field_axis_ref 30 25 31 26 32 SUBROUTINE cxios_set_field_default_value(field_hdl, default_value) BIND(C) … … 35 41 REAL (KIND=C_DOUBLE) :: default_value 36 42 END SUBROUTINE cxios_get_field_default_value 43 44 FUNCTION cxios_is_defined_field_default_value(field_hdl ) BIND(C) 45 USE ISO_C_BINDING 46 LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_default_value 47 INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 48 END FUNCTION cxios_is_defined_field_default_value 37 49 38 50 … … 51 63 END SUBROUTINE cxios_get_field_domain_ref 52 64 65 FUNCTION cxios_is_defined_field_domain_ref(field_hdl ) BIND(C) 66 USE ISO_C_BINDING 67 LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_domain_ref 68 INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 69 END FUNCTION cxios_is_defined_field_domain_ref 70 53 71 54 72 SUBROUTINE cxios_set_field_enabled(field_hdl, enabled) BIND(C) … … 63 81 LOGICAL (KIND=C_BOOL) :: enabled 64 82 END SUBROUTINE cxios_get_field_enabled 83 84 FUNCTION cxios_is_defined_field_enabled(field_hdl ) BIND(C) 85 USE ISO_C_BINDING 86 LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_enabled 87 INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 88 END FUNCTION cxios_is_defined_field_enabled 65 89 66 90 … … 79 103 END SUBROUTINE cxios_get_field_field_ref 80 104 105 FUNCTION cxios_is_defined_field_field_ref(field_hdl ) BIND(C) 106 USE ISO_C_BINDING 107 LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_field_ref 108 INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 109 END FUNCTION cxios_is_defined_field_field_ref 110 81 111 82 112 SUBROUTINE cxios_set_field_freq_offset(field_hdl, freq_offset, freq_offset_size) BIND(C) … … 94 124 END SUBROUTINE cxios_get_field_freq_offset 95 125 126 FUNCTION cxios_is_defined_field_freq_offset(field_hdl ) BIND(C) 127 USE ISO_C_BINDING 128 LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_freq_offset 129 INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 130 END FUNCTION cxios_is_defined_field_freq_offset 131 96 132 97 133 SUBROUTINE cxios_set_field_freq_op(field_hdl, freq_op, freq_op_size) BIND(C) … … 109 145 END SUBROUTINE cxios_get_field_freq_op 110 146 147 FUNCTION cxios_is_defined_field_freq_op(field_hdl ) BIND(C) 148 USE ISO_C_BINDING 149 LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_freq_op 150 INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 151 END FUNCTION cxios_is_defined_field_freq_op 152 111 153 112 154 SUBROUTINE cxios_set_field_grid_ref(field_hdl, grid_ref, grid_ref_size) BIND(C) … … 124 166 END SUBROUTINE cxios_get_field_grid_ref 125 167 168 FUNCTION cxios_is_defined_field_grid_ref(field_hdl ) BIND(C) 169 USE ISO_C_BINDING 170 LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_grid_ref 171 INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 172 END FUNCTION cxios_is_defined_field_grid_ref 173 126 174 127 175 SUBROUTINE cxios_set_field_level(field_hdl, level) BIND(C) … … 136 184 INTEGER (KIND=C_INT) :: level 137 185 END SUBROUTINE cxios_get_field_level 186 187 FUNCTION cxios_is_defined_field_level(field_hdl ) BIND(C) 188 USE ISO_C_BINDING 189 LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_level 190 INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 191 END FUNCTION cxios_is_defined_field_level 138 192 139 193 … … 152 206 END SUBROUTINE cxios_get_field_long_name 153 207 208 FUNCTION cxios_is_defined_field_long_name(field_hdl ) BIND(C) 209 USE ISO_C_BINDING 210 LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_long_name 211 INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 212 END FUNCTION cxios_is_defined_field_long_name 213 154 214 155 215 SUBROUTINE cxios_set_field_name(field_hdl, name, name_size) BIND(C) … … 167 227 END SUBROUTINE cxios_get_field_name 168 228 229 FUNCTION cxios_is_defined_field_name(field_hdl ) BIND(C) 230 USE ISO_C_BINDING 231 LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_name 232 INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 233 END FUNCTION cxios_is_defined_field_name 234 169 235 170 236 SUBROUTINE cxios_set_field_operation(field_hdl, operation, operation_size) BIND(C) … … 182 248 END SUBROUTINE cxios_get_field_operation 183 249 250 FUNCTION cxios_is_defined_field_operation(field_hdl ) BIND(C) 251 USE ISO_C_BINDING 252 LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_operation 253 INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 254 END FUNCTION cxios_is_defined_field_operation 255 184 256 185 257 SUBROUTINE cxios_set_field_prec(field_hdl, prec) BIND(C) … … 194 266 INTEGER (KIND=C_INT) :: prec 195 267 END SUBROUTINE cxios_get_field_prec 268 269 FUNCTION cxios_is_defined_field_prec(field_hdl ) BIND(C) 270 USE ISO_C_BINDING 271 LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_prec 272 INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 273 END FUNCTION cxios_is_defined_field_prec 196 274 197 275 … … 210 288 END SUBROUTINE cxios_get_field_standard_name 211 289 290 FUNCTION cxios_is_defined_field_standard_name(field_hdl ) BIND(C) 291 USE ISO_C_BINDING 292 LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_standard_name 293 INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 294 END FUNCTION cxios_is_defined_field_standard_name 295 212 296 213 297 SUBROUTINE cxios_set_field_unit(field_hdl, unit, unit_size) BIND(C) … … 225 309 END SUBROUTINE cxios_get_field_unit 226 310 311 FUNCTION cxios_is_defined_field_unit(field_hdl ) BIND(C) 312 USE ISO_C_BINDING 313 LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_unit 314 INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 315 END FUNCTION cxios_is_defined_field_unit 316 227 317 228 318 END INTERFACE -
XIOS/trunk/src/interface/fortran_attr/fieldgroup_interface_attr.f90
r326 r432 23 23 END SUBROUTINE cxios_get_fieldgroup_axis_ref 24 24 25 FUNCTION cxios_is_defined_fieldgroup_axis_ref(fieldgroup_hdl ) BIND(C) 26 USE ISO_C_BINDING 27 LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_axis_ref 28 INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 29 END FUNCTION cxios_is_defined_fieldgroup_axis_ref 30 25 31 26 32 SUBROUTINE cxios_set_fieldgroup_default_value(fieldgroup_hdl, default_value) BIND(C) … … 35 41 REAL (KIND=C_DOUBLE) :: default_value 36 42 END SUBROUTINE cxios_get_fieldgroup_default_value 43 44 FUNCTION cxios_is_defined_fieldgroup_default_value(fieldgroup_hdl ) BIND(C) 45 USE ISO_C_BINDING 46 LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_default_value 47 INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 48 END FUNCTION cxios_is_defined_fieldgroup_default_value 37 49 38 50 … … 51 63 END SUBROUTINE cxios_get_fieldgroup_domain_ref 52 64 65 FUNCTION cxios_is_defined_fieldgroup_domain_ref(fieldgroup_hdl ) BIND(C) 66 USE ISO_C_BINDING 67 LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_domain_ref 68 INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 69 END FUNCTION cxios_is_defined_fieldgroup_domain_ref 70 53 71 54 72 SUBROUTINE cxios_set_fieldgroup_enabled(fieldgroup_hdl, enabled) BIND(C) … … 63 81 LOGICAL (KIND=C_BOOL) :: enabled 64 82 END SUBROUTINE cxios_get_fieldgroup_enabled 83 84 FUNCTION cxios_is_defined_fieldgroup_enabled(fieldgroup_hdl ) BIND(C) 85 USE ISO_C_BINDING 86 LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_enabled 87 INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 88 END FUNCTION cxios_is_defined_fieldgroup_enabled 65 89 66 90 … … 79 103 END SUBROUTINE cxios_get_fieldgroup_field_ref 80 104 105 FUNCTION cxios_is_defined_fieldgroup_field_ref(fieldgroup_hdl ) BIND(C) 106 USE ISO_C_BINDING 107 LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_field_ref 108 INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 109 END FUNCTION cxios_is_defined_fieldgroup_field_ref 110 81 111 82 112 SUBROUTINE cxios_set_fieldgroup_freq_offset(fieldgroup_hdl, freq_offset, freq_offset_size) BIND(C) … … 94 124 END SUBROUTINE cxios_get_fieldgroup_freq_offset 95 125 126 FUNCTION cxios_is_defined_fieldgroup_freq_offset(fieldgroup_hdl ) BIND(C) 127 USE ISO_C_BINDING 128 LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_freq_offset 129 INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 130 END FUNCTION cxios_is_defined_fieldgroup_freq_offset 131 96 132 97 133 SUBROUTINE cxios_set_fieldgroup_freq_op(fieldgroup_hdl, freq_op, freq_op_size) BIND(C) … … 109 145 END SUBROUTINE cxios_get_fieldgroup_freq_op 110 146 147 FUNCTION cxios_is_defined_fieldgroup_freq_op(fieldgroup_hdl ) BIND(C) 148 USE ISO_C_BINDING 149 LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_freq_op 150 INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 151 END FUNCTION cxios_is_defined_fieldgroup_freq_op 152 111 153 112 154 SUBROUTINE cxios_set_fieldgroup_grid_ref(fieldgroup_hdl, grid_ref, grid_ref_size) BIND(C) … … 124 166 END SUBROUTINE cxios_get_fieldgroup_grid_ref 125 167 168 FUNCTION cxios_is_defined_fieldgroup_grid_ref(fieldgroup_hdl ) BIND(C) 169 USE ISO_C_BINDING 170 LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_grid_ref 171 INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 172 END FUNCTION cxios_is_defined_fieldgroup_grid_ref 173 126 174 127 175 SUBROUTINE cxios_set_fieldgroup_group_ref(fieldgroup_hdl, group_ref, group_ref_size) BIND(C) … … 139 187 END SUBROUTINE cxios_get_fieldgroup_group_ref 140 188 189 FUNCTION cxios_is_defined_fieldgroup_group_ref(fieldgroup_hdl ) BIND(C) 190 USE ISO_C_BINDING 191 LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_group_ref 192 INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 193 END FUNCTION cxios_is_defined_fieldgroup_group_ref 194 141 195 142 196 SUBROUTINE cxios_set_fieldgroup_level(fieldgroup_hdl, level) BIND(C) … … 151 205 INTEGER (KIND=C_INT) :: level 152 206 END SUBROUTINE cxios_get_fieldgroup_level 207 208 FUNCTION cxios_is_defined_fieldgroup_level(fieldgroup_hdl ) BIND(C) 209 USE ISO_C_BINDING 210 LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_level 211 INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 212 END FUNCTION cxios_is_defined_fieldgroup_level 153 213 154 214 … … 167 227 END SUBROUTINE cxios_get_fieldgroup_long_name 168 228 229 FUNCTION cxios_is_defined_fieldgroup_long_name(fieldgroup_hdl ) BIND(C) 230 USE ISO_C_BINDING 231 LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_long_name 232 INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 233 END FUNCTION cxios_is_defined_fieldgroup_long_name 234 169 235 170 236 SUBROUTINE cxios_set_fieldgroup_name(fieldgroup_hdl, name, name_size) BIND(C) … … 182 248 END SUBROUTINE cxios_get_fieldgroup_name 183 249 250 FUNCTION cxios_is_defined_fieldgroup_name(fieldgroup_hdl ) BIND(C) 251 USE ISO_C_BINDING 252 LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_name 253 INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 254 END FUNCTION cxios_is_defined_fieldgroup_name 255 184 256 185 257 SUBROUTINE cxios_set_fieldgroup_operation(fieldgroup_hdl, operation, operation_size) BIND(C) … … 197 269 END SUBROUTINE cxios_get_fieldgroup_operation 198 270 271 FUNCTION cxios_is_defined_fieldgroup_operation(fieldgroup_hdl ) BIND(C) 272 USE ISO_C_BINDING 273 LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_operation 274 INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 275 END FUNCTION cxios_is_defined_fieldgroup_operation 276 199 277 200 278 SUBROUTINE cxios_set_fieldgroup_prec(fieldgroup_hdl, prec) BIND(C) … … 209 287 INTEGER (KIND=C_INT) :: prec 210 288 END SUBROUTINE cxios_get_fieldgroup_prec 289 290 FUNCTION cxios_is_defined_fieldgroup_prec(fieldgroup_hdl ) BIND(C) 291 USE ISO_C_BINDING 292 LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_prec 293 INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 294 END FUNCTION cxios_is_defined_fieldgroup_prec 211 295 212 296 … … 225 309 END SUBROUTINE cxios_get_fieldgroup_standard_name 226 310 311 FUNCTION cxios_is_defined_fieldgroup_standard_name(fieldgroup_hdl ) BIND(C) 312 USE ISO_C_BINDING 313 LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_standard_name 314 INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 315 END FUNCTION cxios_is_defined_fieldgroup_standard_name 316 227 317 228 318 SUBROUTINE cxios_set_fieldgroup_unit(fieldgroup_hdl, unit, unit_size) BIND(C) … … 240 330 END SUBROUTINE cxios_get_fieldgroup_unit 241 331 332 FUNCTION cxios_is_defined_fieldgroup_unit(fieldgroup_hdl ) BIND(C) 333 USE ISO_C_BINDING 334 LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_unit 335 INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 336 END FUNCTION cxios_is_defined_fieldgroup_unit 337 242 338 243 339 END INTERFACE -
XIOS/trunk/src/interface/fortran_attr/file_interface_attr.f90
r415 r432 23 23 END SUBROUTINE cxios_get_file_description 24 24 25 FUNCTION cxios_is_defined_file_description(file_hdl ) BIND(C) 26 USE ISO_C_BINDING 27 LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_description 28 INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 29 END FUNCTION cxios_is_defined_file_description 30 25 31 26 32 SUBROUTINE cxios_set_file_enabled(file_hdl, enabled) BIND(C) … … 36 42 END SUBROUTINE cxios_get_file_enabled 37 43 44 FUNCTION cxios_is_defined_file_enabled(file_hdl ) BIND(C) 45 USE ISO_C_BINDING 46 LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_enabled 47 INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 48 END FUNCTION cxios_is_defined_file_enabled 49 38 50 39 51 SUBROUTINE cxios_set_file_min_digits(file_hdl, min_digits) BIND(C) … … 48 60 INTEGER (KIND=C_INT) :: min_digits 49 61 END SUBROUTINE cxios_get_file_min_digits 62 63 FUNCTION cxios_is_defined_file_min_digits(file_hdl ) BIND(C) 64 USE ISO_C_BINDING 65 LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_min_digits 66 INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 67 END FUNCTION cxios_is_defined_file_min_digits 50 68 51 69 … … 64 82 END SUBROUTINE cxios_get_file_name 65 83 84 FUNCTION cxios_is_defined_file_name(file_hdl ) BIND(C) 85 USE ISO_C_BINDING 86 LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_name 87 INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 88 END FUNCTION cxios_is_defined_file_name 89 66 90 67 91 SUBROUTINE cxios_set_file_name_suffix(file_hdl, name_suffix, name_suffix_size) BIND(C) … … 79 103 END SUBROUTINE cxios_get_file_name_suffix 80 104 105 FUNCTION cxios_is_defined_file_name_suffix(file_hdl ) BIND(C) 106 USE ISO_C_BINDING 107 LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_name_suffix 108 INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 109 END FUNCTION cxios_is_defined_file_name_suffix 110 81 111 82 112 SUBROUTINE cxios_set_file_output_freq(file_hdl, output_freq, output_freq_size) BIND(C) … … 94 124 END SUBROUTINE cxios_get_file_output_freq 95 125 126 FUNCTION cxios_is_defined_file_output_freq(file_hdl ) BIND(C) 127 USE ISO_C_BINDING 128 LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_output_freq 129 INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 130 END FUNCTION cxios_is_defined_file_output_freq 131 96 132 97 133 SUBROUTINE cxios_set_file_output_level(file_hdl, output_level) BIND(C) … … 106 142 INTEGER (KIND=C_INT) :: output_level 107 143 END SUBROUTINE cxios_get_file_output_level 144 145 FUNCTION cxios_is_defined_file_output_level(file_hdl ) BIND(C) 146 USE ISO_C_BINDING 147 LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_output_level 148 INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 149 END FUNCTION cxios_is_defined_file_output_level 108 150 109 151 … … 122 164 END SUBROUTINE cxios_get_file_par_access 123 165 166 FUNCTION cxios_is_defined_file_par_access(file_hdl ) BIND(C) 167 USE ISO_C_BINDING 168 LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_par_access 169 INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 170 END FUNCTION cxios_is_defined_file_par_access 171 124 172 125 173 SUBROUTINE cxios_set_file_split_freq(file_hdl, split_freq, split_freq_size) BIND(C) … … 137 185 END SUBROUTINE cxios_get_file_split_freq 138 186 187 FUNCTION cxios_is_defined_file_split_freq(file_hdl ) BIND(C) 188 USE ISO_C_BINDING 189 LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_split_freq 190 INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 191 END FUNCTION cxios_is_defined_file_split_freq 192 193 194 SUBROUTINE cxios_set_file_split_freq_format(file_hdl, split_freq_format, split_freq_format_size) BIND(C) 195 USE ISO_C_BINDING 196 INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 197 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: split_freq_format 198 INTEGER (kind = C_INT) , VALUE :: split_freq_format_size 199 END SUBROUTINE cxios_set_file_split_freq_format 200 201 SUBROUTINE cxios_get_file_split_freq_format(file_hdl, split_freq_format, split_freq_format_size) BIND(C) 202 USE ISO_C_BINDING 203 INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 204 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: split_freq_format 205 INTEGER (kind = C_INT) , VALUE :: split_freq_format_size 206 END SUBROUTINE cxios_get_file_split_freq_format 207 208 FUNCTION cxios_is_defined_file_split_freq_format(file_hdl ) BIND(C) 209 USE ISO_C_BINDING 210 LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_split_freq_format 211 INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 212 END FUNCTION cxios_is_defined_file_split_freq_format 213 139 214 140 215 SUBROUTINE cxios_set_file_sync_freq(file_hdl, sync_freq, sync_freq_size) BIND(C) … … 152 227 END SUBROUTINE cxios_get_file_sync_freq 153 228 229 FUNCTION cxios_is_defined_file_sync_freq(file_hdl ) BIND(C) 230 USE ISO_C_BINDING 231 LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_sync_freq 232 INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 233 END FUNCTION cxios_is_defined_file_sync_freq 234 154 235 155 236 SUBROUTINE cxios_set_file_type(file_hdl, type, type_size) BIND(C) … … 167 248 END SUBROUTINE cxios_get_file_type 168 249 250 FUNCTION cxios_is_defined_file_type(file_hdl ) BIND(C) 251 USE ISO_C_BINDING 252 LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_type 253 INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 254 END FUNCTION cxios_is_defined_file_type 255 169 256 170 257 END INTERFACE -
XIOS/trunk/src/interface/fortran_attr/filegroup_interface_attr.f90
r415 r432 23 23 END SUBROUTINE cxios_get_filegroup_description 24 24 25 FUNCTION cxios_is_defined_filegroup_description(filegroup_hdl ) BIND(C) 26 USE ISO_C_BINDING 27 LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_description 28 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 29 END FUNCTION cxios_is_defined_filegroup_description 30 25 31 26 32 SUBROUTINE cxios_set_filegroup_enabled(filegroup_hdl, enabled) BIND(C) … … 35 41 LOGICAL (KIND=C_BOOL) :: enabled 36 42 END SUBROUTINE cxios_get_filegroup_enabled 43 44 FUNCTION cxios_is_defined_filegroup_enabled(filegroup_hdl ) BIND(C) 45 USE ISO_C_BINDING 46 LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_enabled 47 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 48 END FUNCTION cxios_is_defined_filegroup_enabled 37 49 38 50 … … 51 63 END SUBROUTINE cxios_get_filegroup_group_ref 52 64 65 FUNCTION cxios_is_defined_filegroup_group_ref(filegroup_hdl ) BIND(C) 66 USE ISO_C_BINDING 67 LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_group_ref 68 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 69 END FUNCTION cxios_is_defined_filegroup_group_ref 70 53 71 54 72 SUBROUTINE cxios_set_filegroup_min_digits(filegroup_hdl, min_digits) BIND(C) … … 63 81 INTEGER (KIND=C_INT) :: min_digits 64 82 END SUBROUTINE cxios_get_filegroup_min_digits 83 84 FUNCTION cxios_is_defined_filegroup_min_digits(filegroup_hdl ) BIND(C) 85 USE ISO_C_BINDING 86 LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_min_digits 87 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 88 END FUNCTION cxios_is_defined_filegroup_min_digits 65 89 66 90 … … 79 103 END SUBROUTINE cxios_get_filegroup_name 80 104 105 FUNCTION cxios_is_defined_filegroup_name(filegroup_hdl ) BIND(C) 106 USE ISO_C_BINDING 107 LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_name 108 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 109 END FUNCTION cxios_is_defined_filegroup_name 110 81 111 82 112 SUBROUTINE cxios_set_filegroup_name_suffix(filegroup_hdl, name_suffix, name_suffix_size) BIND(C) … … 94 124 END SUBROUTINE cxios_get_filegroup_name_suffix 95 125 126 FUNCTION cxios_is_defined_filegroup_name_suffix(filegroup_hdl ) BIND(C) 127 USE ISO_C_BINDING 128 LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_name_suffix 129 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 130 END FUNCTION cxios_is_defined_filegroup_name_suffix 131 96 132 97 133 SUBROUTINE cxios_set_filegroup_output_freq(filegroup_hdl, output_freq, output_freq_size) BIND(C) … … 109 145 END SUBROUTINE cxios_get_filegroup_output_freq 110 146 147 FUNCTION cxios_is_defined_filegroup_output_freq(filegroup_hdl ) BIND(C) 148 USE ISO_C_BINDING 149 LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_output_freq 150 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 151 END FUNCTION cxios_is_defined_filegroup_output_freq 152 111 153 112 154 SUBROUTINE cxios_set_filegroup_output_level(filegroup_hdl, output_level) BIND(C) … … 121 163 INTEGER (KIND=C_INT) :: output_level 122 164 END SUBROUTINE cxios_get_filegroup_output_level 165 166 FUNCTION cxios_is_defined_filegroup_output_level(filegroup_hdl ) BIND(C) 167 USE ISO_C_BINDING 168 LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_output_level 169 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 170 END FUNCTION cxios_is_defined_filegroup_output_level 123 171 124 172 … … 137 185 END SUBROUTINE cxios_get_filegroup_par_access 138 186 187 FUNCTION cxios_is_defined_filegroup_par_access(filegroup_hdl ) BIND(C) 188 USE ISO_C_BINDING 189 LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_par_access 190 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 191 END FUNCTION cxios_is_defined_filegroup_par_access 192 139 193 140 194 SUBROUTINE cxios_set_filegroup_split_freq(filegroup_hdl, split_freq, split_freq_size) BIND(C) … … 152 206 END SUBROUTINE cxios_get_filegroup_split_freq 153 207 208 FUNCTION cxios_is_defined_filegroup_split_freq(filegroup_hdl ) BIND(C) 209 USE ISO_C_BINDING 210 LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_split_freq 211 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 212 END FUNCTION cxios_is_defined_filegroup_split_freq 213 214 215 SUBROUTINE cxios_set_filegroup_split_freq_format(filegroup_hdl, split_freq_format, split_freq_format_size) BIND(C) 216 USE ISO_C_BINDING 217 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 218 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: split_freq_format 219 INTEGER (kind = C_INT) , VALUE :: split_freq_format_size 220 END SUBROUTINE cxios_set_filegroup_split_freq_format 221 222 SUBROUTINE cxios_get_filegroup_split_freq_format(filegroup_hdl, split_freq_format, split_freq_format_size) BIND(C) 223 USE ISO_C_BINDING 224 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 225 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: split_freq_format 226 INTEGER (kind = C_INT) , VALUE :: split_freq_format_size 227 END SUBROUTINE cxios_get_filegroup_split_freq_format 228 229 FUNCTION cxios_is_defined_filegroup_split_freq_format(filegroup_hdl ) BIND(C) 230 USE ISO_C_BINDING 231 LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_split_freq_format 232 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 233 END FUNCTION cxios_is_defined_filegroup_split_freq_format 234 154 235 155 236 SUBROUTINE cxios_set_filegroup_sync_freq(filegroup_hdl, sync_freq, sync_freq_size) BIND(C) … … 167 248 END SUBROUTINE cxios_get_filegroup_sync_freq 168 249 250 FUNCTION cxios_is_defined_filegroup_sync_freq(filegroup_hdl ) BIND(C) 251 USE ISO_C_BINDING 252 LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_sync_freq 253 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 254 END FUNCTION cxios_is_defined_filegroup_sync_freq 255 169 256 170 257 SUBROUTINE cxios_set_filegroup_type(filegroup_hdl, type, type_size) BIND(C) … … 182 269 END SUBROUTINE cxios_get_filegroup_type 183 270 271 FUNCTION cxios_is_defined_filegroup_type(filegroup_hdl ) BIND(C) 272 USE ISO_C_BINDING 273 LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_type 274 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 275 END FUNCTION cxios_is_defined_filegroup_type 276 184 277 185 278 END INTERFACE -
XIOS/trunk/src/interface/fortran_attr/grid_interface_attr.f90
r415 r432 23 23 END SUBROUTINE cxios_get_grid_axis_ref 24 24 25 FUNCTION cxios_is_defined_grid_axis_ref(grid_hdl ) BIND(C) 26 USE ISO_C_BINDING 27 LOGICAL(kind=C_BOOL) :: cxios_is_defined_grid_axis_ref 28 INTEGER (kind = C_INTPTR_T), VALUE :: grid_hdl 29 END FUNCTION cxios_is_defined_grid_axis_ref 30 25 31 26 32 SUBROUTINE cxios_set_grid_description(grid_hdl, description, description_size) BIND(C) … … 38 44 END SUBROUTINE cxios_get_grid_description 39 45 46 FUNCTION cxios_is_defined_grid_description(grid_hdl ) BIND(C) 47 USE ISO_C_BINDING 48 LOGICAL(kind=C_BOOL) :: cxios_is_defined_grid_description 49 INTEGER (kind = C_INTPTR_T), VALUE :: grid_hdl 50 END FUNCTION cxios_is_defined_grid_description 51 40 52 41 53 SUBROUTINE cxios_set_grid_domain_ref(grid_hdl, domain_ref, domain_ref_size) BIND(C) … … 52 64 INTEGER (kind = C_INT) , VALUE :: domain_ref_size 53 65 END SUBROUTINE cxios_get_grid_domain_ref 66 67 FUNCTION cxios_is_defined_grid_domain_ref(grid_hdl ) BIND(C) 68 USE ISO_C_BINDING 69 LOGICAL(kind=C_BOOL) :: cxios_is_defined_grid_domain_ref 70 INTEGER (kind = C_INTPTR_T), VALUE :: grid_hdl 71 END FUNCTION cxios_is_defined_grid_domain_ref 54 72 55 73 … … 72 90 END SUBROUTINE cxios_get_grid_mask 73 91 92 FUNCTION cxios_is_defined_grid_mask(grid_hdl ) BIND(C) 93 USE ISO_C_BINDING 94 LOGICAL(kind=C_BOOL) :: cxios_is_defined_grid_mask 95 INTEGER (kind = C_INTPTR_T), VALUE :: grid_hdl 96 END FUNCTION cxios_is_defined_grid_mask 97 74 98 75 99 SUBROUTINE cxios_set_grid_name(grid_hdl, name, name_size) BIND(C) … … 87 111 END SUBROUTINE cxios_get_grid_name 88 112 113 FUNCTION cxios_is_defined_grid_name(grid_hdl ) BIND(C) 114 USE ISO_C_BINDING 115 LOGICAL(kind=C_BOOL) :: cxios_is_defined_grid_name 116 INTEGER (kind = C_INTPTR_T), VALUE :: grid_hdl 117 END FUNCTION cxios_is_defined_grid_name 118 89 119 90 120 END INTERFACE -
XIOS/trunk/src/interface/fortran_attr/gridgroup_interface_attr.f90
r415 r432 23 23 END SUBROUTINE cxios_get_gridgroup_axis_ref 24 24 25 FUNCTION cxios_is_defined_gridgroup_axis_ref(gridgroup_hdl ) BIND(C) 26 USE ISO_C_BINDING 27 LOGICAL(kind=C_BOOL) :: cxios_is_defined_gridgroup_axis_ref 28 INTEGER (kind = C_INTPTR_T), VALUE :: gridgroup_hdl 29 END FUNCTION cxios_is_defined_gridgroup_axis_ref 30 25 31 26 32 SUBROUTINE cxios_set_gridgroup_description(gridgroup_hdl, description, description_size) BIND(C) … … 37 43 INTEGER (kind = C_INT) , VALUE :: description_size 38 44 END SUBROUTINE cxios_get_gridgroup_description 45 46 FUNCTION cxios_is_defined_gridgroup_description(gridgroup_hdl ) BIND(C) 47 USE ISO_C_BINDING 48 LOGICAL(kind=C_BOOL) :: cxios_is_defined_gridgroup_description 49 INTEGER (kind = C_INTPTR_T), VALUE :: gridgroup_hdl 50 END FUNCTION cxios_is_defined_gridgroup_description 39 51 40 52 … … 53 65 END SUBROUTINE cxios_get_gridgroup_domain_ref 54 66 67 FUNCTION cxios_is_defined_gridgroup_domain_ref(gridgroup_hdl ) BIND(C) 68 USE ISO_C_BINDING 69 LOGICAL(kind=C_BOOL) :: cxios_is_defined_gridgroup_domain_ref 70 INTEGER (kind = C_INTPTR_T), VALUE :: gridgroup_hdl 71 END FUNCTION cxios_is_defined_gridgroup_domain_ref 72 55 73 56 74 SUBROUTINE cxios_set_gridgroup_group_ref(gridgroup_hdl, group_ref, group_ref_size) BIND(C) … … 67 85 INTEGER (kind = C_INT) , VALUE :: group_ref_size 68 86 END SUBROUTINE cxios_get_gridgroup_group_ref 87 88 FUNCTION cxios_is_defined_gridgroup_group_ref(gridgroup_hdl ) BIND(C) 89 USE ISO_C_BINDING 90 LOGICAL(kind=C_BOOL) :: cxios_is_defined_gridgroup_group_ref 91 INTEGER (kind = C_INTPTR_T), VALUE :: gridgroup_hdl 92 END FUNCTION cxios_is_defined_gridgroup_group_ref 69 93 70 94 … … 87 111 END SUBROUTINE cxios_get_gridgroup_mask 88 112 113 FUNCTION cxios_is_defined_gridgroup_mask(gridgroup_hdl ) BIND(C) 114 USE ISO_C_BINDING 115 LOGICAL(kind=C_BOOL) :: cxios_is_defined_gridgroup_mask 116 INTEGER (kind = C_INTPTR_T), VALUE :: gridgroup_hdl 117 END FUNCTION cxios_is_defined_gridgroup_mask 118 89 119 90 120 SUBROUTINE cxios_set_gridgroup_name(gridgroup_hdl, name, name_size) BIND(C) … … 102 132 END SUBROUTINE cxios_get_gridgroup_name 103 133 134 FUNCTION cxios_is_defined_gridgroup_name(gridgroup_hdl ) BIND(C) 135 USE ISO_C_BINDING 136 LOGICAL(kind=C_BOOL) :: cxios_is_defined_gridgroup_name 137 INTEGER (kind = C_INTPTR_T), VALUE :: gridgroup_hdl 138 END FUNCTION cxios_is_defined_gridgroup_name 139 104 140 105 141 END INTERFACE -
XIOS/trunk/src/interface/fortran_attr/iaxis_attr.F90
r415 r432 229 229 END SUBROUTINE xios(get_axis_attr_hdl_) 230 230 231 SUBROUTINE xios(is_defined_axis_attr) & 232 ( axis_id, long_name, name, positive, size, standard_name, unit, value, zoom_begin, zoom_end & 233 , zoom_size ) 234 235 IMPLICIT NONE 236 TYPE(txios(axis)) :: axis_hdl 237 CHARACTER(LEN=*), INTENT(IN) ::axis_id 238 LOGICAL, OPTIONAL, INTENT(OUT) :: long_name 239 LOGICAL(KIND=C_BOOL) :: long_name_tmp 240 LOGICAL, OPTIONAL, INTENT(OUT) :: name 241 LOGICAL(KIND=C_BOOL) :: name_tmp 242 LOGICAL, OPTIONAL, INTENT(OUT) :: positive 243 LOGICAL(KIND=C_BOOL) :: positive_tmp 244 LOGICAL, OPTIONAL, INTENT(OUT) :: size 245 LOGICAL(KIND=C_BOOL) :: size_tmp 246 LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name 247 LOGICAL(KIND=C_BOOL) :: standard_name_tmp 248 LOGICAL, OPTIONAL, INTENT(OUT) :: unit 249 LOGICAL(KIND=C_BOOL) :: unit_tmp 250 LOGICAL, OPTIONAL, INTENT(OUT) :: value 251 LOGICAL(KIND=C_BOOL) :: value_tmp 252 LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_begin 253 LOGICAL(KIND=C_BOOL) :: zoom_begin_tmp 254 LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_end 255 LOGICAL(KIND=C_BOOL) :: zoom_end_tmp 256 LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_size 257 LOGICAL(KIND=C_BOOL) :: zoom_size_tmp 258 259 CALL xios(get_axis_handle)(axis_id,axis_hdl) 260 CALL xios(is_defined_axis_attr_hdl_) & 261 ( axis_hdl, long_name, name, positive, size, standard_name, unit, value, zoom_begin, zoom_end & 262 , zoom_size ) 263 264 END SUBROUTINE xios(is_defined_axis_attr) 265 266 SUBROUTINE xios(is_defined_axis_attr_hdl) & 267 ( axis_hdl, long_name, name, positive, size, standard_name, unit, value, zoom_begin, zoom_end & 268 , zoom_size ) 269 270 IMPLICIT NONE 271 TYPE(txios(axis)) , INTENT(IN) :: axis_hdl 272 LOGICAL, OPTIONAL, INTENT(OUT) :: long_name 273 LOGICAL(KIND=C_BOOL) :: long_name_tmp 274 LOGICAL, OPTIONAL, INTENT(OUT) :: name 275 LOGICAL(KIND=C_BOOL) :: name_tmp 276 LOGICAL, OPTIONAL, INTENT(OUT) :: positive 277 LOGICAL(KIND=C_BOOL) :: positive_tmp 278 LOGICAL, OPTIONAL, INTENT(OUT) :: size 279 LOGICAL(KIND=C_BOOL) :: size_tmp 280 LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name 281 LOGICAL(KIND=C_BOOL) :: standard_name_tmp 282 LOGICAL, OPTIONAL, INTENT(OUT) :: unit 283 LOGICAL(KIND=C_BOOL) :: unit_tmp 284 LOGICAL, OPTIONAL, INTENT(OUT) :: value 285 LOGICAL(KIND=C_BOOL) :: value_tmp 286 LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_begin 287 LOGICAL(KIND=C_BOOL) :: zoom_begin_tmp 288 LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_end 289 LOGICAL(KIND=C_BOOL) :: zoom_end_tmp 290 LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_size 291 LOGICAL(KIND=C_BOOL) :: zoom_size_tmp 292 293 CALL xios(is_defined_axis_attr_hdl_) & 294 ( axis_hdl, long_name, name, positive, size, standard_name, unit, value, zoom_begin, zoom_end & 295 , zoom_size ) 296 297 END SUBROUTINE xios(is_defined_axis_attr_hdl) 298 299 SUBROUTINE xios(is_defined_axis_attr_hdl_) & 300 ( axis_hdl, long_name_, name_, positive_, size_, standard_name_, unit_, value_, zoom_begin_ & 301 , zoom_end_, zoom_size_ ) 302 303 IMPLICIT NONE 304 TYPE(txios(axis)) , INTENT(IN) :: axis_hdl 305 LOGICAL, OPTIONAL, INTENT(OUT) :: long_name_ 306 LOGICAL(KIND=C_BOOL) :: long_name__tmp 307 LOGICAL, OPTIONAL, INTENT(OUT) :: name_ 308 LOGICAL(KIND=C_BOOL) :: name__tmp 309 LOGICAL, OPTIONAL, INTENT(OUT) :: positive_ 310 LOGICAL(KIND=C_BOOL) :: positive__tmp 311 LOGICAL, OPTIONAL, INTENT(OUT) :: size_ 312 LOGICAL(KIND=C_BOOL) :: size__tmp 313 LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name_ 314 LOGICAL(KIND=C_BOOL) :: standard_name__tmp 315 LOGICAL, OPTIONAL, INTENT(OUT) :: unit_ 316 LOGICAL(KIND=C_BOOL) :: unit__tmp 317 LOGICAL, OPTIONAL, INTENT(OUT) :: value_ 318 LOGICAL(KIND=C_BOOL) :: value__tmp 319 LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_begin_ 320 LOGICAL(KIND=C_BOOL) :: zoom_begin__tmp 321 LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_end_ 322 LOGICAL(KIND=C_BOOL) :: zoom_end__tmp 323 LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_size_ 324 LOGICAL(KIND=C_BOOL) :: zoom_size__tmp 325 326 IF (PRESENT(long_name_)) THEN 327 long_name__tmp=cxios_is_defined_axis_long_name(axis_hdl%daddr) 328 long_name_=long_name__tmp 329 ENDIF 330 331 IF (PRESENT(name_)) THEN 332 name__tmp=cxios_is_defined_axis_name(axis_hdl%daddr) 333 name_=name__tmp 334 ENDIF 335 336 IF (PRESENT(positive_)) THEN 337 positive__tmp=cxios_is_defined_axis_positive(axis_hdl%daddr) 338 positive_=positive__tmp 339 ENDIF 340 341 IF (PRESENT(size_)) THEN 342 size__tmp=cxios_is_defined_axis_size(axis_hdl%daddr) 343 size_=size__tmp 344 ENDIF 345 346 IF (PRESENT(standard_name_)) THEN 347 standard_name__tmp=cxios_is_defined_axis_standard_name(axis_hdl%daddr) 348 standard_name_=standard_name__tmp 349 ENDIF 350 351 IF (PRESENT(unit_)) THEN 352 unit__tmp=cxios_is_defined_axis_unit(axis_hdl%daddr) 353 unit_=unit__tmp 354 ENDIF 355 356 IF (PRESENT(value_)) THEN 357 value__tmp=cxios_is_defined_axis_value(axis_hdl%daddr) 358 value_=value__tmp 359 ENDIF 360 361 IF (PRESENT(zoom_begin_)) THEN 362 zoom_begin__tmp=cxios_is_defined_axis_zoom_begin(axis_hdl%daddr) 363 zoom_begin_=zoom_begin__tmp 364 ENDIF 365 366 IF (PRESENT(zoom_end_)) THEN 367 zoom_end__tmp=cxios_is_defined_axis_zoom_end(axis_hdl%daddr) 368 zoom_end_=zoom_end__tmp 369 ENDIF 370 371 IF (PRESENT(zoom_size_)) THEN 372 zoom_size__tmp=cxios_is_defined_axis_zoom_size(axis_hdl%daddr) 373 zoom_size_=zoom_size__tmp 374 ENDIF 375 376 377 378 END SUBROUTINE xios(is_defined_axis_attr_hdl_) 379 231 380 END MODULE iaxis_attr -
XIOS/trunk/src/interface/fortran_attr/iaxisgroup_attr.F90
r415 r432 243 243 END SUBROUTINE xios(get_axisgroup_attr_hdl_) 244 244 245 SUBROUTINE xios(is_defined_axisgroup_attr) & 246 ( axisgroup_id, group_ref, long_name, name, positive, size, standard_name, unit, value, zoom_begin & 247 , zoom_end, zoom_size ) 248 249 IMPLICIT NONE 250 TYPE(txios(axisgroup)) :: axisgroup_hdl 251 CHARACTER(LEN=*), INTENT(IN) ::axisgroup_id 252 LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref 253 LOGICAL(KIND=C_BOOL) :: group_ref_tmp 254 LOGICAL, OPTIONAL, INTENT(OUT) :: long_name 255 LOGICAL(KIND=C_BOOL) :: long_name_tmp 256 LOGICAL, OPTIONAL, INTENT(OUT) :: name 257 LOGICAL(KIND=C_BOOL) :: name_tmp 258 LOGICAL, OPTIONAL, INTENT(OUT) :: positive 259 LOGICAL(KIND=C_BOOL) :: positive_tmp 260 LOGICAL, OPTIONAL, INTENT(OUT) :: size 261 LOGICAL(KIND=C_BOOL) :: size_tmp 262 LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name 263 LOGICAL(KIND=C_BOOL) :: standard_name_tmp 264 LOGICAL, OPTIONAL, INTENT(OUT) :: unit 265 LOGICAL(KIND=C_BOOL) :: unit_tmp 266 LOGICAL, OPTIONAL, INTENT(OUT) :: value 267 LOGICAL(KIND=C_BOOL) :: value_tmp 268 LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_begin 269 LOGICAL(KIND=C_BOOL) :: zoom_begin_tmp 270 LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_end 271 LOGICAL(KIND=C_BOOL) :: zoom_end_tmp 272 LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_size 273 LOGICAL(KIND=C_BOOL) :: zoom_size_tmp 274 275 CALL xios(get_axisgroup_handle)(axisgroup_id,axisgroup_hdl) 276 CALL xios(is_defined_axisgroup_attr_hdl_) & 277 ( axisgroup_hdl, group_ref, long_name, name, positive, size, standard_name, unit, value, zoom_begin & 278 , zoom_end, zoom_size ) 279 280 END SUBROUTINE xios(is_defined_axisgroup_attr) 281 282 SUBROUTINE xios(is_defined_axisgroup_attr_hdl) & 283 ( axisgroup_hdl, group_ref, long_name, name, positive, size, standard_name, unit, value, zoom_begin & 284 , zoom_end, zoom_size ) 285 286 IMPLICIT NONE 287 TYPE(txios(axisgroup)) , INTENT(IN) :: axisgroup_hdl 288 LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref 289 LOGICAL(KIND=C_BOOL) :: group_ref_tmp 290 LOGICAL, OPTIONAL, INTENT(OUT) :: long_name 291 LOGICAL(KIND=C_BOOL) :: long_name_tmp 292 LOGICAL, OPTIONAL, INTENT(OUT) :: name 293 LOGICAL(KIND=C_BOOL) :: name_tmp 294 LOGICAL, OPTIONAL, INTENT(OUT) :: positive 295 LOGICAL(KIND=C_BOOL) :: positive_tmp 296 LOGICAL, OPTIONAL, INTENT(OUT) :: size 297 LOGICAL(KIND=C_BOOL) :: size_tmp 298 LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name 299 LOGICAL(KIND=C_BOOL) :: standard_name_tmp 300 LOGICAL, OPTIONAL, INTENT(OUT) :: unit 301 LOGICAL(KIND=C_BOOL) :: unit_tmp 302 LOGICAL, OPTIONAL, INTENT(OUT) :: value 303 LOGICAL(KIND=C_BOOL) :: value_tmp 304 LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_begin 305 LOGICAL(KIND=C_BOOL) :: zoom_begin_tmp 306 LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_end 307 LOGICAL(KIND=C_BOOL) :: zoom_end_tmp 308 LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_size 309 LOGICAL(KIND=C_BOOL) :: zoom_size_tmp 310 311 CALL xios(is_defined_axisgroup_attr_hdl_) & 312 ( axisgroup_hdl, group_ref, long_name, name, positive, size, standard_name, unit, value, zoom_begin & 313 , zoom_end, zoom_size ) 314 315 END SUBROUTINE xios(is_defined_axisgroup_attr_hdl) 316 317 SUBROUTINE xios(is_defined_axisgroup_attr_hdl_) & 318 ( axisgroup_hdl, group_ref_, long_name_, name_, positive_, size_, standard_name_, unit_, value_ & 319 , zoom_begin_, zoom_end_, zoom_size_ ) 320 321 IMPLICIT NONE 322 TYPE(txios(axisgroup)) , INTENT(IN) :: axisgroup_hdl 323 LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref_ 324 LOGICAL(KIND=C_BOOL) :: group_ref__tmp 325 LOGICAL, OPTIONAL, INTENT(OUT) :: long_name_ 326 LOGICAL(KIND=C_BOOL) :: long_name__tmp 327 LOGICAL, OPTIONAL, INTENT(OUT) :: name_ 328 LOGICAL(KIND=C_BOOL) :: name__tmp 329 LOGICAL, OPTIONAL, INTENT(OUT) :: positive_ 330 LOGICAL(KIND=C_BOOL) :: positive__tmp 331 LOGICAL, OPTIONAL, INTENT(OUT) :: size_ 332 LOGICAL(KIND=C_BOOL) :: size__tmp 333 LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name_ 334 LOGICAL(KIND=C_BOOL) :: standard_name__tmp 335 LOGICAL, OPTIONAL, INTENT(OUT) :: unit_ 336 LOGICAL(KIND=C_BOOL) :: unit__tmp 337 LOGICAL, OPTIONAL, INTENT(OUT) :: value_ 338 LOGICAL(KIND=C_BOOL) :: value__tmp 339 LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_begin_ 340 LOGICAL(KIND=C_BOOL) :: zoom_begin__tmp 341 LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_end_ 342 LOGICAL(KIND=C_BOOL) :: zoom_end__tmp 343 LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_size_ 344 LOGICAL(KIND=C_BOOL) :: zoom_size__tmp 345 346 IF (PRESENT(group_ref_)) THEN 347 group_ref__tmp=cxios_is_defined_axisgroup_group_ref(axisgroup_hdl%daddr) 348 group_ref_=group_ref__tmp 349 ENDIF 350 351 IF (PRESENT(long_name_)) THEN 352 long_name__tmp=cxios_is_defined_axisgroup_long_name(axisgroup_hdl%daddr) 353 long_name_=long_name__tmp 354 ENDIF 355 356 IF (PRESENT(name_)) THEN 357 name__tmp=cxios_is_defined_axisgroup_name(axisgroup_hdl%daddr) 358 name_=name__tmp 359 ENDIF 360 361 IF (PRESENT(positive_)) THEN 362 positive__tmp=cxios_is_defined_axisgroup_positive(axisgroup_hdl%daddr) 363 positive_=positive__tmp 364 ENDIF 365 366 IF (PRESENT(size_)) THEN 367 size__tmp=cxios_is_defined_axisgroup_size(axisgroup_hdl%daddr) 368 size_=size__tmp 369 ENDIF 370 371 IF (PRESENT(standard_name_)) THEN 372 standard_name__tmp=cxios_is_defined_axisgroup_standard_name(axisgroup_hdl%daddr) 373 standard_name_=standard_name__tmp 374 ENDIF 375 376 IF (PRESENT(unit_)) THEN 377 unit__tmp=cxios_is_defined_axisgroup_unit(axisgroup_hdl%daddr) 378 unit_=unit__tmp 379 ENDIF 380 381 IF (PRESENT(value_)) THEN 382 value__tmp=cxios_is_defined_axisgroup_value(axisgroup_hdl%daddr) 383 value_=value__tmp 384 ENDIF 385 386 IF (PRESENT(zoom_begin_)) THEN 387 zoom_begin__tmp=cxios_is_defined_axisgroup_zoom_begin(axisgroup_hdl%daddr) 388 zoom_begin_=zoom_begin__tmp 389 ENDIF 390 391 IF (PRESENT(zoom_end_)) THEN 392 zoom_end__tmp=cxios_is_defined_axisgroup_zoom_end(axisgroup_hdl%daddr) 393 zoom_end_=zoom_end__tmp 394 ENDIF 395 396 IF (PRESENT(zoom_size_)) THEN 397 zoom_size__tmp=cxios_is_defined_axisgroup_zoom_size(axisgroup_hdl%daddr) 398 zoom_size_=zoom_size__tmp 399 ENDIF 400 401 402 403 END SUBROUTINE xios(is_defined_axisgroup_attr_hdl_) 404 245 405 END MODULE iaxisgroup_attr -
XIOS/trunk/src/interface/fortran_attr/icontext_attr.F90
r369 r432 149 149 END SUBROUTINE xios(get_context_attr_hdl_) 150 150 151 SUBROUTINE xios(is_defined_context_attr) & 152 ( context_id, calendar_type, output_dir, start_date, time_origin, timestep ) 153 154 IMPLICIT NONE 155 TYPE(txios(context)) :: context_hdl 156 CHARACTER(LEN=*), INTENT(IN) ::context_id 157 LOGICAL, OPTIONAL, INTENT(OUT) :: calendar_type 158 LOGICAL(KIND=C_BOOL) :: calendar_type_tmp 159 LOGICAL, OPTIONAL, INTENT(OUT) :: output_dir 160 LOGICAL(KIND=C_BOOL) :: output_dir_tmp 161 LOGICAL, OPTIONAL, INTENT(OUT) :: start_date 162 LOGICAL(KIND=C_BOOL) :: start_date_tmp 163 LOGICAL, OPTIONAL, INTENT(OUT) :: time_origin 164 LOGICAL(KIND=C_BOOL) :: time_origin_tmp 165 LOGICAL, OPTIONAL, INTENT(OUT) :: timestep 166 LOGICAL(KIND=C_BOOL) :: timestep_tmp 167 168 CALL xios(get_context_handle)(context_id,context_hdl) 169 CALL xios(is_defined_context_attr_hdl_) & 170 ( context_hdl, calendar_type, output_dir, start_date, time_origin, timestep ) 171 172 END SUBROUTINE xios(is_defined_context_attr) 173 174 SUBROUTINE xios(is_defined_context_attr_hdl) & 175 ( context_hdl, calendar_type, output_dir, start_date, time_origin, timestep ) 176 177 IMPLICIT NONE 178 TYPE(txios(context)) , INTENT(IN) :: context_hdl 179 LOGICAL, OPTIONAL, INTENT(OUT) :: calendar_type 180 LOGICAL(KIND=C_BOOL) :: calendar_type_tmp 181 LOGICAL, OPTIONAL, INTENT(OUT) :: output_dir 182 LOGICAL(KIND=C_BOOL) :: output_dir_tmp 183 LOGICAL, OPTIONAL, INTENT(OUT) :: start_date 184 LOGICAL(KIND=C_BOOL) :: start_date_tmp 185 LOGICAL, OPTIONAL, INTENT(OUT) :: time_origin 186 LOGICAL(KIND=C_BOOL) :: time_origin_tmp 187 LOGICAL, OPTIONAL, INTENT(OUT) :: timestep 188 LOGICAL(KIND=C_BOOL) :: timestep_tmp 189 190 CALL xios(is_defined_context_attr_hdl_) & 191 ( context_hdl, calendar_type, output_dir, start_date, time_origin, timestep ) 192 193 END SUBROUTINE xios(is_defined_context_attr_hdl) 194 195 SUBROUTINE xios(is_defined_context_attr_hdl_) & 196 ( context_hdl, calendar_type_, output_dir_, start_date_, time_origin_, timestep_ ) 197 198 IMPLICIT NONE 199 TYPE(txios(context)) , INTENT(IN) :: context_hdl 200 LOGICAL, OPTIONAL, INTENT(OUT) :: calendar_type_ 201 LOGICAL(KIND=C_BOOL) :: calendar_type__tmp 202 LOGICAL, OPTIONAL, INTENT(OUT) :: output_dir_ 203 LOGICAL(KIND=C_BOOL) :: output_dir__tmp 204 LOGICAL, OPTIONAL, INTENT(OUT) :: start_date_ 205 LOGICAL(KIND=C_BOOL) :: start_date__tmp 206 LOGICAL, OPTIONAL, INTENT(OUT) :: time_origin_ 207 LOGICAL(KIND=C_BOOL) :: time_origin__tmp 208 LOGICAL, OPTIONAL, INTENT(OUT) :: timestep_ 209 LOGICAL(KIND=C_BOOL) :: timestep__tmp 210 211 IF (PRESENT(calendar_type_)) THEN 212 calendar_type__tmp=cxios_is_defined_context_calendar_type(context_hdl%daddr) 213 calendar_type_=calendar_type__tmp 214 ENDIF 215 216 IF (PRESENT(output_dir_)) THEN 217 output_dir__tmp=cxios_is_defined_context_output_dir(context_hdl%daddr) 218 output_dir_=output_dir__tmp 219 ENDIF 220 221 IF (PRESENT(start_date_)) THEN 222 start_date__tmp=cxios_is_defined_context_start_date(context_hdl%daddr) 223 start_date_=start_date__tmp 224 ENDIF 225 226 IF (PRESENT(time_origin_)) THEN 227 time_origin__tmp=cxios_is_defined_context_time_origin(context_hdl%daddr) 228 time_origin_=time_origin__tmp 229 ENDIF 230 231 IF (PRESENT(timestep_)) THEN 232 timestep__tmp=cxios_is_defined_context_timestep(context_hdl%daddr) 233 timestep_=timestep__tmp 234 ENDIF 235 236 237 238 END SUBROUTINE xios(is_defined_context_attr_hdl_) 239 151 240 END MODULE icontext_attr -
XIOS/trunk/src/interface/fortran_attr/idomain_attr.F90
r326 r432 553 553 END SUBROUTINE xios(get_domain_attr_hdl_) 554 554 555 SUBROUTINE xios(is_defined_domain_attr) & 556 ( domain_id, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_n_index, data_ni & 557 , data_nj, domain_group_ref, ibegin, iend, jbegin, jend, latvalue, long_name, lonvalue, mask & 558 , name, ni, ni_glo, nj, nj_glo, standard_name, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc & 559 , zoom_ni, zoom_ni_loc, zoom_nj, zoom_nj_loc ) 560 561 IMPLICIT NONE 562 TYPE(txios(domain)) :: domain_hdl 563 CHARACTER(LEN=*), INTENT(IN) ::domain_id 564 LOGICAL, OPTIONAL, INTENT(OUT) :: data_dim 565 LOGICAL(KIND=C_BOOL) :: data_dim_tmp 566 LOGICAL, OPTIONAL, INTENT(OUT) :: data_i_index 567 LOGICAL(KIND=C_BOOL) :: data_i_index_tmp 568 LOGICAL, OPTIONAL, INTENT(OUT) :: data_ibegin 569 LOGICAL(KIND=C_BOOL) :: data_ibegin_tmp 570 LOGICAL, OPTIONAL, INTENT(OUT) :: data_j_index 571 LOGICAL(KIND=C_BOOL) :: data_j_index_tmp 572 LOGICAL, OPTIONAL, INTENT(OUT) :: data_jbegin 573 LOGICAL(KIND=C_BOOL) :: data_jbegin_tmp 574 LOGICAL, OPTIONAL, INTENT(OUT) :: data_n_index 575 LOGICAL(KIND=C_BOOL) :: data_n_index_tmp 576 LOGICAL, OPTIONAL, INTENT(OUT) :: data_ni 577 LOGICAL(KIND=C_BOOL) :: data_ni_tmp 578 LOGICAL, OPTIONAL, INTENT(OUT) :: data_nj 579 LOGICAL(KIND=C_BOOL) :: data_nj_tmp 580 LOGICAL, OPTIONAL, INTENT(OUT) :: domain_group_ref 581 LOGICAL(KIND=C_BOOL) :: domain_group_ref_tmp 582 LOGICAL, OPTIONAL, INTENT(OUT) :: ibegin 583 LOGICAL(KIND=C_BOOL) :: ibegin_tmp 584 LOGICAL, OPTIONAL, INTENT(OUT) :: iend 585 LOGICAL(KIND=C_BOOL) :: iend_tmp 586 LOGICAL, OPTIONAL, INTENT(OUT) :: jbegin 587 LOGICAL(KIND=C_BOOL) :: jbegin_tmp 588 LOGICAL, OPTIONAL, INTENT(OUT) :: jend 589 LOGICAL(KIND=C_BOOL) :: jend_tmp 590 LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue 591 LOGICAL(KIND=C_BOOL) :: latvalue_tmp 592 LOGICAL, OPTIONAL, INTENT(OUT) :: long_name 593 LOGICAL(KIND=C_BOOL) :: long_name_tmp 594 LOGICAL, OPTIONAL, INTENT(OUT) :: lonvalue 595 LOGICAL(KIND=C_BOOL) :: lonvalue_tmp 596 LOGICAL, OPTIONAL, INTENT(OUT) :: mask 597 LOGICAL(KIND=C_BOOL) :: mask_tmp 598 LOGICAL, OPTIONAL, INTENT(OUT) :: name 599 LOGICAL(KIND=C_BOOL) :: name_tmp 600 LOGICAL, OPTIONAL, INTENT(OUT) :: ni 601 LOGICAL(KIND=C_BOOL) :: ni_tmp 602 LOGICAL, OPTIONAL, INTENT(OUT) :: ni_glo 603 LOGICAL(KIND=C_BOOL) :: ni_glo_tmp 604 LOGICAL, OPTIONAL, INTENT(OUT) :: nj 605 LOGICAL(KIND=C_BOOL) :: nj_tmp 606 LOGICAL, OPTIONAL, INTENT(OUT) :: nj_glo 607 LOGICAL(KIND=C_BOOL) :: nj_glo_tmp 608 LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name 609 LOGICAL(KIND=C_BOOL) :: standard_name_tmp 610 LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ibegin 611 LOGICAL(KIND=C_BOOL) :: zoom_ibegin_tmp 612 LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ibegin_loc 613 LOGICAL(KIND=C_BOOL) :: zoom_ibegin_loc_tmp 614 LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_jbegin 615 LOGICAL(KIND=C_BOOL) :: zoom_jbegin_tmp 616 LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_jbegin_loc 617 LOGICAL(KIND=C_BOOL) :: zoom_jbegin_loc_tmp 618 LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ni 619 LOGICAL(KIND=C_BOOL) :: zoom_ni_tmp 620 LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ni_loc 621 LOGICAL(KIND=C_BOOL) :: zoom_ni_loc_tmp 622 LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_nj 623 LOGICAL(KIND=C_BOOL) :: zoom_nj_tmp 624 LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_nj_loc 625 LOGICAL(KIND=C_BOOL) :: zoom_nj_loc_tmp 626 627 CALL xios(get_domain_handle)(domain_id,domain_hdl) 628 CALL xios(is_defined_domain_attr_hdl_) & 629 ( domain_hdl, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_n_index, data_ni & 630 , data_nj, domain_group_ref, ibegin, iend, jbegin, jend, latvalue, long_name, lonvalue, mask & 631 , name, ni, ni_glo, nj, nj_glo, standard_name, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc & 632 , zoom_ni, zoom_ni_loc, zoom_nj, zoom_nj_loc ) 633 634 END SUBROUTINE xios(is_defined_domain_attr) 635 636 SUBROUTINE xios(is_defined_domain_attr_hdl) & 637 ( domain_hdl, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_n_index, data_ni & 638 , data_nj, domain_group_ref, ibegin, iend, jbegin, jend, latvalue, long_name, lonvalue, mask & 639 , name, ni, ni_glo, nj, nj_glo, standard_name, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc & 640 , zoom_ni, zoom_ni_loc, zoom_nj, zoom_nj_loc ) 641 642 IMPLICIT NONE 643 TYPE(txios(domain)) , INTENT(IN) :: domain_hdl 644 LOGICAL, OPTIONAL, INTENT(OUT) :: data_dim 645 LOGICAL(KIND=C_BOOL) :: data_dim_tmp 646 LOGICAL, OPTIONAL, INTENT(OUT) :: data_i_index 647 LOGICAL(KIND=C_BOOL) :: data_i_index_tmp 648 LOGICAL, OPTIONAL, INTENT(OUT) :: data_ibegin 649 LOGICAL(KIND=C_BOOL) :: data_ibegin_tmp 650 LOGICAL, OPTIONAL, INTENT(OUT) :: data_j_index 651 LOGICAL(KIND=C_BOOL) :: data_j_index_tmp 652 LOGICAL, OPTIONAL, INTENT(OUT) :: data_jbegin 653 LOGICAL(KIND=C_BOOL) :: data_jbegin_tmp 654 LOGICAL, OPTIONAL, INTENT(OUT) :: data_n_index 655 LOGICAL(KIND=C_BOOL) :: data_n_index_tmp 656 LOGICAL, OPTIONAL, INTENT(OUT) :: data_ni 657 LOGICAL(KIND=C_BOOL) :: data_ni_tmp 658 LOGICAL, OPTIONAL, INTENT(OUT) :: data_nj 659 LOGICAL(KIND=C_BOOL) :: data_nj_tmp 660 LOGICAL, OPTIONAL, INTENT(OUT) :: domain_group_ref 661 LOGICAL(KIND=C_BOOL) :: domain_group_ref_tmp 662 LOGICAL, OPTIONAL, INTENT(OUT) :: ibegin 663 LOGICAL(KIND=C_BOOL) :: ibegin_tmp 664 LOGICAL, OPTIONAL, INTENT(OUT) :: iend 665 LOGICAL(KIND=C_BOOL) :: iend_tmp 666 LOGICAL, OPTIONAL, INTENT(OUT) :: jbegin 667 LOGICAL(KIND=C_BOOL) :: jbegin_tmp 668 LOGICAL, OPTIONAL, INTENT(OUT) :: jend 669 LOGICAL(KIND=C_BOOL) :: jend_tmp 670 LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue 671 LOGICAL(KIND=C_BOOL) :: latvalue_tmp 672 LOGICAL, OPTIONAL, INTENT(OUT) :: long_name 673 LOGICAL(KIND=C_BOOL) :: long_name_tmp 674 LOGICAL, OPTIONAL, INTENT(OUT) :: lonvalue 675 LOGICAL(KIND=C_BOOL) :: lonvalue_tmp 676 LOGICAL, OPTIONAL, INTENT(OUT) :: mask 677 LOGICAL(KIND=C_BOOL) :: mask_tmp 678 LOGICAL, OPTIONAL, INTENT(OUT) :: name 679 LOGICAL(KIND=C_BOOL) :: name_tmp 680 LOGICAL, OPTIONAL, INTENT(OUT) :: ni 681 LOGICAL(KIND=C_BOOL) :: ni_tmp 682 LOGICAL, OPTIONAL, INTENT(OUT) :: ni_glo 683 LOGICAL(KIND=C_BOOL) :: ni_glo_tmp 684 LOGICAL, OPTIONAL, INTENT(OUT) :: nj 685 LOGICAL(KIND=C_BOOL) :: nj_tmp 686 LOGICAL, OPTIONAL, INTENT(OUT) :: nj_glo 687 LOGICAL(KIND=C_BOOL) :: nj_glo_tmp 688 LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name 689 LOGICAL(KIND=C_BOOL) :: standard_name_tmp 690 LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ibegin 691 LOGICAL(KIND=C_BOOL) :: zoom_ibegin_tmp 692 LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ibegin_loc 693 LOGICAL(KIND=C_BOOL) :: zoom_ibegin_loc_tmp 694 LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_jbegin 695 LOGICAL(KIND=C_BOOL) :: zoom_jbegin_tmp 696 LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_jbegin_loc 697 LOGICAL(KIND=C_BOOL) :: zoom_jbegin_loc_tmp 698 LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ni 699 LOGICAL(KIND=C_BOOL) :: zoom_ni_tmp 700 LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ni_loc 701 LOGICAL(KIND=C_BOOL) :: zoom_ni_loc_tmp 702 LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_nj 703 LOGICAL(KIND=C_BOOL) :: zoom_nj_tmp 704 LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_nj_loc 705 LOGICAL(KIND=C_BOOL) :: zoom_nj_loc_tmp 706 707 CALL xios(is_defined_domain_attr_hdl_) & 708 ( domain_hdl, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_n_index, data_ni & 709 , data_nj, domain_group_ref, ibegin, iend, jbegin, jend, latvalue, long_name, lonvalue, mask & 710 , name, ni, ni_glo, nj, nj_glo, standard_name, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc & 711 , zoom_ni, zoom_ni_loc, zoom_nj, zoom_nj_loc ) 712 713 END SUBROUTINE xios(is_defined_domain_attr_hdl) 714 715 SUBROUTINE xios(is_defined_domain_attr_hdl_) & 716 ( domain_hdl, data_dim_, data_i_index_, data_ibegin_, data_j_index_, data_jbegin_, data_n_index_ & 717 , data_ni_, data_nj_, domain_group_ref_, ibegin_, iend_, jbegin_, jend_, latvalue_, long_name_ & 718 , lonvalue_, mask_, name_, ni_, ni_glo_, nj_, nj_glo_, standard_name_, zoom_ibegin_, zoom_ibegin_loc_ & 719 , zoom_jbegin_, zoom_jbegin_loc_, zoom_ni_, zoom_ni_loc_, zoom_nj_, zoom_nj_loc_ ) 720 721 IMPLICIT NONE 722 TYPE(txios(domain)) , INTENT(IN) :: domain_hdl 723 LOGICAL, OPTIONAL, INTENT(OUT) :: data_dim_ 724 LOGICAL(KIND=C_BOOL) :: data_dim__tmp 725 LOGICAL, OPTIONAL, INTENT(OUT) :: data_i_index_ 726 LOGICAL(KIND=C_BOOL) :: data_i_index__tmp 727 LOGICAL, OPTIONAL, INTENT(OUT) :: data_ibegin_ 728 LOGICAL(KIND=C_BOOL) :: data_ibegin__tmp 729 LOGICAL, OPTIONAL, INTENT(OUT) :: data_j_index_ 730 LOGICAL(KIND=C_BOOL) :: data_j_index__tmp 731 LOGICAL, OPTIONAL, INTENT(OUT) :: data_jbegin_ 732 LOGICAL(KIND=C_BOOL) :: data_jbegin__tmp 733 LOGICAL, OPTIONAL, INTENT(OUT) :: data_n_index_ 734 LOGICAL(KIND=C_BOOL) :: data_n_index__tmp 735 LOGICAL, OPTIONAL, INTENT(OUT) :: data_ni_ 736 LOGICAL(KIND=C_BOOL) :: data_ni__tmp 737 LOGICAL, OPTIONAL, INTENT(OUT) :: data_nj_ 738 LOGICAL(KIND=C_BOOL) :: data_nj__tmp 739 LOGICAL, OPTIONAL, INTENT(OUT) :: domain_group_ref_ 740 LOGICAL(KIND=C_BOOL) :: domain_group_ref__tmp 741 LOGICAL, OPTIONAL, INTENT(OUT) :: ibegin_ 742 LOGICAL(KIND=C_BOOL) :: ibegin__tmp 743 LOGICAL, OPTIONAL, INTENT(OUT) :: iend_ 744 LOGICAL(KIND=C_BOOL) :: iend__tmp 745 LOGICAL, OPTIONAL, INTENT(OUT) :: jbegin_ 746 LOGICAL(KIND=C_BOOL) :: jbegin__tmp 747 LOGICAL, OPTIONAL, INTENT(OUT) :: jend_ 748 LOGICAL(KIND=C_BOOL) :: jend__tmp 749 LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue_ 750 LOGICAL(KIND=C_BOOL) :: latvalue__tmp 751 LOGICAL, OPTIONAL, INTENT(OUT) :: long_name_ 752 LOGICAL(KIND=C_BOOL) :: long_name__tmp 753 LOGICAL, OPTIONAL, INTENT(OUT) :: lonvalue_ 754 LOGICAL(KIND=C_BOOL) :: lonvalue__tmp 755 LOGICAL, OPTIONAL, INTENT(OUT) :: mask_ 756 LOGICAL(KIND=C_BOOL) :: mask__tmp 757 LOGICAL, OPTIONAL, INTENT(OUT) :: name_ 758 LOGICAL(KIND=C_BOOL) :: name__tmp 759 LOGICAL, OPTIONAL, INTENT(OUT) :: ni_ 760 LOGICAL(KIND=C_BOOL) :: ni__tmp 761 LOGICAL, OPTIONAL, INTENT(OUT) :: ni_glo_ 762 LOGICAL(KIND=C_BOOL) :: ni_glo__tmp 763 LOGICAL, OPTIONAL, INTENT(OUT) :: nj_ 764 LOGICAL(KIND=C_BOOL) :: nj__tmp 765 LOGICAL, OPTIONAL, INTENT(OUT) :: nj_glo_ 766 LOGICAL(KIND=C_BOOL) :: nj_glo__tmp 767 LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name_ 768 LOGICAL(KIND=C_BOOL) :: standard_name__tmp 769 LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ibegin_ 770 LOGICAL(KIND=C_BOOL) :: zoom_ibegin__tmp 771 LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ibegin_loc_ 772 LOGICAL(KIND=C_BOOL) :: zoom_ibegin_loc__tmp 773 LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_jbegin_ 774 LOGICAL(KIND=C_BOOL) :: zoom_jbegin__tmp 775 LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_jbegin_loc_ 776 LOGICAL(KIND=C_BOOL) :: zoom_jbegin_loc__tmp 777 LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ni_ 778 LOGICAL(KIND=C_BOOL) :: zoom_ni__tmp 779 LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ni_loc_ 780 LOGICAL(KIND=C_BOOL) :: zoom_ni_loc__tmp 781 LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_nj_ 782 LOGICAL(KIND=C_BOOL) :: zoom_nj__tmp 783 LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_nj_loc_ 784 LOGICAL(KIND=C_BOOL) :: zoom_nj_loc__tmp 785 786 IF (PRESENT(data_dim_)) THEN 787 data_dim__tmp=cxios_is_defined_domain_data_dim(domain_hdl%daddr) 788 data_dim_=data_dim__tmp 789 ENDIF 790 791 IF (PRESENT(data_i_index_)) THEN 792 data_i_index__tmp=cxios_is_defined_domain_data_i_index(domain_hdl%daddr) 793 data_i_index_=data_i_index__tmp 794 ENDIF 795 796 IF (PRESENT(data_ibegin_)) THEN 797 data_ibegin__tmp=cxios_is_defined_domain_data_ibegin(domain_hdl%daddr) 798 data_ibegin_=data_ibegin__tmp 799 ENDIF 800 801 IF (PRESENT(data_j_index_)) THEN 802 data_j_index__tmp=cxios_is_defined_domain_data_j_index(domain_hdl%daddr) 803 data_j_index_=data_j_index__tmp 804 ENDIF 805 806 IF (PRESENT(data_jbegin_)) THEN 807 data_jbegin__tmp=cxios_is_defined_domain_data_jbegin(domain_hdl%daddr) 808 data_jbegin_=data_jbegin__tmp 809 ENDIF 810 811 IF (PRESENT(data_n_index_)) THEN 812 data_n_index__tmp=cxios_is_defined_domain_data_n_index(domain_hdl%daddr) 813 data_n_index_=data_n_index__tmp 814 ENDIF 815 816 IF (PRESENT(data_ni_)) THEN 817 data_ni__tmp=cxios_is_defined_domain_data_ni(domain_hdl%daddr) 818 data_ni_=data_ni__tmp 819 ENDIF 820 821 IF (PRESENT(data_nj_)) THEN 822 data_nj__tmp=cxios_is_defined_domain_data_nj(domain_hdl%daddr) 823 data_nj_=data_nj__tmp 824 ENDIF 825 826 IF (PRESENT(domain_group_ref_)) THEN 827 domain_group_ref__tmp=cxios_is_defined_domain_domain_group_ref(domain_hdl%daddr) 828 domain_group_ref_=domain_group_ref__tmp 829 ENDIF 830 831 IF (PRESENT(ibegin_)) THEN 832 ibegin__tmp=cxios_is_defined_domain_ibegin(domain_hdl%daddr) 833 ibegin_=ibegin__tmp 834 ENDIF 835 836 IF (PRESENT(iend_)) THEN 837 iend__tmp=cxios_is_defined_domain_iend(domain_hdl%daddr) 838 iend_=iend__tmp 839 ENDIF 840 841 IF (PRESENT(jbegin_)) THEN 842 jbegin__tmp=cxios_is_defined_domain_jbegin(domain_hdl%daddr) 843 jbegin_=jbegin__tmp 844 ENDIF 845 846 IF (PRESENT(jend_)) THEN 847 jend__tmp=cxios_is_defined_domain_jend(domain_hdl%daddr) 848 jend_=jend__tmp 849 ENDIF 850 851 IF (PRESENT(latvalue_)) THEN 852 latvalue__tmp=cxios_is_defined_domain_latvalue(domain_hdl%daddr) 853 latvalue_=latvalue__tmp 854 ENDIF 855 856 IF (PRESENT(long_name_)) THEN 857 long_name__tmp=cxios_is_defined_domain_long_name(domain_hdl%daddr) 858 long_name_=long_name__tmp 859 ENDIF 860 861 IF (PRESENT(lonvalue_)) THEN 862 lonvalue__tmp=cxios_is_defined_domain_lonvalue(domain_hdl%daddr) 863 lonvalue_=lonvalue__tmp 864 ENDIF 865 866 IF (PRESENT(mask_)) THEN 867 mask__tmp=cxios_is_defined_domain_mask(domain_hdl%daddr) 868 mask_=mask__tmp 869 ENDIF 870 871 IF (PRESENT(name_)) THEN 872 name__tmp=cxios_is_defined_domain_name(domain_hdl%daddr) 873 name_=name__tmp 874 ENDIF 875 876 IF (PRESENT(ni_)) THEN 877 ni__tmp=cxios_is_defined_domain_ni(domain_hdl%daddr) 878 ni_=ni__tmp 879 ENDIF 880 881 IF (PRESENT(ni_glo_)) THEN 882 ni_glo__tmp=cxios_is_defined_domain_ni_glo(domain_hdl%daddr) 883 ni_glo_=ni_glo__tmp 884 ENDIF 885 886 IF (PRESENT(nj_)) THEN 887 nj__tmp=cxios_is_defined_domain_nj(domain_hdl%daddr) 888 nj_=nj__tmp 889 ENDIF 890 891 IF (PRESENT(nj_glo_)) THEN 892 nj_glo__tmp=cxios_is_defined_domain_nj_glo(domain_hdl%daddr) 893 nj_glo_=nj_glo__tmp 894 ENDIF 895 896 IF (PRESENT(standard_name_)) THEN 897 standard_name__tmp=cxios_is_defined_domain_standard_name(domain_hdl%daddr) 898 standard_name_=standard_name__tmp 899 ENDIF 900 901 IF (PRESENT(zoom_ibegin_)) THEN 902 zoom_ibegin__tmp=cxios_is_defined_domain_zoom_ibegin(domain_hdl%daddr) 903 zoom_ibegin_=zoom_ibegin__tmp 904 ENDIF 905 906 IF (PRESENT(zoom_ibegin_loc_)) THEN 907 zoom_ibegin_loc__tmp=cxios_is_defined_domain_zoom_ibegin_loc(domain_hdl%daddr) 908 zoom_ibegin_loc_=zoom_ibegin_loc__tmp 909 ENDIF 910 911 IF (PRESENT(zoom_jbegin_)) THEN 912 zoom_jbegin__tmp=cxios_is_defined_domain_zoom_jbegin(domain_hdl%daddr) 913 zoom_jbegin_=zoom_jbegin__tmp 914 ENDIF 915 916 IF (PRESENT(zoom_jbegin_loc_)) THEN 917 zoom_jbegin_loc__tmp=cxios_is_defined_domain_zoom_jbegin_loc(domain_hdl%daddr) 918 zoom_jbegin_loc_=zoom_jbegin_loc__tmp 919 ENDIF 920 921 IF (PRESENT(zoom_ni_)) THEN 922 zoom_ni__tmp=cxios_is_defined_domain_zoom_ni(domain_hdl%daddr) 923 zoom_ni_=zoom_ni__tmp 924 ENDIF 925 926 IF (PRESENT(zoom_ni_loc_)) THEN 927 zoom_ni_loc__tmp=cxios_is_defined_domain_zoom_ni_loc(domain_hdl%daddr) 928 zoom_ni_loc_=zoom_ni_loc__tmp 929 ENDIF 930 931 IF (PRESENT(zoom_nj_)) THEN 932 zoom_nj__tmp=cxios_is_defined_domain_zoom_nj(domain_hdl%daddr) 933 zoom_nj_=zoom_nj__tmp 934 ENDIF 935 936 IF (PRESENT(zoom_nj_loc_)) THEN 937 zoom_nj_loc__tmp=cxios_is_defined_domain_zoom_nj_loc(domain_hdl%daddr) 938 zoom_nj_loc_=zoom_nj_loc__tmp 939 ENDIF 940 941 942 943 END SUBROUTINE xios(is_defined_domain_attr_hdl_) 944 555 945 END MODULE idomain_attr -
XIOS/trunk/src/interface/fortran_attr/idomaingroup_attr.F90
r326 r432 569 569 END SUBROUTINE xios(get_domaingroup_attr_hdl_) 570 570 571 SUBROUTINE xios(is_defined_domaingroup_attr) & 572 ( domaingroup_id, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_n_index & 573 , data_ni, data_nj, domain_group_ref, group_ref, ibegin, iend, jbegin, jend, latvalue, long_name & 574 , lonvalue, mask, name, ni, ni_glo, nj, nj_glo, standard_name, zoom_ibegin, zoom_ibegin_loc & 575 , zoom_jbegin, zoom_jbegin_loc, zoom_ni, zoom_ni_loc, zoom_nj, zoom_nj_loc ) 576 577 IMPLICIT NONE 578 TYPE(txios(domaingroup)) :: domaingroup_hdl 579 CHARACTER(LEN=*), INTENT(IN) ::domaingroup_id 580 LOGICAL, OPTIONAL, INTENT(OUT) :: data_dim 581 LOGICAL(KIND=C_BOOL) :: data_dim_tmp 582 LOGICAL, OPTIONAL, INTENT(OUT) :: data_i_index 583 LOGICAL(KIND=C_BOOL) :: data_i_index_tmp 584 LOGICAL, OPTIONAL, INTENT(OUT) :: data_ibegin 585 LOGICAL(KIND=C_BOOL) :: data_ibegin_tmp 586 LOGICAL, OPTIONAL, INTENT(OUT) :: data_j_index 587 LOGICAL(KIND=C_BOOL) :: data_j_index_tmp 588 LOGICAL, OPTIONAL, INTENT(OUT) :: data_jbegin 589 LOGICAL(KIND=C_BOOL) :: data_jbegin_tmp 590 LOGICAL, OPTIONAL, INTENT(OUT) :: data_n_index 591 LOGICAL(KIND=C_BOOL) :: data_n_index_tmp 592 LOGICAL, OPTIONAL, INTENT(OUT) :: data_ni 593 LOGICAL(KIND=C_BOOL) :: data_ni_tmp 594 LOGICAL, OPTIONAL, INTENT(OUT) :: data_nj 595 LOGICAL(KIND=C_BOOL) :: data_nj_tmp 596 LOGICAL, OPTIONAL, INTENT(OUT) :: domain_group_ref 597 LOGICAL(KIND=C_BOOL) :: domain_group_ref_tmp 598 LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref 599 LOGICAL(KIND=C_BOOL) :: group_ref_tmp 600 LOGICAL, OPTIONAL, INTENT(OUT) :: ibegin 601 LOGICAL(KIND=C_BOOL) :: ibegin_tmp 602 LOGICAL, OPTIONAL, INTENT(OUT) :: iend 603 LOGICAL(KIND=C_BOOL) :: iend_tmp 604 LOGICAL, OPTIONAL, INTENT(OUT) :: jbegin 605 LOGICAL(KIND=C_BOOL) :: jbegin_tmp 606 LOGICAL, OPTIONAL, INTENT(OUT) :: jend 607 LOGICAL(KIND=C_BOOL) :: jend_tmp 608 LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue 609 LOGICAL(KIND=C_BOOL) :: latvalue_tmp 610 LOGICAL, OPTIONAL, INTENT(OUT) :: long_name 611 LOGICAL(KIND=C_BOOL) :: long_name_tmp 612 LOGICAL, OPTIONAL, INTENT(OUT) :: lonvalue 613 LOGICAL(KIND=C_BOOL) :: lonvalue_tmp 614 LOGICAL, OPTIONAL, INTENT(OUT) :: mask 615 LOGICAL(KIND=C_BOOL) :: mask_tmp 616 LOGICAL, OPTIONAL, INTENT(OUT) :: name 617 LOGICAL(KIND=C_BOOL) :: name_tmp 618 LOGICAL, OPTIONAL, INTENT(OUT) :: ni 619 LOGICAL(KIND=C_BOOL) :: ni_tmp 620 LOGICAL, OPTIONAL, INTENT(OUT) :: ni_glo 621 LOGICAL(KIND=C_BOOL) :: ni_glo_tmp 622 LOGICAL, OPTIONAL, INTENT(OUT) :: nj 623 LOGICAL(KIND=C_BOOL) :: nj_tmp 624 LOGICAL, OPTIONAL, INTENT(OUT) :: nj_glo 625 LOGICAL(KIND=C_BOOL) :: nj_glo_tmp 626 LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name 627 LOGICAL(KIND=C_BOOL) :: standard_name_tmp 628 LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ibegin 629 LOGICAL(KIND=C_BOOL) :: zoom_ibegin_tmp 630 LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ibegin_loc 631 LOGICAL(KIND=C_BOOL) :: zoom_ibegin_loc_tmp 632 LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_jbegin 633 LOGICAL(KIND=C_BOOL) :: zoom_jbegin_tmp 634 LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_jbegin_loc 635 LOGICAL(KIND=C_BOOL) :: zoom_jbegin_loc_tmp 636 LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ni 637 LOGICAL(KIND=C_BOOL) :: zoom_ni_tmp 638 LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ni_loc 639 LOGICAL(KIND=C_BOOL) :: zoom_ni_loc_tmp 640 LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_nj 641 LOGICAL(KIND=C_BOOL) :: zoom_nj_tmp 642 LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_nj_loc 643 LOGICAL(KIND=C_BOOL) :: zoom_nj_loc_tmp 644 645 CALL xios(get_domaingroup_handle)(domaingroup_id,domaingroup_hdl) 646 CALL xios(is_defined_domaingroup_attr_hdl_) & 647 ( domaingroup_hdl, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_n_index & 648 , data_ni, data_nj, domain_group_ref, group_ref, ibegin, iend, jbegin, jend, latvalue, long_name & 649 , lonvalue, mask, name, ni, ni_glo, nj, nj_glo, standard_name, zoom_ibegin, zoom_ibegin_loc & 650 , zoom_jbegin, zoom_jbegin_loc, zoom_ni, zoom_ni_loc, zoom_nj, zoom_nj_loc ) 651 652 END SUBROUTINE xios(is_defined_domaingroup_attr) 653 654 SUBROUTINE xios(is_defined_domaingroup_attr_hdl) & 655 ( domaingroup_hdl, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_n_index & 656 , data_ni, data_nj, domain_group_ref, group_ref, ibegin, iend, jbegin, jend, latvalue, long_name & 657 , lonvalue, mask, name, ni, ni_glo, nj, nj_glo, standard_name, zoom_ibegin, zoom_ibegin_loc & 658 , zoom_jbegin, zoom_jbegin_loc, zoom_ni, zoom_ni_loc, zoom_nj, zoom_nj_loc ) 659 660 IMPLICIT NONE 661 TYPE(txios(domaingroup)) , INTENT(IN) :: domaingroup_hdl 662 LOGICAL, OPTIONAL, INTENT(OUT) :: data_dim 663 LOGICAL(KIND=C_BOOL) :: data_dim_tmp 664 LOGICAL, OPTIONAL, INTENT(OUT) :: data_i_index 665 LOGICAL(KIND=C_BOOL) :: data_i_index_tmp 666 LOGICAL, OPTIONAL, INTENT(OUT) :: data_ibegin 667 LOGICAL(KIND=C_BOOL) :: data_ibegin_tmp 668 LOGICAL, OPTIONAL, INTENT(OUT) :: data_j_index 669 LOGICAL(KIND=C_BOOL) :: data_j_index_tmp 670 LOGICAL, OPTIONAL, INTENT(OUT) :: data_jbegin 671 LOGICAL(KIND=C_BOOL) :: data_jbegin_tmp 672 LOGICAL, OPTIONAL, INTENT(OUT) :: data_n_index 673 LOGICAL(KIND=C_BOOL) :: data_n_index_tmp 674 LOGICAL, OPTIONAL, INTENT(OUT) :: data_ni 675 LOGICAL(KIND=C_BOOL) :: data_ni_tmp 676 LOGICAL, OPTIONAL, INTENT(OUT) :: data_nj 677 LOGICAL(KIND=C_BOOL) :: data_nj_tmp 678 LOGICAL, OPTIONAL, INTENT(OUT) :: domain_group_ref 679 LOGICAL(KIND=C_BOOL) :: domain_group_ref_tmp 680 LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref 681 LOGICAL(KIND=C_BOOL) :: group_ref_tmp 682 LOGICAL, OPTIONAL, INTENT(OUT) :: ibegin 683 LOGICAL(KIND=C_BOOL) :: ibegin_tmp 684 LOGICAL, OPTIONAL, INTENT(OUT) :: iend 685 LOGICAL(KIND=C_BOOL) :: iend_tmp 686 LOGICAL, OPTIONAL, INTENT(OUT) :: jbegin 687 LOGICAL(KIND=C_BOOL) :: jbegin_tmp 688 LOGICAL, OPTIONAL, INTENT(OUT) :: jend 689 LOGICAL(KIND=C_BOOL) :: jend_tmp 690 LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue 691 LOGICAL(KIND=C_BOOL) :: latvalue_tmp 692 LOGICAL, OPTIONAL, INTENT(OUT) :: long_name 693 LOGICAL(KIND=C_BOOL) :: long_name_tmp 694 LOGICAL, OPTIONAL, INTENT(OUT) :: lonvalue 695 LOGICAL(KIND=C_BOOL) :: lonvalue_tmp 696 LOGICAL, OPTIONAL, INTENT(OUT) :: mask 697 LOGICAL(KIND=C_BOOL) :: mask_tmp 698 LOGICAL, OPTIONAL, INTENT(OUT) :: name 699 LOGICAL(KIND=C_BOOL) :: name_tmp 700 LOGICAL, OPTIONAL, INTENT(OUT) :: ni 701 LOGICAL(KIND=C_BOOL) :: ni_tmp 702 LOGICAL, OPTIONAL, INTENT(OUT) :: ni_glo 703 LOGICAL(KIND=C_BOOL) :: ni_glo_tmp 704 LOGICAL, OPTIONAL, INTENT(OUT) :: nj 705 LOGICAL(KIND=C_BOOL) :: nj_tmp 706 LOGICAL, OPTIONAL, INTENT(OUT) :: nj_glo 707 LOGICAL(KIND=C_BOOL) :: nj_glo_tmp 708 LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name 709 LOGICAL(KIND=C_BOOL) :: standard_name_tmp 710 LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ibegin 711 LOGICAL(KIND=C_BOOL) :: zoom_ibegin_tmp 712 LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ibegin_loc 713 LOGICAL(KIND=C_BOOL) :: zoom_ibegin_loc_tmp 714 LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_jbegin 715 LOGICAL(KIND=C_BOOL) :: zoom_jbegin_tmp 716 LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_jbegin_loc 717 LOGICAL(KIND=C_BOOL) :: zoom_jbegin_loc_tmp 718 LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ni 719 LOGICAL(KIND=C_BOOL) :: zoom_ni_tmp 720 LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ni_loc 721 LOGICAL(KIND=C_BOOL) :: zoom_ni_loc_tmp 722 LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_nj 723 LOGICAL(KIND=C_BOOL) :: zoom_nj_tmp 724 LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_nj_loc 725 LOGICAL(KIND=C_BOOL) :: zoom_nj_loc_tmp 726 727 CALL xios(is_defined_domaingroup_attr_hdl_) & 728 ( domaingroup_hdl, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_n_index & 729 , data_ni, data_nj, domain_group_ref, group_ref, ibegin, iend, jbegin, jend, latvalue, long_name & 730 , lonvalue, mask, name, ni, ni_glo, nj, nj_glo, standard_name, zoom_ibegin, zoom_ibegin_loc & 731 , zoom_jbegin, zoom_jbegin_loc, zoom_ni, zoom_ni_loc, zoom_nj, zoom_nj_loc ) 732 733 END SUBROUTINE xios(is_defined_domaingroup_attr_hdl) 734 735 SUBROUTINE xios(is_defined_domaingroup_attr_hdl_) & 736 ( domaingroup_hdl, data_dim_, data_i_index_, data_ibegin_, data_j_index_, data_jbegin_, data_n_index_ & 737 , data_ni_, data_nj_, domain_group_ref_, group_ref_, ibegin_, iend_, jbegin_, jend_, latvalue_ & 738 , long_name_, lonvalue_, mask_, name_, ni_, ni_glo_, nj_, nj_glo_, standard_name_, zoom_ibegin_ & 739 , zoom_ibegin_loc_, zoom_jbegin_, zoom_jbegin_loc_, zoom_ni_, zoom_ni_loc_, zoom_nj_, zoom_nj_loc_ & 740 ) 741 742 IMPLICIT NONE 743 TYPE(txios(domaingroup)) , INTENT(IN) :: domaingroup_hdl 744 LOGICAL, OPTIONAL, INTENT(OUT) :: data_dim_ 745 LOGICAL(KIND=C_BOOL) :: data_dim__tmp 746 LOGICAL, OPTIONAL, INTENT(OUT) :: data_i_index_ 747 LOGICAL(KIND=C_BOOL) :: data_i_index__tmp 748 LOGICAL, OPTIONAL, INTENT(OUT) :: data_ibegin_ 749 LOGICAL(KIND=C_BOOL) :: data_ibegin__tmp 750 LOGICAL, OPTIONAL, INTENT(OUT) :: data_j_index_ 751 LOGICAL(KIND=C_BOOL) :: data_j_index__tmp 752 LOGICAL, OPTIONAL, INTENT(OUT) :: data_jbegin_ 753 LOGICAL(KIND=C_BOOL) :: data_jbegin__tmp 754 LOGICAL, OPTIONAL, INTENT(OUT) :: data_n_index_ 755 LOGICAL(KIND=C_BOOL) :: data_n_index__tmp 756 LOGICAL, OPTIONAL, INTENT(OUT) :: data_ni_ 757 LOGICAL(KIND=C_BOOL) :: data_ni__tmp 758 LOGICAL, OPTIONAL, INTENT(OUT) :: data_nj_ 759 LOGICAL(KIND=C_BOOL) :: data_nj__tmp 760 LOGICAL, OPTIONAL, INTENT(OUT) :: domain_group_ref_ 761 LOGICAL(KIND=C_BOOL) :: domain_group_ref__tmp 762 LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref_ 763 LOGICAL(KIND=C_BOOL) :: group_ref__tmp 764 LOGICAL, OPTIONAL, INTENT(OUT) :: ibegin_ 765 LOGICAL(KIND=C_BOOL) :: ibegin__tmp 766 LOGICAL, OPTIONAL, INTENT(OUT) :: iend_ 767 LOGICAL(KIND=C_BOOL) :: iend__tmp 768 LOGICAL, OPTIONAL, INTENT(OUT) :: jbegin_ 769 LOGICAL(KIND=C_BOOL) :: jbegin__tmp 770 LOGICAL, OPTIONAL, INTENT(OUT) :: jend_ 771 LOGICAL(KIND=C_BOOL) :: jend__tmp 772 LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue_ 773 LOGICAL(KIND=C_BOOL) :: latvalue__tmp 774 LOGICAL, OPTIONAL, INTENT(OUT) :: long_name_ 775 LOGICAL(KIND=C_BOOL) :: long_name__tmp 776 LOGICAL, OPTIONAL, INTENT(OUT) :: lonvalue_ 777 LOGICAL(KIND=C_BOOL) :: lonvalue__tmp 778 LOGICAL, OPTIONAL, INTENT(OUT) :: mask_ 779 LOGICAL(KIND=C_BOOL) :: mask__tmp 780 LOGICAL, OPTIONAL, INTENT(OUT) :: name_ 781 LOGICAL(KIND=C_BOOL) :: name__tmp 782 LOGICAL, OPTIONAL, INTENT(OUT) :: ni_ 783 LOGICAL(KIND=C_BOOL) :: ni__tmp 784 LOGICAL, OPTIONAL, INTENT(OUT) :: ni_glo_ 785 LOGICAL(KIND=C_BOOL) :: ni_glo__tmp 786 LOGICAL, OPTIONAL, INTENT(OUT) :: nj_ 787 LOGICAL(KIND=C_BOOL) :: nj__tmp 788 LOGICAL, OPTIONAL, INTENT(OUT) :: nj_glo_ 789 LOGICAL(KIND=C_BOOL) :: nj_glo__tmp 790 LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name_ 791 LOGICAL(KIND=C_BOOL) :: standard_name__tmp 792 LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ibegin_ 793 LOGICAL(KIND=C_BOOL) :: zoom_ibegin__tmp 794 LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ibegin_loc_ 795 LOGICAL(KIND=C_BOOL) :: zoom_ibegin_loc__tmp 796 LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_jbegin_ 797 LOGICAL(KIND=C_BOOL) :: zoom_jbegin__tmp 798 LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_jbegin_loc_ 799 LOGICAL(KIND=C_BOOL) :: zoom_jbegin_loc__tmp 800 LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ni_ 801 LOGICAL(KIND=C_BOOL) :: zoom_ni__tmp 802 LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ni_loc_ 803 LOGICAL(KIND=C_BOOL) :: zoom_ni_loc__tmp 804 LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_nj_ 805 LOGICAL(KIND=C_BOOL) :: zoom_nj__tmp 806 LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_nj_loc_ 807 LOGICAL(KIND=C_BOOL) :: zoom_nj_loc__tmp 808 809 IF (PRESENT(data_dim_)) THEN 810 data_dim__tmp=cxios_is_defined_domaingroup_data_dim(domaingroup_hdl%daddr) 811 data_dim_=data_dim__tmp 812 ENDIF 813 814 IF (PRESENT(data_i_index_)) THEN 815 data_i_index__tmp=cxios_is_defined_domaingroup_data_i_index(domaingroup_hdl%daddr) 816 data_i_index_=data_i_index__tmp 817 ENDIF 818 819 IF (PRESENT(data_ibegin_)) THEN 820 data_ibegin__tmp=cxios_is_defined_domaingroup_data_ibegin(domaingroup_hdl%daddr) 821 data_ibegin_=data_ibegin__tmp 822 ENDIF 823 824 IF (PRESENT(data_j_index_)) THEN 825 data_j_index__tmp=cxios_is_defined_domaingroup_data_j_index(domaingroup_hdl%daddr) 826 data_j_index_=data_j_index__tmp 827 ENDIF 828 829 IF (PRESENT(data_jbegin_)) THEN 830 data_jbegin__tmp=cxios_is_defined_domaingroup_data_jbegin(domaingroup_hdl%daddr) 831 data_jbegin_=data_jbegin__tmp 832 ENDIF 833 834 IF (PRESENT(data_n_index_)) THEN 835 data_n_index__tmp=cxios_is_defined_domaingroup_data_n_index(domaingroup_hdl%daddr) 836 data_n_index_=data_n_index__tmp 837 ENDIF 838 839 IF (PRESENT(data_ni_)) THEN 840 data_ni__tmp=cxios_is_defined_domaingroup_data_ni(domaingroup_hdl%daddr) 841 data_ni_=data_ni__tmp 842 ENDIF 843 844 IF (PRESENT(data_nj_)) THEN 845 data_nj__tmp=cxios_is_defined_domaingroup_data_nj(domaingroup_hdl%daddr) 846 data_nj_=data_nj__tmp 847 ENDIF 848 849 IF (PRESENT(domain_group_ref_)) THEN 850 domain_group_ref__tmp=cxios_is_defined_domaingroup_domain_group_ref(domaingroup_hdl%daddr) 851 domain_group_ref_=domain_group_ref__tmp 852 ENDIF 853 854 IF (PRESENT(group_ref_)) THEN 855 group_ref__tmp=cxios_is_defined_domaingroup_group_ref(domaingroup_hdl%daddr) 856 group_ref_=group_ref__tmp 857 ENDIF 858 859 IF (PRESENT(ibegin_)) THEN 860 ibegin__tmp=cxios_is_defined_domaingroup_ibegin(domaingroup_hdl%daddr) 861 ibegin_=ibegin__tmp 862 ENDIF 863 864 IF (PRESENT(iend_)) THEN 865 iend__tmp=cxios_is_defined_domaingroup_iend(domaingroup_hdl%daddr) 866 iend_=iend__tmp 867 ENDIF 868 869 IF (PRESENT(jbegin_)) THEN 870 jbegin__tmp=cxios_is_defined_domaingroup_jbegin(domaingroup_hdl%daddr) 871 jbegin_=jbegin__tmp 872 ENDIF 873 874 IF (PRESENT(jend_)) THEN 875 jend__tmp=cxios_is_defined_domaingroup_jend(domaingroup_hdl%daddr) 876 jend_=jend__tmp 877 ENDIF 878 879 IF (PRESENT(latvalue_)) THEN 880 latvalue__tmp=cxios_is_defined_domaingroup_latvalue(domaingroup_hdl%daddr) 881 latvalue_=latvalue__tmp 882 ENDIF 883 884 IF (PRESENT(long_name_)) THEN 885 long_name__tmp=cxios_is_defined_domaingroup_long_name(domaingroup_hdl%daddr) 886 long_name_=long_name__tmp 887 ENDIF 888 889 IF (PRESENT(lonvalue_)) THEN 890 lonvalue__tmp=cxios_is_defined_domaingroup_lonvalue(domaingroup_hdl%daddr) 891 lonvalue_=lonvalue__tmp 892 ENDIF 893 894 IF (PRESENT(mask_)) THEN 895 mask__tmp=cxios_is_defined_domaingroup_mask(domaingroup_hdl%daddr) 896 mask_=mask__tmp 897 ENDIF 898 899 IF (PRESENT(name_)) THEN 900 name__tmp=cxios_is_defined_domaingroup_name(domaingroup_hdl%daddr) 901 name_=name__tmp 902 ENDIF 903 904 IF (PRESENT(ni_)) THEN 905 ni__tmp=cxios_is_defined_domaingroup_ni(domaingroup_hdl%daddr) 906 ni_=ni__tmp 907 ENDIF 908 909 IF (PRESENT(ni_glo_)) THEN 910 ni_glo__tmp=cxios_is_defined_domaingroup_ni_glo(domaingroup_hdl%daddr) 911 ni_glo_=ni_glo__tmp 912 ENDIF 913 914 IF (PRESENT(nj_)) THEN 915 nj__tmp=cxios_is_defined_domaingroup_nj(domaingroup_hdl%daddr) 916 nj_=nj__tmp 917 ENDIF 918 919 IF (PRESENT(nj_glo_)) THEN 920 nj_glo__tmp=cxios_is_defined_domaingroup_nj_glo(domaingroup_hdl%daddr) 921 nj_glo_=nj_glo__tmp 922 ENDIF 923 924 IF (PRESENT(standard_name_)) THEN 925 standard_name__tmp=cxios_is_defined_domaingroup_standard_name(domaingroup_hdl%daddr) 926 standard_name_=standard_name__tmp 927 ENDIF 928 929 IF (PRESENT(zoom_ibegin_)) THEN 930 zoom_ibegin__tmp=cxios_is_defined_domaingroup_zoom_ibegin(domaingroup_hdl%daddr) 931 zoom_ibegin_=zoom_ibegin__tmp 932 ENDIF 933 934 IF (PRESENT(zoom_ibegin_loc_)) THEN 935 zoom_ibegin_loc__tmp=cxios_is_defined_domaingroup_zoom_ibegin_loc(domaingroup_hdl%daddr) 936 zoom_ibegin_loc_=zoom_ibegin_loc__tmp 937 ENDIF 938 939 IF (PRESENT(zoom_jbegin_)) THEN 940 zoom_jbegin__tmp=cxios_is_defined_domaingroup_zoom_jbegin(domaingroup_hdl%daddr) 941 zoom_jbegin_=zoom_jbegin__tmp 942 ENDIF 943 944 IF (PRESENT(zoom_jbegin_loc_)) THEN 945 zoom_jbegin_loc__tmp=cxios_is_defined_domaingroup_zoom_jbegin_loc(domaingroup_hdl%daddr) 946 zoom_jbegin_loc_=zoom_jbegin_loc__tmp 947 ENDIF 948 949 IF (PRESENT(zoom_ni_)) THEN 950 zoom_ni__tmp=cxios_is_defined_domaingroup_zoom_ni(domaingroup_hdl%daddr) 951 zoom_ni_=zoom_ni__tmp 952 ENDIF 953 954 IF (PRESENT(zoom_ni_loc_)) THEN 955 zoom_ni_loc__tmp=cxios_is_defined_domaingroup_zoom_ni_loc(domaingroup_hdl%daddr) 956 zoom_ni_loc_=zoom_ni_loc__tmp 957 ENDIF 958 959 IF (PRESENT(zoom_nj_)) THEN 960 zoom_nj__tmp=cxios_is_defined_domaingroup_zoom_nj(domaingroup_hdl%daddr) 961 zoom_nj_=zoom_nj__tmp 962 ENDIF 963 964 IF (PRESENT(zoom_nj_loc_)) THEN 965 zoom_nj_loc__tmp=cxios_is_defined_domaingroup_zoom_nj_loc(domaingroup_hdl%daddr) 966 zoom_nj_loc_=zoom_nj_loc__tmp 967 ENDIF 968 969 970 971 END SUBROUTINE xios(is_defined_domaingroup_attr_hdl_) 972 571 973 END MODULE idomaingroup_attr -
XIOS/trunk/src/interface/fortran_attr/ifield_attr.F90
r326 r432 307 307 END SUBROUTINE xios(get_field_attr_hdl_) 308 308 309 SUBROUTINE xios(is_defined_field_attr) & 310 ( field_id, axis_ref, default_value, domain_ref, enabled, field_ref, freq_offset, freq_op, grid_ref & 311 , level, long_name, name, operation, prec, standard_name, unit ) 312 313 IMPLICIT NONE 314 TYPE(txios(field)) :: field_hdl 315 CHARACTER(LEN=*), INTENT(IN) ::field_id 316 LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref 317 LOGICAL(KIND=C_BOOL) :: axis_ref_tmp 318 LOGICAL, OPTIONAL, INTENT(OUT) :: default_value 319 LOGICAL(KIND=C_BOOL) :: default_value_tmp 320 LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref 321 LOGICAL(KIND=C_BOOL) :: domain_ref_tmp 322 LOGICAL, OPTIONAL, INTENT(OUT) :: enabled 323 LOGICAL(KIND=C_BOOL) :: enabled_tmp 324 LOGICAL, OPTIONAL, INTENT(OUT) :: field_ref 325 LOGICAL(KIND=C_BOOL) :: field_ref_tmp 326 LOGICAL, OPTIONAL, INTENT(OUT) :: freq_offset 327 LOGICAL(KIND=C_BOOL) :: freq_offset_tmp 328 LOGICAL, OPTIONAL, INTENT(OUT) :: freq_op 329 LOGICAL(KIND=C_BOOL) :: freq_op_tmp 330 LOGICAL, OPTIONAL, INTENT(OUT) :: grid_ref 331 LOGICAL(KIND=C_BOOL) :: grid_ref_tmp 332 LOGICAL, OPTIONAL, INTENT(OUT) :: level 333 LOGICAL(KIND=C_BOOL) :: level_tmp 334 LOGICAL, OPTIONAL, INTENT(OUT) :: long_name 335 LOGICAL(KIND=C_BOOL) :: long_name_tmp 336 LOGICAL, OPTIONAL, INTENT(OUT) :: name 337 LOGICAL(KIND=C_BOOL) :: name_tmp 338 LOGICAL, OPTIONAL, INTENT(OUT) :: operation 339 LOGICAL(KIND=C_BOOL) :: operation_tmp 340 LOGICAL, OPTIONAL, INTENT(OUT) :: prec 341 LOGICAL(KIND=C_BOOL) :: prec_tmp 342 LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name 343 LOGICAL(KIND=C_BOOL) :: standard_name_tmp 344 LOGICAL, OPTIONAL, INTENT(OUT) :: unit 345 LOGICAL(KIND=C_BOOL) :: unit_tmp 346 347 CALL xios(get_field_handle)(field_id,field_hdl) 348 CALL xios(is_defined_field_attr_hdl_) & 349 ( field_hdl, axis_ref, default_value, domain_ref, enabled, field_ref, freq_offset, freq_op, grid_ref & 350 , level, long_name, name, operation, prec, standard_name, unit ) 351 352 END SUBROUTINE xios(is_defined_field_attr) 353 354 SUBROUTINE xios(is_defined_field_attr_hdl) & 355 ( field_hdl, axis_ref, default_value, domain_ref, enabled, field_ref, freq_offset, freq_op, grid_ref & 356 , level, long_name, name, operation, prec, standard_name, unit ) 357 358 IMPLICIT NONE 359 TYPE(txios(field)) , INTENT(IN) :: field_hdl 360 LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref 361 LOGICAL(KIND=C_BOOL) :: axis_ref_tmp 362 LOGICAL, OPTIONAL, INTENT(OUT) :: default_value 363 LOGICAL(KIND=C_BOOL) :: default_value_tmp 364 LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref 365 LOGICAL(KIND=C_BOOL) :: domain_ref_tmp 366 LOGICAL, OPTIONAL, INTENT(OUT) :: enabled 367 LOGICAL(KIND=C_BOOL) :: enabled_tmp 368 LOGICAL, OPTIONAL, INTENT(OUT) :: field_ref 369 LOGICAL(KIND=C_BOOL) :: field_ref_tmp 370 LOGICAL, OPTIONAL, INTENT(OUT) :: freq_offset 371 LOGICAL(KIND=C_BOOL) :: freq_offset_tmp 372 LOGICAL, OPTIONAL, INTENT(OUT) :: freq_op 373 LOGICAL(KIND=C_BOOL) :: freq_op_tmp 374 LOGICAL, OPTIONAL, INTENT(OUT) :: grid_ref 375 LOGICAL(KIND=C_BOOL) :: grid_ref_tmp 376 LOGICAL, OPTIONAL, INTENT(OUT) :: level 377 LOGICAL(KIND=C_BOOL) :: level_tmp 378 LOGICAL, OPTIONAL, INTENT(OUT) :: long_name 379 LOGICAL(KIND=C_BOOL) :: long_name_tmp 380 LOGICAL, OPTIONAL, INTENT(OUT) :: name 381 LOGICAL(KIND=C_BOOL) :: name_tmp 382 LOGICAL, OPTIONAL, INTENT(OUT) :: operation 383 LOGICAL(KIND=C_BOOL) :: operation_tmp 384 LOGICAL, OPTIONAL, INTENT(OUT) :: prec 385 LOGICAL(KIND=C_BOOL) :: prec_tmp 386 LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name 387 LOGICAL(KIND=C_BOOL) :: standard_name_tmp 388 LOGICAL, OPTIONAL, INTENT(OUT) :: unit 389 LOGICAL(KIND=C_BOOL) :: unit_tmp 390 391 CALL xios(is_defined_field_attr_hdl_) & 392 ( field_hdl, axis_ref, default_value, domain_ref, enabled, field_ref, freq_offset, freq_op, grid_ref & 393 , level, long_name, name, operation, prec, standard_name, unit ) 394 395 END SUBROUTINE xios(is_defined_field_attr_hdl) 396 397 SUBROUTINE xios(is_defined_field_attr_hdl_) & 398 ( field_hdl, axis_ref_, default_value_, domain_ref_, enabled_, field_ref_, freq_offset_, freq_op_ & 399 , grid_ref_, level_, long_name_, name_, operation_, prec_, standard_name_, unit_ ) 400 401 IMPLICIT NONE 402 TYPE(txios(field)) , INTENT(IN) :: field_hdl 403 LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref_ 404 LOGICAL(KIND=C_BOOL) :: axis_ref__tmp 405 LOGICAL, OPTIONAL, INTENT(OUT) :: default_value_ 406 LOGICAL(KIND=C_BOOL) :: default_value__tmp 407 LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref_ 408 LOGICAL(KIND=C_BOOL) :: domain_ref__tmp 409 LOGICAL, OPTIONAL, INTENT(OUT) :: enabled_ 410 LOGICAL(KIND=C_BOOL) :: enabled__tmp 411 LOGICAL, OPTIONAL, INTENT(OUT) :: field_ref_ 412 LOGICAL(KIND=C_BOOL) :: field_ref__tmp 413 LOGICAL, OPTIONAL, INTENT(OUT) :: freq_offset_ 414 LOGICAL(KIND=C_BOOL) :: freq_offset__tmp 415 LOGICAL, OPTIONAL, INTENT(OUT) :: freq_op_ 416 LOGICAL(KIND=C_BOOL) :: freq_op__tmp 417 LOGICAL, OPTIONAL, INTENT(OUT) :: grid_ref_ 418 LOGICAL(KIND=C_BOOL) :: grid_ref__tmp 419 LOGICAL, OPTIONAL, INTENT(OUT) :: level_ 420 LOGICAL(KIND=C_BOOL) :: level__tmp 421 LOGICAL, OPTIONAL, INTENT(OUT) :: long_name_ 422 LOGICAL(KIND=C_BOOL) :: long_name__tmp 423 LOGICAL, OPTIONAL, INTENT(OUT) :: name_ 424 LOGICAL(KIND=C_BOOL) :: name__tmp 425 LOGICAL, OPTIONAL, INTENT(OUT) :: operation_ 426 LOGICAL(KIND=C_BOOL) :: operation__tmp 427 LOGICAL, OPTIONAL, INTENT(OUT) :: prec_ 428 LOGICAL(KIND=C_BOOL) :: prec__tmp 429 LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name_ 430 LOGICAL(KIND=C_BOOL) :: standard_name__tmp 431 LOGICAL, OPTIONAL, INTENT(OUT) :: unit_ 432 LOGICAL(KIND=C_BOOL) :: unit__tmp 433 434 IF (PRESENT(axis_ref_)) THEN 435 axis_ref__tmp=cxios_is_defined_field_axis_ref(field_hdl%daddr) 436 axis_ref_=axis_ref__tmp 437 ENDIF 438 439 IF (PRESENT(default_value_)) THEN 440 default_value__tmp=cxios_is_defined_field_default_value(field_hdl%daddr) 441 default_value_=default_value__tmp 442 ENDIF 443 444 IF (PRESENT(domain_ref_)) THEN 445 domain_ref__tmp=cxios_is_defined_field_domain_ref(field_hdl%daddr) 446 domain_ref_=domain_ref__tmp 447 ENDIF 448 449 IF (PRESENT(enabled_)) THEN 450 enabled__tmp=cxios_is_defined_field_enabled(field_hdl%daddr) 451 enabled_=enabled__tmp 452 ENDIF 453 454 IF (PRESENT(field_ref_)) THEN 455 field_ref__tmp=cxios_is_defined_field_field_ref(field_hdl%daddr) 456 field_ref_=field_ref__tmp 457 ENDIF 458 459 IF (PRESENT(freq_offset_)) THEN 460 freq_offset__tmp=cxios_is_defined_field_freq_offset(field_hdl%daddr) 461 freq_offset_=freq_offset__tmp 462 ENDIF 463 464 IF (PRESENT(freq_op_)) THEN 465 freq_op__tmp=cxios_is_defined_field_freq_op(field_hdl%daddr) 466 freq_op_=freq_op__tmp 467 ENDIF 468 469 IF (PRESENT(grid_ref_)) THEN 470 grid_ref__tmp=cxios_is_defined_field_grid_ref(field_hdl%daddr) 471 grid_ref_=grid_ref__tmp 472 ENDIF 473 474 IF (PRESENT(level_)) THEN 475 level__tmp=cxios_is_defined_field_level(field_hdl%daddr) 476 level_=level__tmp 477 ENDIF 478 479 IF (PRESENT(long_name_)) THEN 480 long_name__tmp=cxios_is_defined_field_long_name(field_hdl%daddr) 481 long_name_=long_name__tmp 482 ENDIF 483 484 IF (PRESENT(name_)) THEN 485 name__tmp=cxios_is_defined_field_name(field_hdl%daddr) 486 name_=name__tmp 487 ENDIF 488 489 IF (PRESENT(operation_)) THEN 490 operation__tmp=cxios_is_defined_field_operation(field_hdl%daddr) 491 operation_=operation__tmp 492 ENDIF 493 494 IF (PRESENT(prec_)) THEN 495 prec__tmp=cxios_is_defined_field_prec(field_hdl%daddr) 496 prec_=prec__tmp 497 ENDIF 498 499 IF (PRESENT(standard_name_)) THEN 500 standard_name__tmp=cxios_is_defined_field_standard_name(field_hdl%daddr) 501 standard_name_=standard_name__tmp 502 ENDIF 503 504 IF (PRESENT(unit_)) THEN 505 unit__tmp=cxios_is_defined_field_unit(field_hdl%daddr) 506 unit_=unit__tmp 507 ENDIF 508 509 510 511 END SUBROUTINE xios(is_defined_field_attr_hdl_) 512 309 513 END MODULE ifield_attr -
XIOS/trunk/src/interface/fortran_attr/ifieldgroup_attr.F90
r326 r432 323 323 END SUBROUTINE xios(get_fieldgroup_attr_hdl_) 324 324 325 SUBROUTINE xios(is_defined_fieldgroup_attr) & 326 ( fieldgroup_id, axis_ref, default_value, domain_ref, enabled, field_ref, freq_offset, freq_op & 327 , grid_ref, group_ref, level, long_name, name, operation, prec, standard_name, unit ) 328 329 IMPLICIT NONE 330 TYPE(txios(fieldgroup)) :: fieldgroup_hdl 331 CHARACTER(LEN=*), INTENT(IN) ::fieldgroup_id 332 LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref 333 LOGICAL(KIND=C_BOOL) :: axis_ref_tmp 334 LOGICAL, OPTIONAL, INTENT(OUT) :: default_value 335 LOGICAL(KIND=C_BOOL) :: default_value_tmp 336 LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref 337 LOGICAL(KIND=C_BOOL) :: domain_ref_tmp 338 LOGICAL, OPTIONAL, INTENT(OUT) :: enabled 339 LOGICAL(KIND=C_BOOL) :: enabled_tmp 340 LOGICAL, OPTIONAL, INTENT(OUT) :: field_ref 341 LOGICAL(KIND=C_BOOL) :: field_ref_tmp 342 LOGICAL, OPTIONAL, INTENT(OUT) :: freq_offset 343 LOGICAL(KIND=C_BOOL) :: freq_offset_tmp 344 LOGICAL, OPTIONAL, INTENT(OUT) :: freq_op 345 LOGICAL(KIND=C_BOOL) :: freq_op_tmp 346 LOGICAL, OPTIONAL, INTENT(OUT) :: grid_ref 347 LOGICAL(KIND=C_BOOL) :: grid_ref_tmp 348 LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref 349 LOGICAL(KIND=C_BOOL) :: group_ref_tmp 350 LOGICAL, OPTIONAL, INTENT(OUT) :: level 351 LOGICAL(KIND=C_BOOL) :: level_tmp 352 LOGICAL, OPTIONAL, INTENT(OUT) :: long_name 353 LOGICAL(KIND=C_BOOL) :: long_name_tmp 354 LOGICAL, OPTIONAL, INTENT(OUT) :: name 355 LOGICAL(KIND=C_BOOL) :: name_tmp 356 LOGICAL, OPTIONAL, INTENT(OUT) :: operation 357 LOGICAL(KIND=C_BOOL) :: operation_tmp 358 LOGICAL, OPTIONAL, INTENT(OUT) :: prec 359 LOGICAL(KIND=C_BOOL) :: prec_tmp 360 LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name 361 LOGICAL(KIND=C_BOOL) :: standard_name_tmp 362 LOGICAL, OPTIONAL, INTENT(OUT) :: unit 363 LOGICAL(KIND=C_BOOL) :: unit_tmp 364 365 CALL xios(get_fieldgroup_handle)(fieldgroup_id,fieldgroup_hdl) 366 CALL xios(is_defined_fieldgroup_attr_hdl_) & 367 ( fieldgroup_hdl, axis_ref, default_value, domain_ref, enabled, field_ref, freq_offset, freq_op & 368 , grid_ref, group_ref, level, long_name, name, operation, prec, standard_name, unit ) 369 370 END SUBROUTINE xios(is_defined_fieldgroup_attr) 371 372 SUBROUTINE xios(is_defined_fieldgroup_attr_hdl) & 373 ( fieldgroup_hdl, axis_ref, default_value, domain_ref, enabled, field_ref, freq_offset, freq_op & 374 , grid_ref, group_ref, level, long_name, name, operation, prec, standard_name, unit ) 375 376 IMPLICIT NONE 377 TYPE(txios(fieldgroup)) , INTENT(IN) :: fieldgroup_hdl 378 LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref 379 LOGICAL(KIND=C_BOOL) :: axis_ref_tmp 380 LOGICAL, OPTIONAL, INTENT(OUT) :: default_value 381 LOGICAL(KIND=C_BOOL) :: default_value_tmp 382 LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref 383 LOGICAL(KIND=C_BOOL) :: domain_ref_tmp 384 LOGICAL, OPTIONAL, INTENT(OUT) :: enabled 385 LOGICAL(KIND=C_BOOL) :: enabled_tmp 386 LOGICAL, OPTIONAL, INTENT(OUT) :: field_ref 387 LOGICAL(KIND=C_BOOL) :: field_ref_tmp 388 LOGICAL, OPTIONAL, INTENT(OUT) :: freq_offset 389 LOGICAL(KIND=C_BOOL) :: freq_offset_tmp 390 LOGICAL, OPTIONAL, INTENT(OUT) :: freq_op 391 LOGICAL(KIND=C_BOOL) :: freq_op_tmp 392 LOGICAL, OPTIONAL, INTENT(OUT) :: grid_ref 393 LOGICAL(KIND=C_BOOL) :: grid_ref_tmp 394 LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref 395 LOGICAL(KIND=C_BOOL) :: group_ref_tmp 396 LOGICAL, OPTIONAL, INTENT(OUT) :: level 397 LOGICAL(KIND=C_BOOL) :: level_tmp 398 LOGICAL, OPTIONAL, INTENT(OUT) :: long_name 399 LOGICAL(KIND=C_BOOL) :: long_name_tmp 400 LOGICAL, OPTIONAL, INTENT(OUT) :: name 401 LOGICAL(KIND=C_BOOL) :: name_tmp 402 LOGICAL, OPTIONAL, INTENT(OUT) :: operation 403 LOGICAL(KIND=C_BOOL) :: operation_tmp 404 LOGICAL, OPTIONAL, INTENT(OUT) :: prec 405 LOGICAL(KIND=C_BOOL) :: prec_tmp 406 LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name 407 LOGICAL(KIND=C_BOOL) :: standard_name_tmp 408 LOGICAL, OPTIONAL, INTENT(OUT) :: unit 409 LOGICAL(KIND=C_BOOL) :: unit_tmp 410 411 CALL xios(is_defined_fieldgroup_attr_hdl_) & 412 ( fieldgroup_hdl, axis_ref, default_value, domain_ref, enabled, field_ref, freq_offset, freq_op & 413 , grid_ref, group_ref, level, long_name, name, operation, prec, standard_name, unit ) 414 415 END SUBROUTINE xios(is_defined_fieldgroup_attr_hdl) 416 417 SUBROUTINE xios(is_defined_fieldgroup_attr_hdl_) & 418 ( fieldgroup_hdl, axis_ref_, default_value_, domain_ref_, enabled_, field_ref_, freq_offset_ & 419 , freq_op_, grid_ref_, group_ref_, level_, long_name_, name_, operation_, prec_, standard_name_ & 420 , unit_ ) 421 422 IMPLICIT NONE 423 TYPE(txios(fieldgroup)) , INTENT(IN) :: fieldgroup_hdl 424 LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref_ 425 LOGICAL(KIND=C_BOOL) :: axis_ref__tmp 426 LOGICAL, OPTIONAL, INTENT(OUT) :: default_value_ 427 LOGICAL(KIND=C_BOOL) :: default_value__tmp 428 LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref_ 429 LOGICAL(KIND=C_BOOL) :: domain_ref__tmp 430 LOGICAL, OPTIONAL, INTENT(OUT) :: enabled_ 431 LOGICAL(KIND=C_BOOL) :: enabled__tmp 432 LOGICAL, OPTIONAL, INTENT(OUT) :: field_ref_ 433 LOGICAL(KIND=C_BOOL) :: field_ref__tmp 434 LOGICAL, OPTIONAL, INTENT(OUT) :: freq_offset_ 435 LOGICAL(KIND=C_BOOL) :: freq_offset__tmp 436 LOGICAL, OPTIONAL, INTENT(OUT) :: freq_op_ 437 LOGICAL(KIND=C_BOOL) :: freq_op__tmp 438 LOGICAL, OPTIONAL, INTENT(OUT) :: grid_ref_ 439 LOGICAL(KIND=C_BOOL) :: grid_ref__tmp 440 LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref_ 441 LOGICAL(KIND=C_BOOL) :: group_ref__tmp 442 LOGICAL, OPTIONAL, INTENT(OUT) :: level_ 443 LOGICAL(KIND=C_BOOL) :: level__tmp 444 LOGICAL, OPTIONAL, INTENT(OUT) :: long_name_ 445 LOGICAL(KIND=C_BOOL) :: long_name__tmp 446 LOGICAL, OPTIONAL, INTENT(OUT) :: name_ 447 LOGICAL(KIND=C_BOOL) :: name__tmp 448 LOGICAL, OPTIONAL, INTENT(OUT) :: operation_ 449 LOGICAL(KIND=C_BOOL) :: operation__tmp 450 LOGICAL, OPTIONAL, INTENT(OUT) :: prec_ 451 LOGICAL(KIND=C_BOOL) :: prec__tmp 452 LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name_ 453 LOGICAL(KIND=C_BOOL) :: standard_name__tmp 454 LOGICAL, OPTIONAL, INTENT(OUT) :: unit_ 455 LOGICAL(KIND=C_BOOL) :: unit__tmp 456 457 IF (PRESENT(axis_ref_)) THEN 458 axis_ref__tmp=cxios_is_defined_fieldgroup_axis_ref(fieldgroup_hdl%daddr) 459 axis_ref_=axis_ref__tmp 460 ENDIF 461 462 IF (PRESENT(default_value_)) THEN 463 default_value__tmp=cxios_is_defined_fieldgroup_default_value(fieldgroup_hdl%daddr) 464 default_value_=default_value__tmp 465 ENDIF 466 467 IF (PRESENT(domain_ref_)) THEN 468 domain_ref__tmp=cxios_is_defined_fieldgroup_domain_ref(fieldgroup_hdl%daddr) 469 domain_ref_=domain_ref__tmp 470 ENDIF 471 472 IF (PRESENT(enabled_)) THEN 473 enabled__tmp=cxios_is_defined_fieldgroup_enabled(fieldgroup_hdl%daddr) 474 enabled_=enabled__tmp 475 ENDIF 476 477 IF (PRESENT(field_ref_)) THEN 478 field_ref__tmp=cxios_is_defined_fieldgroup_field_ref(fieldgroup_hdl%daddr) 479 field_ref_=field_ref__tmp 480 ENDIF 481 482 IF (PRESENT(freq_offset_)) THEN 483 freq_offset__tmp=cxios_is_defined_fieldgroup_freq_offset(fieldgroup_hdl%daddr) 484 freq_offset_=freq_offset__tmp 485 ENDIF 486 487 IF (PRESENT(freq_op_)) THEN 488 freq_op__tmp=cxios_is_defined_fieldgroup_freq_op(fieldgroup_hdl%daddr) 489 freq_op_=freq_op__tmp 490 ENDIF 491 492 IF (PRESENT(grid_ref_)) THEN 493 grid_ref__tmp=cxios_is_defined_fieldgroup_grid_ref(fieldgroup_hdl%daddr) 494 grid_ref_=grid_ref__tmp 495 ENDIF 496 497 IF (PRESENT(group_ref_)) THEN 498 group_ref__tmp=cxios_is_defined_fieldgroup_group_ref(fieldgroup_hdl%daddr) 499 group_ref_=group_ref__tmp 500 ENDIF 501 502 IF (PRESENT(level_)) THEN 503 level__tmp=cxios_is_defined_fieldgroup_level(fieldgroup_hdl%daddr) 504 level_=level__tmp 505 ENDIF 506 507 IF (PRESENT(long_name_)) THEN 508 long_name__tmp=cxios_is_defined_fieldgroup_long_name(fieldgroup_hdl%daddr) 509 long_name_=long_name__tmp 510 ENDIF 511 512 IF (PRESENT(name_)) THEN 513 name__tmp=cxios_is_defined_fieldgroup_name(fieldgroup_hdl%daddr) 514 name_=name__tmp 515 ENDIF 516 517 IF (PRESENT(operation_)) THEN 518 operation__tmp=cxios_is_defined_fieldgroup_operation(fieldgroup_hdl%daddr) 519 operation_=operation__tmp 520 ENDIF 521 522 IF (PRESENT(prec_)) THEN 523 prec__tmp=cxios_is_defined_fieldgroup_prec(fieldgroup_hdl%daddr) 524 prec_=prec__tmp 525 ENDIF 526 527 IF (PRESENT(standard_name_)) THEN 528 standard_name__tmp=cxios_is_defined_fieldgroup_standard_name(fieldgroup_hdl%daddr) 529 standard_name_=standard_name__tmp 530 ENDIF 531 532 IF (PRESENT(unit_)) THEN 533 unit__tmp=cxios_is_defined_fieldgroup_unit(fieldgroup_hdl%daddr) 534 unit_=unit__tmp 535 ENDIF 536 537 538 539 END SUBROUTINE xios(is_defined_fieldgroup_attr_hdl_) 540 325 541 END MODULE ifieldgroup_attr -
XIOS/trunk/src/interface/fortran_attr/ifile_attr.F90
r415 r432 13 13 SUBROUTINE xios(set_file_attr) & 14 14 ( file_id, description, enabled, min_digits, name, name_suffix, output_freq, output_level, par_access & 15 , split_freq, s ync_freq, type )15 , split_freq, split_freq_format, sync_freq, type ) 16 16 17 17 IMPLICIT NONE … … 28 28 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: par_access 29 29 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: split_freq 30 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: split_freq_format 30 31 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: sync_freq 31 32 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type … … 34 35 CALL xios(set_file_attr_hdl_) & 35 36 ( file_hdl, description, enabled, min_digits, name, name_suffix, output_freq, output_level, par_access & 36 , split_freq, s ync_freq, type )37 , split_freq, split_freq_format, sync_freq, type ) 37 38 38 39 END SUBROUTINE xios(set_file_attr) … … 40 41 SUBROUTINE xios(set_file_attr_hdl) & 41 42 ( file_hdl, description, enabled, min_digits, name, name_suffix, output_freq, output_level, par_access & 42 , split_freq, s ync_freq, type )43 , split_freq, split_freq_format, sync_freq, type ) 43 44 44 45 IMPLICIT NONE … … 54 55 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: par_access 55 56 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: split_freq 57 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: split_freq_format 56 58 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: sync_freq 57 59 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type … … 59 61 CALL xios(set_file_attr_hdl_) & 60 62 ( file_hdl, description, enabled, min_digits, name, name_suffix, output_freq, output_level, par_access & 61 , split_freq, s ync_freq, type )63 , split_freq, split_freq_format, sync_freq, type ) 62 64 63 65 END SUBROUTINE xios(set_file_attr_hdl) … … 65 67 SUBROUTINE xios(set_file_attr_hdl_) & 66 68 ( file_hdl, description_, enabled_, min_digits_, name_, name_suffix_, output_freq_, output_level_ & 67 , par_access_, split_freq_, s ync_freq_, type_ )69 , par_access_, split_freq_, split_freq_format_, sync_freq_, type_ ) 68 70 69 71 IMPLICIT NONE … … 79 81 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: par_access_ 80 82 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: split_freq_ 83 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: split_freq_format_ 81 84 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: sync_freq_ 82 85 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type_ … … 119 122 ENDIF 120 123 124 IF (PRESENT(split_freq_format_)) THEN 125 CALL cxios_set_file_split_freq_format(file_hdl%daddr, split_freq_format_, len(split_freq_format_)) 126 ENDIF 127 121 128 IF (PRESENT(sync_freq_)) THEN 122 129 CALL cxios_set_file_sync_freq(file_hdl%daddr, sync_freq_, len(sync_freq_)) … … 133 140 SUBROUTINE xios(get_file_attr) & 134 141 ( file_id, description, enabled, min_digits, name, name_suffix, output_freq, output_level, par_access & 135 , split_freq, s ync_freq, type )142 , split_freq, split_freq_format, sync_freq, type ) 136 143 137 144 IMPLICIT NONE … … 148 155 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: par_access 149 156 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: split_freq 157 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: split_freq_format 150 158 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: sync_freq 151 159 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type … … 154 162 CALL xios(get_file_attr_hdl_) & 155 163 ( file_hdl, description, enabled, min_digits, name, name_suffix, output_freq, output_level, par_access & 156 , split_freq, s ync_freq, type )164 , split_freq, split_freq_format, sync_freq, type ) 157 165 158 166 END SUBROUTINE xios(get_file_attr) … … 160 168 SUBROUTINE xios(get_file_attr_hdl) & 161 169 ( file_hdl, description, enabled, min_digits, name, name_suffix, output_freq, output_level, par_access & 162 , split_freq, s ync_freq, type )170 , split_freq, split_freq_format, sync_freq, type ) 163 171 164 172 IMPLICIT NONE … … 174 182 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: par_access 175 183 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: split_freq 184 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: split_freq_format 176 185 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: sync_freq 177 186 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type … … 179 188 CALL xios(get_file_attr_hdl_) & 180 189 ( file_hdl, description, enabled, min_digits, name, name_suffix, output_freq, output_level, par_access & 181 , split_freq, s ync_freq, type )190 , split_freq, split_freq_format, sync_freq, type ) 182 191 183 192 END SUBROUTINE xios(get_file_attr_hdl) … … 185 194 SUBROUTINE xios(get_file_attr_hdl_) & 186 195 ( file_hdl, description_, enabled_, min_digits_, name_, name_suffix_, output_freq_, output_level_ & 187 , par_access_, split_freq_, s ync_freq_, type_ )196 , par_access_, split_freq_, split_freq_format_, sync_freq_, type_ ) 188 197 189 198 IMPLICIT NONE … … 199 208 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: par_access_ 200 209 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: split_freq_ 210 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: split_freq_format_ 201 211 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: sync_freq_ 202 212 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type_ … … 239 249 ENDIF 240 250 251 IF (PRESENT(split_freq_format_)) THEN 252 CALL cxios_get_file_split_freq_format(file_hdl%daddr, split_freq_format_, len(split_freq_format_)) 253 ENDIF 254 241 255 IF (PRESENT(sync_freq_)) THEN 242 256 CALL cxios_get_file_sync_freq(file_hdl%daddr, sync_freq_, len(sync_freq_)) … … 251 265 END SUBROUTINE xios(get_file_attr_hdl_) 252 266 267 SUBROUTINE xios(is_defined_file_attr) & 268 ( file_id, description, enabled, min_digits, name, name_suffix, output_freq, output_level, par_access & 269 , split_freq, split_freq_format, sync_freq, type ) 270 271 IMPLICIT NONE 272 TYPE(txios(file)) :: file_hdl 273 CHARACTER(LEN=*), INTENT(IN) ::file_id 274 LOGICAL, OPTIONAL, INTENT(OUT) :: description 275 LOGICAL(KIND=C_BOOL) :: description_tmp 276 LOGICAL, OPTIONAL, INTENT(OUT) :: enabled 277 LOGICAL(KIND=C_BOOL) :: enabled_tmp 278 LOGICAL, OPTIONAL, INTENT(OUT) :: min_digits 279 LOGICAL(KIND=C_BOOL) :: min_digits_tmp 280 LOGICAL, OPTIONAL, INTENT(OUT) :: name 281 LOGICAL(KIND=C_BOOL) :: name_tmp 282 LOGICAL, OPTIONAL, INTENT(OUT) :: name_suffix 283 LOGICAL(KIND=C_BOOL) :: name_suffix_tmp 284 LOGICAL, OPTIONAL, INTENT(OUT) :: output_freq 285 LOGICAL(KIND=C_BOOL) :: output_freq_tmp 286 LOGICAL, OPTIONAL, INTENT(OUT) :: output_level 287 LOGICAL(KIND=C_BOOL) :: output_level_tmp 288 LOGICAL, OPTIONAL, INTENT(OUT) :: par_access 289 LOGICAL(KIND=C_BOOL) :: par_access_tmp 290 LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq 291 LOGICAL(KIND=C_BOOL) :: split_freq_tmp 292 LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq_format 293 LOGICAL(KIND=C_BOOL) :: split_freq_format_tmp 294 LOGICAL, OPTIONAL, INTENT(OUT) :: sync_freq 295 LOGICAL(KIND=C_BOOL) :: sync_freq_tmp 296 LOGICAL, OPTIONAL, INTENT(OUT) :: type 297 LOGICAL(KIND=C_BOOL) :: type_tmp 298 299 CALL xios(get_file_handle)(file_id,file_hdl) 300 CALL xios(is_defined_file_attr_hdl_) & 301 ( file_hdl, description, enabled, min_digits, name, name_suffix, output_freq, output_level, par_access & 302 , split_freq, split_freq_format, sync_freq, type ) 303 304 END SUBROUTINE xios(is_defined_file_attr) 305 306 SUBROUTINE xios(is_defined_file_attr_hdl) & 307 ( file_hdl, description, enabled, min_digits, name, name_suffix, output_freq, output_level, par_access & 308 , split_freq, split_freq_format, sync_freq, type ) 309 310 IMPLICIT NONE 311 TYPE(txios(file)) , INTENT(IN) :: file_hdl 312 LOGICAL, OPTIONAL, INTENT(OUT) :: description 313 LOGICAL(KIND=C_BOOL) :: description_tmp 314 LOGICAL, OPTIONAL, INTENT(OUT) :: enabled 315 LOGICAL(KIND=C_BOOL) :: enabled_tmp 316 LOGICAL, OPTIONAL, INTENT(OUT) :: min_digits 317 LOGICAL(KIND=C_BOOL) :: min_digits_tmp 318 LOGICAL, OPTIONAL, INTENT(OUT) :: name 319 LOGICAL(KIND=C_BOOL) :: name_tmp 320 LOGICAL, OPTIONAL, INTENT(OUT) :: name_suffix 321 LOGICAL(KIND=C_BOOL) :: name_suffix_tmp 322 LOGICAL, OPTIONAL, INTENT(OUT) :: output_freq 323 LOGICAL(KIND=C_BOOL) :: output_freq_tmp 324 LOGICAL, OPTIONAL, INTENT(OUT) :: output_level 325 LOGICAL(KIND=C_BOOL) :: output_level_tmp 326 LOGICAL, OPTIONAL, INTENT(OUT) :: par_access 327 LOGICAL(KIND=C_BOOL) :: par_access_tmp 328 LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq 329 LOGICAL(KIND=C_BOOL) :: split_freq_tmp 330 LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq_format 331 LOGICAL(KIND=C_BOOL) :: split_freq_format_tmp 332 LOGICAL, OPTIONAL, INTENT(OUT) :: sync_freq 333 LOGICAL(KIND=C_BOOL) :: sync_freq_tmp 334 LOGICAL, OPTIONAL, INTENT(OUT) :: type 335 LOGICAL(KIND=C_BOOL) :: type_tmp 336 337 CALL xios(is_defined_file_attr_hdl_) & 338 ( file_hdl, description, enabled, min_digits, name, name_suffix, output_freq, output_level, par_access & 339 , split_freq, split_freq_format, sync_freq, type ) 340 341 END SUBROUTINE xios(is_defined_file_attr_hdl) 342 343 SUBROUTINE xios(is_defined_file_attr_hdl_) & 344 ( file_hdl, description_, enabled_, min_digits_, name_, name_suffix_, output_freq_, output_level_ & 345 , par_access_, split_freq_, split_freq_format_, sync_freq_, type_ ) 346 347 IMPLICIT NONE 348 TYPE(txios(file)) , INTENT(IN) :: file_hdl 349 LOGICAL, OPTIONAL, INTENT(OUT) :: description_ 350 LOGICAL(KIND=C_BOOL) :: description__tmp 351 LOGICAL, OPTIONAL, INTENT(OUT) :: enabled_ 352 LOGICAL(KIND=C_BOOL) :: enabled__tmp 353 LOGICAL, OPTIONAL, INTENT(OUT) :: min_digits_ 354 LOGICAL(KIND=C_BOOL) :: min_digits__tmp 355 LOGICAL, OPTIONAL, INTENT(OUT) :: name_ 356 LOGICAL(KIND=C_BOOL) :: name__tmp 357 LOGICAL, OPTIONAL, INTENT(OUT) :: name_suffix_ 358 LOGICAL(KIND=C_BOOL) :: name_suffix__tmp 359 LOGICAL, OPTIONAL, INTENT(OUT) :: output_freq_ 360 LOGICAL(KIND=C_BOOL) :: output_freq__tmp 361 LOGICAL, OPTIONAL, INTENT(OUT) :: output_level_ 362 LOGICAL(KIND=C_BOOL) :: output_level__tmp 363 LOGICAL, OPTIONAL, INTENT(OUT) :: par_access_ 364 LOGICAL(KIND=C_BOOL) :: par_access__tmp 365 LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq_ 366 LOGICAL(KIND=C_BOOL) :: split_freq__tmp 367 LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq_format_ 368 LOGICAL(KIND=C_BOOL) :: split_freq_format__tmp 369 LOGICAL, OPTIONAL, INTENT(OUT) :: sync_freq_ 370 LOGICAL(KIND=C_BOOL) :: sync_freq__tmp 371 LOGICAL, OPTIONAL, INTENT(OUT) :: type_ 372 LOGICAL(KIND=C_BOOL) :: type__tmp 373 374 IF (PRESENT(description_)) THEN 375 description__tmp=cxios_is_defined_file_description(file_hdl%daddr) 376 description_=description__tmp 377 ENDIF 378 379 IF (PRESENT(enabled_)) THEN 380 enabled__tmp=cxios_is_defined_file_enabled(file_hdl%daddr) 381 enabled_=enabled__tmp 382 ENDIF 383 384 IF (PRESENT(min_digits_)) THEN 385 min_digits__tmp=cxios_is_defined_file_min_digits(file_hdl%daddr) 386 min_digits_=min_digits__tmp 387 ENDIF 388 389 IF (PRESENT(name_)) THEN 390 name__tmp=cxios_is_defined_file_name(file_hdl%daddr) 391 name_=name__tmp 392 ENDIF 393 394 IF (PRESENT(name_suffix_)) THEN 395 name_suffix__tmp=cxios_is_defined_file_name_suffix(file_hdl%daddr) 396 name_suffix_=name_suffix__tmp 397 ENDIF 398 399 IF (PRESENT(output_freq_)) THEN 400 output_freq__tmp=cxios_is_defined_file_output_freq(file_hdl%daddr) 401 output_freq_=output_freq__tmp 402 ENDIF 403 404 IF (PRESENT(output_level_)) THEN 405 output_level__tmp=cxios_is_defined_file_output_level(file_hdl%daddr) 406 output_level_=output_level__tmp 407 ENDIF 408 409 IF (PRESENT(par_access_)) THEN 410 par_access__tmp=cxios_is_defined_file_par_access(file_hdl%daddr) 411 par_access_=par_access__tmp 412 ENDIF 413 414 IF (PRESENT(split_freq_)) THEN 415 split_freq__tmp=cxios_is_defined_file_split_freq(file_hdl%daddr) 416 split_freq_=split_freq__tmp 417 ENDIF 418 419 IF (PRESENT(split_freq_format_)) THEN 420 split_freq_format__tmp=cxios_is_defined_file_split_freq_format(file_hdl%daddr) 421 split_freq_format_=split_freq_format__tmp 422 ENDIF 423 424 IF (PRESENT(sync_freq_)) THEN 425 sync_freq__tmp=cxios_is_defined_file_sync_freq(file_hdl%daddr) 426 sync_freq_=sync_freq__tmp 427 ENDIF 428 429 IF (PRESENT(type_)) THEN 430 type__tmp=cxios_is_defined_file_type(file_hdl%daddr) 431 type_=type__tmp 432 ENDIF 433 434 435 436 END SUBROUTINE xios(is_defined_file_attr_hdl_) 437 253 438 END MODULE ifile_attr -
XIOS/trunk/src/interface/fortran_attr/ifilegroup_attr.F90
r415 r432 13 13 SUBROUTINE xios(set_filegroup_attr) & 14 14 ( filegroup_id, description, enabled, group_ref, min_digits, name, name_suffix, output_freq & 15 , output_level, par_access, split_freq, s ync_freq, type )15 , output_level, par_access, split_freq, split_freq_format, sync_freq, type ) 16 16 17 17 IMPLICIT NONE … … 29 29 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: par_access 30 30 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: split_freq 31 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: split_freq_format 31 32 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: sync_freq 32 33 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type … … 35 36 CALL xios(set_filegroup_attr_hdl_) & 36 37 ( filegroup_hdl, description, enabled, group_ref, min_digits, name, name_suffix, output_freq & 37 , output_level, par_access, split_freq, s ync_freq, type )38 , output_level, par_access, split_freq, split_freq_format, sync_freq, type ) 38 39 39 40 END SUBROUTINE xios(set_filegroup_attr) … … 41 42 SUBROUTINE xios(set_filegroup_attr_hdl) & 42 43 ( filegroup_hdl, description, enabled, group_ref, min_digits, name, name_suffix, output_freq & 43 , output_level, par_access, split_freq, s ync_freq, type )44 , output_level, par_access, split_freq, split_freq_format, sync_freq, type ) 44 45 45 46 IMPLICIT NONE … … 56 57 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: par_access 57 58 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: split_freq 59 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: split_freq_format 58 60 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: sync_freq 59 61 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type … … 61 63 CALL xios(set_filegroup_attr_hdl_) & 62 64 ( filegroup_hdl, description, enabled, group_ref, min_digits, name, name_suffix, output_freq & 63 , output_level, par_access, split_freq, s ync_freq, type )65 , output_level, par_access, split_freq, split_freq_format, sync_freq, type ) 64 66 65 67 END SUBROUTINE xios(set_filegroup_attr_hdl) … … 67 69 SUBROUTINE xios(set_filegroup_attr_hdl_) & 68 70 ( filegroup_hdl, description_, enabled_, group_ref_, min_digits_, name_, name_suffix_, output_freq_ & 69 , output_level_, par_access_, split_freq_, s ync_freq_, type_ )71 , output_level_, par_access_, split_freq_, split_freq_format_, sync_freq_, type_ ) 70 72 71 73 IMPLICIT NONE … … 82 84 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: par_access_ 83 85 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: split_freq_ 86 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: split_freq_format_ 84 87 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: sync_freq_ 85 88 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type_ … … 126 129 ENDIF 127 130 131 IF (PRESENT(split_freq_format_)) THEN 132 CALL cxios_set_filegroup_split_freq_format(filegroup_hdl%daddr, split_freq_format_, len(split_freq_format_)) 133 ENDIF 134 128 135 IF (PRESENT(sync_freq_)) THEN 129 136 CALL cxios_set_filegroup_sync_freq(filegroup_hdl%daddr, sync_freq_, len(sync_freq_)) … … 140 147 SUBROUTINE xios(get_filegroup_attr) & 141 148 ( filegroup_id, description, enabled, group_ref, min_digits, name, name_suffix, output_freq & 142 , output_level, par_access, split_freq, s ync_freq, type )149 , output_level, par_access, split_freq, split_freq_format, sync_freq, type ) 143 150 144 151 IMPLICIT NONE … … 156 163 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: par_access 157 164 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: split_freq 165 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: split_freq_format 158 166 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: sync_freq 159 167 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type … … 162 170 CALL xios(get_filegroup_attr_hdl_) & 163 171 ( filegroup_hdl, description, enabled, group_ref, min_digits, name, name_suffix, output_freq & 164 , output_level, par_access, split_freq, s ync_freq, type )172 , output_level, par_access, split_freq, split_freq_format, sync_freq, type ) 165 173 166 174 END SUBROUTINE xios(get_filegroup_attr) … … 168 176 SUBROUTINE xios(get_filegroup_attr_hdl) & 169 177 ( filegroup_hdl, description, enabled, group_ref, min_digits, name, name_suffix, output_freq & 170 , output_level, par_access, split_freq, s ync_freq, type )178 , output_level, par_access, split_freq, split_freq_format, sync_freq, type ) 171 179 172 180 IMPLICIT NONE … … 183 191 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: par_access 184 192 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: split_freq 193 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: split_freq_format 185 194 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: sync_freq 186 195 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type … … 188 197 CALL xios(get_filegroup_attr_hdl_) & 189 198 ( filegroup_hdl, description, enabled, group_ref, min_digits, name, name_suffix, output_freq & 190 , output_level, par_access, split_freq, s ync_freq, type )199 , output_level, par_access, split_freq, split_freq_format, sync_freq, type ) 191 200 192 201 END SUBROUTINE xios(get_filegroup_attr_hdl) … … 194 203 SUBROUTINE xios(get_filegroup_attr_hdl_) & 195 204 ( filegroup_hdl, description_, enabled_, group_ref_, min_digits_, name_, name_suffix_, output_freq_ & 196 , output_level_, par_access_, split_freq_, s ync_freq_, type_ )205 , output_level_, par_access_, split_freq_, split_freq_format_, sync_freq_, type_ ) 197 206 198 207 IMPLICIT NONE … … 209 218 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: par_access_ 210 219 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: split_freq_ 220 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: split_freq_format_ 211 221 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: sync_freq_ 212 222 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type_ … … 253 263 ENDIF 254 264 265 IF (PRESENT(split_freq_format_)) THEN 266 CALL cxios_get_filegroup_split_freq_format(filegroup_hdl%daddr, split_freq_format_, len(split_freq_format_)) 267 ENDIF 268 255 269 IF (PRESENT(sync_freq_)) THEN 256 270 CALL cxios_get_filegroup_sync_freq(filegroup_hdl%daddr, sync_freq_, len(sync_freq_)) … … 265 279 END SUBROUTINE xios(get_filegroup_attr_hdl_) 266 280 281 SUBROUTINE xios(is_defined_filegroup_attr) & 282 ( filegroup_id, description, enabled, group_ref, min_digits, name, name_suffix, output_freq & 283 , output_level, par_access, split_freq, split_freq_format, sync_freq, type ) 284 285 IMPLICIT NONE 286 TYPE(txios(filegroup)) :: filegroup_hdl 287 CHARACTER(LEN=*), INTENT(IN) ::filegroup_id 288 LOGICAL, OPTIONAL, INTENT(OUT) :: description 289 LOGICAL(KIND=C_BOOL) :: description_tmp 290 LOGICAL, OPTIONAL, INTENT(OUT) :: enabled 291 LOGICAL(KIND=C_BOOL) :: enabled_tmp 292 LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref 293 LOGICAL(KIND=C_BOOL) :: group_ref_tmp 294 LOGICAL, OPTIONAL, INTENT(OUT) :: min_digits 295 LOGICAL(KIND=C_BOOL) :: min_digits_tmp 296 LOGICAL, OPTIONAL, INTENT(OUT) :: name 297 LOGICAL(KIND=C_BOOL) :: name_tmp 298 LOGICAL, OPTIONAL, INTENT(OUT) :: name_suffix 299 LOGICAL(KIND=C_BOOL) :: name_suffix_tmp 300 LOGICAL, OPTIONAL, INTENT(OUT) :: output_freq 301 LOGICAL(KIND=C_BOOL) :: output_freq_tmp 302 LOGICAL, OPTIONAL, INTENT(OUT) :: output_level 303 LOGICAL(KIND=C_BOOL) :: output_level_tmp 304 LOGICAL, OPTIONAL, INTENT(OUT) :: par_access 305 LOGICAL(KIND=C_BOOL) :: par_access_tmp 306 LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq 307 LOGICAL(KIND=C_BOOL) :: split_freq_tmp 308 LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq_format 309 LOGICAL(KIND=C_BOOL) :: split_freq_format_tmp 310 LOGICAL, OPTIONAL, INTENT(OUT) :: sync_freq 311 LOGICAL(KIND=C_BOOL) :: sync_freq_tmp 312 LOGICAL, OPTIONAL, INTENT(OUT) :: type 313 LOGICAL(KIND=C_BOOL) :: type_tmp 314 315 CALL xios(get_filegroup_handle)(filegroup_id,filegroup_hdl) 316 CALL xios(is_defined_filegroup_attr_hdl_) & 317 ( filegroup_hdl, description, enabled, group_ref, min_digits, name, name_suffix, output_freq & 318 , output_level, par_access, split_freq, split_freq_format, sync_freq, type ) 319 320 END SUBROUTINE xios(is_defined_filegroup_attr) 321 322 SUBROUTINE xios(is_defined_filegroup_attr_hdl) & 323 ( filegroup_hdl, description, enabled, group_ref, min_digits, name, name_suffix, output_freq & 324 , output_level, par_access, split_freq, split_freq_format, sync_freq, type ) 325 326 IMPLICIT NONE 327 TYPE(txios(filegroup)) , INTENT(IN) :: filegroup_hdl 328 LOGICAL, OPTIONAL, INTENT(OUT) :: description 329 LOGICAL(KIND=C_BOOL) :: description_tmp 330 LOGICAL, OPTIONAL, INTENT(OUT) :: enabled 331 LOGICAL(KIND=C_BOOL) :: enabled_tmp 332 LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref 333 LOGICAL(KIND=C_BOOL) :: group_ref_tmp 334 LOGICAL, OPTIONAL, INTENT(OUT) :: min_digits 335 LOGICAL(KIND=C_BOOL) :: min_digits_tmp 336 LOGICAL, OPTIONAL, INTENT(OUT) :: name 337 LOGICAL(KIND=C_BOOL) :: name_tmp 338 LOGICAL, OPTIONAL, INTENT(OUT) :: name_suffix 339 LOGICAL(KIND=C_BOOL) :: name_suffix_tmp 340 LOGICAL, OPTIONAL, INTENT(OUT) :: output_freq 341 LOGICAL(KIND=C_BOOL) :: output_freq_tmp 342 LOGICAL, OPTIONAL, INTENT(OUT) :: output_level 343 LOGICAL(KIND=C_BOOL) :: output_level_tmp 344 LOGICAL, OPTIONAL, INTENT(OUT) :: par_access 345 LOGICAL(KIND=C_BOOL) :: par_access_tmp 346 LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq 347 LOGICAL(KIND=C_BOOL) :: split_freq_tmp 348 LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq_format 349 LOGICAL(KIND=C_BOOL) :: split_freq_format_tmp 350 LOGICAL, OPTIONAL, INTENT(OUT) :: sync_freq 351 LOGICAL(KIND=C_BOOL) :: sync_freq_tmp 352 LOGICAL, OPTIONAL, INTENT(OUT) :: type 353 LOGICAL(KIND=C_BOOL) :: type_tmp 354 355 CALL xios(is_defined_filegroup_attr_hdl_) & 356 ( filegroup_hdl, description, enabled, group_ref, min_digits, name, name_suffix, output_freq & 357 , output_level, par_access, split_freq, split_freq_format, sync_freq, type ) 358 359 END SUBROUTINE xios(is_defined_filegroup_attr_hdl) 360 361 SUBROUTINE xios(is_defined_filegroup_attr_hdl_) & 362 ( filegroup_hdl, description_, enabled_, group_ref_, min_digits_, name_, name_suffix_, output_freq_ & 363 , output_level_, par_access_, split_freq_, split_freq_format_, sync_freq_, type_ ) 364 365 IMPLICIT NONE 366 TYPE(txios(filegroup)) , INTENT(IN) :: filegroup_hdl 367 LOGICAL, OPTIONAL, INTENT(OUT) :: description_ 368 LOGICAL(KIND=C_BOOL) :: description__tmp 369 LOGICAL, OPTIONAL, INTENT(OUT) :: enabled_ 370 LOGICAL(KIND=C_BOOL) :: enabled__tmp 371 LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref_ 372 LOGICAL(KIND=C_BOOL) :: group_ref__tmp 373 LOGICAL, OPTIONAL, INTENT(OUT) :: min_digits_ 374 LOGICAL(KIND=C_BOOL) :: min_digits__tmp 375 LOGICAL, OPTIONAL, INTENT(OUT) :: name_ 376 LOGICAL(KIND=C_BOOL) :: name__tmp 377 LOGICAL, OPTIONAL, INTENT(OUT) :: name_suffix_ 378 LOGICAL(KIND=C_BOOL) :: name_suffix__tmp 379 LOGICAL, OPTIONAL, INTENT(OUT) :: output_freq_ 380 LOGICAL(KIND=C_BOOL) :: output_freq__tmp 381 LOGICAL, OPTIONAL, INTENT(OUT) :: output_level_ 382 LOGICAL(KIND=C_BOOL) :: output_level__tmp 383 LOGICAL, OPTIONAL, INTENT(OUT) :: par_access_ 384 LOGICAL(KIND=C_BOOL) :: par_access__tmp 385 LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq_ 386 LOGICAL(KIND=C_BOOL) :: split_freq__tmp 387 LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq_format_ 388 LOGICAL(KIND=C_BOOL) :: split_freq_format__tmp 389 LOGICAL, OPTIONAL, INTENT(OUT) :: sync_freq_ 390 LOGICAL(KIND=C_BOOL) :: sync_freq__tmp 391 LOGICAL, OPTIONAL, INTENT(OUT) :: type_ 392 LOGICAL(KIND=C_BOOL) :: type__tmp 393 394 IF (PRESENT(description_)) THEN 395 description__tmp=cxios_is_defined_filegroup_description(filegroup_hdl%daddr) 396 description_=description__tmp 397 ENDIF 398 399 IF (PRESENT(enabled_)) THEN 400 enabled__tmp=cxios_is_defined_filegroup_enabled(filegroup_hdl%daddr) 401 enabled_=enabled__tmp 402 ENDIF 403 404 IF (PRESENT(group_ref_)) THEN 405 group_ref__tmp=cxios_is_defined_filegroup_group_ref(filegroup_hdl%daddr) 406 group_ref_=group_ref__tmp 407 ENDIF 408 409 IF (PRESENT(min_digits_)) THEN 410 min_digits__tmp=cxios_is_defined_filegroup_min_digits(filegroup_hdl%daddr) 411 min_digits_=min_digits__tmp 412 ENDIF 413 414 IF (PRESENT(name_)) THEN 415 name__tmp=cxios_is_defined_filegroup_name(filegroup_hdl%daddr) 416 name_=name__tmp 417 ENDIF 418 419 IF (PRESENT(name_suffix_)) THEN 420 name_suffix__tmp=cxios_is_defined_filegroup_name_suffix(filegroup_hdl%daddr) 421 name_suffix_=name_suffix__tmp 422 ENDIF 423 424 IF (PRESENT(output_freq_)) THEN 425 output_freq__tmp=cxios_is_defined_filegroup_output_freq(filegroup_hdl%daddr) 426 output_freq_=output_freq__tmp 427 ENDIF 428 429 IF (PRESENT(output_level_)) THEN 430 output_level__tmp=cxios_is_defined_filegroup_output_level(filegroup_hdl%daddr) 431 output_level_=output_level__tmp 432 ENDIF 433 434 IF (PRESENT(par_access_)) THEN 435 par_access__tmp=cxios_is_defined_filegroup_par_access(filegroup_hdl%daddr) 436 par_access_=par_access__tmp 437 ENDIF 438 439 IF (PRESENT(split_freq_)) THEN 440 split_freq__tmp=cxios_is_defined_filegroup_split_freq(filegroup_hdl%daddr) 441 split_freq_=split_freq__tmp 442 ENDIF 443 444 IF (PRESENT(split_freq_format_)) THEN 445 split_freq_format__tmp=cxios_is_defined_filegroup_split_freq_format(filegroup_hdl%daddr) 446 split_freq_format_=split_freq_format__tmp 447 ENDIF 448 449 IF (PRESENT(sync_freq_)) THEN 450 sync_freq__tmp=cxios_is_defined_filegroup_sync_freq(filegroup_hdl%daddr) 451 sync_freq_=sync_freq__tmp 452 ENDIF 453 454 IF (PRESENT(type_)) THEN 455 type__tmp=cxios_is_defined_filegroup_type(filegroup_hdl%daddr) 456 type_=type__tmp 457 ENDIF 458 459 460 461 END SUBROUTINE xios(is_defined_filegroup_attr_hdl_) 462 267 463 END MODULE ifilegroup_attr -
XIOS/trunk/src/interface/fortran_attr/igrid_attr.F90
r415 r432 159 159 END SUBROUTINE xios(get_grid_attr_hdl_) 160 160 161 SUBROUTINE xios(is_defined_grid_attr) & 162 ( grid_id, axis_ref, description, domain_ref, mask, name ) 163 164 IMPLICIT NONE 165 TYPE(txios(grid)) :: grid_hdl 166 CHARACTER(LEN=*), INTENT(IN) ::grid_id 167 LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref 168 LOGICAL(KIND=C_BOOL) :: axis_ref_tmp 169 LOGICAL, OPTIONAL, INTENT(OUT) :: description 170 LOGICAL(KIND=C_BOOL) :: description_tmp 171 LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref 172 LOGICAL(KIND=C_BOOL) :: domain_ref_tmp 173 LOGICAL, OPTIONAL, INTENT(OUT) :: mask 174 LOGICAL(KIND=C_BOOL) :: mask_tmp 175 LOGICAL, OPTIONAL, INTENT(OUT) :: name 176 LOGICAL(KIND=C_BOOL) :: name_tmp 177 178 CALL xios(get_grid_handle)(grid_id,grid_hdl) 179 CALL xios(is_defined_grid_attr_hdl_) & 180 ( grid_hdl, axis_ref, description, domain_ref, mask, name ) 181 182 END SUBROUTINE xios(is_defined_grid_attr) 183 184 SUBROUTINE xios(is_defined_grid_attr_hdl) & 185 ( grid_hdl, axis_ref, description, domain_ref, mask, name ) 186 187 IMPLICIT NONE 188 TYPE(txios(grid)) , INTENT(IN) :: grid_hdl 189 LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref 190 LOGICAL(KIND=C_BOOL) :: axis_ref_tmp 191 LOGICAL, OPTIONAL, INTENT(OUT) :: description 192 LOGICAL(KIND=C_BOOL) :: description_tmp 193 LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref 194 LOGICAL(KIND=C_BOOL) :: domain_ref_tmp 195 LOGICAL, OPTIONAL, INTENT(OUT) :: mask 196 LOGICAL(KIND=C_BOOL) :: mask_tmp 197 LOGICAL, OPTIONAL, INTENT(OUT) :: name 198 LOGICAL(KIND=C_BOOL) :: name_tmp 199 200 CALL xios(is_defined_grid_attr_hdl_) & 201 ( grid_hdl, axis_ref, description, domain_ref, mask, name ) 202 203 END SUBROUTINE xios(is_defined_grid_attr_hdl) 204 205 SUBROUTINE xios(is_defined_grid_attr_hdl_) & 206 ( grid_hdl, axis_ref_, description_, domain_ref_, mask_, name_ ) 207 208 IMPLICIT NONE 209 TYPE(txios(grid)) , INTENT(IN) :: grid_hdl 210 LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref_ 211 LOGICAL(KIND=C_BOOL) :: axis_ref__tmp 212 LOGICAL, OPTIONAL, INTENT(OUT) :: description_ 213 LOGICAL(KIND=C_BOOL) :: description__tmp 214 LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref_ 215 LOGICAL(KIND=C_BOOL) :: domain_ref__tmp 216 LOGICAL, OPTIONAL, INTENT(OUT) :: mask_ 217 LOGICAL(KIND=C_BOOL) :: mask__tmp 218 LOGICAL, OPTIONAL, INTENT(OUT) :: name_ 219 LOGICAL(KIND=C_BOOL) :: name__tmp 220 221 IF (PRESENT(axis_ref_)) THEN 222 axis_ref__tmp=cxios_is_defined_grid_axis_ref(grid_hdl%daddr) 223 axis_ref_=axis_ref__tmp 224 ENDIF 225 226 IF (PRESENT(description_)) THEN 227 description__tmp=cxios_is_defined_grid_description(grid_hdl%daddr) 228 description_=description__tmp 229 ENDIF 230 231 IF (PRESENT(domain_ref_)) THEN 232 domain_ref__tmp=cxios_is_defined_grid_domain_ref(grid_hdl%daddr) 233 domain_ref_=domain_ref__tmp 234 ENDIF 235 236 IF (PRESENT(mask_)) THEN 237 mask__tmp=cxios_is_defined_grid_mask(grid_hdl%daddr) 238 mask_=mask__tmp 239 ENDIF 240 241 IF (PRESENT(name_)) THEN 242 name__tmp=cxios_is_defined_grid_name(grid_hdl%daddr) 243 name_=name__tmp 244 ENDIF 245 246 247 248 END SUBROUTINE xios(is_defined_grid_attr_hdl_) 249 161 250 END MODULE igrid_attr -
XIOS/trunk/src/interface/fortran_attr/igridgroup_attr.F90
r415 r432 173 173 END SUBROUTINE xios(get_gridgroup_attr_hdl_) 174 174 175 SUBROUTINE xios(is_defined_gridgroup_attr) & 176 ( gridgroup_id, axis_ref, description, domain_ref, group_ref, mask, name ) 177 178 IMPLICIT NONE 179 TYPE(txios(gridgroup)) :: gridgroup_hdl 180 CHARACTER(LEN=*), INTENT(IN) ::gridgroup_id 181 LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref 182 LOGICAL(KIND=C_BOOL) :: axis_ref_tmp 183 LOGICAL, OPTIONAL, INTENT(OUT) :: description 184 LOGICAL(KIND=C_BOOL) :: description_tmp 185 LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref 186 LOGICAL(KIND=C_BOOL) :: domain_ref_tmp 187 LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref 188 LOGICAL(KIND=C_BOOL) :: group_ref_tmp 189 LOGICAL, OPTIONAL, INTENT(OUT) :: mask 190 LOGICAL(KIND=C_BOOL) :: mask_tmp 191 LOGICAL, OPTIONAL, INTENT(OUT) :: name 192 LOGICAL(KIND=C_BOOL) :: name_tmp 193 194 CALL xios(get_gridgroup_handle)(gridgroup_id,gridgroup_hdl) 195 CALL xios(is_defined_gridgroup_attr_hdl_) & 196 ( gridgroup_hdl, axis_ref, description, domain_ref, group_ref, mask, name ) 197 198 END SUBROUTINE xios(is_defined_gridgroup_attr) 199 200 SUBROUTINE xios(is_defined_gridgroup_attr_hdl) & 201 ( gridgroup_hdl, axis_ref, description, domain_ref, group_ref, mask, name ) 202 203 IMPLICIT NONE 204 TYPE(txios(gridgroup)) , INTENT(IN) :: gridgroup_hdl 205 LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref 206 LOGICAL(KIND=C_BOOL) :: axis_ref_tmp 207 LOGICAL, OPTIONAL, INTENT(OUT) :: description 208 LOGICAL(KIND=C_BOOL) :: description_tmp 209 LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref 210 LOGICAL(KIND=C_BOOL) :: domain_ref_tmp 211 LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref 212 LOGICAL(KIND=C_BOOL) :: group_ref_tmp 213 LOGICAL, OPTIONAL, INTENT(OUT) :: mask 214 LOGICAL(KIND=C_BOOL) :: mask_tmp 215 LOGICAL, OPTIONAL, INTENT(OUT) :: name 216 LOGICAL(KIND=C_BOOL) :: name_tmp 217 218 CALL xios(is_defined_gridgroup_attr_hdl_) & 219 ( gridgroup_hdl, axis_ref, description, domain_ref, group_ref, mask, name ) 220 221 END SUBROUTINE xios(is_defined_gridgroup_attr_hdl) 222 223 SUBROUTINE xios(is_defined_gridgroup_attr_hdl_) & 224 ( gridgroup_hdl, axis_ref_, description_, domain_ref_, group_ref_, mask_, name_ ) 225 226 IMPLICIT NONE 227 TYPE(txios(gridgroup)) , INTENT(IN) :: gridgroup_hdl 228 LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref_ 229 LOGICAL(KIND=C_BOOL) :: axis_ref__tmp 230 LOGICAL, OPTIONAL, INTENT(OUT) :: description_ 231 LOGICAL(KIND=C_BOOL) :: description__tmp 232 LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref_ 233 LOGICAL(KIND=C_BOOL) :: domain_ref__tmp 234 LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref_ 235 LOGICAL(KIND=C_BOOL) :: group_ref__tmp 236 LOGICAL, OPTIONAL, INTENT(OUT) :: mask_ 237 LOGICAL(KIND=C_BOOL) :: mask__tmp 238 LOGICAL, OPTIONAL, INTENT(OUT) :: name_ 239 LOGICAL(KIND=C_BOOL) :: name__tmp 240 241 IF (PRESENT(axis_ref_)) THEN 242 axis_ref__tmp=cxios_is_defined_gridgroup_axis_ref(gridgroup_hdl%daddr) 243 axis_ref_=axis_ref__tmp 244 ENDIF 245 246 IF (PRESENT(description_)) THEN 247 description__tmp=cxios_is_defined_gridgroup_description(gridgroup_hdl%daddr) 248 description_=description__tmp 249 ENDIF 250 251 IF (PRESENT(domain_ref_)) THEN 252 domain_ref__tmp=cxios_is_defined_gridgroup_domain_ref(gridgroup_hdl%daddr) 253 domain_ref_=domain_ref__tmp 254 ENDIF 255 256 IF (PRESENT(group_ref_)) THEN 257 group_ref__tmp=cxios_is_defined_gridgroup_group_ref(gridgroup_hdl%daddr) 258 group_ref_=group_ref__tmp 259 ENDIF 260 261 IF (PRESENT(mask_)) THEN 262 mask__tmp=cxios_is_defined_gridgroup_mask(gridgroup_hdl%daddr) 263 mask_=mask__tmp 264 ENDIF 265 266 IF (PRESENT(name_)) THEN 267 name__tmp=cxios_is_defined_gridgroup_name(gridgroup_hdl%daddr) 268 name_=name__tmp 269 ENDIF 270 271 272 273 END SUBROUTINE xios(is_defined_gridgroup_attr_hdl_) 274 175 275 END MODULE igridgroup_attr
Note: See TracChangeset
for help on using the changeset viewer.