[326] | 1 | ! * ************************************************************************** * |
---|
| 2 | ! * Interface auto generated - do not modify * |
---|
| 3 | ! * ************************************************************************** * |
---|
| 4 | #include "xios_fortran_prefix.hpp" |
---|
| 5 | |
---|
| 6 | MODULE iaxis_attr |
---|
| 7 | USE, INTRINSIC :: ISO_C_BINDING |
---|
| 8 | USE iaxis |
---|
| 9 | USE axis_interface_attr |
---|
[581] | 10 | |
---|
[326] | 11 | CONTAINS |
---|
[581] | 12 | |
---|
[326] | 13 | SUBROUTINE xios(set_axis_attr) & |
---|
[1492] | 14 | ( axis_id, axis_ref, axis_type, begin, bounds, bounds_name, comment, data_begin, data_index & |
---|
| 15 | , data_n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, index, label & |
---|
| 16 | , long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name, unit & |
---|
| 17 | , value ) |
---|
[581] | 18 | |
---|
[326] | 19 | IMPLICIT NONE |
---|
| 20 | TYPE(txios(axis)) :: axis_hdl |
---|
| 21 | CHARACTER(LEN=*), INTENT(IN) ::axis_id |
---|
[546] | 22 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref |
---|
[1492] | 23 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_type |
---|
[666] | 24 | INTEGER , OPTIONAL, INTENT(IN) :: begin |
---|
[609] | 25 | REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds(:,:) |
---|
[1492] | 26 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: bounds_name |
---|
| 27 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment |
---|
[555] | 28 | INTEGER , OPTIONAL, INTENT(IN) :: data_begin |
---|
| 29 | INTEGER , OPTIONAL, INTENT(IN) :: data_index(:) |
---|
| 30 | INTEGER , OPTIONAL, INTENT(IN) :: data_n |
---|
[1492] | 31 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: dim_name |
---|
| 32 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: formula |
---|
| 33 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: formula_bounds |
---|
| 34 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: formula_term |
---|
| 35 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: formula_term_bounds |
---|
[817] | 36 | INTEGER , OPTIONAL, INTENT(IN) :: index(:) |
---|
[1158] | 37 | CHARACTER(len=*) , OPTIONAL, INTENT(IN) :: label(:) |
---|
[326] | 38 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name |
---|
[555] | 39 | LOGICAL , OPTIONAL, INTENT(IN) :: mask(:) |
---|
| 40 | LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_tmp(:) |
---|
[666] | 41 | INTEGER , OPTIONAL, INTENT(IN) :: n |
---|
[779] | 42 | INTEGER , OPTIONAL, INTENT(IN) :: n_distributed_partition |
---|
[666] | 43 | INTEGER , OPTIONAL, INTENT(IN) :: n_glo |
---|
[326] | 44 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name |
---|
[415] | 45 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: positive |
---|
[1158] | 46 | INTEGER , OPTIONAL, INTENT(IN) :: prec |
---|
[326] | 47 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name |
---|
| 48 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: unit |
---|
| 49 | REAL (KIND=8) , OPTIONAL, INTENT(IN) :: value(:) |
---|
[581] | 50 | |
---|
[966] | 51 | CALL xios(get_axis_handle) & |
---|
| 52 | (axis_id,axis_hdl) |
---|
[326] | 53 | CALL xios(set_axis_attr_hdl_) & |
---|
[1492] | 54 | ( axis_hdl, axis_ref, axis_type, begin, bounds, bounds_name, comment, data_begin, data_index & |
---|
| 55 | , data_n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, index, label & |
---|
| 56 | , long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name, unit & |
---|
| 57 | , value ) |
---|
[581] | 58 | |
---|
[326] | 59 | END SUBROUTINE xios(set_axis_attr) |
---|
[581] | 60 | |
---|
[326] | 61 | SUBROUTINE xios(set_axis_attr_hdl) & |
---|
[1492] | 62 | ( axis_hdl, axis_ref, axis_type, begin, bounds, bounds_name, comment, data_begin, data_index & |
---|
| 63 | , data_n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, index, label & |
---|
| 64 | , long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name, unit & |
---|
| 65 | , value ) |
---|
[581] | 66 | |
---|
[326] | 67 | IMPLICIT NONE |
---|
| 68 | TYPE(txios(axis)) , INTENT(IN) :: axis_hdl |
---|
[546] | 69 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref |
---|
[1492] | 70 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_type |
---|
[666] | 71 | INTEGER , OPTIONAL, INTENT(IN) :: begin |
---|
[609] | 72 | REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds(:,:) |
---|
[1492] | 73 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: bounds_name |
---|
| 74 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment |
---|
[555] | 75 | INTEGER , OPTIONAL, INTENT(IN) :: data_begin |
---|
| 76 | INTEGER , OPTIONAL, INTENT(IN) :: data_index(:) |
---|
| 77 | INTEGER , OPTIONAL, INTENT(IN) :: data_n |
---|
[1492] | 78 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: dim_name |
---|
| 79 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: formula |
---|
| 80 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: formula_bounds |
---|
| 81 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: formula_term |
---|
| 82 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: formula_term_bounds |
---|
[817] | 83 | INTEGER , OPTIONAL, INTENT(IN) :: index(:) |
---|
[1158] | 84 | CHARACTER(len=*) , OPTIONAL, INTENT(IN) :: label(:) |
---|
[326] | 85 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name |
---|
[555] | 86 | LOGICAL , OPTIONAL, INTENT(IN) :: mask(:) |
---|
| 87 | LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_tmp(:) |
---|
[666] | 88 | INTEGER , OPTIONAL, INTENT(IN) :: n |
---|
[779] | 89 | INTEGER , OPTIONAL, INTENT(IN) :: n_distributed_partition |
---|
[666] | 90 | INTEGER , OPTIONAL, INTENT(IN) :: n_glo |
---|
[326] | 91 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name |
---|
[415] | 92 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: positive |
---|
[1158] | 93 | INTEGER , OPTIONAL, INTENT(IN) :: prec |
---|
[326] | 94 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name |
---|
| 95 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: unit |
---|
| 96 | REAL (KIND=8) , OPTIONAL, INTENT(IN) :: value(:) |
---|
[581] | 97 | |
---|
[326] | 98 | CALL xios(set_axis_attr_hdl_) & |
---|
[1492] | 99 | ( axis_hdl, axis_ref, axis_type, begin, bounds, bounds_name, comment, data_begin, data_index & |
---|
| 100 | , data_n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, index, label & |
---|
| 101 | , long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name, unit & |
---|
| 102 | , value ) |
---|
[581] | 103 | |
---|
[326] | 104 | END SUBROUTINE xios(set_axis_attr_hdl) |
---|
[581] | 105 | |
---|
[326] | 106 | SUBROUTINE xios(set_axis_attr_hdl_) & |
---|
[1492] | 107 | ( axis_hdl, axis_ref_, axis_type_, begin_, bounds_, bounds_name_, comment_, data_begin_, data_index_ & |
---|
| 108 | , data_n_, dim_name_, formula_, formula_bounds_, formula_term_, formula_term_bounds_, index_ & |
---|
| 109 | , label_, long_name_, mask_, n_, n_distributed_partition_, n_glo_, name_, positive_, prec_, standard_name_ & |
---|
| 110 | , unit_, value_ ) |
---|
[581] | 111 | |
---|
[326] | 112 | IMPLICIT NONE |
---|
| 113 | TYPE(txios(axis)) , INTENT(IN) :: axis_hdl |
---|
[546] | 114 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref_ |
---|
[1492] | 115 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_type_ |
---|
[666] | 116 | INTEGER , OPTIONAL, INTENT(IN) :: begin_ |
---|
[609] | 117 | REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_(:,:) |
---|
[1492] | 118 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: bounds_name_ |
---|
| 119 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment_ |
---|
[555] | 120 | INTEGER , OPTIONAL, INTENT(IN) :: data_begin_ |
---|
| 121 | INTEGER , OPTIONAL, INTENT(IN) :: data_index_(:) |
---|
| 122 | INTEGER , OPTIONAL, INTENT(IN) :: data_n_ |
---|
[1492] | 123 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: dim_name_ |
---|
| 124 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: formula_ |
---|
| 125 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: formula_bounds_ |
---|
| 126 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: formula_term_ |
---|
| 127 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: formula_term_bounds_ |
---|
[817] | 128 | INTEGER , OPTIONAL, INTENT(IN) :: index_(:) |
---|
[1158] | 129 | CHARACTER(len=*) , OPTIONAL, INTENT(IN) :: label_(:) |
---|
[326] | 130 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name_ |
---|
[555] | 131 | LOGICAL , OPTIONAL, INTENT(IN) :: mask_(:) |
---|
| 132 | LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask__tmp(:) |
---|
[666] | 133 | INTEGER , OPTIONAL, INTENT(IN) :: n_ |
---|
[779] | 134 | INTEGER , OPTIONAL, INTENT(IN) :: n_distributed_partition_ |
---|
[666] | 135 | INTEGER , OPTIONAL, INTENT(IN) :: n_glo_ |
---|
[326] | 136 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_ |
---|
[415] | 137 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: positive_ |
---|
[1158] | 138 | INTEGER , OPTIONAL, INTENT(IN) :: prec_ |
---|
[326] | 139 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name_ |
---|
| 140 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: unit_ |
---|
| 141 | REAL (KIND=8) , OPTIONAL, INTENT(IN) :: value_(:) |
---|
[581] | 142 | |
---|
[546] | 143 | IF (PRESENT(axis_ref_)) THEN |
---|
[966] | 144 | CALL cxios_set_axis_axis_ref & |
---|
| 145 | (axis_hdl%daddr, axis_ref_, len(axis_ref_)) |
---|
[546] | 146 | ENDIF |
---|
[581] | 147 | |
---|
[1492] | 148 | IF (PRESENT(axis_type_)) THEN |
---|
| 149 | CALL cxios_set_axis_axis_type & |
---|
| 150 | (axis_hdl%daddr, axis_type_, len(axis_type_)) |
---|
| 151 | ENDIF |
---|
| 152 | |
---|
[666] | 153 | IF (PRESENT(begin_)) THEN |
---|
[966] | 154 | CALL cxios_set_axis_begin & |
---|
| 155 | (axis_hdl%daddr, begin_) |
---|
[666] | 156 | ENDIF |
---|
| 157 | |
---|
[609] | 158 | IF (PRESENT(bounds_)) THEN |
---|
[966] | 159 | CALL cxios_set_axis_bounds & |
---|
| 160 | (axis_hdl%daddr, bounds_, SHAPE(bounds_)) |
---|
[609] | 161 | ENDIF |
---|
| 162 | |
---|
[1492] | 163 | IF (PRESENT(bounds_name_)) THEN |
---|
| 164 | CALL cxios_set_axis_bounds_name & |
---|
| 165 | (axis_hdl%daddr, bounds_name_, len(bounds_name_)) |
---|
| 166 | ENDIF |
---|
| 167 | |
---|
| 168 | IF (PRESENT(comment_)) THEN |
---|
| 169 | CALL cxios_set_axis_comment & |
---|
| 170 | (axis_hdl%daddr, comment_, len(comment_)) |
---|
| 171 | ENDIF |
---|
| 172 | |
---|
[555] | 173 | IF (PRESENT(data_begin_)) THEN |
---|
[966] | 174 | CALL cxios_set_axis_data_begin & |
---|
| 175 | (axis_hdl%daddr, data_begin_) |
---|
[555] | 176 | ENDIF |
---|
[581] | 177 | |
---|
[555] | 178 | IF (PRESENT(data_index_)) THEN |
---|
[966] | 179 | CALL cxios_set_axis_data_index & |
---|
| 180 | (axis_hdl%daddr, data_index_, SHAPE(data_index_)) |
---|
[555] | 181 | ENDIF |
---|
[581] | 182 | |
---|
[555] | 183 | IF (PRESENT(data_n_)) THEN |
---|
[966] | 184 | CALL cxios_set_axis_data_n & |
---|
| 185 | (axis_hdl%daddr, data_n_) |
---|
[555] | 186 | ENDIF |
---|
[581] | 187 | |
---|
[1492] | 188 | IF (PRESENT(dim_name_)) THEN |
---|
| 189 | CALL cxios_set_axis_dim_name & |
---|
| 190 | (axis_hdl%daddr, dim_name_, len(dim_name_)) |
---|
| 191 | ENDIF |
---|
| 192 | |
---|
| 193 | IF (PRESENT(formula_)) THEN |
---|
| 194 | CALL cxios_set_axis_formula & |
---|
| 195 | (axis_hdl%daddr, formula_, len(formula_)) |
---|
| 196 | ENDIF |
---|
| 197 | |
---|
| 198 | IF (PRESENT(formula_bounds_)) THEN |
---|
| 199 | CALL cxios_set_axis_formula_bounds & |
---|
| 200 | (axis_hdl%daddr, formula_bounds_, len(formula_bounds_)) |
---|
| 201 | ENDIF |
---|
| 202 | |
---|
| 203 | IF (PRESENT(formula_term_)) THEN |
---|
| 204 | CALL cxios_set_axis_formula_term & |
---|
| 205 | (axis_hdl%daddr, formula_term_, len(formula_term_)) |
---|
| 206 | ENDIF |
---|
| 207 | |
---|
| 208 | IF (PRESENT(formula_term_bounds_)) THEN |
---|
| 209 | CALL cxios_set_axis_formula_term_bounds & |
---|
| 210 | (axis_hdl%daddr, formula_term_bounds_, len(formula_term_bounds_)) |
---|
| 211 | ENDIF |
---|
| 212 | |
---|
[817] | 213 | IF (PRESENT(index_)) THEN |
---|
[966] | 214 | CALL cxios_set_axis_index & |
---|
| 215 | (axis_hdl%daddr, index_, SHAPE(index_)) |
---|
[817] | 216 | ENDIF |
---|
| 217 | |
---|
[1158] | 218 | IF (PRESENT(label_)) THEN |
---|
| 219 | CALL cxios_set_axis_label & |
---|
| 220 | (axis_hdl%daddr, label_, LEN(label_), LEN_TRIM(label_), SHAPE(label_)) |
---|
| 221 | ENDIF |
---|
| 222 | |
---|
[326] | 223 | IF (PRESENT(long_name_)) THEN |
---|
[966] | 224 | CALL cxios_set_axis_long_name & |
---|
| 225 | (axis_hdl%daddr, long_name_, len(long_name_)) |
---|
[326] | 226 | ENDIF |
---|
[581] | 227 | |
---|
[555] | 228 | IF (PRESENT(mask_)) THEN |
---|
[674] | 229 | ALLOCATE(mask__tmp(SIZE(mask_,1))) |
---|
[581] | 230 | mask__tmp = mask_ |
---|
[966] | 231 | CALL cxios_set_axis_mask & |
---|
| 232 | (axis_hdl%daddr, mask__tmp, SHAPE(mask_)) |
---|
[555] | 233 | ENDIF |
---|
[581] | 234 | |
---|
[666] | 235 | IF (PRESENT(n_)) THEN |
---|
[966] | 236 | CALL cxios_set_axis_n & |
---|
| 237 | (axis_hdl%daddr, n_) |
---|
[666] | 238 | ENDIF |
---|
| 239 | |
---|
[779] | 240 | IF (PRESENT(n_distributed_partition_)) THEN |
---|
[966] | 241 | CALL cxios_set_axis_n_distributed_partition & |
---|
| 242 | (axis_hdl%daddr, n_distributed_partition_) |
---|
[779] | 243 | ENDIF |
---|
| 244 | |
---|
[666] | 245 | IF (PRESENT(n_glo_)) THEN |
---|
[966] | 246 | CALL cxios_set_axis_n_glo & |
---|
| 247 | (axis_hdl%daddr, n_glo_) |
---|
[666] | 248 | ENDIF |
---|
| 249 | |
---|
[326] | 250 | IF (PRESENT(name_)) THEN |
---|
[966] | 251 | CALL cxios_set_axis_name & |
---|
| 252 | (axis_hdl%daddr, name_, len(name_)) |
---|
[326] | 253 | ENDIF |
---|
[581] | 254 | |
---|
[415] | 255 | IF (PRESENT(positive_)) THEN |
---|
[966] | 256 | CALL cxios_set_axis_positive & |
---|
| 257 | (axis_hdl%daddr, positive_, len(positive_)) |
---|
[415] | 258 | ENDIF |
---|
[581] | 259 | |
---|
[1158] | 260 | IF (PRESENT(prec_)) THEN |
---|
| 261 | CALL cxios_set_axis_prec & |
---|
| 262 | (axis_hdl%daddr, prec_) |
---|
| 263 | ENDIF |
---|
| 264 | |
---|
[326] | 265 | IF (PRESENT(standard_name_)) THEN |
---|
[966] | 266 | CALL cxios_set_axis_standard_name & |
---|
| 267 | (axis_hdl%daddr, standard_name_, len(standard_name_)) |
---|
[326] | 268 | ENDIF |
---|
[581] | 269 | |
---|
[326] | 270 | IF (PRESENT(unit_)) THEN |
---|
[966] | 271 | CALL cxios_set_axis_unit & |
---|
| 272 | (axis_hdl%daddr, unit_, len(unit_)) |
---|
[326] | 273 | ENDIF |
---|
[581] | 274 | |
---|
[326] | 275 | IF (PRESENT(value_)) THEN |
---|
[966] | 276 | CALL cxios_set_axis_value & |
---|
| 277 | (axis_hdl%daddr, value_, SHAPE(value_)) |
---|
[326] | 278 | ENDIF |
---|
[581] | 279 | |
---|
[326] | 280 | END SUBROUTINE xios(set_axis_attr_hdl_) |
---|
[581] | 281 | |
---|
[326] | 282 | SUBROUTINE xios(get_axis_attr) & |
---|
[1492] | 283 | ( axis_id, axis_ref, axis_type, begin, bounds, bounds_name, comment, data_begin, data_index & |
---|
| 284 | , data_n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, index, label & |
---|
| 285 | , long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name, unit & |
---|
| 286 | , value ) |
---|
[581] | 287 | |
---|
[326] | 288 | IMPLICIT NONE |
---|
| 289 | TYPE(txios(axis)) :: axis_hdl |
---|
| 290 | CHARACTER(LEN=*), INTENT(IN) ::axis_id |
---|
[546] | 291 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref |
---|
[1492] | 292 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_type |
---|
[666] | 293 | INTEGER , OPTIONAL, INTENT(OUT) :: begin |
---|
[609] | 294 | REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds(:,:) |
---|
[1492] | 295 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: bounds_name |
---|
| 296 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment |
---|
[555] | 297 | INTEGER , OPTIONAL, INTENT(OUT) :: data_begin |
---|
| 298 | INTEGER , OPTIONAL, INTENT(OUT) :: data_index(:) |
---|
| 299 | INTEGER , OPTIONAL, INTENT(OUT) :: data_n |
---|
[1492] | 300 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: dim_name |
---|
| 301 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: formula |
---|
| 302 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: formula_bounds |
---|
| 303 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: formula_term |
---|
| 304 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: formula_term_bounds |
---|
[817] | 305 | INTEGER , OPTIONAL, INTENT(OUT) :: index(:) |
---|
[1158] | 306 | CHARACTER(len=*) , OPTIONAL, INTENT(OUT) :: label(:) |
---|
[326] | 307 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name |
---|
[555] | 308 | LOGICAL , OPTIONAL, INTENT(OUT) :: mask(:) |
---|
| 309 | LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_tmp(:) |
---|
[666] | 310 | INTEGER , OPTIONAL, INTENT(OUT) :: n |
---|
[779] | 311 | INTEGER , OPTIONAL, INTENT(OUT) :: n_distributed_partition |
---|
[666] | 312 | INTEGER , OPTIONAL, INTENT(OUT) :: n_glo |
---|
[326] | 313 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name |
---|
[415] | 314 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: positive |
---|
[1158] | 315 | INTEGER , OPTIONAL, INTENT(OUT) :: prec |
---|
[326] | 316 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name |
---|
| 317 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: unit |
---|
| 318 | REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: value(:) |
---|
[581] | 319 | |
---|
[966] | 320 | CALL xios(get_axis_handle) & |
---|
| 321 | (axis_id,axis_hdl) |
---|
[326] | 322 | CALL xios(get_axis_attr_hdl_) & |
---|
[1492] | 323 | ( axis_hdl, axis_ref, axis_type, begin, bounds, bounds_name, comment, data_begin, data_index & |
---|
| 324 | , data_n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, index, label & |
---|
| 325 | , long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name, unit & |
---|
| 326 | , value ) |
---|
[581] | 327 | |
---|
[326] | 328 | END SUBROUTINE xios(get_axis_attr) |
---|
[581] | 329 | |
---|
[326] | 330 | SUBROUTINE xios(get_axis_attr_hdl) & |
---|
[1492] | 331 | ( axis_hdl, axis_ref, axis_type, begin, bounds, bounds_name, comment, data_begin, data_index & |
---|
| 332 | , data_n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, index, label & |
---|
| 333 | , long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name, unit & |
---|
| 334 | , value ) |
---|
[581] | 335 | |
---|
[326] | 336 | IMPLICIT NONE |
---|
| 337 | TYPE(txios(axis)) , INTENT(IN) :: axis_hdl |
---|
[546] | 338 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref |
---|
[1492] | 339 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_type |
---|
[666] | 340 | INTEGER , OPTIONAL, INTENT(OUT) :: begin |
---|
[609] | 341 | REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds(:,:) |
---|
[1492] | 342 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: bounds_name |
---|
| 343 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment |
---|
[555] | 344 | INTEGER , OPTIONAL, INTENT(OUT) :: data_begin |
---|
| 345 | INTEGER , OPTIONAL, INTENT(OUT) :: data_index(:) |
---|
| 346 | INTEGER , OPTIONAL, INTENT(OUT) :: data_n |
---|
[1492] | 347 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: dim_name |
---|
| 348 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: formula |
---|
| 349 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: formula_bounds |
---|
| 350 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: formula_term |
---|
| 351 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: formula_term_bounds |
---|
[817] | 352 | INTEGER , OPTIONAL, INTENT(OUT) :: index(:) |
---|
[1158] | 353 | CHARACTER(len=*) , OPTIONAL, INTENT(OUT) :: label(:) |
---|
[326] | 354 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name |
---|
[555] | 355 | LOGICAL , OPTIONAL, INTENT(OUT) :: mask(:) |
---|
| 356 | LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_tmp(:) |
---|
[666] | 357 | INTEGER , OPTIONAL, INTENT(OUT) :: n |
---|
[779] | 358 | INTEGER , OPTIONAL, INTENT(OUT) :: n_distributed_partition |
---|
[666] | 359 | INTEGER , OPTIONAL, INTENT(OUT) :: n_glo |
---|
[326] | 360 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name |
---|
[415] | 361 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: positive |
---|
[1158] | 362 | INTEGER , OPTIONAL, INTENT(OUT) :: prec |
---|
[326] | 363 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name |
---|
| 364 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: unit |
---|
| 365 | REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: value(:) |
---|
[581] | 366 | |
---|
[326] | 367 | CALL xios(get_axis_attr_hdl_) & |
---|
[1492] | 368 | ( axis_hdl, axis_ref, axis_type, begin, bounds, bounds_name, comment, data_begin, data_index & |
---|
| 369 | , data_n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, index, label & |
---|
| 370 | , long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name, unit & |
---|
| 371 | , value ) |
---|
[581] | 372 | |
---|
[326] | 373 | END SUBROUTINE xios(get_axis_attr_hdl) |
---|
[581] | 374 | |
---|
[326] | 375 | SUBROUTINE xios(get_axis_attr_hdl_) & |
---|
[1492] | 376 | ( axis_hdl, axis_ref_, axis_type_, begin_, bounds_, bounds_name_, comment_, data_begin_, data_index_ & |
---|
| 377 | , data_n_, dim_name_, formula_, formula_bounds_, formula_term_, formula_term_bounds_, index_ & |
---|
| 378 | , label_, long_name_, mask_, n_, n_distributed_partition_, n_glo_, name_, positive_, prec_, standard_name_ & |
---|
| 379 | , unit_, value_ ) |
---|
[581] | 380 | |
---|
[326] | 381 | IMPLICIT NONE |
---|
| 382 | TYPE(txios(axis)) , INTENT(IN) :: axis_hdl |
---|
[546] | 383 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref_ |
---|
[1492] | 384 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_type_ |
---|
[666] | 385 | INTEGER , OPTIONAL, INTENT(OUT) :: begin_ |
---|
[609] | 386 | REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_(:,:) |
---|
[1492] | 387 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: bounds_name_ |
---|
| 388 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment_ |
---|
[555] | 389 | INTEGER , OPTIONAL, INTENT(OUT) :: data_begin_ |
---|
| 390 | INTEGER , OPTIONAL, INTENT(OUT) :: data_index_(:) |
---|
| 391 | INTEGER , OPTIONAL, INTENT(OUT) :: data_n_ |
---|
[1492] | 392 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: dim_name_ |
---|
| 393 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: formula_ |
---|
| 394 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: formula_bounds_ |
---|
| 395 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: formula_term_ |
---|
| 396 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: formula_term_bounds_ |
---|
[817] | 397 | INTEGER , OPTIONAL, INTENT(OUT) :: index_(:) |
---|
[1158] | 398 | CHARACTER(len=*) , OPTIONAL, INTENT(OUT) :: label_(:) |
---|
[326] | 399 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name_ |
---|
[555] | 400 | LOGICAL , OPTIONAL, INTENT(OUT) :: mask_(:) |
---|
| 401 | LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask__tmp(:) |
---|
[666] | 402 | INTEGER , OPTIONAL, INTENT(OUT) :: n_ |
---|
[779] | 403 | INTEGER , OPTIONAL, INTENT(OUT) :: n_distributed_partition_ |
---|
[666] | 404 | INTEGER , OPTIONAL, INTENT(OUT) :: n_glo_ |
---|
[326] | 405 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_ |
---|
[415] | 406 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: positive_ |
---|
[1158] | 407 | INTEGER , OPTIONAL, INTENT(OUT) :: prec_ |
---|
[326] | 408 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name_ |
---|
| 409 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: unit_ |
---|
| 410 | REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: value_(:) |
---|
[581] | 411 | |
---|
[546] | 412 | IF (PRESENT(axis_ref_)) THEN |
---|
[966] | 413 | CALL cxios_get_axis_axis_ref & |
---|
| 414 | (axis_hdl%daddr, axis_ref_, len(axis_ref_)) |
---|
[546] | 415 | ENDIF |
---|
[581] | 416 | |
---|
[1492] | 417 | IF (PRESENT(axis_type_)) THEN |
---|
| 418 | CALL cxios_get_axis_axis_type & |
---|
| 419 | (axis_hdl%daddr, axis_type_, len(axis_type_)) |
---|
| 420 | ENDIF |
---|
| 421 | |
---|
[666] | 422 | IF (PRESENT(begin_)) THEN |
---|
[966] | 423 | CALL cxios_get_axis_begin & |
---|
| 424 | (axis_hdl%daddr, begin_) |
---|
[666] | 425 | ENDIF |
---|
| 426 | |
---|
[609] | 427 | IF (PRESENT(bounds_)) THEN |
---|
[966] | 428 | CALL cxios_get_axis_bounds & |
---|
| 429 | (axis_hdl%daddr, bounds_, SHAPE(bounds_)) |
---|
[609] | 430 | ENDIF |
---|
| 431 | |
---|
[1492] | 432 | IF (PRESENT(bounds_name_)) THEN |
---|
| 433 | CALL cxios_get_axis_bounds_name & |
---|
| 434 | (axis_hdl%daddr, bounds_name_, len(bounds_name_)) |
---|
| 435 | ENDIF |
---|
| 436 | |
---|
| 437 | IF (PRESENT(comment_)) THEN |
---|
| 438 | CALL cxios_get_axis_comment & |
---|
| 439 | (axis_hdl%daddr, comment_, len(comment_)) |
---|
| 440 | ENDIF |
---|
| 441 | |
---|
[555] | 442 | IF (PRESENT(data_begin_)) THEN |
---|
[966] | 443 | CALL cxios_get_axis_data_begin & |
---|
| 444 | (axis_hdl%daddr, data_begin_) |
---|
[555] | 445 | ENDIF |
---|
[581] | 446 | |
---|
[555] | 447 | IF (PRESENT(data_index_)) THEN |
---|
[966] | 448 | CALL cxios_get_axis_data_index & |
---|
| 449 | (axis_hdl%daddr, data_index_, SHAPE(data_index_)) |
---|
[555] | 450 | ENDIF |
---|
[581] | 451 | |
---|
[555] | 452 | IF (PRESENT(data_n_)) THEN |
---|
[966] | 453 | CALL cxios_get_axis_data_n & |
---|
| 454 | (axis_hdl%daddr, data_n_) |
---|
[555] | 455 | ENDIF |
---|
[581] | 456 | |
---|
[1492] | 457 | IF (PRESENT(dim_name_)) THEN |
---|
| 458 | CALL cxios_get_axis_dim_name & |
---|
| 459 | (axis_hdl%daddr, dim_name_, len(dim_name_)) |
---|
| 460 | ENDIF |
---|
| 461 | |
---|
| 462 | IF (PRESENT(formula_)) THEN |
---|
| 463 | CALL cxios_get_axis_formula & |
---|
| 464 | (axis_hdl%daddr, formula_, len(formula_)) |
---|
| 465 | ENDIF |
---|
| 466 | |
---|
| 467 | IF (PRESENT(formula_bounds_)) THEN |
---|
| 468 | CALL cxios_get_axis_formula_bounds & |
---|
| 469 | (axis_hdl%daddr, formula_bounds_, len(formula_bounds_)) |
---|
| 470 | ENDIF |
---|
| 471 | |
---|
| 472 | IF (PRESENT(formula_term_)) THEN |
---|
| 473 | CALL cxios_get_axis_formula_term & |
---|
| 474 | (axis_hdl%daddr, formula_term_, len(formula_term_)) |
---|
| 475 | ENDIF |
---|
| 476 | |
---|
| 477 | IF (PRESENT(formula_term_bounds_)) THEN |
---|
| 478 | CALL cxios_get_axis_formula_term_bounds & |
---|
| 479 | (axis_hdl%daddr, formula_term_bounds_, len(formula_term_bounds_)) |
---|
| 480 | ENDIF |
---|
| 481 | |
---|
[817] | 482 | IF (PRESENT(index_)) THEN |
---|
[966] | 483 | CALL cxios_get_axis_index & |
---|
| 484 | (axis_hdl%daddr, index_, SHAPE(index_)) |
---|
[817] | 485 | ENDIF |
---|
| 486 | |
---|
[1158] | 487 | IF (PRESENT(label_)) THEN |
---|
| 488 | CALL cxios_get_axis_label & |
---|
| 489 | (axis_hdl%daddr, label_, LEN(label_), SHAPE(label_)) |
---|
| 490 | ENDIF |
---|
| 491 | |
---|
[326] | 492 | IF (PRESENT(long_name_)) THEN |
---|
[966] | 493 | CALL cxios_get_axis_long_name & |
---|
| 494 | (axis_hdl%daddr, long_name_, len(long_name_)) |
---|
[326] | 495 | ENDIF |
---|
[581] | 496 | |
---|
[555] | 497 | IF (PRESENT(mask_)) THEN |
---|
[674] | 498 | ALLOCATE(mask__tmp(SIZE(mask_,1))) |
---|
[966] | 499 | CALL cxios_get_axis_mask & |
---|
| 500 | (axis_hdl%daddr, mask__tmp, SHAPE(mask_)) |
---|
[581] | 501 | mask_ = mask__tmp |
---|
[555] | 502 | ENDIF |
---|
[581] | 503 | |
---|
[666] | 504 | IF (PRESENT(n_)) THEN |
---|
[966] | 505 | CALL cxios_get_axis_n & |
---|
| 506 | (axis_hdl%daddr, n_) |
---|
[666] | 507 | ENDIF |
---|
| 508 | |
---|
[779] | 509 | IF (PRESENT(n_distributed_partition_)) THEN |
---|
[966] | 510 | CALL cxios_get_axis_n_distributed_partition & |
---|
| 511 | (axis_hdl%daddr, n_distributed_partition_) |
---|
[779] | 512 | ENDIF |
---|
| 513 | |
---|
[666] | 514 | IF (PRESENT(n_glo_)) THEN |
---|
[966] | 515 | CALL cxios_get_axis_n_glo & |
---|
| 516 | (axis_hdl%daddr, n_glo_) |
---|
[666] | 517 | ENDIF |
---|
| 518 | |
---|
[326] | 519 | IF (PRESENT(name_)) THEN |
---|
[966] | 520 | CALL cxios_get_axis_name & |
---|
| 521 | (axis_hdl%daddr, name_, len(name_)) |
---|
[326] | 522 | ENDIF |
---|
[581] | 523 | |
---|
[415] | 524 | IF (PRESENT(positive_)) THEN |
---|
[966] | 525 | CALL cxios_get_axis_positive & |
---|
| 526 | (axis_hdl%daddr, positive_, len(positive_)) |
---|
[415] | 527 | ENDIF |
---|
[581] | 528 | |
---|
[1158] | 529 | IF (PRESENT(prec_)) THEN |
---|
| 530 | CALL cxios_get_axis_prec & |
---|
| 531 | (axis_hdl%daddr, prec_) |
---|
| 532 | ENDIF |
---|
| 533 | |
---|
[326] | 534 | IF (PRESENT(standard_name_)) THEN |
---|
[966] | 535 | CALL cxios_get_axis_standard_name & |
---|
| 536 | (axis_hdl%daddr, standard_name_, len(standard_name_)) |
---|
[326] | 537 | ENDIF |
---|
[581] | 538 | |
---|
[326] | 539 | IF (PRESENT(unit_)) THEN |
---|
[966] | 540 | CALL cxios_get_axis_unit & |
---|
| 541 | (axis_hdl%daddr, unit_, len(unit_)) |
---|
[326] | 542 | ENDIF |
---|
[581] | 543 | |
---|
[326] | 544 | IF (PRESENT(value_)) THEN |
---|
[966] | 545 | CALL cxios_get_axis_value & |
---|
| 546 | (axis_hdl%daddr, value_, SHAPE(value_)) |
---|
[326] | 547 | ENDIF |
---|
[581] | 548 | |
---|
[326] | 549 | END SUBROUTINE xios(get_axis_attr_hdl_) |
---|
[581] | 550 | |
---|
[432] | 551 | SUBROUTINE xios(is_defined_axis_attr) & |
---|
[1492] | 552 | ( axis_id, axis_ref, axis_type, begin, bounds, bounds_name, comment, data_begin, data_index & |
---|
| 553 | , data_n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, index, label & |
---|
| 554 | , long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name, unit & |
---|
| 555 | , value ) |
---|
[581] | 556 | |
---|
[432] | 557 | IMPLICIT NONE |
---|
| 558 | TYPE(txios(axis)) :: axis_hdl |
---|
| 559 | CHARACTER(LEN=*), INTENT(IN) ::axis_id |
---|
[546] | 560 | LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref |
---|
| 561 | LOGICAL(KIND=C_BOOL) :: axis_ref_tmp |
---|
[1492] | 562 | LOGICAL, OPTIONAL, INTENT(OUT) :: axis_type |
---|
| 563 | LOGICAL(KIND=C_BOOL) :: axis_type_tmp |
---|
[666] | 564 | LOGICAL, OPTIONAL, INTENT(OUT) :: begin |
---|
| 565 | LOGICAL(KIND=C_BOOL) :: begin_tmp |
---|
[609] | 566 | LOGICAL, OPTIONAL, INTENT(OUT) :: bounds |
---|
| 567 | LOGICAL(KIND=C_BOOL) :: bounds_tmp |
---|
[1492] | 568 | LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_name |
---|
| 569 | LOGICAL(KIND=C_BOOL) :: bounds_name_tmp |
---|
| 570 | LOGICAL, OPTIONAL, INTENT(OUT) :: comment |
---|
| 571 | LOGICAL(KIND=C_BOOL) :: comment_tmp |
---|
[555] | 572 | LOGICAL, OPTIONAL, INTENT(OUT) :: data_begin |
---|
| 573 | LOGICAL(KIND=C_BOOL) :: data_begin_tmp |
---|
| 574 | LOGICAL, OPTIONAL, INTENT(OUT) :: data_index |
---|
| 575 | LOGICAL(KIND=C_BOOL) :: data_index_tmp |
---|
| 576 | LOGICAL, OPTIONAL, INTENT(OUT) :: data_n |
---|
| 577 | LOGICAL(KIND=C_BOOL) :: data_n_tmp |
---|
[1492] | 578 | LOGICAL, OPTIONAL, INTENT(OUT) :: dim_name |
---|
| 579 | LOGICAL(KIND=C_BOOL) :: dim_name_tmp |
---|
| 580 | LOGICAL, OPTIONAL, INTENT(OUT) :: formula |
---|
| 581 | LOGICAL(KIND=C_BOOL) :: formula_tmp |
---|
| 582 | LOGICAL, OPTIONAL, INTENT(OUT) :: formula_bounds |
---|
| 583 | LOGICAL(KIND=C_BOOL) :: formula_bounds_tmp |
---|
| 584 | LOGICAL, OPTIONAL, INTENT(OUT) :: formula_term |
---|
| 585 | LOGICAL(KIND=C_BOOL) :: formula_term_tmp |
---|
| 586 | LOGICAL, OPTIONAL, INTENT(OUT) :: formula_term_bounds |
---|
| 587 | LOGICAL(KIND=C_BOOL) :: formula_term_bounds_tmp |
---|
[817] | 588 | LOGICAL, OPTIONAL, INTENT(OUT) :: index |
---|
| 589 | LOGICAL(KIND=C_BOOL) :: index_tmp |
---|
[1158] | 590 | LOGICAL, OPTIONAL, INTENT(OUT) :: label |
---|
| 591 | LOGICAL(KIND=C_BOOL) :: label_tmp |
---|
[432] | 592 | LOGICAL, OPTIONAL, INTENT(OUT) :: long_name |
---|
| 593 | LOGICAL(KIND=C_BOOL) :: long_name_tmp |
---|
[555] | 594 | LOGICAL, OPTIONAL, INTENT(OUT) :: mask |
---|
| 595 | LOGICAL(KIND=C_BOOL) :: mask_tmp |
---|
[666] | 596 | LOGICAL, OPTIONAL, INTENT(OUT) :: n |
---|
| 597 | LOGICAL(KIND=C_BOOL) :: n_tmp |
---|
[779] | 598 | LOGICAL, OPTIONAL, INTENT(OUT) :: n_distributed_partition |
---|
| 599 | LOGICAL(KIND=C_BOOL) :: n_distributed_partition_tmp |
---|
[666] | 600 | LOGICAL, OPTIONAL, INTENT(OUT) :: n_glo |
---|
| 601 | LOGICAL(KIND=C_BOOL) :: n_glo_tmp |
---|
[432] | 602 | LOGICAL, OPTIONAL, INTENT(OUT) :: name |
---|
| 603 | LOGICAL(KIND=C_BOOL) :: name_tmp |
---|
| 604 | LOGICAL, OPTIONAL, INTENT(OUT) :: positive |
---|
| 605 | LOGICAL(KIND=C_BOOL) :: positive_tmp |
---|
[1158] | 606 | LOGICAL, OPTIONAL, INTENT(OUT) :: prec |
---|
| 607 | LOGICAL(KIND=C_BOOL) :: prec_tmp |
---|
[432] | 608 | LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name |
---|
| 609 | LOGICAL(KIND=C_BOOL) :: standard_name_tmp |
---|
| 610 | LOGICAL, OPTIONAL, INTENT(OUT) :: unit |
---|
| 611 | LOGICAL(KIND=C_BOOL) :: unit_tmp |
---|
| 612 | LOGICAL, OPTIONAL, INTENT(OUT) :: value |
---|
| 613 | LOGICAL(KIND=C_BOOL) :: value_tmp |
---|
[581] | 614 | |
---|
[966] | 615 | CALL xios(get_axis_handle) & |
---|
| 616 | (axis_id,axis_hdl) |
---|
[432] | 617 | CALL xios(is_defined_axis_attr_hdl_) & |
---|
[1492] | 618 | ( axis_hdl, axis_ref, axis_type, begin, bounds, bounds_name, comment, data_begin, data_index & |
---|
| 619 | , data_n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, index, label & |
---|
| 620 | , long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name, unit & |
---|
| 621 | , value ) |
---|
[581] | 622 | |
---|
[432] | 623 | END SUBROUTINE xios(is_defined_axis_attr) |
---|
[581] | 624 | |
---|
[432] | 625 | SUBROUTINE xios(is_defined_axis_attr_hdl) & |
---|
[1492] | 626 | ( axis_hdl, axis_ref, axis_type, begin, bounds, bounds_name, comment, data_begin, data_index & |
---|
| 627 | , data_n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, index, label & |
---|
| 628 | , long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name, unit & |
---|
| 629 | , value ) |
---|
[581] | 630 | |
---|
[432] | 631 | IMPLICIT NONE |
---|
| 632 | TYPE(txios(axis)) , INTENT(IN) :: axis_hdl |
---|
[546] | 633 | LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref |
---|
| 634 | LOGICAL(KIND=C_BOOL) :: axis_ref_tmp |
---|
[1492] | 635 | LOGICAL, OPTIONAL, INTENT(OUT) :: axis_type |
---|
| 636 | LOGICAL(KIND=C_BOOL) :: axis_type_tmp |
---|
[666] | 637 | LOGICAL, OPTIONAL, INTENT(OUT) :: begin |
---|
| 638 | LOGICAL(KIND=C_BOOL) :: begin_tmp |
---|
[609] | 639 | LOGICAL, OPTIONAL, INTENT(OUT) :: bounds |
---|
| 640 | LOGICAL(KIND=C_BOOL) :: bounds_tmp |
---|
[1492] | 641 | LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_name |
---|
| 642 | LOGICAL(KIND=C_BOOL) :: bounds_name_tmp |
---|
| 643 | LOGICAL, OPTIONAL, INTENT(OUT) :: comment |
---|
| 644 | LOGICAL(KIND=C_BOOL) :: comment_tmp |
---|
[555] | 645 | LOGICAL, OPTIONAL, INTENT(OUT) :: data_begin |
---|
| 646 | LOGICAL(KIND=C_BOOL) :: data_begin_tmp |
---|
| 647 | LOGICAL, OPTIONAL, INTENT(OUT) :: data_index |
---|
| 648 | LOGICAL(KIND=C_BOOL) :: data_index_tmp |
---|
| 649 | LOGICAL, OPTIONAL, INTENT(OUT) :: data_n |
---|
| 650 | LOGICAL(KIND=C_BOOL) :: data_n_tmp |
---|
[1492] | 651 | LOGICAL, OPTIONAL, INTENT(OUT) :: dim_name |
---|
| 652 | LOGICAL(KIND=C_BOOL) :: dim_name_tmp |
---|
| 653 | LOGICAL, OPTIONAL, INTENT(OUT) :: formula |
---|
| 654 | LOGICAL(KIND=C_BOOL) :: formula_tmp |
---|
| 655 | LOGICAL, OPTIONAL, INTENT(OUT) :: formula_bounds |
---|
| 656 | LOGICAL(KIND=C_BOOL) :: formula_bounds_tmp |
---|
| 657 | LOGICAL, OPTIONAL, INTENT(OUT) :: formula_term |
---|
| 658 | LOGICAL(KIND=C_BOOL) :: formula_term_tmp |
---|
| 659 | LOGICAL, OPTIONAL, INTENT(OUT) :: formula_term_bounds |
---|
| 660 | LOGICAL(KIND=C_BOOL) :: formula_term_bounds_tmp |
---|
[817] | 661 | LOGICAL, OPTIONAL, INTENT(OUT) :: index |
---|
| 662 | LOGICAL(KIND=C_BOOL) :: index_tmp |
---|
[1158] | 663 | LOGICAL, OPTIONAL, INTENT(OUT) :: label |
---|
| 664 | LOGICAL(KIND=C_BOOL) :: label_tmp |
---|
[432] | 665 | LOGICAL, OPTIONAL, INTENT(OUT) :: long_name |
---|
| 666 | LOGICAL(KIND=C_BOOL) :: long_name_tmp |
---|
[555] | 667 | LOGICAL, OPTIONAL, INTENT(OUT) :: mask |
---|
| 668 | LOGICAL(KIND=C_BOOL) :: mask_tmp |
---|
[666] | 669 | LOGICAL, OPTIONAL, INTENT(OUT) :: n |
---|
| 670 | LOGICAL(KIND=C_BOOL) :: n_tmp |
---|
[779] | 671 | LOGICAL, OPTIONAL, INTENT(OUT) :: n_distributed_partition |
---|
| 672 | LOGICAL(KIND=C_BOOL) :: n_distributed_partition_tmp |
---|
[666] | 673 | LOGICAL, OPTIONAL, INTENT(OUT) :: n_glo |
---|
| 674 | LOGICAL(KIND=C_BOOL) :: n_glo_tmp |
---|
[432] | 675 | LOGICAL, OPTIONAL, INTENT(OUT) :: name |
---|
| 676 | LOGICAL(KIND=C_BOOL) :: name_tmp |
---|
| 677 | LOGICAL, OPTIONAL, INTENT(OUT) :: positive |
---|
| 678 | LOGICAL(KIND=C_BOOL) :: positive_tmp |
---|
[1158] | 679 | LOGICAL, OPTIONAL, INTENT(OUT) :: prec |
---|
| 680 | LOGICAL(KIND=C_BOOL) :: prec_tmp |
---|
[432] | 681 | LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name |
---|
| 682 | LOGICAL(KIND=C_BOOL) :: standard_name_tmp |
---|
| 683 | LOGICAL, OPTIONAL, INTENT(OUT) :: unit |
---|
| 684 | LOGICAL(KIND=C_BOOL) :: unit_tmp |
---|
| 685 | LOGICAL, OPTIONAL, INTENT(OUT) :: value |
---|
| 686 | LOGICAL(KIND=C_BOOL) :: value_tmp |
---|
[581] | 687 | |
---|
[432] | 688 | CALL xios(is_defined_axis_attr_hdl_) & |
---|
[1492] | 689 | ( axis_hdl, axis_ref, axis_type, begin, bounds, bounds_name, comment, data_begin, data_index & |
---|
| 690 | , data_n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, index, label & |
---|
| 691 | , long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name, unit & |
---|
| 692 | , value ) |
---|
[581] | 693 | |
---|
[432] | 694 | END SUBROUTINE xios(is_defined_axis_attr_hdl) |
---|
[581] | 695 | |
---|
[432] | 696 | SUBROUTINE xios(is_defined_axis_attr_hdl_) & |
---|
[1492] | 697 | ( axis_hdl, axis_ref_, axis_type_, begin_, bounds_, bounds_name_, comment_, data_begin_, data_index_ & |
---|
| 698 | , data_n_, dim_name_, formula_, formula_bounds_, formula_term_, formula_term_bounds_, index_ & |
---|
| 699 | , label_, long_name_, mask_, n_, n_distributed_partition_, n_glo_, name_, positive_, prec_, standard_name_ & |
---|
| 700 | , unit_, value_ ) |
---|
[581] | 701 | |
---|
[432] | 702 | IMPLICIT NONE |
---|
| 703 | TYPE(txios(axis)) , INTENT(IN) :: axis_hdl |
---|
[546] | 704 | LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref_ |
---|
| 705 | LOGICAL(KIND=C_BOOL) :: axis_ref__tmp |
---|
[1492] | 706 | LOGICAL, OPTIONAL, INTENT(OUT) :: axis_type_ |
---|
| 707 | LOGICAL(KIND=C_BOOL) :: axis_type__tmp |
---|
[666] | 708 | LOGICAL, OPTIONAL, INTENT(OUT) :: begin_ |
---|
| 709 | LOGICAL(KIND=C_BOOL) :: begin__tmp |
---|
[609] | 710 | LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_ |
---|
| 711 | LOGICAL(KIND=C_BOOL) :: bounds__tmp |
---|
[1492] | 712 | LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_name_ |
---|
| 713 | LOGICAL(KIND=C_BOOL) :: bounds_name__tmp |
---|
| 714 | LOGICAL, OPTIONAL, INTENT(OUT) :: comment_ |
---|
| 715 | LOGICAL(KIND=C_BOOL) :: comment__tmp |
---|
[555] | 716 | LOGICAL, OPTIONAL, INTENT(OUT) :: data_begin_ |
---|
| 717 | LOGICAL(KIND=C_BOOL) :: data_begin__tmp |
---|
| 718 | LOGICAL, OPTIONAL, INTENT(OUT) :: data_index_ |
---|
| 719 | LOGICAL(KIND=C_BOOL) :: data_index__tmp |
---|
| 720 | LOGICAL, OPTIONAL, INTENT(OUT) :: data_n_ |
---|
| 721 | LOGICAL(KIND=C_BOOL) :: data_n__tmp |
---|
[1492] | 722 | LOGICAL, OPTIONAL, INTENT(OUT) :: dim_name_ |
---|
| 723 | LOGICAL(KIND=C_BOOL) :: dim_name__tmp |
---|
| 724 | LOGICAL, OPTIONAL, INTENT(OUT) :: formula_ |
---|
| 725 | LOGICAL(KIND=C_BOOL) :: formula__tmp |
---|
| 726 | LOGICAL, OPTIONAL, INTENT(OUT) :: formula_bounds_ |
---|
| 727 | LOGICAL(KIND=C_BOOL) :: formula_bounds__tmp |
---|
| 728 | LOGICAL, OPTIONAL, INTENT(OUT) :: formula_term_ |
---|
| 729 | LOGICAL(KIND=C_BOOL) :: formula_term__tmp |
---|
| 730 | LOGICAL, OPTIONAL, INTENT(OUT) :: formula_term_bounds_ |
---|
| 731 | LOGICAL(KIND=C_BOOL) :: formula_term_bounds__tmp |
---|
[817] | 732 | LOGICAL, OPTIONAL, INTENT(OUT) :: index_ |
---|
| 733 | LOGICAL(KIND=C_BOOL) :: index__tmp |
---|
[1158] | 734 | LOGICAL, OPTIONAL, INTENT(OUT) :: label_ |
---|
| 735 | LOGICAL(KIND=C_BOOL) :: label__tmp |
---|
[432] | 736 | LOGICAL, OPTIONAL, INTENT(OUT) :: long_name_ |
---|
| 737 | LOGICAL(KIND=C_BOOL) :: long_name__tmp |
---|
[555] | 738 | LOGICAL, OPTIONAL, INTENT(OUT) :: mask_ |
---|
| 739 | LOGICAL(KIND=C_BOOL) :: mask__tmp |
---|
[666] | 740 | LOGICAL, OPTIONAL, INTENT(OUT) :: n_ |
---|
| 741 | LOGICAL(KIND=C_BOOL) :: n__tmp |
---|
[779] | 742 | LOGICAL, OPTIONAL, INTENT(OUT) :: n_distributed_partition_ |
---|
| 743 | LOGICAL(KIND=C_BOOL) :: n_distributed_partition__tmp |
---|
[666] | 744 | LOGICAL, OPTIONAL, INTENT(OUT) :: n_glo_ |
---|
| 745 | LOGICAL(KIND=C_BOOL) :: n_glo__tmp |
---|
[432] | 746 | LOGICAL, OPTIONAL, INTENT(OUT) :: name_ |
---|
| 747 | LOGICAL(KIND=C_BOOL) :: name__tmp |
---|
| 748 | LOGICAL, OPTIONAL, INTENT(OUT) :: positive_ |
---|
| 749 | LOGICAL(KIND=C_BOOL) :: positive__tmp |
---|
[1158] | 750 | LOGICAL, OPTIONAL, INTENT(OUT) :: prec_ |
---|
| 751 | LOGICAL(KIND=C_BOOL) :: prec__tmp |
---|
[432] | 752 | LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name_ |
---|
| 753 | LOGICAL(KIND=C_BOOL) :: standard_name__tmp |
---|
| 754 | LOGICAL, OPTIONAL, INTENT(OUT) :: unit_ |
---|
| 755 | LOGICAL(KIND=C_BOOL) :: unit__tmp |
---|
| 756 | LOGICAL, OPTIONAL, INTENT(OUT) :: value_ |
---|
| 757 | LOGICAL(KIND=C_BOOL) :: value__tmp |
---|
[581] | 758 | |
---|
[546] | 759 | IF (PRESENT(axis_ref_)) THEN |
---|
[966] | 760 | axis_ref__tmp = cxios_is_defined_axis_axis_ref & |
---|
| 761 | (axis_hdl%daddr) |
---|
[581] | 762 | axis_ref_ = axis_ref__tmp |
---|
[546] | 763 | ENDIF |
---|
[581] | 764 | |
---|
[1492] | 765 | IF (PRESENT(axis_type_)) THEN |
---|
| 766 | axis_type__tmp = cxios_is_defined_axis_axis_type & |
---|
| 767 | (axis_hdl%daddr) |
---|
| 768 | axis_type_ = axis_type__tmp |
---|
| 769 | ENDIF |
---|
| 770 | |
---|
[666] | 771 | IF (PRESENT(begin_)) THEN |
---|
[966] | 772 | begin__tmp = cxios_is_defined_axis_begin & |
---|
| 773 | (axis_hdl%daddr) |
---|
[666] | 774 | begin_ = begin__tmp |
---|
| 775 | ENDIF |
---|
| 776 | |
---|
[609] | 777 | IF (PRESENT(bounds_)) THEN |
---|
[966] | 778 | bounds__tmp = cxios_is_defined_axis_bounds & |
---|
| 779 | (axis_hdl%daddr) |
---|
[609] | 780 | bounds_ = bounds__tmp |
---|
| 781 | ENDIF |
---|
| 782 | |
---|
[1492] | 783 | IF (PRESENT(bounds_name_)) THEN |
---|
| 784 | bounds_name__tmp = cxios_is_defined_axis_bounds_name & |
---|
| 785 | (axis_hdl%daddr) |
---|
| 786 | bounds_name_ = bounds_name__tmp |
---|
| 787 | ENDIF |
---|
| 788 | |
---|
| 789 | IF (PRESENT(comment_)) THEN |
---|
| 790 | comment__tmp = cxios_is_defined_axis_comment & |
---|
| 791 | (axis_hdl%daddr) |
---|
| 792 | comment_ = comment__tmp |
---|
| 793 | ENDIF |
---|
| 794 | |
---|
[555] | 795 | IF (PRESENT(data_begin_)) THEN |
---|
[966] | 796 | data_begin__tmp = cxios_is_defined_axis_data_begin & |
---|
| 797 | (axis_hdl%daddr) |
---|
[581] | 798 | data_begin_ = data_begin__tmp |
---|
[555] | 799 | ENDIF |
---|
[581] | 800 | |
---|
[555] | 801 | IF (PRESENT(data_index_)) THEN |
---|
[966] | 802 | data_index__tmp = cxios_is_defined_axis_data_index & |
---|
| 803 | (axis_hdl%daddr) |
---|
[581] | 804 | data_index_ = data_index__tmp |
---|
[555] | 805 | ENDIF |
---|
[581] | 806 | |
---|
[555] | 807 | IF (PRESENT(data_n_)) THEN |
---|
[966] | 808 | data_n__tmp = cxios_is_defined_axis_data_n & |
---|
| 809 | (axis_hdl%daddr) |
---|
[581] | 810 | data_n_ = data_n__tmp |
---|
[555] | 811 | ENDIF |
---|
[581] | 812 | |
---|
[1492] | 813 | IF (PRESENT(dim_name_)) THEN |
---|
| 814 | dim_name__tmp = cxios_is_defined_axis_dim_name & |
---|
| 815 | (axis_hdl%daddr) |
---|
| 816 | dim_name_ = dim_name__tmp |
---|
| 817 | ENDIF |
---|
| 818 | |
---|
| 819 | IF (PRESENT(formula_)) THEN |
---|
| 820 | formula__tmp = cxios_is_defined_axis_formula & |
---|
| 821 | (axis_hdl%daddr) |
---|
| 822 | formula_ = formula__tmp |
---|
| 823 | ENDIF |
---|
| 824 | |
---|
| 825 | IF (PRESENT(formula_bounds_)) THEN |
---|
| 826 | formula_bounds__tmp = cxios_is_defined_axis_formula_bounds & |
---|
| 827 | (axis_hdl%daddr) |
---|
| 828 | formula_bounds_ = formula_bounds__tmp |
---|
| 829 | ENDIF |
---|
| 830 | |
---|
| 831 | IF (PRESENT(formula_term_)) THEN |
---|
| 832 | formula_term__tmp = cxios_is_defined_axis_formula_term & |
---|
| 833 | (axis_hdl%daddr) |
---|
| 834 | formula_term_ = formula_term__tmp |
---|
| 835 | ENDIF |
---|
| 836 | |
---|
| 837 | IF (PRESENT(formula_term_bounds_)) THEN |
---|
| 838 | formula_term_bounds__tmp = cxios_is_defined_axis_formula_term_bounds & |
---|
| 839 | (axis_hdl%daddr) |
---|
| 840 | formula_term_bounds_ = formula_term_bounds__tmp |
---|
| 841 | ENDIF |
---|
| 842 | |
---|
[817] | 843 | IF (PRESENT(index_)) THEN |
---|
[966] | 844 | index__tmp = cxios_is_defined_axis_index & |
---|
| 845 | (axis_hdl%daddr) |
---|
[817] | 846 | index_ = index__tmp |
---|
| 847 | ENDIF |
---|
| 848 | |
---|
[1158] | 849 | IF (PRESENT(label_)) THEN |
---|
| 850 | label__tmp = cxios_is_defined_axis_label & |
---|
| 851 | (axis_hdl%daddr) |
---|
| 852 | label_ = label__tmp |
---|
| 853 | ENDIF |
---|
| 854 | |
---|
[432] | 855 | IF (PRESENT(long_name_)) THEN |
---|
[966] | 856 | long_name__tmp = cxios_is_defined_axis_long_name & |
---|
| 857 | (axis_hdl%daddr) |
---|
[581] | 858 | long_name_ = long_name__tmp |
---|
[432] | 859 | ENDIF |
---|
[581] | 860 | |
---|
[555] | 861 | IF (PRESENT(mask_)) THEN |
---|
[966] | 862 | mask__tmp = cxios_is_defined_axis_mask & |
---|
| 863 | (axis_hdl%daddr) |
---|
[581] | 864 | mask_ = mask__tmp |
---|
[555] | 865 | ENDIF |
---|
[581] | 866 | |
---|
[666] | 867 | IF (PRESENT(n_)) THEN |
---|
[966] | 868 | n__tmp = cxios_is_defined_axis_n & |
---|
| 869 | (axis_hdl%daddr) |
---|
[666] | 870 | n_ = n__tmp |
---|
| 871 | ENDIF |
---|
| 872 | |
---|
[779] | 873 | IF (PRESENT(n_distributed_partition_)) THEN |
---|
[966] | 874 | n_distributed_partition__tmp = cxios_is_defined_axis_n_distributed_partition & |
---|
| 875 | (axis_hdl%daddr) |
---|
[779] | 876 | n_distributed_partition_ = n_distributed_partition__tmp |
---|
| 877 | ENDIF |
---|
| 878 | |
---|
[666] | 879 | IF (PRESENT(n_glo_)) THEN |
---|
[966] | 880 | n_glo__tmp = cxios_is_defined_axis_n_glo & |
---|
| 881 | (axis_hdl%daddr) |
---|
[666] | 882 | n_glo_ = n_glo__tmp |
---|
| 883 | ENDIF |
---|
| 884 | |
---|
[432] | 885 | IF (PRESENT(name_)) THEN |
---|
[966] | 886 | name__tmp = cxios_is_defined_axis_name & |
---|
| 887 | (axis_hdl%daddr) |
---|
[581] | 888 | name_ = name__tmp |
---|
[432] | 889 | ENDIF |
---|
[581] | 890 | |
---|
[432] | 891 | IF (PRESENT(positive_)) THEN |
---|
[966] | 892 | positive__tmp = cxios_is_defined_axis_positive & |
---|
| 893 | (axis_hdl%daddr) |
---|
[581] | 894 | positive_ = positive__tmp |
---|
[432] | 895 | ENDIF |
---|
[581] | 896 | |
---|
[1158] | 897 | IF (PRESENT(prec_)) THEN |
---|
| 898 | prec__tmp = cxios_is_defined_axis_prec & |
---|
| 899 | (axis_hdl%daddr) |
---|
| 900 | prec_ = prec__tmp |
---|
| 901 | ENDIF |
---|
| 902 | |
---|
[432] | 903 | IF (PRESENT(standard_name_)) THEN |
---|
[966] | 904 | standard_name__tmp = cxios_is_defined_axis_standard_name & |
---|
| 905 | (axis_hdl%daddr) |
---|
[581] | 906 | standard_name_ = standard_name__tmp |
---|
[432] | 907 | ENDIF |
---|
[581] | 908 | |
---|
[432] | 909 | IF (PRESENT(unit_)) THEN |
---|
[966] | 910 | unit__tmp = cxios_is_defined_axis_unit & |
---|
| 911 | (axis_hdl%daddr) |
---|
[581] | 912 | unit_ = unit__tmp |
---|
[432] | 913 | ENDIF |
---|
[581] | 914 | |
---|
[432] | 915 | IF (PRESENT(value_)) THEN |
---|
[966] | 916 | value__tmp = cxios_is_defined_axis_value & |
---|
| 917 | (axis_hdl%daddr) |
---|
[581] | 918 | value_ = value__tmp |
---|
[432] | 919 | ENDIF |
---|
[581] | 920 | |
---|
[432] | 921 | END SUBROUTINE xios(is_defined_axis_attr_hdl_) |
---|
[581] | 922 | |
---|
[326] | 923 | END MODULE iaxis_attr |
---|