[326] | 1 | ! * ************************************************************************** * |
---|
| 2 | ! * Interface auto generated - do not modify * |
---|
| 3 | ! * ************************************************************************** * |
---|
| 4 | #include "xios_fortran_prefix.hpp" |
---|
| 5 | |
---|
| 6 | MODULE ifield_attr |
---|
| 7 | USE, INTRINSIC :: ISO_C_BINDING |
---|
| 8 | USE ifield |
---|
| 9 | USE field_interface_attr |
---|
[581] | 10 | |
---|
[326] | 11 | CONTAINS |
---|
[581] | 12 | |
---|
[326] | 13 | SUBROUTINE xios(set_field_attr) & |
---|
[1201] | 14 | ( field_id, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, compression_level & |
---|
| 15 | , default_value, detect_missing_value, domain_ref, enabled, expr, field_ref, freq_offset, freq_op & |
---|
| 16 | , grid_path, grid_ref, indexed_output, level, long_name, name, operation, prec, read_access & |
---|
| 17 | , scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit, valid_max, valid_min & |
---|
| 18 | ) |
---|
[581] | 19 | |
---|
[326] | 20 | IMPLICIT NONE |
---|
| 21 | TYPE(txios(field)) :: field_hdl |
---|
| 22 | CHARACTER(LEN=*), INTENT(IN) ::field_id |
---|
[464] | 23 | REAL (KIND=8) , OPTIONAL, INTENT(IN) :: add_offset |
---|
[326] | 24 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref |
---|
[1021] | 25 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: cell_methods |
---|
| 26 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: cell_methods_mode |
---|
[1201] | 27 | LOGICAL , OPTIONAL, INTENT(IN) :: check_if_active |
---|
| 28 | LOGICAL (KIND=C_BOOL) :: check_if_active_tmp |
---|
[608] | 29 | INTEGER , OPTIONAL, INTENT(IN) :: compression_level |
---|
[326] | 30 | REAL (KIND=8) , OPTIONAL, INTENT(IN) :: default_value |
---|
[472] | 31 | LOGICAL , OPTIONAL, INTENT(IN) :: detect_missing_value |
---|
| 32 | LOGICAL (KIND=C_BOOL) :: detect_missing_value_tmp |
---|
[326] | 33 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref |
---|
| 34 | LOGICAL , OPTIONAL, INTENT(IN) :: enabled |
---|
| 35 | LOGICAL (KIND=C_BOOL) :: enabled_tmp |
---|
[1021] | 36 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: expr |
---|
[326] | 37 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: field_ref |
---|
[538] | 38 | TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: freq_offset |
---|
| 39 | TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: freq_op |
---|
[790] | 40 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: grid_path |
---|
[326] | 41 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: grid_ref |
---|
[676] | 42 | LOGICAL , OPTIONAL, INTENT(IN) :: indexed_output |
---|
| 43 | LOGICAL (KIND=C_BOOL) :: indexed_output_tmp |
---|
[326] | 44 | INTEGER , OPTIONAL, INTENT(IN) :: level |
---|
| 45 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name |
---|
| 46 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name |
---|
| 47 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: operation |
---|
| 48 | INTEGER , OPTIONAL, INTENT(IN) :: prec |
---|
[593] | 49 | LOGICAL , OPTIONAL, INTENT(IN) :: read_access |
---|
| 50 | LOGICAL (KIND=C_BOOL) :: read_access_tmp |
---|
[891] | 51 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: scalar_ref |
---|
[464] | 52 | REAL (KIND=8) , OPTIONAL, INTENT(IN) :: scale_factor |
---|
[326] | 53 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name |
---|
[711] | 54 | LOGICAL , OPTIONAL, INTENT(IN) :: ts_enabled |
---|
| 55 | LOGICAL (KIND=C_BOOL) :: ts_enabled_tmp |
---|
| 56 | TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: ts_split_freq |
---|
[326] | 57 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: unit |
---|
[463] | 58 | REAL (KIND=8) , OPTIONAL, INTENT(IN) :: valid_max |
---|
| 59 | REAL (KIND=8) , OPTIONAL, INTENT(IN) :: valid_min |
---|
[581] | 60 | |
---|
[966] | 61 | CALL xios(get_field_handle) & |
---|
| 62 | (field_id,field_hdl) |
---|
[326] | 63 | CALL xios(set_field_attr_hdl_) & |
---|
[1201] | 64 | ( field_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, compression_level & |
---|
| 65 | , default_value, detect_missing_value, domain_ref, enabled, expr, field_ref, freq_offset, freq_op & |
---|
| 66 | , grid_path, grid_ref, indexed_output, level, long_name, name, operation, prec, read_access & |
---|
| 67 | , scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit, valid_max, valid_min & |
---|
| 68 | ) |
---|
[581] | 69 | |
---|
[326] | 70 | END SUBROUTINE xios(set_field_attr) |
---|
[581] | 71 | |
---|
[326] | 72 | SUBROUTINE xios(set_field_attr_hdl) & |
---|
[1201] | 73 | ( field_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, compression_level & |
---|
| 74 | , default_value, detect_missing_value, domain_ref, enabled, expr, field_ref, freq_offset, freq_op & |
---|
| 75 | , grid_path, grid_ref, indexed_output, level, long_name, name, operation, prec, read_access & |
---|
| 76 | , scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit, valid_max, valid_min & |
---|
| 77 | ) |
---|
[581] | 78 | |
---|
[326] | 79 | IMPLICIT NONE |
---|
| 80 | TYPE(txios(field)) , INTENT(IN) :: field_hdl |
---|
[464] | 81 | REAL (KIND=8) , OPTIONAL, INTENT(IN) :: add_offset |
---|
[326] | 82 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref |
---|
[1021] | 83 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: cell_methods |
---|
| 84 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: cell_methods_mode |
---|
[1201] | 85 | LOGICAL , OPTIONAL, INTENT(IN) :: check_if_active |
---|
| 86 | LOGICAL (KIND=C_BOOL) :: check_if_active_tmp |
---|
[608] | 87 | INTEGER , OPTIONAL, INTENT(IN) :: compression_level |
---|
[326] | 88 | REAL (KIND=8) , OPTIONAL, INTENT(IN) :: default_value |
---|
[472] | 89 | LOGICAL , OPTIONAL, INTENT(IN) :: detect_missing_value |
---|
| 90 | LOGICAL (KIND=C_BOOL) :: detect_missing_value_tmp |
---|
[326] | 91 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref |
---|
| 92 | LOGICAL , OPTIONAL, INTENT(IN) :: enabled |
---|
| 93 | LOGICAL (KIND=C_BOOL) :: enabled_tmp |
---|
[1021] | 94 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: expr |
---|
[326] | 95 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: field_ref |
---|
[538] | 96 | TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: freq_offset |
---|
| 97 | TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: freq_op |
---|
[790] | 98 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: grid_path |
---|
[326] | 99 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: grid_ref |
---|
[676] | 100 | LOGICAL , OPTIONAL, INTENT(IN) :: indexed_output |
---|
| 101 | LOGICAL (KIND=C_BOOL) :: indexed_output_tmp |
---|
[326] | 102 | INTEGER , OPTIONAL, INTENT(IN) :: level |
---|
| 103 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name |
---|
| 104 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name |
---|
| 105 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: operation |
---|
| 106 | INTEGER , OPTIONAL, INTENT(IN) :: prec |
---|
[593] | 107 | LOGICAL , OPTIONAL, INTENT(IN) :: read_access |
---|
| 108 | LOGICAL (KIND=C_BOOL) :: read_access_tmp |
---|
[891] | 109 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: scalar_ref |
---|
[464] | 110 | REAL (KIND=8) , OPTIONAL, INTENT(IN) :: scale_factor |
---|
[326] | 111 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name |
---|
[711] | 112 | LOGICAL , OPTIONAL, INTENT(IN) :: ts_enabled |
---|
| 113 | LOGICAL (KIND=C_BOOL) :: ts_enabled_tmp |
---|
| 114 | TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: ts_split_freq |
---|
[326] | 115 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: unit |
---|
[463] | 116 | REAL (KIND=8) , OPTIONAL, INTENT(IN) :: valid_max |
---|
| 117 | REAL (KIND=8) , OPTIONAL, INTENT(IN) :: valid_min |
---|
[581] | 118 | |
---|
[326] | 119 | CALL xios(set_field_attr_hdl_) & |
---|
[1201] | 120 | ( field_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, compression_level & |
---|
| 121 | , default_value, detect_missing_value, domain_ref, enabled, expr, field_ref, freq_offset, freq_op & |
---|
| 122 | , grid_path, grid_ref, indexed_output, level, long_name, name, operation, prec, read_access & |
---|
| 123 | , scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit, valid_max, valid_min & |
---|
| 124 | ) |
---|
[581] | 125 | |
---|
[326] | 126 | END SUBROUTINE xios(set_field_attr_hdl) |
---|
[581] | 127 | |
---|
[326] | 128 | SUBROUTINE xios(set_field_attr_hdl_) & |
---|
[1201] | 129 | ( field_hdl, add_offset_, axis_ref_, cell_methods_, cell_methods_mode_, check_if_active_, compression_level_ & |
---|
| 130 | , default_value_, detect_missing_value_, domain_ref_, enabled_, expr_, field_ref_, freq_offset_ & |
---|
| 131 | , freq_op_, grid_path_, grid_ref_, indexed_output_, level_, long_name_, name_, operation_, prec_ & |
---|
| 132 | , read_access_, scalar_ref_, scale_factor_, standard_name_, ts_enabled_, ts_split_freq_, unit_ & |
---|
| 133 | , valid_max_, valid_min_ ) |
---|
[581] | 134 | |
---|
[326] | 135 | IMPLICIT NONE |
---|
| 136 | TYPE(txios(field)) , INTENT(IN) :: field_hdl |
---|
[464] | 137 | REAL (KIND=8) , OPTIONAL, INTENT(IN) :: add_offset_ |
---|
[326] | 138 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref_ |
---|
[1021] | 139 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: cell_methods_ |
---|
| 140 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: cell_methods_mode_ |
---|
[1201] | 141 | LOGICAL , OPTIONAL, INTENT(IN) :: check_if_active_ |
---|
| 142 | LOGICAL (KIND=C_BOOL) :: check_if_active__tmp |
---|
[608] | 143 | INTEGER , OPTIONAL, INTENT(IN) :: compression_level_ |
---|
[326] | 144 | REAL (KIND=8) , OPTIONAL, INTENT(IN) :: default_value_ |
---|
[472] | 145 | LOGICAL , OPTIONAL, INTENT(IN) :: detect_missing_value_ |
---|
| 146 | LOGICAL (KIND=C_BOOL) :: detect_missing_value__tmp |
---|
[326] | 147 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref_ |
---|
| 148 | LOGICAL , OPTIONAL, INTENT(IN) :: enabled_ |
---|
| 149 | LOGICAL (KIND=C_BOOL) :: enabled__tmp |
---|
[1021] | 150 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: expr_ |
---|
[326] | 151 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: field_ref_ |
---|
[538] | 152 | TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: freq_offset_ |
---|
| 153 | TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: freq_op_ |
---|
[790] | 154 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: grid_path_ |
---|
[326] | 155 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: grid_ref_ |
---|
[676] | 156 | LOGICAL , OPTIONAL, INTENT(IN) :: indexed_output_ |
---|
| 157 | LOGICAL (KIND=C_BOOL) :: indexed_output__tmp |
---|
[326] | 158 | INTEGER , OPTIONAL, INTENT(IN) :: level_ |
---|
| 159 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name_ |
---|
| 160 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_ |
---|
| 161 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: operation_ |
---|
| 162 | INTEGER , OPTIONAL, INTENT(IN) :: prec_ |
---|
[593] | 163 | LOGICAL , OPTIONAL, INTENT(IN) :: read_access_ |
---|
| 164 | LOGICAL (KIND=C_BOOL) :: read_access__tmp |
---|
[891] | 165 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: scalar_ref_ |
---|
[464] | 166 | REAL (KIND=8) , OPTIONAL, INTENT(IN) :: scale_factor_ |
---|
[326] | 167 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name_ |
---|
[711] | 168 | LOGICAL , OPTIONAL, INTENT(IN) :: ts_enabled_ |
---|
| 169 | LOGICAL (KIND=C_BOOL) :: ts_enabled__tmp |
---|
| 170 | TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: ts_split_freq_ |
---|
[326] | 171 | CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: unit_ |
---|
[463] | 172 | REAL (KIND=8) , OPTIONAL, INTENT(IN) :: valid_max_ |
---|
| 173 | REAL (KIND=8) , OPTIONAL, INTENT(IN) :: valid_min_ |
---|
[581] | 174 | |
---|
[464] | 175 | IF (PRESENT(add_offset_)) THEN |
---|
[966] | 176 | CALL cxios_set_field_add_offset & |
---|
| 177 | (field_hdl%daddr, add_offset_) |
---|
[464] | 178 | ENDIF |
---|
[581] | 179 | |
---|
[326] | 180 | IF (PRESENT(axis_ref_)) THEN |
---|
[966] | 181 | CALL cxios_set_field_axis_ref & |
---|
| 182 | (field_hdl%daddr, axis_ref_, len(axis_ref_)) |
---|
[326] | 183 | ENDIF |
---|
[581] | 184 | |
---|
[1021] | 185 | IF (PRESENT(cell_methods_)) THEN |
---|
| 186 | CALL cxios_set_field_cell_methods & |
---|
| 187 | (field_hdl%daddr, cell_methods_, len(cell_methods_)) |
---|
| 188 | ENDIF |
---|
| 189 | |
---|
| 190 | IF (PRESENT(cell_methods_mode_)) THEN |
---|
| 191 | CALL cxios_set_field_cell_methods_mode & |
---|
| 192 | (field_hdl%daddr, cell_methods_mode_, len(cell_methods_mode_)) |
---|
| 193 | ENDIF |
---|
| 194 | |
---|
[1201] | 195 | IF (PRESENT(check_if_active_)) THEN |
---|
| 196 | check_if_active__tmp = check_if_active_ |
---|
| 197 | CALL cxios_set_field_check_if_active & |
---|
| 198 | (field_hdl%daddr, check_if_active__tmp) |
---|
| 199 | ENDIF |
---|
| 200 | |
---|
[608] | 201 | IF (PRESENT(compression_level_)) THEN |
---|
[966] | 202 | CALL cxios_set_field_compression_level & |
---|
| 203 | (field_hdl%daddr, compression_level_) |
---|
[608] | 204 | ENDIF |
---|
| 205 | |
---|
[326] | 206 | IF (PRESENT(default_value_)) THEN |
---|
[966] | 207 | CALL cxios_set_field_default_value & |
---|
| 208 | (field_hdl%daddr, default_value_) |
---|
[326] | 209 | ENDIF |
---|
[581] | 210 | |
---|
[472] | 211 | IF (PRESENT(detect_missing_value_)) THEN |
---|
[581] | 212 | detect_missing_value__tmp = detect_missing_value_ |
---|
[966] | 213 | CALL cxios_set_field_detect_missing_value & |
---|
| 214 | (field_hdl%daddr, detect_missing_value__tmp) |
---|
[472] | 215 | ENDIF |
---|
[581] | 216 | |
---|
[326] | 217 | IF (PRESENT(domain_ref_)) THEN |
---|
[966] | 218 | CALL cxios_set_field_domain_ref & |
---|
| 219 | (field_hdl%daddr, domain_ref_, len(domain_ref_)) |
---|
[326] | 220 | ENDIF |
---|
[581] | 221 | |
---|
[326] | 222 | IF (PRESENT(enabled_)) THEN |
---|
[581] | 223 | enabled__tmp = enabled_ |
---|
[966] | 224 | CALL cxios_set_field_enabled & |
---|
| 225 | (field_hdl%daddr, enabled__tmp) |
---|
[326] | 226 | ENDIF |
---|
[581] | 227 | |
---|
[1021] | 228 | IF (PRESENT(expr_)) THEN |
---|
| 229 | CALL cxios_set_field_expr & |
---|
| 230 | (field_hdl%daddr, expr_, len(expr_)) |
---|
| 231 | ENDIF |
---|
| 232 | |
---|
[326] | 233 | IF (PRESENT(field_ref_)) THEN |
---|
[966] | 234 | CALL cxios_set_field_field_ref & |
---|
| 235 | (field_hdl%daddr, field_ref_, len(field_ref_)) |
---|
[326] | 236 | ENDIF |
---|
[581] | 237 | |
---|
[326] | 238 | IF (PRESENT(freq_offset_)) THEN |
---|
[966] | 239 | CALL cxios_set_field_freq_offset & |
---|
| 240 | (field_hdl%daddr, freq_offset_) |
---|
[326] | 241 | ENDIF |
---|
[581] | 242 | |
---|
[326] | 243 | IF (PRESENT(freq_op_)) THEN |
---|
[966] | 244 | CALL cxios_set_field_freq_op & |
---|
| 245 | (field_hdl%daddr, freq_op_) |
---|
[326] | 246 | ENDIF |
---|
[581] | 247 | |
---|
[790] | 248 | IF (PRESENT(grid_path_)) THEN |
---|
[966] | 249 | CALL cxios_set_field_grid_path & |
---|
| 250 | (field_hdl%daddr, grid_path_, len(grid_path_)) |
---|
[790] | 251 | ENDIF |
---|
| 252 | |
---|
[326] | 253 | IF (PRESENT(grid_ref_)) THEN |
---|
[966] | 254 | CALL cxios_set_field_grid_ref & |
---|
| 255 | (field_hdl%daddr, grid_ref_, len(grid_ref_)) |
---|
[326] | 256 | ENDIF |
---|
[581] | 257 | |
---|
[676] | 258 | IF (PRESENT(indexed_output_)) THEN |
---|
| 259 | indexed_output__tmp = indexed_output_ |
---|
[966] | 260 | CALL cxios_set_field_indexed_output & |
---|
| 261 | (field_hdl%daddr, indexed_output__tmp) |
---|
[676] | 262 | ENDIF |
---|
| 263 | |
---|
[326] | 264 | IF (PRESENT(level_)) THEN |
---|
[966] | 265 | CALL cxios_set_field_level & |
---|
| 266 | (field_hdl%daddr, level_) |
---|
[326] | 267 | ENDIF |
---|
[581] | 268 | |
---|
[326] | 269 | IF (PRESENT(long_name_)) THEN |
---|
[966] | 270 | CALL cxios_set_field_long_name & |
---|
| 271 | (field_hdl%daddr, long_name_, len(long_name_)) |
---|
[326] | 272 | ENDIF |
---|
[581] | 273 | |
---|
[326] | 274 | IF (PRESENT(name_)) THEN |
---|
[966] | 275 | CALL cxios_set_field_name & |
---|
| 276 | (field_hdl%daddr, name_, len(name_)) |
---|
[326] | 277 | ENDIF |
---|
[581] | 278 | |
---|
[326] | 279 | IF (PRESENT(operation_)) THEN |
---|
[966] | 280 | CALL cxios_set_field_operation & |
---|
| 281 | (field_hdl%daddr, operation_, len(operation_)) |
---|
[326] | 282 | ENDIF |
---|
[581] | 283 | |
---|
[326] | 284 | IF (PRESENT(prec_)) THEN |
---|
[966] | 285 | CALL cxios_set_field_prec & |
---|
| 286 | (field_hdl%daddr, prec_) |
---|
[326] | 287 | ENDIF |
---|
[581] | 288 | |
---|
[593] | 289 | IF (PRESENT(read_access_)) THEN |
---|
| 290 | read_access__tmp = read_access_ |
---|
[966] | 291 | CALL cxios_set_field_read_access & |
---|
| 292 | (field_hdl%daddr, read_access__tmp) |
---|
[593] | 293 | ENDIF |
---|
| 294 | |
---|
[891] | 295 | IF (PRESENT(scalar_ref_)) THEN |
---|
[966] | 296 | CALL cxios_set_field_scalar_ref & |
---|
| 297 | (field_hdl%daddr, scalar_ref_, len(scalar_ref_)) |
---|
[891] | 298 | ENDIF |
---|
| 299 | |
---|
[464] | 300 | IF (PRESENT(scale_factor_)) THEN |
---|
[966] | 301 | CALL cxios_set_field_scale_factor & |
---|
| 302 | (field_hdl%daddr, scale_factor_) |
---|
[464] | 303 | ENDIF |
---|
[581] | 304 | |
---|
[326] | 305 | IF (PRESENT(standard_name_)) THEN |
---|
[966] | 306 | CALL cxios_set_field_standard_name & |
---|
| 307 | (field_hdl%daddr, standard_name_, len(standard_name_)) |
---|
[326] | 308 | ENDIF |
---|
[581] | 309 | |
---|
[711] | 310 | IF (PRESENT(ts_enabled_)) THEN |
---|
| 311 | ts_enabled__tmp = ts_enabled_ |
---|
[966] | 312 | CALL cxios_set_field_ts_enabled & |
---|
| 313 | (field_hdl%daddr, ts_enabled__tmp) |
---|
[711] | 314 | ENDIF |
---|
| 315 | |
---|
| 316 | IF (PRESENT(ts_split_freq_)) THEN |
---|
[966] | 317 | CALL cxios_set_field_ts_split_freq & |
---|
| 318 | (field_hdl%daddr, ts_split_freq_) |
---|
[711] | 319 | ENDIF |
---|
| 320 | |
---|
[326] | 321 | IF (PRESENT(unit_)) THEN |
---|
[966] | 322 | CALL cxios_set_field_unit & |
---|
| 323 | (field_hdl%daddr, unit_, len(unit_)) |
---|
[326] | 324 | ENDIF |
---|
[581] | 325 | |
---|
[463] | 326 | IF (PRESENT(valid_max_)) THEN |
---|
[966] | 327 | CALL cxios_set_field_valid_max & |
---|
| 328 | (field_hdl%daddr, valid_max_) |
---|
[463] | 329 | ENDIF |
---|
[581] | 330 | |
---|
[463] | 331 | IF (PRESENT(valid_min_)) THEN |
---|
[966] | 332 | CALL cxios_set_field_valid_min & |
---|
| 333 | (field_hdl%daddr, valid_min_) |
---|
[463] | 334 | ENDIF |
---|
[581] | 335 | |
---|
[326] | 336 | END SUBROUTINE xios(set_field_attr_hdl_) |
---|
[581] | 337 | |
---|
[326] | 338 | SUBROUTINE xios(get_field_attr) & |
---|
[1201] | 339 | ( field_id, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, compression_level & |
---|
| 340 | , default_value, detect_missing_value, domain_ref, enabled, expr, field_ref, freq_offset, freq_op & |
---|
| 341 | , grid_path, grid_ref, indexed_output, level, long_name, name, operation, prec, read_access & |
---|
| 342 | , scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit, valid_max, valid_min & |
---|
| 343 | ) |
---|
[581] | 344 | |
---|
[326] | 345 | IMPLICIT NONE |
---|
| 346 | TYPE(txios(field)) :: field_hdl |
---|
| 347 | CHARACTER(LEN=*), INTENT(IN) ::field_id |
---|
[464] | 348 | REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: add_offset |
---|
[326] | 349 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref |
---|
[1021] | 350 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: cell_methods |
---|
| 351 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: cell_methods_mode |
---|
[1201] | 352 | LOGICAL , OPTIONAL, INTENT(OUT) :: check_if_active |
---|
| 353 | LOGICAL (KIND=C_BOOL) :: check_if_active_tmp |
---|
[608] | 354 | INTEGER , OPTIONAL, INTENT(OUT) :: compression_level |
---|
[326] | 355 | REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: default_value |
---|
[472] | 356 | LOGICAL , OPTIONAL, INTENT(OUT) :: detect_missing_value |
---|
| 357 | LOGICAL (KIND=C_BOOL) :: detect_missing_value_tmp |
---|
[326] | 358 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref |
---|
| 359 | LOGICAL , OPTIONAL, INTENT(OUT) :: enabled |
---|
| 360 | LOGICAL (KIND=C_BOOL) :: enabled_tmp |
---|
[1021] | 361 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: expr |
---|
[326] | 362 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: field_ref |
---|
[538] | 363 | TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: freq_offset |
---|
| 364 | TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: freq_op |
---|
[790] | 365 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: grid_path |
---|
[326] | 366 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: grid_ref |
---|
[676] | 367 | LOGICAL , OPTIONAL, INTENT(OUT) :: indexed_output |
---|
| 368 | LOGICAL (KIND=C_BOOL) :: indexed_output_tmp |
---|
[326] | 369 | INTEGER , OPTIONAL, INTENT(OUT) :: level |
---|
| 370 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name |
---|
| 371 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name |
---|
| 372 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: operation |
---|
| 373 | INTEGER , OPTIONAL, INTENT(OUT) :: prec |
---|
[593] | 374 | LOGICAL , OPTIONAL, INTENT(OUT) :: read_access |
---|
| 375 | LOGICAL (KIND=C_BOOL) :: read_access_tmp |
---|
[891] | 376 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: scalar_ref |
---|
[464] | 377 | REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: scale_factor |
---|
[326] | 378 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name |
---|
[711] | 379 | LOGICAL , OPTIONAL, INTENT(OUT) :: ts_enabled |
---|
| 380 | LOGICAL (KIND=C_BOOL) :: ts_enabled_tmp |
---|
| 381 | TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: ts_split_freq |
---|
[326] | 382 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: unit |
---|
[463] | 383 | REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: valid_max |
---|
| 384 | REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: valid_min |
---|
[581] | 385 | |
---|
[966] | 386 | CALL xios(get_field_handle) & |
---|
| 387 | (field_id,field_hdl) |
---|
[326] | 388 | CALL xios(get_field_attr_hdl_) & |
---|
[1201] | 389 | ( field_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, compression_level & |
---|
| 390 | , default_value, detect_missing_value, domain_ref, enabled, expr, field_ref, freq_offset, freq_op & |
---|
| 391 | , grid_path, grid_ref, indexed_output, level, long_name, name, operation, prec, read_access & |
---|
| 392 | , scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit, valid_max, valid_min & |
---|
| 393 | ) |
---|
[581] | 394 | |
---|
[326] | 395 | END SUBROUTINE xios(get_field_attr) |
---|
[581] | 396 | |
---|
[326] | 397 | SUBROUTINE xios(get_field_attr_hdl) & |
---|
[1201] | 398 | ( field_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, compression_level & |
---|
| 399 | , default_value, detect_missing_value, domain_ref, enabled, expr, field_ref, freq_offset, freq_op & |
---|
| 400 | , grid_path, grid_ref, indexed_output, level, long_name, name, operation, prec, read_access & |
---|
| 401 | , scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit, valid_max, valid_min & |
---|
| 402 | ) |
---|
[581] | 403 | |
---|
[326] | 404 | IMPLICIT NONE |
---|
| 405 | TYPE(txios(field)) , INTENT(IN) :: field_hdl |
---|
[464] | 406 | REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: add_offset |
---|
[326] | 407 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref |
---|
[1021] | 408 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: cell_methods |
---|
| 409 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: cell_methods_mode |
---|
[1201] | 410 | LOGICAL , OPTIONAL, INTENT(OUT) :: check_if_active |
---|
| 411 | LOGICAL (KIND=C_BOOL) :: check_if_active_tmp |
---|
[608] | 412 | INTEGER , OPTIONAL, INTENT(OUT) :: compression_level |
---|
[326] | 413 | REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: default_value |
---|
[472] | 414 | LOGICAL , OPTIONAL, INTENT(OUT) :: detect_missing_value |
---|
| 415 | LOGICAL (KIND=C_BOOL) :: detect_missing_value_tmp |
---|
[326] | 416 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref |
---|
| 417 | LOGICAL , OPTIONAL, INTENT(OUT) :: enabled |
---|
| 418 | LOGICAL (KIND=C_BOOL) :: enabled_tmp |
---|
[1021] | 419 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: expr |
---|
[326] | 420 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: field_ref |
---|
[538] | 421 | TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: freq_offset |
---|
| 422 | TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: freq_op |
---|
[790] | 423 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: grid_path |
---|
[326] | 424 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: grid_ref |
---|
[676] | 425 | LOGICAL , OPTIONAL, INTENT(OUT) :: indexed_output |
---|
| 426 | LOGICAL (KIND=C_BOOL) :: indexed_output_tmp |
---|
[326] | 427 | INTEGER , OPTIONAL, INTENT(OUT) :: level |
---|
| 428 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name |
---|
| 429 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name |
---|
| 430 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: operation |
---|
| 431 | INTEGER , OPTIONAL, INTENT(OUT) :: prec |
---|
[593] | 432 | LOGICAL , OPTIONAL, INTENT(OUT) :: read_access |
---|
| 433 | LOGICAL (KIND=C_BOOL) :: read_access_tmp |
---|
[891] | 434 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: scalar_ref |
---|
[464] | 435 | REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: scale_factor |
---|
[326] | 436 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name |
---|
[711] | 437 | LOGICAL , OPTIONAL, INTENT(OUT) :: ts_enabled |
---|
| 438 | LOGICAL (KIND=C_BOOL) :: ts_enabled_tmp |
---|
| 439 | TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: ts_split_freq |
---|
[326] | 440 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: unit |
---|
[463] | 441 | REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: valid_max |
---|
| 442 | REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: valid_min |
---|
[581] | 443 | |
---|
[326] | 444 | CALL xios(get_field_attr_hdl_) & |
---|
[1201] | 445 | ( field_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, compression_level & |
---|
| 446 | , default_value, detect_missing_value, domain_ref, enabled, expr, field_ref, freq_offset, freq_op & |
---|
| 447 | , grid_path, grid_ref, indexed_output, level, long_name, name, operation, prec, read_access & |
---|
| 448 | , scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit, valid_max, valid_min & |
---|
| 449 | ) |
---|
[581] | 450 | |
---|
[326] | 451 | END SUBROUTINE xios(get_field_attr_hdl) |
---|
[581] | 452 | |
---|
[326] | 453 | SUBROUTINE xios(get_field_attr_hdl_) & |
---|
[1201] | 454 | ( field_hdl, add_offset_, axis_ref_, cell_methods_, cell_methods_mode_, check_if_active_, compression_level_ & |
---|
| 455 | , default_value_, detect_missing_value_, domain_ref_, enabled_, expr_, field_ref_, freq_offset_ & |
---|
| 456 | , freq_op_, grid_path_, grid_ref_, indexed_output_, level_, long_name_, name_, operation_, prec_ & |
---|
| 457 | , read_access_, scalar_ref_, scale_factor_, standard_name_, ts_enabled_, ts_split_freq_, unit_ & |
---|
| 458 | , valid_max_, valid_min_ ) |
---|
[581] | 459 | |
---|
[326] | 460 | IMPLICIT NONE |
---|
| 461 | TYPE(txios(field)) , INTENT(IN) :: field_hdl |
---|
[464] | 462 | REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: add_offset_ |
---|
[326] | 463 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref_ |
---|
[1021] | 464 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: cell_methods_ |
---|
| 465 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: cell_methods_mode_ |
---|
[1201] | 466 | LOGICAL , OPTIONAL, INTENT(OUT) :: check_if_active_ |
---|
| 467 | LOGICAL (KIND=C_BOOL) :: check_if_active__tmp |
---|
[608] | 468 | INTEGER , OPTIONAL, INTENT(OUT) :: compression_level_ |
---|
[326] | 469 | REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: default_value_ |
---|
[472] | 470 | LOGICAL , OPTIONAL, INTENT(OUT) :: detect_missing_value_ |
---|
| 471 | LOGICAL (KIND=C_BOOL) :: detect_missing_value__tmp |
---|
[326] | 472 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref_ |
---|
| 473 | LOGICAL , OPTIONAL, INTENT(OUT) :: enabled_ |
---|
| 474 | LOGICAL (KIND=C_BOOL) :: enabled__tmp |
---|
[1021] | 475 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: expr_ |
---|
[326] | 476 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: field_ref_ |
---|
[538] | 477 | TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: freq_offset_ |
---|
| 478 | TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: freq_op_ |
---|
[790] | 479 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: grid_path_ |
---|
[326] | 480 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: grid_ref_ |
---|
[676] | 481 | LOGICAL , OPTIONAL, INTENT(OUT) :: indexed_output_ |
---|
| 482 | LOGICAL (KIND=C_BOOL) :: indexed_output__tmp |
---|
[326] | 483 | INTEGER , OPTIONAL, INTENT(OUT) :: level_ |
---|
| 484 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name_ |
---|
| 485 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_ |
---|
| 486 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: operation_ |
---|
| 487 | INTEGER , OPTIONAL, INTENT(OUT) :: prec_ |
---|
[593] | 488 | LOGICAL , OPTIONAL, INTENT(OUT) :: read_access_ |
---|
| 489 | LOGICAL (KIND=C_BOOL) :: read_access__tmp |
---|
[891] | 490 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: scalar_ref_ |
---|
[464] | 491 | REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: scale_factor_ |
---|
[326] | 492 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name_ |
---|
[711] | 493 | LOGICAL , OPTIONAL, INTENT(OUT) :: ts_enabled_ |
---|
| 494 | LOGICAL (KIND=C_BOOL) :: ts_enabled__tmp |
---|
| 495 | TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: ts_split_freq_ |
---|
[326] | 496 | CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: unit_ |
---|
[463] | 497 | REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: valid_max_ |
---|
| 498 | REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: valid_min_ |
---|
[581] | 499 | |
---|
[464] | 500 | IF (PRESENT(add_offset_)) THEN |
---|
[966] | 501 | CALL cxios_get_field_add_offset & |
---|
| 502 | (field_hdl%daddr, add_offset_) |
---|
[464] | 503 | ENDIF |
---|
[581] | 504 | |
---|
[326] | 505 | IF (PRESENT(axis_ref_)) THEN |
---|
[966] | 506 | CALL cxios_get_field_axis_ref & |
---|
| 507 | (field_hdl%daddr, axis_ref_, len(axis_ref_)) |
---|
[326] | 508 | ENDIF |
---|
[581] | 509 | |
---|
[1021] | 510 | IF (PRESENT(cell_methods_)) THEN |
---|
| 511 | CALL cxios_get_field_cell_methods & |
---|
| 512 | (field_hdl%daddr, cell_methods_, len(cell_methods_)) |
---|
| 513 | ENDIF |
---|
| 514 | |
---|
| 515 | IF (PRESENT(cell_methods_mode_)) THEN |
---|
| 516 | CALL cxios_get_field_cell_methods_mode & |
---|
| 517 | (field_hdl%daddr, cell_methods_mode_, len(cell_methods_mode_)) |
---|
| 518 | ENDIF |
---|
| 519 | |
---|
[1201] | 520 | IF (PRESENT(check_if_active_)) THEN |
---|
| 521 | CALL cxios_get_field_check_if_active & |
---|
| 522 | (field_hdl%daddr, check_if_active__tmp) |
---|
| 523 | check_if_active_ = check_if_active__tmp |
---|
| 524 | ENDIF |
---|
| 525 | |
---|
[608] | 526 | IF (PRESENT(compression_level_)) THEN |
---|
[966] | 527 | CALL cxios_get_field_compression_level & |
---|
| 528 | (field_hdl%daddr, compression_level_) |
---|
[608] | 529 | ENDIF |
---|
| 530 | |
---|
[326] | 531 | IF (PRESENT(default_value_)) THEN |
---|
[966] | 532 | CALL cxios_get_field_default_value & |
---|
| 533 | (field_hdl%daddr, default_value_) |
---|
[326] | 534 | ENDIF |
---|
[581] | 535 | |
---|
[472] | 536 | IF (PRESENT(detect_missing_value_)) THEN |
---|
[966] | 537 | CALL cxios_get_field_detect_missing_value & |
---|
| 538 | (field_hdl%daddr, detect_missing_value__tmp) |
---|
[581] | 539 | detect_missing_value_ = detect_missing_value__tmp |
---|
[472] | 540 | ENDIF |
---|
[581] | 541 | |
---|
[326] | 542 | IF (PRESENT(domain_ref_)) THEN |
---|
[966] | 543 | CALL cxios_get_field_domain_ref & |
---|
| 544 | (field_hdl%daddr, domain_ref_, len(domain_ref_)) |
---|
[326] | 545 | ENDIF |
---|
[581] | 546 | |
---|
[326] | 547 | IF (PRESENT(enabled_)) THEN |
---|
[966] | 548 | CALL cxios_get_field_enabled & |
---|
| 549 | (field_hdl%daddr, enabled__tmp) |
---|
[581] | 550 | enabled_ = enabled__tmp |
---|
[326] | 551 | ENDIF |
---|
[581] | 552 | |
---|
[1021] | 553 | IF (PRESENT(expr_)) THEN |
---|
| 554 | CALL cxios_get_field_expr & |
---|
| 555 | (field_hdl%daddr, expr_, len(expr_)) |
---|
| 556 | ENDIF |
---|
| 557 | |
---|
[326] | 558 | IF (PRESENT(field_ref_)) THEN |
---|
[966] | 559 | CALL cxios_get_field_field_ref & |
---|
| 560 | (field_hdl%daddr, field_ref_, len(field_ref_)) |
---|
[326] | 561 | ENDIF |
---|
[581] | 562 | |
---|
[326] | 563 | IF (PRESENT(freq_offset_)) THEN |
---|
[966] | 564 | CALL cxios_get_field_freq_offset & |
---|
| 565 | (field_hdl%daddr, freq_offset_) |
---|
[326] | 566 | ENDIF |
---|
[581] | 567 | |
---|
[326] | 568 | IF (PRESENT(freq_op_)) THEN |
---|
[966] | 569 | CALL cxios_get_field_freq_op & |
---|
| 570 | (field_hdl%daddr, freq_op_) |
---|
[326] | 571 | ENDIF |
---|
[581] | 572 | |
---|
[790] | 573 | IF (PRESENT(grid_path_)) THEN |
---|
[966] | 574 | CALL cxios_get_field_grid_path & |
---|
| 575 | (field_hdl%daddr, grid_path_, len(grid_path_)) |
---|
[790] | 576 | ENDIF |
---|
| 577 | |
---|
[326] | 578 | IF (PRESENT(grid_ref_)) THEN |
---|
[966] | 579 | CALL cxios_get_field_grid_ref & |
---|
| 580 | (field_hdl%daddr, grid_ref_, len(grid_ref_)) |
---|
[326] | 581 | ENDIF |
---|
[581] | 582 | |
---|
[676] | 583 | IF (PRESENT(indexed_output_)) THEN |
---|
[966] | 584 | CALL cxios_get_field_indexed_output & |
---|
| 585 | (field_hdl%daddr, indexed_output__tmp) |
---|
[676] | 586 | indexed_output_ = indexed_output__tmp |
---|
| 587 | ENDIF |
---|
| 588 | |
---|
[326] | 589 | IF (PRESENT(level_)) THEN |
---|
[966] | 590 | CALL cxios_get_field_level & |
---|
| 591 | (field_hdl%daddr, level_) |
---|
[326] | 592 | ENDIF |
---|
[581] | 593 | |
---|
[326] | 594 | IF (PRESENT(long_name_)) THEN |
---|
[966] | 595 | CALL cxios_get_field_long_name & |
---|
| 596 | (field_hdl%daddr, long_name_, len(long_name_)) |
---|
[326] | 597 | ENDIF |
---|
[581] | 598 | |
---|
[326] | 599 | IF (PRESENT(name_)) THEN |
---|
[966] | 600 | CALL cxios_get_field_name & |
---|
| 601 | (field_hdl%daddr, name_, len(name_)) |
---|
[326] | 602 | ENDIF |
---|
[581] | 603 | |
---|
[326] | 604 | IF (PRESENT(operation_)) THEN |
---|
[966] | 605 | CALL cxios_get_field_operation & |
---|
| 606 | (field_hdl%daddr, operation_, len(operation_)) |
---|
[326] | 607 | ENDIF |
---|
[581] | 608 | |
---|
[326] | 609 | IF (PRESENT(prec_)) THEN |
---|
[966] | 610 | CALL cxios_get_field_prec & |
---|
| 611 | (field_hdl%daddr, prec_) |
---|
[326] | 612 | ENDIF |
---|
[581] | 613 | |
---|
[593] | 614 | IF (PRESENT(read_access_)) THEN |
---|
[966] | 615 | CALL cxios_get_field_read_access & |
---|
| 616 | (field_hdl%daddr, read_access__tmp) |
---|
[593] | 617 | read_access_ = read_access__tmp |
---|
| 618 | ENDIF |
---|
| 619 | |
---|
[891] | 620 | IF (PRESENT(scalar_ref_)) THEN |
---|
[966] | 621 | CALL cxios_get_field_scalar_ref & |
---|
| 622 | (field_hdl%daddr, scalar_ref_, len(scalar_ref_)) |
---|
[891] | 623 | ENDIF |
---|
| 624 | |
---|
[464] | 625 | IF (PRESENT(scale_factor_)) THEN |
---|
[966] | 626 | CALL cxios_get_field_scale_factor & |
---|
| 627 | (field_hdl%daddr, scale_factor_) |
---|
[464] | 628 | ENDIF |
---|
[581] | 629 | |
---|
[326] | 630 | IF (PRESENT(standard_name_)) THEN |
---|
[966] | 631 | CALL cxios_get_field_standard_name & |
---|
| 632 | (field_hdl%daddr, standard_name_, len(standard_name_)) |
---|
[326] | 633 | ENDIF |
---|
[581] | 634 | |
---|
[711] | 635 | IF (PRESENT(ts_enabled_)) THEN |
---|
[966] | 636 | CALL cxios_get_field_ts_enabled & |
---|
| 637 | (field_hdl%daddr, ts_enabled__tmp) |
---|
[711] | 638 | ts_enabled_ = ts_enabled__tmp |
---|
| 639 | ENDIF |
---|
| 640 | |
---|
| 641 | IF (PRESENT(ts_split_freq_)) THEN |
---|
[966] | 642 | CALL cxios_get_field_ts_split_freq & |
---|
| 643 | (field_hdl%daddr, ts_split_freq_) |
---|
[711] | 644 | ENDIF |
---|
| 645 | |
---|
[326] | 646 | IF (PRESENT(unit_)) THEN |
---|
[966] | 647 | CALL cxios_get_field_unit & |
---|
| 648 | (field_hdl%daddr, unit_, len(unit_)) |
---|
[326] | 649 | ENDIF |
---|
[581] | 650 | |
---|
[463] | 651 | IF (PRESENT(valid_max_)) THEN |
---|
[966] | 652 | CALL cxios_get_field_valid_max & |
---|
| 653 | (field_hdl%daddr, valid_max_) |
---|
[463] | 654 | ENDIF |
---|
[581] | 655 | |
---|
[463] | 656 | IF (PRESENT(valid_min_)) THEN |
---|
[966] | 657 | CALL cxios_get_field_valid_min & |
---|
| 658 | (field_hdl%daddr, valid_min_) |
---|
[463] | 659 | ENDIF |
---|
[581] | 660 | |
---|
[326] | 661 | END SUBROUTINE xios(get_field_attr_hdl_) |
---|
[581] | 662 | |
---|
[432] | 663 | SUBROUTINE xios(is_defined_field_attr) & |
---|
[1201] | 664 | ( field_id, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, compression_level & |
---|
| 665 | , default_value, detect_missing_value, domain_ref, enabled, expr, field_ref, freq_offset, freq_op & |
---|
| 666 | , grid_path, grid_ref, indexed_output, level, long_name, name, operation, prec, read_access & |
---|
| 667 | , scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit, valid_max, valid_min & |
---|
| 668 | ) |
---|
[581] | 669 | |
---|
[432] | 670 | IMPLICIT NONE |
---|
| 671 | TYPE(txios(field)) :: field_hdl |
---|
| 672 | CHARACTER(LEN=*), INTENT(IN) ::field_id |
---|
[464] | 673 | LOGICAL, OPTIONAL, INTENT(OUT) :: add_offset |
---|
| 674 | LOGICAL(KIND=C_BOOL) :: add_offset_tmp |
---|
[432] | 675 | LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref |
---|
| 676 | LOGICAL(KIND=C_BOOL) :: axis_ref_tmp |
---|
[1021] | 677 | LOGICAL, OPTIONAL, INTENT(OUT) :: cell_methods |
---|
| 678 | LOGICAL(KIND=C_BOOL) :: cell_methods_tmp |
---|
| 679 | LOGICAL, OPTIONAL, INTENT(OUT) :: cell_methods_mode |
---|
| 680 | LOGICAL(KIND=C_BOOL) :: cell_methods_mode_tmp |
---|
[1201] | 681 | LOGICAL, OPTIONAL, INTENT(OUT) :: check_if_active |
---|
| 682 | LOGICAL(KIND=C_BOOL) :: check_if_active_tmp |
---|
[608] | 683 | LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level |
---|
| 684 | LOGICAL(KIND=C_BOOL) :: compression_level_tmp |
---|
[432] | 685 | LOGICAL, OPTIONAL, INTENT(OUT) :: default_value |
---|
| 686 | LOGICAL(KIND=C_BOOL) :: default_value_tmp |
---|
[472] | 687 | LOGICAL, OPTIONAL, INTENT(OUT) :: detect_missing_value |
---|
| 688 | LOGICAL(KIND=C_BOOL) :: detect_missing_value_tmp |
---|
[432] | 689 | LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref |
---|
| 690 | LOGICAL(KIND=C_BOOL) :: domain_ref_tmp |
---|
| 691 | LOGICAL, OPTIONAL, INTENT(OUT) :: enabled |
---|
| 692 | LOGICAL(KIND=C_BOOL) :: enabled_tmp |
---|
[1021] | 693 | LOGICAL, OPTIONAL, INTENT(OUT) :: expr |
---|
| 694 | LOGICAL(KIND=C_BOOL) :: expr_tmp |
---|
[432] | 695 | LOGICAL, OPTIONAL, INTENT(OUT) :: field_ref |
---|
| 696 | LOGICAL(KIND=C_BOOL) :: field_ref_tmp |
---|
| 697 | LOGICAL, OPTIONAL, INTENT(OUT) :: freq_offset |
---|
| 698 | LOGICAL(KIND=C_BOOL) :: freq_offset_tmp |
---|
| 699 | LOGICAL, OPTIONAL, INTENT(OUT) :: freq_op |
---|
| 700 | LOGICAL(KIND=C_BOOL) :: freq_op_tmp |
---|
[790] | 701 | LOGICAL, OPTIONAL, INTENT(OUT) :: grid_path |
---|
| 702 | LOGICAL(KIND=C_BOOL) :: grid_path_tmp |
---|
[432] | 703 | LOGICAL, OPTIONAL, INTENT(OUT) :: grid_ref |
---|
| 704 | LOGICAL(KIND=C_BOOL) :: grid_ref_tmp |
---|
[676] | 705 | LOGICAL, OPTIONAL, INTENT(OUT) :: indexed_output |
---|
| 706 | LOGICAL(KIND=C_BOOL) :: indexed_output_tmp |
---|
[432] | 707 | LOGICAL, OPTIONAL, INTENT(OUT) :: level |
---|
| 708 | LOGICAL(KIND=C_BOOL) :: level_tmp |
---|
| 709 | LOGICAL, OPTIONAL, INTENT(OUT) :: long_name |
---|
| 710 | LOGICAL(KIND=C_BOOL) :: long_name_tmp |
---|
| 711 | LOGICAL, OPTIONAL, INTENT(OUT) :: name |
---|
| 712 | LOGICAL(KIND=C_BOOL) :: name_tmp |
---|
| 713 | LOGICAL, OPTIONAL, INTENT(OUT) :: operation |
---|
| 714 | LOGICAL(KIND=C_BOOL) :: operation_tmp |
---|
| 715 | LOGICAL, OPTIONAL, INTENT(OUT) :: prec |
---|
| 716 | LOGICAL(KIND=C_BOOL) :: prec_tmp |
---|
[593] | 717 | LOGICAL, OPTIONAL, INTENT(OUT) :: read_access |
---|
| 718 | LOGICAL(KIND=C_BOOL) :: read_access_tmp |
---|
[891] | 719 | LOGICAL, OPTIONAL, INTENT(OUT) :: scalar_ref |
---|
| 720 | LOGICAL(KIND=C_BOOL) :: scalar_ref_tmp |
---|
[464] | 721 | LOGICAL, OPTIONAL, INTENT(OUT) :: scale_factor |
---|
| 722 | LOGICAL(KIND=C_BOOL) :: scale_factor_tmp |
---|
[432] | 723 | LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name |
---|
| 724 | LOGICAL(KIND=C_BOOL) :: standard_name_tmp |
---|
[711] | 725 | LOGICAL, OPTIONAL, INTENT(OUT) :: ts_enabled |
---|
| 726 | LOGICAL(KIND=C_BOOL) :: ts_enabled_tmp |
---|
| 727 | LOGICAL, OPTIONAL, INTENT(OUT) :: ts_split_freq |
---|
| 728 | LOGICAL(KIND=C_BOOL) :: ts_split_freq_tmp |
---|
[432] | 729 | LOGICAL, OPTIONAL, INTENT(OUT) :: unit |
---|
| 730 | LOGICAL(KIND=C_BOOL) :: unit_tmp |
---|
[463] | 731 | LOGICAL, OPTIONAL, INTENT(OUT) :: valid_max |
---|
| 732 | LOGICAL(KIND=C_BOOL) :: valid_max_tmp |
---|
| 733 | LOGICAL, OPTIONAL, INTENT(OUT) :: valid_min |
---|
| 734 | LOGICAL(KIND=C_BOOL) :: valid_min_tmp |
---|
[581] | 735 | |
---|
[966] | 736 | CALL xios(get_field_handle) & |
---|
| 737 | (field_id,field_hdl) |
---|
[432] | 738 | CALL xios(is_defined_field_attr_hdl_) & |
---|
[1201] | 739 | ( field_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, compression_level & |
---|
| 740 | , default_value, detect_missing_value, domain_ref, enabled, expr, field_ref, freq_offset, freq_op & |
---|
| 741 | , grid_path, grid_ref, indexed_output, level, long_name, name, operation, prec, read_access & |
---|
| 742 | , scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit, valid_max, valid_min & |
---|
| 743 | ) |
---|
[581] | 744 | |
---|
[432] | 745 | END SUBROUTINE xios(is_defined_field_attr) |
---|
[581] | 746 | |
---|
[432] | 747 | SUBROUTINE xios(is_defined_field_attr_hdl) & |
---|
[1201] | 748 | ( field_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, compression_level & |
---|
| 749 | , default_value, detect_missing_value, domain_ref, enabled, expr, field_ref, freq_offset, freq_op & |
---|
| 750 | , grid_path, grid_ref, indexed_output, level, long_name, name, operation, prec, read_access & |
---|
| 751 | , scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit, valid_max, valid_min & |
---|
| 752 | ) |
---|
[581] | 753 | |
---|
[432] | 754 | IMPLICIT NONE |
---|
| 755 | TYPE(txios(field)) , INTENT(IN) :: field_hdl |
---|
[464] | 756 | LOGICAL, OPTIONAL, INTENT(OUT) :: add_offset |
---|
| 757 | LOGICAL(KIND=C_BOOL) :: add_offset_tmp |
---|
[432] | 758 | LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref |
---|
| 759 | LOGICAL(KIND=C_BOOL) :: axis_ref_tmp |
---|
[1021] | 760 | LOGICAL, OPTIONAL, INTENT(OUT) :: cell_methods |
---|
| 761 | LOGICAL(KIND=C_BOOL) :: cell_methods_tmp |
---|
| 762 | LOGICAL, OPTIONAL, INTENT(OUT) :: cell_methods_mode |
---|
| 763 | LOGICAL(KIND=C_BOOL) :: cell_methods_mode_tmp |
---|
[1201] | 764 | LOGICAL, OPTIONAL, INTENT(OUT) :: check_if_active |
---|
| 765 | LOGICAL(KIND=C_BOOL) :: check_if_active_tmp |
---|
[608] | 766 | LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level |
---|
| 767 | LOGICAL(KIND=C_BOOL) :: compression_level_tmp |
---|
[432] | 768 | LOGICAL, OPTIONAL, INTENT(OUT) :: default_value |
---|
| 769 | LOGICAL(KIND=C_BOOL) :: default_value_tmp |
---|
[472] | 770 | LOGICAL, OPTIONAL, INTENT(OUT) :: detect_missing_value |
---|
| 771 | LOGICAL(KIND=C_BOOL) :: detect_missing_value_tmp |
---|
[432] | 772 | LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref |
---|
| 773 | LOGICAL(KIND=C_BOOL) :: domain_ref_tmp |
---|
| 774 | LOGICAL, OPTIONAL, INTENT(OUT) :: enabled |
---|
| 775 | LOGICAL(KIND=C_BOOL) :: enabled_tmp |
---|
[1021] | 776 | LOGICAL, OPTIONAL, INTENT(OUT) :: expr |
---|
| 777 | LOGICAL(KIND=C_BOOL) :: expr_tmp |
---|
[432] | 778 | LOGICAL, OPTIONAL, INTENT(OUT) :: field_ref |
---|
| 779 | LOGICAL(KIND=C_BOOL) :: field_ref_tmp |
---|
| 780 | LOGICAL, OPTIONAL, INTENT(OUT) :: freq_offset |
---|
| 781 | LOGICAL(KIND=C_BOOL) :: freq_offset_tmp |
---|
| 782 | LOGICAL, OPTIONAL, INTENT(OUT) :: freq_op |
---|
| 783 | LOGICAL(KIND=C_BOOL) :: freq_op_tmp |
---|
[790] | 784 | LOGICAL, OPTIONAL, INTENT(OUT) :: grid_path |
---|
| 785 | LOGICAL(KIND=C_BOOL) :: grid_path_tmp |
---|
[432] | 786 | LOGICAL, OPTIONAL, INTENT(OUT) :: grid_ref |
---|
| 787 | LOGICAL(KIND=C_BOOL) :: grid_ref_tmp |
---|
[676] | 788 | LOGICAL, OPTIONAL, INTENT(OUT) :: indexed_output |
---|
| 789 | LOGICAL(KIND=C_BOOL) :: indexed_output_tmp |
---|
[432] | 790 | LOGICAL, OPTIONAL, INTENT(OUT) :: level |
---|
| 791 | LOGICAL(KIND=C_BOOL) :: level_tmp |
---|
| 792 | LOGICAL, OPTIONAL, INTENT(OUT) :: long_name |
---|
| 793 | LOGICAL(KIND=C_BOOL) :: long_name_tmp |
---|
| 794 | LOGICAL, OPTIONAL, INTENT(OUT) :: name |
---|
| 795 | LOGICAL(KIND=C_BOOL) :: name_tmp |
---|
| 796 | LOGICAL, OPTIONAL, INTENT(OUT) :: operation |
---|
| 797 | LOGICAL(KIND=C_BOOL) :: operation_tmp |
---|
| 798 | LOGICAL, OPTIONAL, INTENT(OUT) :: prec |
---|
| 799 | LOGICAL(KIND=C_BOOL) :: prec_tmp |
---|
[593] | 800 | LOGICAL, OPTIONAL, INTENT(OUT) :: read_access |
---|
| 801 | LOGICAL(KIND=C_BOOL) :: read_access_tmp |
---|
[891] | 802 | LOGICAL, OPTIONAL, INTENT(OUT) :: scalar_ref |
---|
| 803 | LOGICAL(KIND=C_BOOL) :: scalar_ref_tmp |
---|
[464] | 804 | LOGICAL, OPTIONAL, INTENT(OUT) :: scale_factor |
---|
| 805 | LOGICAL(KIND=C_BOOL) :: scale_factor_tmp |
---|
[432] | 806 | LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name |
---|
| 807 | LOGICAL(KIND=C_BOOL) :: standard_name_tmp |
---|
[711] | 808 | LOGICAL, OPTIONAL, INTENT(OUT) :: ts_enabled |
---|
| 809 | LOGICAL(KIND=C_BOOL) :: ts_enabled_tmp |
---|
| 810 | LOGICAL, OPTIONAL, INTENT(OUT) :: ts_split_freq |
---|
| 811 | LOGICAL(KIND=C_BOOL) :: ts_split_freq_tmp |
---|
[432] | 812 | LOGICAL, OPTIONAL, INTENT(OUT) :: unit |
---|
| 813 | LOGICAL(KIND=C_BOOL) :: unit_tmp |
---|
[463] | 814 | LOGICAL, OPTIONAL, INTENT(OUT) :: valid_max |
---|
| 815 | LOGICAL(KIND=C_BOOL) :: valid_max_tmp |
---|
| 816 | LOGICAL, OPTIONAL, INTENT(OUT) :: valid_min |
---|
| 817 | LOGICAL(KIND=C_BOOL) :: valid_min_tmp |
---|
[581] | 818 | |
---|
[432] | 819 | CALL xios(is_defined_field_attr_hdl_) & |
---|
[1201] | 820 | ( field_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, compression_level & |
---|
| 821 | , default_value, detect_missing_value, domain_ref, enabled, expr, field_ref, freq_offset, freq_op & |
---|
| 822 | , grid_path, grid_ref, indexed_output, level, long_name, name, operation, prec, read_access & |
---|
| 823 | , scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit, valid_max, valid_min & |
---|
| 824 | ) |
---|
[581] | 825 | |
---|
[432] | 826 | END SUBROUTINE xios(is_defined_field_attr_hdl) |
---|
[581] | 827 | |
---|
[432] | 828 | SUBROUTINE xios(is_defined_field_attr_hdl_) & |
---|
[1201] | 829 | ( field_hdl, add_offset_, axis_ref_, cell_methods_, cell_methods_mode_, check_if_active_, compression_level_ & |
---|
| 830 | , default_value_, detect_missing_value_, domain_ref_, enabled_, expr_, field_ref_, freq_offset_ & |
---|
| 831 | , freq_op_, grid_path_, grid_ref_, indexed_output_, level_, long_name_, name_, operation_, prec_ & |
---|
| 832 | , read_access_, scalar_ref_, scale_factor_, standard_name_, ts_enabled_, ts_split_freq_, unit_ & |
---|
| 833 | , valid_max_, valid_min_ ) |
---|
[581] | 834 | |
---|
[432] | 835 | IMPLICIT NONE |
---|
| 836 | TYPE(txios(field)) , INTENT(IN) :: field_hdl |
---|
[464] | 837 | LOGICAL, OPTIONAL, INTENT(OUT) :: add_offset_ |
---|
| 838 | LOGICAL(KIND=C_BOOL) :: add_offset__tmp |
---|
[432] | 839 | LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref_ |
---|
| 840 | LOGICAL(KIND=C_BOOL) :: axis_ref__tmp |
---|
[1021] | 841 | LOGICAL, OPTIONAL, INTENT(OUT) :: cell_methods_ |
---|
| 842 | LOGICAL(KIND=C_BOOL) :: cell_methods__tmp |
---|
| 843 | LOGICAL, OPTIONAL, INTENT(OUT) :: cell_methods_mode_ |
---|
| 844 | LOGICAL(KIND=C_BOOL) :: cell_methods_mode__tmp |
---|
[1201] | 845 | LOGICAL, OPTIONAL, INTENT(OUT) :: check_if_active_ |
---|
| 846 | LOGICAL(KIND=C_BOOL) :: check_if_active__tmp |
---|
[608] | 847 | LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level_ |
---|
| 848 | LOGICAL(KIND=C_BOOL) :: compression_level__tmp |
---|
[432] | 849 | LOGICAL, OPTIONAL, INTENT(OUT) :: default_value_ |
---|
| 850 | LOGICAL(KIND=C_BOOL) :: default_value__tmp |
---|
[472] | 851 | LOGICAL, OPTIONAL, INTENT(OUT) :: detect_missing_value_ |
---|
| 852 | LOGICAL(KIND=C_BOOL) :: detect_missing_value__tmp |
---|
[432] | 853 | LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref_ |
---|
| 854 | LOGICAL(KIND=C_BOOL) :: domain_ref__tmp |
---|
| 855 | LOGICAL, OPTIONAL, INTENT(OUT) :: enabled_ |
---|
| 856 | LOGICAL(KIND=C_BOOL) :: enabled__tmp |
---|
[1021] | 857 | LOGICAL, OPTIONAL, INTENT(OUT) :: expr_ |
---|
| 858 | LOGICAL(KIND=C_BOOL) :: expr__tmp |
---|
[432] | 859 | LOGICAL, OPTIONAL, INTENT(OUT) :: field_ref_ |
---|
| 860 | LOGICAL(KIND=C_BOOL) :: field_ref__tmp |
---|
| 861 | LOGICAL, OPTIONAL, INTENT(OUT) :: freq_offset_ |
---|
| 862 | LOGICAL(KIND=C_BOOL) :: freq_offset__tmp |
---|
| 863 | LOGICAL, OPTIONAL, INTENT(OUT) :: freq_op_ |
---|
| 864 | LOGICAL(KIND=C_BOOL) :: freq_op__tmp |
---|
[790] | 865 | LOGICAL, OPTIONAL, INTENT(OUT) :: grid_path_ |
---|
| 866 | LOGICAL(KIND=C_BOOL) :: grid_path__tmp |
---|
[432] | 867 | LOGICAL, OPTIONAL, INTENT(OUT) :: grid_ref_ |
---|
| 868 | LOGICAL(KIND=C_BOOL) :: grid_ref__tmp |
---|
[676] | 869 | LOGICAL, OPTIONAL, INTENT(OUT) :: indexed_output_ |
---|
| 870 | LOGICAL(KIND=C_BOOL) :: indexed_output__tmp |
---|
[432] | 871 | LOGICAL, OPTIONAL, INTENT(OUT) :: level_ |
---|
| 872 | LOGICAL(KIND=C_BOOL) :: level__tmp |
---|
| 873 | LOGICAL, OPTIONAL, INTENT(OUT) :: long_name_ |
---|
| 874 | LOGICAL(KIND=C_BOOL) :: long_name__tmp |
---|
| 875 | LOGICAL, OPTIONAL, INTENT(OUT) :: name_ |
---|
| 876 | LOGICAL(KIND=C_BOOL) :: name__tmp |
---|
| 877 | LOGICAL, OPTIONAL, INTENT(OUT) :: operation_ |
---|
| 878 | LOGICAL(KIND=C_BOOL) :: operation__tmp |
---|
| 879 | LOGICAL, OPTIONAL, INTENT(OUT) :: prec_ |
---|
| 880 | LOGICAL(KIND=C_BOOL) :: prec__tmp |
---|
[593] | 881 | LOGICAL, OPTIONAL, INTENT(OUT) :: read_access_ |
---|
| 882 | LOGICAL(KIND=C_BOOL) :: read_access__tmp |
---|
[891] | 883 | LOGICAL, OPTIONAL, INTENT(OUT) :: scalar_ref_ |
---|
| 884 | LOGICAL(KIND=C_BOOL) :: scalar_ref__tmp |
---|
[464] | 885 | LOGICAL, OPTIONAL, INTENT(OUT) :: scale_factor_ |
---|
| 886 | LOGICAL(KIND=C_BOOL) :: scale_factor__tmp |
---|
[432] | 887 | LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name_ |
---|
| 888 | LOGICAL(KIND=C_BOOL) :: standard_name__tmp |
---|
[711] | 889 | LOGICAL, OPTIONAL, INTENT(OUT) :: ts_enabled_ |
---|
| 890 | LOGICAL(KIND=C_BOOL) :: ts_enabled__tmp |
---|
| 891 | LOGICAL, OPTIONAL, INTENT(OUT) :: ts_split_freq_ |
---|
| 892 | LOGICAL(KIND=C_BOOL) :: ts_split_freq__tmp |
---|
[432] | 893 | LOGICAL, OPTIONAL, INTENT(OUT) :: unit_ |
---|
| 894 | LOGICAL(KIND=C_BOOL) :: unit__tmp |
---|
[463] | 895 | LOGICAL, OPTIONAL, INTENT(OUT) :: valid_max_ |
---|
| 896 | LOGICAL(KIND=C_BOOL) :: valid_max__tmp |
---|
| 897 | LOGICAL, OPTIONAL, INTENT(OUT) :: valid_min_ |
---|
| 898 | LOGICAL(KIND=C_BOOL) :: valid_min__tmp |
---|
[581] | 899 | |
---|
[464] | 900 | IF (PRESENT(add_offset_)) THEN |
---|
[966] | 901 | add_offset__tmp = cxios_is_defined_field_add_offset & |
---|
| 902 | (field_hdl%daddr) |
---|
[581] | 903 | add_offset_ = add_offset__tmp |
---|
[464] | 904 | ENDIF |
---|
[581] | 905 | |
---|
[432] | 906 | IF (PRESENT(axis_ref_)) THEN |
---|
[966] | 907 | axis_ref__tmp = cxios_is_defined_field_axis_ref & |
---|
| 908 | (field_hdl%daddr) |
---|
[581] | 909 | axis_ref_ = axis_ref__tmp |
---|
[432] | 910 | ENDIF |
---|
[581] | 911 | |
---|
[1021] | 912 | IF (PRESENT(cell_methods_)) THEN |
---|
| 913 | cell_methods__tmp = cxios_is_defined_field_cell_methods & |
---|
| 914 | (field_hdl%daddr) |
---|
| 915 | cell_methods_ = cell_methods__tmp |
---|
| 916 | ENDIF |
---|
| 917 | |
---|
| 918 | IF (PRESENT(cell_methods_mode_)) THEN |
---|
| 919 | cell_methods_mode__tmp = cxios_is_defined_field_cell_methods_mode & |
---|
| 920 | (field_hdl%daddr) |
---|
| 921 | cell_methods_mode_ = cell_methods_mode__tmp |
---|
| 922 | ENDIF |
---|
| 923 | |
---|
[1201] | 924 | IF (PRESENT(check_if_active_)) THEN |
---|
| 925 | check_if_active__tmp = cxios_is_defined_field_check_if_active & |
---|
| 926 | (field_hdl%daddr) |
---|
| 927 | check_if_active_ = check_if_active__tmp |
---|
| 928 | ENDIF |
---|
| 929 | |
---|
[608] | 930 | IF (PRESENT(compression_level_)) THEN |
---|
[966] | 931 | compression_level__tmp = cxios_is_defined_field_compression_level & |
---|
| 932 | (field_hdl%daddr) |
---|
[608] | 933 | compression_level_ = compression_level__tmp |
---|
| 934 | ENDIF |
---|
| 935 | |
---|
[432] | 936 | IF (PRESENT(default_value_)) THEN |
---|
[966] | 937 | default_value__tmp = cxios_is_defined_field_default_value & |
---|
| 938 | (field_hdl%daddr) |
---|
[581] | 939 | default_value_ = default_value__tmp |
---|
[432] | 940 | ENDIF |
---|
[581] | 941 | |
---|
[472] | 942 | IF (PRESENT(detect_missing_value_)) THEN |
---|
[966] | 943 | detect_missing_value__tmp = cxios_is_defined_field_detect_missing_value & |
---|
| 944 | (field_hdl%daddr) |
---|
[581] | 945 | detect_missing_value_ = detect_missing_value__tmp |
---|
[472] | 946 | ENDIF |
---|
[581] | 947 | |
---|
[432] | 948 | IF (PRESENT(domain_ref_)) THEN |
---|
[966] | 949 | domain_ref__tmp = cxios_is_defined_field_domain_ref & |
---|
| 950 | (field_hdl%daddr) |
---|
[581] | 951 | domain_ref_ = domain_ref__tmp |
---|
[432] | 952 | ENDIF |
---|
[581] | 953 | |
---|
[432] | 954 | IF (PRESENT(enabled_)) THEN |
---|
[966] | 955 | enabled__tmp = cxios_is_defined_field_enabled & |
---|
| 956 | (field_hdl%daddr) |
---|
[581] | 957 | enabled_ = enabled__tmp |
---|
[432] | 958 | ENDIF |
---|
[581] | 959 | |
---|
[1021] | 960 | IF (PRESENT(expr_)) THEN |
---|
| 961 | expr__tmp = cxios_is_defined_field_expr & |
---|
| 962 | (field_hdl%daddr) |
---|
| 963 | expr_ = expr__tmp |
---|
| 964 | ENDIF |
---|
| 965 | |
---|
[432] | 966 | IF (PRESENT(field_ref_)) THEN |
---|
[966] | 967 | field_ref__tmp = cxios_is_defined_field_field_ref & |
---|
| 968 | (field_hdl%daddr) |
---|
[581] | 969 | field_ref_ = field_ref__tmp |
---|
[432] | 970 | ENDIF |
---|
[581] | 971 | |
---|
[432] | 972 | IF (PRESENT(freq_offset_)) THEN |
---|
[966] | 973 | freq_offset__tmp = cxios_is_defined_field_freq_offset & |
---|
| 974 | (field_hdl%daddr) |
---|
[581] | 975 | freq_offset_ = freq_offset__tmp |
---|
[432] | 976 | ENDIF |
---|
[581] | 977 | |
---|
[432] | 978 | IF (PRESENT(freq_op_)) THEN |
---|
[966] | 979 | freq_op__tmp = cxios_is_defined_field_freq_op & |
---|
| 980 | (field_hdl%daddr) |
---|
[581] | 981 | freq_op_ = freq_op__tmp |
---|
[432] | 982 | ENDIF |
---|
[581] | 983 | |
---|
[790] | 984 | IF (PRESENT(grid_path_)) THEN |
---|
[966] | 985 | grid_path__tmp = cxios_is_defined_field_grid_path & |
---|
| 986 | (field_hdl%daddr) |
---|
[790] | 987 | grid_path_ = grid_path__tmp |
---|
| 988 | ENDIF |
---|
| 989 | |
---|
[432] | 990 | IF (PRESENT(grid_ref_)) THEN |
---|
[966] | 991 | grid_ref__tmp = cxios_is_defined_field_grid_ref & |
---|
| 992 | (field_hdl%daddr) |
---|
[581] | 993 | grid_ref_ = grid_ref__tmp |
---|
[432] | 994 | ENDIF |
---|
[581] | 995 | |
---|
[676] | 996 | IF (PRESENT(indexed_output_)) THEN |
---|
[966] | 997 | indexed_output__tmp = cxios_is_defined_field_indexed_output & |
---|
| 998 | (field_hdl%daddr) |
---|
[676] | 999 | indexed_output_ = indexed_output__tmp |
---|
| 1000 | ENDIF |
---|
| 1001 | |
---|
[432] | 1002 | IF (PRESENT(level_)) THEN |
---|
[966] | 1003 | level__tmp = cxios_is_defined_field_level & |
---|
| 1004 | (field_hdl%daddr) |
---|
[581] | 1005 | level_ = level__tmp |
---|
[432] | 1006 | ENDIF |
---|
[581] | 1007 | |
---|
[432] | 1008 | IF (PRESENT(long_name_)) THEN |
---|
[966] | 1009 | long_name__tmp = cxios_is_defined_field_long_name & |
---|
| 1010 | (field_hdl%daddr) |
---|
[581] | 1011 | long_name_ = long_name__tmp |
---|
[432] | 1012 | ENDIF |
---|
[581] | 1013 | |
---|
[432] | 1014 | IF (PRESENT(name_)) THEN |
---|
[966] | 1015 | name__tmp = cxios_is_defined_field_name & |
---|
| 1016 | (field_hdl%daddr) |
---|
[581] | 1017 | name_ = name__tmp |
---|
[432] | 1018 | ENDIF |
---|
[581] | 1019 | |
---|
[432] | 1020 | IF (PRESENT(operation_)) THEN |
---|
[966] | 1021 | operation__tmp = cxios_is_defined_field_operation & |
---|
| 1022 | (field_hdl%daddr) |
---|
[581] | 1023 | operation_ = operation__tmp |
---|
[432] | 1024 | ENDIF |
---|
[581] | 1025 | |
---|
[432] | 1026 | IF (PRESENT(prec_)) THEN |
---|
[966] | 1027 | prec__tmp = cxios_is_defined_field_prec & |
---|
| 1028 | (field_hdl%daddr) |
---|
[581] | 1029 | prec_ = prec__tmp |
---|
[432] | 1030 | ENDIF |
---|
[581] | 1031 | |
---|
[593] | 1032 | IF (PRESENT(read_access_)) THEN |
---|
[966] | 1033 | read_access__tmp = cxios_is_defined_field_read_access & |
---|
| 1034 | (field_hdl%daddr) |
---|
[593] | 1035 | read_access_ = read_access__tmp |
---|
| 1036 | ENDIF |
---|
| 1037 | |
---|
[891] | 1038 | IF (PRESENT(scalar_ref_)) THEN |
---|
[966] | 1039 | scalar_ref__tmp = cxios_is_defined_field_scalar_ref & |
---|
| 1040 | (field_hdl%daddr) |
---|
[891] | 1041 | scalar_ref_ = scalar_ref__tmp |
---|
| 1042 | ENDIF |
---|
| 1043 | |
---|
[464] | 1044 | IF (PRESENT(scale_factor_)) THEN |
---|
[966] | 1045 | scale_factor__tmp = cxios_is_defined_field_scale_factor & |
---|
| 1046 | (field_hdl%daddr) |
---|
[581] | 1047 | scale_factor_ = scale_factor__tmp |
---|
[464] | 1048 | ENDIF |
---|
[581] | 1049 | |
---|
[432] | 1050 | IF (PRESENT(standard_name_)) THEN |
---|
[966] | 1051 | standard_name__tmp = cxios_is_defined_field_standard_name & |
---|
| 1052 | (field_hdl%daddr) |
---|
[581] | 1053 | standard_name_ = standard_name__tmp |
---|
[432] | 1054 | ENDIF |
---|
[581] | 1055 | |
---|
[711] | 1056 | IF (PRESENT(ts_enabled_)) THEN |
---|
[966] | 1057 | ts_enabled__tmp = cxios_is_defined_field_ts_enabled & |
---|
| 1058 | (field_hdl%daddr) |
---|
[711] | 1059 | ts_enabled_ = ts_enabled__tmp |
---|
| 1060 | ENDIF |
---|
| 1061 | |
---|
| 1062 | IF (PRESENT(ts_split_freq_)) THEN |
---|
[966] | 1063 | ts_split_freq__tmp = cxios_is_defined_field_ts_split_freq & |
---|
| 1064 | (field_hdl%daddr) |
---|
[711] | 1065 | ts_split_freq_ = ts_split_freq__tmp |
---|
| 1066 | ENDIF |
---|
| 1067 | |
---|
[432] | 1068 | IF (PRESENT(unit_)) THEN |
---|
[966] | 1069 | unit__tmp = cxios_is_defined_field_unit & |
---|
| 1070 | (field_hdl%daddr) |
---|
[581] | 1071 | unit_ = unit__tmp |
---|
[432] | 1072 | ENDIF |
---|
[581] | 1073 | |
---|
[463] | 1074 | IF (PRESENT(valid_max_)) THEN |
---|
[966] | 1075 | valid_max__tmp = cxios_is_defined_field_valid_max & |
---|
| 1076 | (field_hdl%daddr) |
---|
[581] | 1077 | valid_max_ = valid_max__tmp |
---|
[463] | 1078 | ENDIF |
---|
[581] | 1079 | |
---|
[463] | 1080 | IF (PRESENT(valid_min_)) THEN |
---|
[966] | 1081 | valid_min__tmp = cxios_is_defined_field_valid_min & |
---|
| 1082 | (field_hdl%daddr) |
---|
[581] | 1083 | valid_min_ = valid_min__tmp |
---|
[463] | 1084 | ENDIF |
---|
[581] | 1085 | |
---|
[432] | 1086 | END SUBROUTINE xios(is_defined_field_attr_hdl_) |
---|
[581] | 1087 | |
---|
[326] | 1088 | END MODULE ifield_attr |
---|