Changeset 581 for XIOS/trunk/src/interface/fortran_attr
- Timestamp:
- 03/24/15 11:21:45 (9 years ago)
- Location:
- XIOS/trunk/src/interface/fortran_attr
- Files:
-
- 28 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/trunk/src/interface/fortran_attr/axis_interface_attr.F90
r555 r581 6 6 MODULE axis_interface_attr 7 7 USE, INTRINSIC :: ISO_C_BINDING 8 9 INTERFACE ! Do not call directly / interface FORTRAN 2003 <-> C9910 11 8 9 INTERFACE 10 ! Do not call directly / interface FORTRAN 2003 <-> C99 11 12 12 SUBROUTINE cxios_set_axis_axis_ref(axis_hdl, axis_ref, axis_ref_size) BIND(C) 13 13 USE ISO_C_BINDING … … 16 16 INTEGER (kind = C_INT) , VALUE :: axis_ref_size 17 17 END SUBROUTINE cxios_set_axis_axis_ref 18 18 19 19 SUBROUTINE cxios_get_axis_axis_ref(axis_hdl, axis_ref, axis_ref_size) BIND(C) 20 20 USE ISO_C_BINDING … … 23 23 INTEGER (kind = C_INT) , VALUE :: axis_ref_size 24 24 END SUBROUTINE cxios_get_axis_axis_ref 25 26 FUNCTION cxios_is_defined_axis_axis_ref(axis_hdl 25 26 FUNCTION cxios_is_defined_axis_axis_ref(axis_hdl) BIND(C) 27 27 USE ISO_C_BINDING 28 28 LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_axis_ref 29 29 INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 30 30 END FUNCTION cxios_is_defined_axis_axis_ref 31 32 31 32 33 33 SUBROUTINE cxios_set_axis_data_begin(axis_hdl, data_begin) BIND(C) 34 34 USE ISO_C_BINDING … … 36 36 INTEGER (KIND=C_INT) , VALUE :: data_begin 37 37 END SUBROUTINE cxios_set_axis_data_begin 38 38 39 39 SUBROUTINE cxios_get_axis_data_begin(axis_hdl, data_begin) BIND(C) 40 40 USE ISO_C_BINDING … … 42 42 INTEGER (KIND=C_INT) :: data_begin 43 43 END SUBROUTINE cxios_get_axis_data_begin 44 45 FUNCTION cxios_is_defined_axis_data_begin(axis_hdl 44 45 FUNCTION cxios_is_defined_axis_data_begin(axis_hdl) BIND(C) 46 46 USE ISO_C_BINDING 47 47 LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_data_begin 48 48 INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 49 49 END FUNCTION cxios_is_defined_axis_data_begin 50 51 50 51 52 52 SUBROUTINE cxios_set_axis_data_index(axis_hdl, data_index, extent1) BIND(C) 53 53 USE ISO_C_BINDING … … 56 56 INTEGER (kind = C_INT), VALUE :: extent1 57 57 END SUBROUTINE cxios_set_axis_data_index 58 58 59 59 SUBROUTINE cxios_get_axis_data_index(axis_hdl, data_index, extent1) BIND(C) 60 60 USE ISO_C_BINDING … … 63 63 INTEGER (kind = C_INT), VALUE :: extent1 64 64 END SUBROUTINE cxios_get_axis_data_index 65 66 FUNCTION cxios_is_defined_axis_data_index(axis_hdl 65 66 FUNCTION cxios_is_defined_axis_data_index(axis_hdl) BIND(C) 67 67 USE ISO_C_BINDING 68 68 LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_data_index 69 69 INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 70 70 END FUNCTION cxios_is_defined_axis_data_index 71 72 71 72 73 73 SUBROUTINE cxios_set_axis_data_n(axis_hdl, data_n) BIND(C) 74 74 USE ISO_C_BINDING … … 76 76 INTEGER (KIND=C_INT) , VALUE :: data_n 77 77 END SUBROUTINE cxios_set_axis_data_n 78 78 79 79 SUBROUTINE cxios_get_axis_data_n(axis_hdl, data_n) BIND(C) 80 80 USE ISO_C_BINDING … … 82 82 INTEGER (KIND=C_INT) :: data_n 83 83 END SUBROUTINE cxios_get_axis_data_n 84 85 FUNCTION cxios_is_defined_axis_data_n(axis_hdl 84 85 FUNCTION cxios_is_defined_axis_data_n(axis_hdl) BIND(C) 86 86 USE ISO_C_BINDING 87 87 LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_data_n 88 88 INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 89 89 END FUNCTION cxios_is_defined_axis_data_n 90 91 90 91 92 92 SUBROUTINE cxios_set_axis_ibegin(axis_hdl, ibegin) BIND(C) 93 93 USE ISO_C_BINDING … … 95 95 INTEGER (KIND=C_INT) , VALUE :: ibegin 96 96 END SUBROUTINE cxios_set_axis_ibegin 97 97 98 98 SUBROUTINE cxios_get_axis_ibegin(axis_hdl, ibegin) BIND(C) 99 99 USE ISO_C_BINDING … … 101 101 INTEGER (KIND=C_INT) :: ibegin 102 102 END SUBROUTINE cxios_get_axis_ibegin 103 104 FUNCTION cxios_is_defined_axis_ibegin(axis_hdl 103 104 FUNCTION cxios_is_defined_axis_ibegin(axis_hdl) BIND(C) 105 105 USE ISO_C_BINDING 106 106 LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_ibegin 107 107 INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 108 108 END FUNCTION cxios_is_defined_axis_ibegin 109 110 109 110 111 111 SUBROUTINE cxios_set_axis_long_name(axis_hdl, long_name, long_name_size) BIND(C) 112 112 USE ISO_C_BINDING … … 115 115 INTEGER (kind = C_INT) , VALUE :: long_name_size 116 116 END SUBROUTINE cxios_set_axis_long_name 117 117 118 118 SUBROUTINE cxios_get_axis_long_name(axis_hdl, long_name, long_name_size) BIND(C) 119 119 USE ISO_C_BINDING … … 122 122 INTEGER (kind = C_INT) , VALUE :: long_name_size 123 123 END SUBROUTINE cxios_get_axis_long_name 124 125 FUNCTION cxios_is_defined_axis_long_name(axis_hdl 124 125 FUNCTION cxios_is_defined_axis_long_name(axis_hdl) BIND(C) 126 126 USE ISO_C_BINDING 127 127 LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_long_name 128 128 INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 129 129 END FUNCTION cxios_is_defined_axis_long_name 130 131 130 131 132 132 SUBROUTINE cxios_set_axis_mask(axis_hdl, mask, extent1) BIND(C) 133 133 USE ISO_C_BINDING … … 136 136 INTEGER (kind = C_INT), VALUE :: extent1 137 137 END SUBROUTINE cxios_set_axis_mask 138 138 139 139 SUBROUTINE cxios_get_axis_mask(axis_hdl, mask, extent1) BIND(C) 140 140 USE ISO_C_BINDING … … 143 143 INTEGER (kind = C_INT), VALUE :: extent1 144 144 END SUBROUTINE cxios_get_axis_mask 145 146 FUNCTION cxios_is_defined_axis_mask(axis_hdl 145 146 FUNCTION cxios_is_defined_axis_mask(axis_hdl) BIND(C) 147 147 USE ISO_C_BINDING 148 148 LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_mask 149 149 INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 150 150 END FUNCTION cxios_is_defined_axis_mask 151 152 151 152 153 153 SUBROUTINE cxios_set_axis_name(axis_hdl, name, name_size) BIND(C) 154 154 USE ISO_C_BINDING … … 157 157 INTEGER (kind = C_INT) , VALUE :: name_size 158 158 END SUBROUTINE cxios_set_axis_name 159 159 160 160 SUBROUTINE cxios_get_axis_name(axis_hdl, name, name_size) BIND(C) 161 161 USE ISO_C_BINDING … … 164 164 INTEGER (kind = C_INT) , VALUE :: name_size 165 165 END SUBROUTINE cxios_get_axis_name 166 167 FUNCTION cxios_is_defined_axis_name(axis_hdl 166 167 FUNCTION cxios_is_defined_axis_name(axis_hdl) BIND(C) 168 168 USE ISO_C_BINDING 169 169 LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_name 170 170 INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 171 171 END FUNCTION cxios_is_defined_axis_name 172 173 172 173 174 174 SUBROUTINE cxios_set_axis_ni(axis_hdl, ni) BIND(C) 175 175 USE ISO_C_BINDING … … 177 177 INTEGER (KIND=C_INT) , VALUE :: ni 178 178 END SUBROUTINE cxios_set_axis_ni 179 179 180 180 SUBROUTINE cxios_get_axis_ni(axis_hdl, ni) BIND(C) 181 181 USE ISO_C_BINDING … … 183 183 INTEGER (KIND=C_INT) :: ni 184 184 END SUBROUTINE cxios_get_axis_ni 185 186 FUNCTION cxios_is_defined_axis_ni(axis_hdl 185 186 FUNCTION cxios_is_defined_axis_ni(axis_hdl) BIND(C) 187 187 USE ISO_C_BINDING 188 188 LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_ni 189 189 INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 190 190 END FUNCTION cxios_is_defined_axis_ni 191 192 191 192 193 193 SUBROUTINE cxios_set_axis_positive(axis_hdl, positive, positive_size) BIND(C) 194 194 USE ISO_C_BINDING … … 197 197 INTEGER (kind = C_INT) , VALUE :: positive_size 198 198 END SUBROUTINE cxios_set_axis_positive 199 199 200 200 SUBROUTINE cxios_get_axis_positive(axis_hdl, positive, positive_size) BIND(C) 201 201 USE ISO_C_BINDING … … 204 204 INTEGER (kind = C_INT) , VALUE :: positive_size 205 205 END SUBROUTINE cxios_get_axis_positive 206 207 FUNCTION cxios_is_defined_axis_positive(axis_hdl 206 207 FUNCTION cxios_is_defined_axis_positive(axis_hdl) BIND(C) 208 208 USE ISO_C_BINDING 209 209 LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_positive 210 210 INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 211 211 END FUNCTION cxios_is_defined_axis_positive 212 213 212 213 214 214 SUBROUTINE cxios_set_axis_size(axis_hdl, size) BIND(C) 215 215 USE ISO_C_BINDING … … 217 217 INTEGER (KIND=C_INT) , VALUE :: size 218 218 END SUBROUTINE cxios_set_axis_size 219 219 220 220 SUBROUTINE cxios_get_axis_size(axis_hdl, size) BIND(C) 221 221 USE ISO_C_BINDING … … 223 223 INTEGER (KIND=C_INT) :: size 224 224 END SUBROUTINE cxios_get_axis_size 225 226 FUNCTION cxios_is_defined_axis_size(axis_hdl 225 226 FUNCTION cxios_is_defined_axis_size(axis_hdl) BIND(C) 227 227 USE ISO_C_BINDING 228 228 LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_size 229 229 INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 230 230 END FUNCTION cxios_is_defined_axis_size 231 232 231 232 233 233 SUBROUTINE cxios_set_axis_standard_name(axis_hdl, standard_name, standard_name_size) BIND(C) 234 234 USE ISO_C_BINDING … … 237 237 INTEGER (kind = C_INT) , VALUE :: standard_name_size 238 238 END SUBROUTINE cxios_set_axis_standard_name 239 239 240 240 SUBROUTINE cxios_get_axis_standard_name(axis_hdl, standard_name, standard_name_size) BIND(C) 241 241 USE ISO_C_BINDING … … 244 244 INTEGER (kind = C_INT) , VALUE :: standard_name_size 245 245 END SUBROUTINE cxios_get_axis_standard_name 246 247 FUNCTION cxios_is_defined_axis_standard_name(axis_hdl 246 247 FUNCTION cxios_is_defined_axis_standard_name(axis_hdl) BIND(C) 248 248 USE ISO_C_BINDING 249 249 LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_standard_name 250 250 INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 251 251 END FUNCTION cxios_is_defined_axis_standard_name 252 253 252 253 254 254 SUBROUTINE cxios_set_axis_unit(axis_hdl, unit, unit_size) BIND(C) 255 255 USE ISO_C_BINDING … … 258 258 INTEGER (kind = C_INT) , VALUE :: unit_size 259 259 END SUBROUTINE cxios_set_axis_unit 260 260 261 261 SUBROUTINE cxios_get_axis_unit(axis_hdl, unit, unit_size) BIND(C) 262 262 USE ISO_C_BINDING … … 265 265 INTEGER (kind = C_INT) , VALUE :: unit_size 266 266 END SUBROUTINE cxios_get_axis_unit 267 268 FUNCTION cxios_is_defined_axis_unit(axis_hdl 267 268 FUNCTION cxios_is_defined_axis_unit(axis_hdl) BIND(C) 269 269 USE ISO_C_BINDING 270 270 LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_unit 271 271 INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 272 272 END FUNCTION cxios_is_defined_axis_unit 273 274 273 274 275 275 SUBROUTINE cxios_set_axis_value(axis_hdl, value, extent1) BIND(C) 276 276 USE ISO_C_BINDING … … 279 279 INTEGER (kind = C_INT), VALUE :: extent1 280 280 END SUBROUTINE cxios_set_axis_value 281 281 282 282 SUBROUTINE cxios_get_axis_value(axis_hdl, value, extent1) BIND(C) 283 283 USE ISO_C_BINDING … … 286 286 INTEGER (kind = C_INT), VALUE :: extent1 287 287 END SUBROUTINE cxios_get_axis_value 288 289 FUNCTION cxios_is_defined_axis_value(axis_hdl 288 289 FUNCTION cxios_is_defined_axis_value(axis_hdl) BIND(C) 290 290 USE ISO_C_BINDING 291 291 LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_value 292 292 INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 293 293 END FUNCTION cxios_is_defined_axis_value 294 295 294 295 296 296 SUBROUTINE cxios_set_axis_zoom_begin(axis_hdl, zoom_begin) BIND(C) 297 297 USE ISO_C_BINDING … … 299 299 INTEGER (KIND=C_INT) , VALUE :: zoom_begin 300 300 END SUBROUTINE cxios_set_axis_zoom_begin 301 301 302 302 SUBROUTINE cxios_get_axis_zoom_begin(axis_hdl, zoom_begin) BIND(C) 303 303 USE ISO_C_BINDING … … 305 305 INTEGER (KIND=C_INT) :: zoom_begin 306 306 END SUBROUTINE cxios_get_axis_zoom_begin 307 308 FUNCTION cxios_is_defined_axis_zoom_begin(axis_hdl 307 308 FUNCTION cxios_is_defined_axis_zoom_begin(axis_hdl) BIND(C) 309 309 USE ISO_C_BINDING 310 310 LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_zoom_begin 311 311 INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 312 312 END FUNCTION cxios_is_defined_axis_zoom_begin 313 314 313 314 315 315 SUBROUTINE cxios_set_axis_zoom_end(axis_hdl, zoom_end) BIND(C) 316 316 USE ISO_C_BINDING … … 318 318 INTEGER (KIND=C_INT) , VALUE :: zoom_end 319 319 END SUBROUTINE cxios_set_axis_zoom_end 320 320 321 321 SUBROUTINE cxios_get_axis_zoom_end(axis_hdl, zoom_end) BIND(C) 322 322 USE ISO_C_BINDING … … 324 324 INTEGER (KIND=C_INT) :: zoom_end 325 325 END SUBROUTINE cxios_get_axis_zoom_end 326 327 FUNCTION cxios_is_defined_axis_zoom_end(axis_hdl 326 327 FUNCTION cxios_is_defined_axis_zoom_end(axis_hdl) BIND(C) 328 328 USE ISO_C_BINDING 329 329 LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_zoom_end 330 330 INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 331 331 END FUNCTION cxios_is_defined_axis_zoom_end 332 333 332 333 334 334 SUBROUTINE cxios_set_axis_zoom_size(axis_hdl, zoom_size) BIND(C) 335 335 USE ISO_C_BINDING … … 337 337 INTEGER (KIND=C_INT) , VALUE :: zoom_size 338 338 END SUBROUTINE cxios_set_axis_zoom_size 339 339 340 340 SUBROUTINE cxios_get_axis_zoom_size(axis_hdl, zoom_size) BIND(C) 341 341 USE ISO_C_BINDING … … 343 343 INTEGER (KIND=C_INT) :: zoom_size 344 344 END SUBROUTINE cxios_get_axis_zoom_size 345 346 FUNCTION cxios_is_defined_axis_zoom_size(axis_hdl 345 346 FUNCTION cxios_is_defined_axis_zoom_size(axis_hdl) BIND(C) 347 347 USE ISO_C_BINDING 348 348 LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_zoom_size 349 349 INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 350 350 END FUNCTION cxios_is_defined_axis_zoom_size 351 352 353 END INTERFACE 354 351 352 END INTERFACE 353 355 354 END MODULE axis_interface_attr -
XIOS/trunk/src/interface/fortran_attr/axisgroup_interface_attr.F90
r555 r581 6 6 MODULE axisgroup_interface_attr 7 7 USE, INTRINSIC :: ISO_C_BINDING 8 9 INTERFACE ! Do not call directly / interface FORTRAN 2003 <-> C9910 11 8 9 INTERFACE 10 ! Do not call directly / interface FORTRAN 2003 <-> C99 11 12 12 SUBROUTINE cxios_set_axisgroup_axis_ref(axisgroup_hdl, axis_ref, axis_ref_size) BIND(C) 13 13 USE ISO_C_BINDING … … 16 16 INTEGER (kind = C_INT) , VALUE :: axis_ref_size 17 17 END SUBROUTINE cxios_set_axisgroup_axis_ref 18 18 19 19 SUBROUTINE cxios_get_axisgroup_axis_ref(axisgroup_hdl, axis_ref, axis_ref_size) BIND(C) 20 20 USE ISO_C_BINDING … … 23 23 INTEGER (kind = C_INT) , VALUE :: axis_ref_size 24 24 END SUBROUTINE cxios_get_axisgroup_axis_ref 25 26 FUNCTION cxios_is_defined_axisgroup_axis_ref(axisgroup_hdl 25 26 FUNCTION cxios_is_defined_axisgroup_axis_ref(axisgroup_hdl) BIND(C) 27 27 USE ISO_C_BINDING 28 28 LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_axis_ref 29 29 INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 30 30 END FUNCTION cxios_is_defined_axisgroup_axis_ref 31 32 31 32 33 33 SUBROUTINE cxios_set_axisgroup_data_begin(axisgroup_hdl, data_begin) BIND(C) 34 34 USE ISO_C_BINDING … … 36 36 INTEGER (KIND=C_INT) , VALUE :: data_begin 37 37 END SUBROUTINE cxios_set_axisgroup_data_begin 38 38 39 39 SUBROUTINE cxios_get_axisgroup_data_begin(axisgroup_hdl, data_begin) BIND(C) 40 40 USE ISO_C_BINDING … … 42 42 INTEGER (KIND=C_INT) :: data_begin 43 43 END SUBROUTINE cxios_get_axisgroup_data_begin 44 45 FUNCTION cxios_is_defined_axisgroup_data_begin(axisgroup_hdl 44 45 FUNCTION cxios_is_defined_axisgroup_data_begin(axisgroup_hdl) BIND(C) 46 46 USE ISO_C_BINDING 47 47 LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_data_begin 48 48 INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 49 49 END FUNCTION cxios_is_defined_axisgroup_data_begin 50 51 50 51 52 52 SUBROUTINE cxios_set_axisgroup_data_index(axisgroup_hdl, data_index, extent1) BIND(C) 53 53 USE ISO_C_BINDING … … 56 56 INTEGER (kind = C_INT), VALUE :: extent1 57 57 END SUBROUTINE cxios_set_axisgroup_data_index 58 58 59 59 SUBROUTINE cxios_get_axisgroup_data_index(axisgroup_hdl, data_index, extent1) BIND(C) 60 60 USE ISO_C_BINDING … … 63 63 INTEGER (kind = C_INT), VALUE :: extent1 64 64 END SUBROUTINE cxios_get_axisgroup_data_index 65 66 FUNCTION cxios_is_defined_axisgroup_data_index(axisgroup_hdl 65 66 FUNCTION cxios_is_defined_axisgroup_data_index(axisgroup_hdl) BIND(C) 67 67 USE ISO_C_BINDING 68 68 LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_data_index 69 69 INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 70 70 END FUNCTION cxios_is_defined_axisgroup_data_index 71 72 71 72 73 73 SUBROUTINE cxios_set_axisgroup_data_n(axisgroup_hdl, data_n) BIND(C) 74 74 USE ISO_C_BINDING … … 76 76 INTEGER (KIND=C_INT) , VALUE :: data_n 77 77 END SUBROUTINE cxios_set_axisgroup_data_n 78 78 79 79 SUBROUTINE cxios_get_axisgroup_data_n(axisgroup_hdl, data_n) BIND(C) 80 80 USE ISO_C_BINDING … … 82 82 INTEGER (KIND=C_INT) :: data_n 83 83 END SUBROUTINE cxios_get_axisgroup_data_n 84 85 FUNCTION cxios_is_defined_axisgroup_data_n(axisgroup_hdl 84 85 FUNCTION cxios_is_defined_axisgroup_data_n(axisgroup_hdl) BIND(C) 86 86 USE ISO_C_BINDING 87 87 LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_data_n 88 88 INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 89 89 END FUNCTION cxios_is_defined_axisgroup_data_n 90 91 90 91 92 92 SUBROUTINE cxios_set_axisgroup_group_ref(axisgroup_hdl, group_ref, group_ref_size) BIND(C) 93 93 USE ISO_C_BINDING … … 96 96 INTEGER (kind = C_INT) , VALUE :: group_ref_size 97 97 END SUBROUTINE cxios_set_axisgroup_group_ref 98 98 99 99 SUBROUTINE cxios_get_axisgroup_group_ref(axisgroup_hdl, group_ref, group_ref_size) BIND(C) 100 100 USE ISO_C_BINDING … … 103 103 INTEGER (kind = C_INT) , VALUE :: group_ref_size 104 104 END SUBROUTINE cxios_get_axisgroup_group_ref 105 106 FUNCTION cxios_is_defined_axisgroup_group_ref(axisgroup_hdl 105 106 FUNCTION cxios_is_defined_axisgroup_group_ref(axisgroup_hdl) BIND(C) 107 107 USE ISO_C_BINDING 108 108 LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_group_ref 109 109 INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 110 110 END FUNCTION cxios_is_defined_axisgroup_group_ref 111 112 111 112 113 113 SUBROUTINE cxios_set_axisgroup_ibegin(axisgroup_hdl, ibegin) BIND(C) 114 114 USE ISO_C_BINDING … … 116 116 INTEGER (KIND=C_INT) , VALUE :: ibegin 117 117 END SUBROUTINE cxios_set_axisgroup_ibegin 118 118 119 119 SUBROUTINE cxios_get_axisgroup_ibegin(axisgroup_hdl, ibegin) BIND(C) 120 120 USE ISO_C_BINDING … … 122 122 INTEGER (KIND=C_INT) :: ibegin 123 123 END SUBROUTINE cxios_get_axisgroup_ibegin 124 125 FUNCTION cxios_is_defined_axisgroup_ibegin(axisgroup_hdl 124 125 FUNCTION cxios_is_defined_axisgroup_ibegin(axisgroup_hdl) BIND(C) 126 126 USE ISO_C_BINDING 127 127 LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_ibegin 128 128 INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 129 129 END FUNCTION cxios_is_defined_axisgroup_ibegin 130 131 130 131 132 132 SUBROUTINE cxios_set_axisgroup_long_name(axisgroup_hdl, long_name, long_name_size) BIND(C) 133 133 USE ISO_C_BINDING … … 136 136 INTEGER (kind = C_INT) , VALUE :: long_name_size 137 137 END SUBROUTINE cxios_set_axisgroup_long_name 138 138 139 139 SUBROUTINE cxios_get_axisgroup_long_name(axisgroup_hdl, long_name, long_name_size) BIND(C) 140 140 USE ISO_C_BINDING … … 143 143 INTEGER (kind = C_INT) , VALUE :: long_name_size 144 144 END SUBROUTINE cxios_get_axisgroup_long_name 145 146 FUNCTION cxios_is_defined_axisgroup_long_name(axisgroup_hdl 145 146 FUNCTION cxios_is_defined_axisgroup_long_name(axisgroup_hdl) BIND(C) 147 147 USE ISO_C_BINDING 148 148 LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_long_name 149 149 INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 150 150 END FUNCTION cxios_is_defined_axisgroup_long_name 151 152 151 152 153 153 SUBROUTINE cxios_set_axisgroup_mask(axisgroup_hdl, mask, extent1) BIND(C) 154 154 USE ISO_C_BINDING … … 157 157 INTEGER (kind = C_INT), VALUE :: extent1 158 158 END SUBROUTINE cxios_set_axisgroup_mask 159 159 160 160 SUBROUTINE cxios_get_axisgroup_mask(axisgroup_hdl, mask, extent1) BIND(C) 161 161 USE ISO_C_BINDING … … 164 164 INTEGER (kind = C_INT), VALUE :: extent1 165 165 END SUBROUTINE cxios_get_axisgroup_mask 166 167 FUNCTION cxios_is_defined_axisgroup_mask(axisgroup_hdl 166 167 FUNCTION cxios_is_defined_axisgroup_mask(axisgroup_hdl) BIND(C) 168 168 USE ISO_C_BINDING 169 169 LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_mask 170 170 INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 171 171 END FUNCTION cxios_is_defined_axisgroup_mask 172 173 172 173 174 174 SUBROUTINE cxios_set_axisgroup_name(axisgroup_hdl, name, name_size) BIND(C) 175 175 USE ISO_C_BINDING … … 178 178 INTEGER (kind = C_INT) , VALUE :: name_size 179 179 END SUBROUTINE cxios_set_axisgroup_name 180 180 181 181 SUBROUTINE cxios_get_axisgroup_name(axisgroup_hdl, name, name_size) BIND(C) 182 182 USE ISO_C_BINDING … … 185 185 INTEGER (kind = C_INT) , VALUE :: name_size 186 186 END SUBROUTINE cxios_get_axisgroup_name 187 188 FUNCTION cxios_is_defined_axisgroup_name(axisgroup_hdl 187 188 FUNCTION cxios_is_defined_axisgroup_name(axisgroup_hdl) BIND(C) 189 189 USE ISO_C_BINDING 190 190 LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_name 191 191 INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 192 192 END FUNCTION cxios_is_defined_axisgroup_name 193 194 193 194 195 195 SUBROUTINE cxios_set_axisgroup_ni(axisgroup_hdl, ni) BIND(C) 196 196 USE ISO_C_BINDING … … 198 198 INTEGER (KIND=C_INT) , VALUE :: ni 199 199 END SUBROUTINE cxios_set_axisgroup_ni 200 200 201 201 SUBROUTINE cxios_get_axisgroup_ni(axisgroup_hdl, ni) BIND(C) 202 202 USE ISO_C_BINDING … … 204 204 INTEGER (KIND=C_INT) :: ni 205 205 END SUBROUTINE cxios_get_axisgroup_ni 206 207 FUNCTION cxios_is_defined_axisgroup_ni(axisgroup_hdl 206 207 FUNCTION cxios_is_defined_axisgroup_ni(axisgroup_hdl) BIND(C) 208 208 USE ISO_C_BINDING 209 209 LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_ni 210 210 INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 211 211 END FUNCTION cxios_is_defined_axisgroup_ni 212 213 212 213 214 214 SUBROUTINE cxios_set_axisgroup_positive(axisgroup_hdl, positive, positive_size) BIND(C) 215 215 USE ISO_C_BINDING … … 218 218 INTEGER (kind = C_INT) , VALUE :: positive_size 219 219 END SUBROUTINE cxios_set_axisgroup_positive 220 220 221 221 SUBROUTINE cxios_get_axisgroup_positive(axisgroup_hdl, positive, positive_size) BIND(C) 222 222 USE ISO_C_BINDING … … 225 225 INTEGER (kind = C_INT) , VALUE :: positive_size 226 226 END SUBROUTINE cxios_get_axisgroup_positive 227 228 FUNCTION cxios_is_defined_axisgroup_positive(axisgroup_hdl 227 228 FUNCTION cxios_is_defined_axisgroup_positive(axisgroup_hdl) BIND(C) 229 229 USE ISO_C_BINDING 230 230 LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_positive 231 231 INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 232 232 END FUNCTION cxios_is_defined_axisgroup_positive 233 234 233 234 235 235 SUBROUTINE cxios_set_axisgroup_size(axisgroup_hdl, size) BIND(C) 236 236 USE ISO_C_BINDING … … 238 238 INTEGER (KIND=C_INT) , VALUE :: size 239 239 END SUBROUTINE cxios_set_axisgroup_size 240 240 241 241 SUBROUTINE cxios_get_axisgroup_size(axisgroup_hdl, size) BIND(C) 242 242 USE ISO_C_BINDING … … 244 244 INTEGER (KIND=C_INT) :: size 245 245 END SUBROUTINE cxios_get_axisgroup_size 246 247 FUNCTION cxios_is_defined_axisgroup_size(axisgroup_hdl 246 247 FUNCTION cxios_is_defined_axisgroup_size(axisgroup_hdl) BIND(C) 248 248 USE ISO_C_BINDING 249 249 LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_size 250 250 INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 251 251 END FUNCTION cxios_is_defined_axisgroup_size 252 253 252 253 254 254 SUBROUTINE cxios_set_axisgroup_standard_name(axisgroup_hdl, standard_name, standard_name_size) BIND(C) 255 255 USE ISO_C_BINDING … … 258 258 INTEGER (kind = C_INT) , VALUE :: standard_name_size 259 259 END SUBROUTINE cxios_set_axisgroup_standard_name 260 260 261 261 SUBROUTINE cxios_get_axisgroup_standard_name(axisgroup_hdl, standard_name, standard_name_size) BIND(C) 262 262 USE ISO_C_BINDING … … 265 265 INTEGER (kind = C_INT) , VALUE :: standard_name_size 266 266 END SUBROUTINE cxios_get_axisgroup_standard_name 267 268 FUNCTION cxios_is_defined_axisgroup_standard_name(axisgroup_hdl 267 268 FUNCTION cxios_is_defined_axisgroup_standard_name(axisgroup_hdl) BIND(C) 269 269 USE ISO_C_BINDING 270 270 LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_standard_name 271 271 INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 272 272 END FUNCTION cxios_is_defined_axisgroup_standard_name 273 274 273 274 275 275 SUBROUTINE cxios_set_axisgroup_unit(axisgroup_hdl, unit, unit_size) BIND(C) 276 276 USE ISO_C_BINDING … … 279 279 INTEGER (kind = C_INT) , VALUE :: unit_size 280 280 END SUBROUTINE cxios_set_axisgroup_unit 281 281 282 282 SUBROUTINE cxios_get_axisgroup_unit(axisgroup_hdl, unit, unit_size) BIND(C) 283 283 USE ISO_C_BINDING … … 286 286 INTEGER (kind = C_INT) , VALUE :: unit_size 287 287 END SUBROUTINE cxios_get_axisgroup_unit 288 289 FUNCTION cxios_is_defined_axisgroup_unit(axisgroup_hdl 288 289 FUNCTION cxios_is_defined_axisgroup_unit(axisgroup_hdl) BIND(C) 290 290 USE ISO_C_BINDING 291 291 LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_unit 292 292 INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 293 293 END FUNCTION cxios_is_defined_axisgroup_unit 294 295 294 295 296 296 SUBROUTINE cxios_set_axisgroup_value(axisgroup_hdl, value, extent1) BIND(C) 297 297 USE ISO_C_BINDING … … 300 300 INTEGER (kind = C_INT), VALUE :: extent1 301 301 END SUBROUTINE cxios_set_axisgroup_value 302 302 303 303 SUBROUTINE cxios_get_axisgroup_value(axisgroup_hdl, value, extent1) BIND(C) 304 304 USE ISO_C_BINDING … … 307 307 INTEGER (kind = C_INT), VALUE :: extent1 308 308 END SUBROUTINE cxios_get_axisgroup_value 309 310 FUNCTION cxios_is_defined_axisgroup_value(axisgroup_hdl 309 310 FUNCTION cxios_is_defined_axisgroup_value(axisgroup_hdl) BIND(C) 311 311 USE ISO_C_BINDING 312 312 LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_value 313 313 INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 314 314 END FUNCTION cxios_is_defined_axisgroup_value 315 316 315 316 317 317 SUBROUTINE cxios_set_axisgroup_zoom_begin(axisgroup_hdl, zoom_begin) BIND(C) 318 318 USE ISO_C_BINDING … … 320 320 INTEGER (KIND=C_INT) , VALUE :: zoom_begin 321 321 END SUBROUTINE cxios_set_axisgroup_zoom_begin 322 322 323 323 SUBROUTINE cxios_get_axisgroup_zoom_begin(axisgroup_hdl, zoom_begin) BIND(C) 324 324 USE ISO_C_BINDING … … 326 326 INTEGER (KIND=C_INT) :: zoom_begin 327 327 END SUBROUTINE cxios_get_axisgroup_zoom_begin 328 329 FUNCTION cxios_is_defined_axisgroup_zoom_begin(axisgroup_hdl 328 329 FUNCTION cxios_is_defined_axisgroup_zoom_begin(axisgroup_hdl) BIND(C) 330 330 USE ISO_C_BINDING 331 331 LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_zoom_begin 332 332 INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 333 333 END FUNCTION cxios_is_defined_axisgroup_zoom_begin 334 335 334 335 336 336 SUBROUTINE cxios_set_axisgroup_zoom_end(axisgroup_hdl, zoom_end) BIND(C) 337 337 USE ISO_C_BINDING … … 339 339 INTEGER (KIND=C_INT) , VALUE :: zoom_end 340 340 END SUBROUTINE cxios_set_axisgroup_zoom_end 341 341 342 342 SUBROUTINE cxios_get_axisgroup_zoom_end(axisgroup_hdl, zoom_end) BIND(C) 343 343 USE ISO_C_BINDING … … 345 345 INTEGER (KIND=C_INT) :: zoom_end 346 346 END SUBROUTINE cxios_get_axisgroup_zoom_end 347 348 FUNCTION cxios_is_defined_axisgroup_zoom_end(axisgroup_hdl 347 348 FUNCTION cxios_is_defined_axisgroup_zoom_end(axisgroup_hdl) BIND(C) 349 349 USE ISO_C_BINDING 350 350 LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_zoom_end 351 351 INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 352 352 END FUNCTION cxios_is_defined_axisgroup_zoom_end 353 354 353 354 355 355 SUBROUTINE cxios_set_axisgroup_zoom_size(axisgroup_hdl, zoom_size) BIND(C) 356 356 USE ISO_C_BINDING … … 358 358 INTEGER (KIND=C_INT) , VALUE :: zoom_size 359 359 END SUBROUTINE cxios_set_axisgroup_zoom_size 360 360 361 361 SUBROUTINE cxios_get_axisgroup_zoom_size(axisgroup_hdl, zoom_size) BIND(C) 362 362 USE ISO_C_BINDING … … 364 364 INTEGER (KIND=C_INT) :: zoom_size 365 365 END SUBROUTINE cxios_get_axisgroup_zoom_size 366 367 FUNCTION cxios_is_defined_axisgroup_zoom_size(axisgroup_hdl 366 367 FUNCTION cxios_is_defined_axisgroup_zoom_size(axisgroup_hdl) BIND(C) 368 368 USE ISO_C_BINDING 369 369 LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_zoom_size 370 370 INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 371 371 END FUNCTION cxios_is_defined_axisgroup_zoom_size 372 373 374 END INTERFACE 375 372 373 END INTERFACE 374 376 375 END MODULE axisgroup_interface_attr -
XIOS/trunk/src/interface/fortran_attr/calendar_wrapper_interface_attr.F90
r550 r581 6 6 MODULE calendar_wrapper_interface_attr 7 7 USE, INTRINSIC :: ISO_C_BINDING 8 9 INTERFACE ! Do not call directly / interface FORTRAN 2003 <-> C9910 11 8 9 INTERFACE 10 ! Do not call directly / interface FORTRAN 2003 <-> C99 11 12 12 SUBROUTINE cxios_set_calendar_wrapper_day_length(calendar_wrapper_hdl, day_length) BIND(C) 13 13 USE ISO_C_BINDING … … 15 15 INTEGER (KIND=C_INT) , VALUE :: day_length 16 16 END SUBROUTINE cxios_set_calendar_wrapper_day_length 17 17 18 18 SUBROUTINE cxios_get_calendar_wrapper_day_length(calendar_wrapper_hdl, day_length) BIND(C) 19 19 USE ISO_C_BINDING … … 21 21 INTEGER (KIND=C_INT) :: day_length 22 22 END SUBROUTINE cxios_get_calendar_wrapper_day_length 23 24 FUNCTION cxios_is_defined_calendar_wrapper_day_length(calendar_wrapper_hdl 23 24 FUNCTION cxios_is_defined_calendar_wrapper_day_length(calendar_wrapper_hdl) BIND(C) 25 25 USE ISO_C_BINDING 26 26 LOGICAL(kind=C_BOOL) :: cxios_is_defined_calendar_wrapper_day_length 27 27 INTEGER (kind = C_INTPTR_T), VALUE :: calendar_wrapper_hdl 28 28 END FUNCTION cxios_is_defined_calendar_wrapper_day_length 29 30 29 30 31 31 SUBROUTINE cxios_set_calendar_wrapper_leap_year_drift(calendar_wrapper_hdl, leap_year_drift) BIND(C) 32 32 USE ISO_C_BINDING … … 34 34 REAL (KIND=C_DOUBLE) , VALUE :: leap_year_drift 35 35 END SUBROUTINE cxios_set_calendar_wrapper_leap_year_drift 36 36 37 37 SUBROUTINE cxios_get_calendar_wrapper_leap_year_drift(calendar_wrapper_hdl, leap_year_drift) BIND(C) 38 38 USE ISO_C_BINDING … … 40 40 REAL (KIND=C_DOUBLE) :: leap_year_drift 41 41 END SUBROUTINE cxios_get_calendar_wrapper_leap_year_drift 42 43 FUNCTION cxios_is_defined_calendar_wrapper_leap_year_drift(calendar_wrapper_hdl 42 43 FUNCTION cxios_is_defined_calendar_wrapper_leap_year_drift(calendar_wrapper_hdl) BIND(C) 44 44 USE ISO_C_BINDING 45 45 LOGICAL(kind=C_BOOL) :: cxios_is_defined_calendar_wrapper_leap_year_drift 46 46 INTEGER (kind = C_INTPTR_T), VALUE :: calendar_wrapper_hdl 47 47 END FUNCTION cxios_is_defined_calendar_wrapper_leap_year_drift 48 49 48 49 50 50 SUBROUTINE cxios_set_calendar_wrapper_leap_year_drift_offset(calendar_wrapper_hdl, leap_year_drift_offset) BIND(C) 51 51 USE ISO_C_BINDING … … 53 53 REAL (KIND=C_DOUBLE) , VALUE :: leap_year_drift_offset 54 54 END SUBROUTINE cxios_set_calendar_wrapper_leap_year_drift_offset 55 55 56 56 SUBROUTINE cxios_get_calendar_wrapper_leap_year_drift_offset(calendar_wrapper_hdl, leap_year_drift_offset) BIND(C) 57 57 USE ISO_C_BINDING … … 59 59 REAL (KIND=C_DOUBLE) :: leap_year_drift_offset 60 60 END SUBROUTINE cxios_get_calendar_wrapper_leap_year_drift_offset 61 62 FUNCTION cxios_is_defined_calendar_wrapper_leap_year_drift_offset(calendar_wrapper_hdl 61 62 FUNCTION cxios_is_defined_calendar_wrapper_leap_year_drift_offset(calendar_wrapper_hdl) BIND(C) 63 63 USE ISO_C_BINDING 64 64 LOGICAL(kind=C_BOOL) :: cxios_is_defined_calendar_wrapper_leap_year_drift_offset 65 65 INTEGER (kind = C_INTPTR_T), VALUE :: calendar_wrapper_hdl 66 66 END FUNCTION cxios_is_defined_calendar_wrapper_leap_year_drift_offset 67 68 67 68 69 69 SUBROUTINE cxios_set_calendar_wrapper_leap_year_month(calendar_wrapper_hdl, leap_year_month) BIND(C) 70 70 USE ISO_C_BINDING … … 72 72 INTEGER (KIND=C_INT) , VALUE :: leap_year_month 73 73 END SUBROUTINE cxios_set_calendar_wrapper_leap_year_month 74 74 75 75 SUBROUTINE cxios_get_calendar_wrapper_leap_year_month(calendar_wrapper_hdl, leap_year_month) BIND(C) 76 76 USE ISO_C_BINDING … … 78 78 INTEGER (KIND=C_INT) :: leap_year_month 79 79 END SUBROUTINE cxios_get_calendar_wrapper_leap_year_month 80 81 FUNCTION cxios_is_defined_calendar_wrapper_leap_year_month(calendar_wrapper_hdl 80 81 FUNCTION cxios_is_defined_calendar_wrapper_leap_year_month(calendar_wrapper_hdl) BIND(C) 82 82 USE ISO_C_BINDING 83 83 LOGICAL(kind=C_BOOL) :: cxios_is_defined_calendar_wrapper_leap_year_month 84 84 INTEGER (kind = C_INTPTR_T), VALUE :: calendar_wrapper_hdl 85 85 END FUNCTION cxios_is_defined_calendar_wrapper_leap_year_month 86 87 86 87 88 88 SUBROUTINE cxios_set_calendar_wrapper_month_lengths(calendar_wrapper_hdl, month_lengths, extent1) BIND(C) 89 89 USE ISO_C_BINDING … … 92 92 INTEGER (kind = C_INT), VALUE :: extent1 93 93 END SUBROUTINE cxios_set_calendar_wrapper_month_lengths 94 94 95 95 SUBROUTINE cxios_get_calendar_wrapper_month_lengths(calendar_wrapper_hdl, month_lengths, extent1) BIND(C) 96 96 USE ISO_C_BINDING … … 99 99 INTEGER (kind = C_INT), VALUE :: extent1 100 100 END SUBROUTINE cxios_get_calendar_wrapper_month_lengths 101 102 FUNCTION cxios_is_defined_calendar_wrapper_month_lengths(calendar_wrapper_hdl 101 102 FUNCTION cxios_is_defined_calendar_wrapper_month_lengths(calendar_wrapper_hdl) BIND(C) 103 103 USE ISO_C_BINDING 104 104 LOGICAL(kind=C_BOOL) :: cxios_is_defined_calendar_wrapper_month_lengths 105 105 INTEGER (kind = C_INTPTR_T), VALUE :: calendar_wrapper_hdl 106 106 END FUNCTION cxios_is_defined_calendar_wrapper_month_lengths 107 108 107 108 109 109 SUBROUTINE cxios_set_calendar_wrapper_start_date(calendar_wrapper_hdl, start_date, start_date_size) BIND(C) 110 110 USE ISO_C_BINDING … … 113 113 INTEGER (kind = C_INT) , VALUE :: start_date_size 114 114 END SUBROUTINE cxios_set_calendar_wrapper_start_date 115 115 116 116 SUBROUTINE cxios_get_calendar_wrapper_start_date(calendar_wrapper_hdl, start_date, start_date_size) BIND(C) 117 117 USE ISO_C_BINDING … … 120 120 INTEGER (kind = C_INT) , VALUE :: start_date_size 121 121 END SUBROUTINE cxios_get_calendar_wrapper_start_date 122 123 FUNCTION cxios_is_defined_calendar_wrapper_start_date(calendar_wrapper_hdl 122 123 FUNCTION cxios_is_defined_calendar_wrapper_start_date(calendar_wrapper_hdl) BIND(C) 124 124 USE ISO_C_BINDING 125 125 LOGICAL(kind=C_BOOL) :: cxios_is_defined_calendar_wrapper_start_date 126 126 INTEGER (kind = C_INTPTR_T), VALUE :: calendar_wrapper_hdl 127 127 END FUNCTION cxios_is_defined_calendar_wrapper_start_date 128 129 128 129 130 130 SUBROUTINE cxios_set_calendar_wrapper_time_origin(calendar_wrapper_hdl, time_origin, time_origin_size) BIND(C) 131 131 USE ISO_C_BINDING … … 134 134 INTEGER (kind = C_INT) , VALUE :: time_origin_size 135 135 END SUBROUTINE cxios_set_calendar_wrapper_time_origin 136 136 137 137 SUBROUTINE cxios_get_calendar_wrapper_time_origin(calendar_wrapper_hdl, time_origin, time_origin_size) BIND(C) 138 138 USE ISO_C_BINDING … … 141 141 INTEGER (kind = C_INT) , VALUE :: time_origin_size 142 142 END SUBROUTINE cxios_get_calendar_wrapper_time_origin 143 144 FUNCTION cxios_is_defined_calendar_wrapper_time_origin(calendar_wrapper_hdl 143 144 FUNCTION cxios_is_defined_calendar_wrapper_time_origin(calendar_wrapper_hdl) BIND(C) 145 145 USE ISO_C_BINDING 146 146 LOGICAL(kind=C_BOOL) :: cxios_is_defined_calendar_wrapper_time_origin 147 147 INTEGER (kind = C_INTPTR_T), VALUE :: calendar_wrapper_hdl 148 148 END FUNCTION cxios_is_defined_calendar_wrapper_time_origin 149 150 149 150 151 151 SUBROUTINE cxios_set_calendar_wrapper_timestep(calendar_wrapper_hdl, timestep) BIND(C) 152 152 USE ISO_C_BINDING … … 155 155 TYPE(txios(duration)), VALUE :: timestep 156 156 END SUBROUTINE cxios_set_calendar_wrapper_timestep 157 157 158 158 SUBROUTINE cxios_get_calendar_wrapper_timestep(calendar_wrapper_hdl, timestep) BIND(C) 159 159 USE ISO_C_BINDING … … 162 162 TYPE(txios(duration)) :: timestep 163 163 END SUBROUTINE cxios_get_calendar_wrapper_timestep 164 165 FUNCTION cxios_is_defined_calendar_wrapper_timestep(calendar_wrapper_hdl 164 165 FUNCTION cxios_is_defined_calendar_wrapper_timestep(calendar_wrapper_hdl) BIND(C) 166 166 USE ISO_C_BINDING 167 167 LOGICAL(kind=C_BOOL) :: cxios_is_defined_calendar_wrapper_timestep 168 168 INTEGER (kind = C_INTPTR_T), VALUE :: calendar_wrapper_hdl 169 169 END FUNCTION cxios_is_defined_calendar_wrapper_timestep 170 171 170 171 172 172 SUBROUTINE cxios_set_calendar_wrapper_type(calendar_wrapper_hdl, type, type_size) BIND(C) 173 173 USE ISO_C_BINDING … … 176 176 INTEGER (kind = C_INT) , VALUE :: type_size 177 177 END SUBROUTINE cxios_set_calendar_wrapper_type 178 178 179 179 SUBROUTINE cxios_get_calendar_wrapper_type(calendar_wrapper_hdl, type, type_size) BIND(C) 180 180 USE ISO_C_BINDING … … 183 183 INTEGER (kind = C_INT) , VALUE :: type_size 184 184 END SUBROUTINE cxios_get_calendar_wrapper_type 185 186 FUNCTION cxios_is_defined_calendar_wrapper_type(calendar_wrapper_hdl 185 186 FUNCTION cxios_is_defined_calendar_wrapper_type(calendar_wrapper_hdl) BIND(C) 187 187 USE ISO_C_BINDING 188 188 LOGICAL(kind=C_BOOL) :: cxios_is_defined_calendar_wrapper_type 189 189 INTEGER (kind = C_INTPTR_T), VALUE :: calendar_wrapper_hdl 190 190 END FUNCTION cxios_is_defined_calendar_wrapper_type 191 192 191 192 193 193 SUBROUTINE cxios_set_calendar_wrapper_year_length(calendar_wrapper_hdl, year_length) BIND(C) 194 194 USE ISO_C_BINDING … … 196 196 INTEGER (KIND=C_INT) , VALUE :: year_length 197 197 END SUBROUTINE cxios_set_calendar_wrapper_year_length 198 198 199 199 SUBROUTINE cxios_get_calendar_wrapper_year_length(calendar_wrapper_hdl, year_length) BIND(C) 200 200 USE ISO_C_BINDING … … 202 202 INTEGER (KIND=C_INT) :: year_length 203 203 END SUBROUTINE cxios_get_calendar_wrapper_year_length 204 205 FUNCTION cxios_is_defined_calendar_wrapper_year_length(calendar_wrapper_hdl 204 205 FUNCTION cxios_is_defined_calendar_wrapper_year_length(calendar_wrapper_hdl) BIND(C) 206 206 USE ISO_C_BINDING 207 207 LOGICAL(kind=C_BOOL) :: cxios_is_defined_calendar_wrapper_year_length 208 208 INTEGER (kind = C_INTPTR_T), VALUE :: calendar_wrapper_hdl 209 209 END FUNCTION cxios_is_defined_calendar_wrapper_year_length 210 211 212 END INTERFACE 213 210 211 END INTERFACE 212 214 213 END MODULE calendar_wrapper_interface_attr -
XIOS/trunk/src/interface/fortran_attr/context_interface_attr.F90
r549 r581 6 6 MODULE context_interface_attr 7 7 USE, INTRINSIC :: ISO_C_BINDING 8 9 INTERFACE ! Do not call directly / interface FORTRAN 2003 <-> C9910 11 8 9 INTERFACE 10 ! Do not call directly / interface FORTRAN 2003 <-> C99 11 12 12 SUBROUTINE cxios_set_context_output_dir(context_hdl, output_dir, output_dir_size) BIND(C) 13 13 USE ISO_C_BINDING … … 16 16 INTEGER (kind = C_INT) , VALUE :: output_dir_size 17 17 END SUBROUTINE cxios_set_context_output_dir 18 18 19 19 SUBROUTINE cxios_get_context_output_dir(context_hdl, output_dir, output_dir_size) BIND(C) 20 20 USE ISO_C_BINDING … … 23 23 INTEGER (kind = C_INT) , VALUE :: output_dir_size 24 24 END SUBROUTINE cxios_get_context_output_dir 25 26 FUNCTION cxios_is_defined_context_output_dir(context_hdl 25 26 FUNCTION cxios_is_defined_context_output_dir(context_hdl) BIND(C) 27 27 USE ISO_C_BINDING 28 28 LOGICAL(kind=C_BOOL) :: cxios_is_defined_context_output_dir 29 29 INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl 30 30 END FUNCTION cxios_is_defined_context_output_dir 31 32 33 END INTERFACE 34 31 32 END INTERFACE 33 35 34 END MODULE context_interface_attr -
XIOS/trunk/src/interface/fortran_attr/domain_interface_attr.F90
r546 r581 6 6 MODULE domain_interface_attr 7 7 USE, INTRINSIC :: ISO_C_BINDING 8 9 INTERFACE ! Do not call directly / interface FORTRAN 2003 <-> C9910 11 8 9 INTERFACE 10 ! Do not call directly / interface FORTRAN 2003 <-> C99 11 12 12 SUBROUTINE cxios_set_domain_bounds_lat(domain_hdl, bounds_lat, extent1, extent2) BIND(C) 13 13 USE ISO_C_BINDING … … 17 17 INTEGER (kind = C_INT), VALUE :: extent2 18 18 END SUBROUTINE cxios_set_domain_bounds_lat 19 19 20 20 SUBROUTINE cxios_get_domain_bounds_lat(domain_hdl, bounds_lat, extent1, extent2) BIND(C) 21 21 USE ISO_C_BINDING … … 25 25 INTEGER (kind = C_INT), VALUE :: extent2 26 26 END SUBROUTINE cxios_get_domain_bounds_lat 27 28 FUNCTION cxios_is_defined_domain_bounds_lat(domain_hdl 27 28 FUNCTION cxios_is_defined_domain_bounds_lat(domain_hdl) BIND(C) 29 29 USE ISO_C_BINDING 30 30 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_bounds_lat 31 31 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 32 32 END FUNCTION cxios_is_defined_domain_bounds_lat 33 34 33 34 35 35 SUBROUTINE cxios_set_domain_bounds_lon(domain_hdl, bounds_lon, extent1, extent2) BIND(C) 36 36 USE ISO_C_BINDING … … 40 40 INTEGER (kind = C_INT), VALUE :: extent2 41 41 END SUBROUTINE cxios_set_domain_bounds_lon 42 42 43 43 SUBROUTINE cxios_get_domain_bounds_lon(domain_hdl, bounds_lon, extent1, extent2) BIND(C) 44 44 USE ISO_C_BINDING … … 48 48 INTEGER (kind = C_INT), VALUE :: extent2 49 49 END SUBROUTINE cxios_get_domain_bounds_lon 50 51 FUNCTION cxios_is_defined_domain_bounds_lon(domain_hdl 50 51 FUNCTION cxios_is_defined_domain_bounds_lon(domain_hdl) BIND(C) 52 52 USE ISO_C_BINDING 53 53 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_bounds_lon 54 54 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 55 55 END FUNCTION cxios_is_defined_domain_bounds_lon 56 57 56 57 58 58 SUBROUTINE cxios_set_domain_data_dim(domain_hdl, data_dim) BIND(C) 59 59 USE ISO_C_BINDING … … 61 61 INTEGER (KIND=C_INT) , VALUE :: data_dim 62 62 END SUBROUTINE cxios_set_domain_data_dim 63 63 64 64 SUBROUTINE cxios_get_domain_data_dim(domain_hdl, data_dim) BIND(C) 65 65 USE ISO_C_BINDING … … 67 67 INTEGER (KIND=C_INT) :: data_dim 68 68 END SUBROUTINE cxios_get_domain_data_dim 69 70 FUNCTION cxios_is_defined_domain_data_dim(domain_hdl 69 70 FUNCTION cxios_is_defined_domain_data_dim(domain_hdl) BIND(C) 71 71 USE ISO_C_BINDING 72 72 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_data_dim 73 73 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 74 74 END FUNCTION cxios_is_defined_domain_data_dim 75 76 75 76 77 77 SUBROUTINE cxios_set_domain_data_i_index(domain_hdl, data_i_index, extent1) BIND(C) 78 78 USE ISO_C_BINDING … … 81 81 INTEGER (kind = C_INT), VALUE :: extent1 82 82 END SUBROUTINE cxios_set_domain_data_i_index 83 83 84 84 SUBROUTINE cxios_get_domain_data_i_index(domain_hdl, data_i_index, extent1) BIND(C) 85 85 USE ISO_C_BINDING … … 88 88 INTEGER (kind = C_INT), VALUE :: extent1 89 89 END SUBROUTINE cxios_get_domain_data_i_index 90 91 FUNCTION cxios_is_defined_domain_data_i_index(domain_hdl 90 91 FUNCTION cxios_is_defined_domain_data_i_index(domain_hdl) BIND(C) 92 92 USE ISO_C_BINDING 93 93 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_data_i_index 94 94 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 95 95 END FUNCTION cxios_is_defined_domain_data_i_index 96 97 96 97 98 98 SUBROUTINE cxios_set_domain_data_ibegin(domain_hdl, data_ibegin) BIND(C) 99 99 USE ISO_C_BINDING … … 101 101 INTEGER (KIND=C_INT) , VALUE :: data_ibegin 102 102 END SUBROUTINE cxios_set_domain_data_ibegin 103 103 104 104 SUBROUTINE cxios_get_domain_data_ibegin(domain_hdl, data_ibegin) BIND(C) 105 105 USE ISO_C_BINDING … … 107 107 INTEGER (KIND=C_INT) :: data_ibegin 108 108 END SUBROUTINE cxios_get_domain_data_ibegin 109 110 FUNCTION cxios_is_defined_domain_data_ibegin(domain_hdl 109 110 FUNCTION cxios_is_defined_domain_data_ibegin(domain_hdl) BIND(C) 111 111 USE ISO_C_BINDING 112 112 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_data_ibegin 113 113 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 114 114 END FUNCTION cxios_is_defined_domain_data_ibegin 115 116 115 116 117 117 SUBROUTINE cxios_set_domain_data_j_index(domain_hdl, data_j_index, extent1) BIND(C) 118 118 USE ISO_C_BINDING … … 121 121 INTEGER (kind = C_INT), VALUE :: extent1 122 122 END SUBROUTINE cxios_set_domain_data_j_index 123 123 124 124 SUBROUTINE cxios_get_domain_data_j_index(domain_hdl, data_j_index, extent1) BIND(C) 125 125 USE ISO_C_BINDING … … 128 128 INTEGER (kind = C_INT), VALUE :: extent1 129 129 END SUBROUTINE cxios_get_domain_data_j_index 130 131 FUNCTION cxios_is_defined_domain_data_j_index(domain_hdl 130 131 FUNCTION cxios_is_defined_domain_data_j_index(domain_hdl) BIND(C) 132 132 USE ISO_C_BINDING 133 133 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_data_j_index 134 134 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 135 135 END FUNCTION cxios_is_defined_domain_data_j_index 136 137 136 137 138 138 SUBROUTINE cxios_set_domain_data_jbegin(domain_hdl, data_jbegin) BIND(C) 139 139 USE ISO_C_BINDING … … 141 141 INTEGER (KIND=C_INT) , VALUE :: data_jbegin 142 142 END SUBROUTINE cxios_set_domain_data_jbegin 143 143 144 144 SUBROUTINE cxios_get_domain_data_jbegin(domain_hdl, data_jbegin) BIND(C) 145 145 USE ISO_C_BINDING … … 147 147 INTEGER (KIND=C_INT) :: data_jbegin 148 148 END SUBROUTINE cxios_get_domain_data_jbegin 149 150 FUNCTION cxios_is_defined_domain_data_jbegin(domain_hdl 149 150 FUNCTION cxios_is_defined_domain_data_jbegin(domain_hdl) BIND(C) 151 151 USE ISO_C_BINDING 152 152 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_data_jbegin 153 153 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 154 154 END FUNCTION cxios_is_defined_domain_data_jbegin 155 156 155 156 157 157 SUBROUTINE cxios_set_domain_data_n_index(domain_hdl, data_n_index) BIND(C) 158 158 USE ISO_C_BINDING … … 160 160 INTEGER (KIND=C_INT) , VALUE :: data_n_index 161 161 END SUBROUTINE cxios_set_domain_data_n_index 162 162 163 163 SUBROUTINE cxios_get_domain_data_n_index(domain_hdl, data_n_index) BIND(C) 164 164 USE ISO_C_BINDING … … 166 166 INTEGER (KIND=C_INT) :: data_n_index 167 167 END SUBROUTINE cxios_get_domain_data_n_index 168 169 FUNCTION cxios_is_defined_domain_data_n_index(domain_hdl 168 169 FUNCTION cxios_is_defined_domain_data_n_index(domain_hdl) BIND(C) 170 170 USE ISO_C_BINDING 171 171 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_data_n_index 172 172 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 173 173 END FUNCTION cxios_is_defined_domain_data_n_index 174 175 174 175 176 176 SUBROUTINE cxios_set_domain_data_ni(domain_hdl, data_ni) BIND(C) 177 177 USE ISO_C_BINDING … … 179 179 INTEGER (KIND=C_INT) , VALUE :: data_ni 180 180 END SUBROUTINE cxios_set_domain_data_ni 181 181 182 182 SUBROUTINE cxios_get_domain_data_ni(domain_hdl, data_ni) BIND(C) 183 183 USE ISO_C_BINDING … … 185 185 INTEGER (KIND=C_INT) :: data_ni 186 186 END SUBROUTINE cxios_get_domain_data_ni 187 188 FUNCTION cxios_is_defined_domain_data_ni(domain_hdl 187 188 FUNCTION cxios_is_defined_domain_data_ni(domain_hdl) BIND(C) 189 189 USE ISO_C_BINDING 190 190 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_data_ni 191 191 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 192 192 END FUNCTION cxios_is_defined_domain_data_ni 193 194 193 194 195 195 SUBROUTINE cxios_set_domain_data_nj(domain_hdl, data_nj) BIND(C) 196 196 USE ISO_C_BINDING … … 198 198 INTEGER (KIND=C_INT) , VALUE :: data_nj 199 199 END SUBROUTINE cxios_set_domain_data_nj 200 200 201 201 SUBROUTINE cxios_get_domain_data_nj(domain_hdl, data_nj) BIND(C) 202 202 USE ISO_C_BINDING … … 204 204 INTEGER (KIND=C_INT) :: data_nj 205 205 END SUBROUTINE cxios_get_domain_data_nj 206 207 FUNCTION cxios_is_defined_domain_data_nj(domain_hdl 206 207 FUNCTION cxios_is_defined_domain_data_nj(domain_hdl) BIND(C) 208 208 USE ISO_C_BINDING 209 209 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_data_nj 210 210 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 211 211 END FUNCTION cxios_is_defined_domain_data_nj 212 213 212 213 214 214 SUBROUTINE cxios_set_domain_domain_group_ref(domain_hdl, domain_group_ref, domain_group_ref_size) BIND(C) 215 215 USE ISO_C_BINDING … … 218 218 INTEGER (kind = C_INT) , VALUE :: domain_group_ref_size 219 219 END SUBROUTINE cxios_set_domain_domain_group_ref 220 220 221 221 SUBROUTINE cxios_get_domain_domain_group_ref(domain_hdl, domain_group_ref, domain_group_ref_size) BIND(C) 222 222 USE ISO_C_BINDING … … 225 225 INTEGER (kind = C_INT) , VALUE :: domain_group_ref_size 226 226 END SUBROUTINE cxios_get_domain_domain_group_ref 227 228 FUNCTION cxios_is_defined_domain_domain_group_ref(domain_hdl 227 228 FUNCTION cxios_is_defined_domain_domain_group_ref(domain_hdl) BIND(C) 229 229 USE ISO_C_BINDING 230 230 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_domain_group_ref 231 231 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 232 232 END FUNCTION cxios_is_defined_domain_domain_group_ref 233 234 233 234 235 235 SUBROUTINE cxios_set_domain_domain_ref(domain_hdl, domain_ref, domain_ref_size) BIND(C) 236 236 USE ISO_C_BINDING … … 239 239 INTEGER (kind = C_INT) , VALUE :: domain_ref_size 240 240 END SUBROUTINE cxios_set_domain_domain_ref 241 241 242 242 SUBROUTINE cxios_get_domain_domain_ref(domain_hdl, domain_ref, domain_ref_size) BIND(C) 243 243 USE ISO_C_BINDING … … 246 246 INTEGER (kind = C_INT) , VALUE :: domain_ref_size 247 247 END SUBROUTINE cxios_get_domain_domain_ref 248 249 FUNCTION cxios_is_defined_domain_domain_ref(domain_hdl 248 249 FUNCTION cxios_is_defined_domain_domain_ref(domain_hdl) BIND(C) 250 250 USE ISO_C_BINDING 251 251 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_domain_ref 252 252 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 253 253 END FUNCTION cxios_is_defined_domain_domain_ref 254 255 254 255 256 256 SUBROUTINE cxios_set_domain_i_index(domain_hdl, i_index, extent1, extent2) BIND(C) 257 257 USE ISO_C_BINDING … … 261 261 INTEGER (kind = C_INT), VALUE :: extent2 262 262 END SUBROUTINE cxios_set_domain_i_index 263 263 264 264 SUBROUTINE cxios_get_domain_i_index(domain_hdl, i_index, extent1, extent2) BIND(C) 265 265 USE ISO_C_BINDING … … 269 269 INTEGER (kind = C_INT), VALUE :: extent2 270 270 END SUBROUTINE cxios_get_domain_i_index 271 272 FUNCTION cxios_is_defined_domain_i_index(domain_hdl 271 272 FUNCTION cxios_is_defined_domain_i_index(domain_hdl) BIND(C) 273 273 USE ISO_C_BINDING 274 274 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_i_index 275 275 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 276 276 END FUNCTION cxios_is_defined_domain_i_index 277 278 277 278 279 279 SUBROUTINE cxios_set_domain_ibegin(domain_hdl, ibegin) BIND(C) 280 280 USE ISO_C_BINDING … … 282 282 INTEGER (KIND=C_INT) , VALUE :: ibegin 283 283 END SUBROUTINE cxios_set_domain_ibegin 284 284 285 285 SUBROUTINE cxios_get_domain_ibegin(domain_hdl, ibegin) BIND(C) 286 286 USE ISO_C_BINDING … … 288 288 INTEGER (KIND=C_INT) :: ibegin 289 289 END SUBROUTINE cxios_get_domain_ibegin 290 291 FUNCTION cxios_is_defined_domain_ibegin(domain_hdl 290 291 FUNCTION cxios_is_defined_domain_ibegin(domain_hdl) BIND(C) 292 292 USE ISO_C_BINDING 293 293 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_ibegin 294 294 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 295 295 END FUNCTION cxios_is_defined_domain_ibegin 296 297 296 297 298 298 SUBROUTINE cxios_set_domain_iend(domain_hdl, iend) BIND(C) 299 299 USE ISO_C_BINDING … … 301 301 INTEGER (KIND=C_INT) , VALUE :: iend 302 302 END SUBROUTINE cxios_set_domain_iend 303 303 304 304 SUBROUTINE cxios_get_domain_iend(domain_hdl, iend) BIND(C) 305 305 USE ISO_C_BINDING … … 307 307 INTEGER (KIND=C_INT) :: iend 308 308 END SUBROUTINE cxios_get_domain_iend 309 310 FUNCTION cxios_is_defined_domain_iend(domain_hdl 309 310 FUNCTION cxios_is_defined_domain_iend(domain_hdl) BIND(C) 311 311 USE ISO_C_BINDING 312 312 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_iend 313 313 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 314 314 END FUNCTION cxios_is_defined_domain_iend 315 316 315 316 317 317 SUBROUTINE cxios_set_domain_j_index(domain_hdl, j_index, extent1, extent2) BIND(C) 318 318 USE ISO_C_BINDING … … 322 322 INTEGER (kind = C_INT), VALUE :: extent2 323 323 END SUBROUTINE cxios_set_domain_j_index 324 324 325 325 SUBROUTINE cxios_get_domain_j_index(domain_hdl, j_index, extent1, extent2) BIND(C) 326 326 USE ISO_C_BINDING … … 330 330 INTEGER (kind = C_INT), VALUE :: extent2 331 331 END SUBROUTINE cxios_get_domain_j_index 332 333 FUNCTION cxios_is_defined_domain_j_index(domain_hdl 332 333 FUNCTION cxios_is_defined_domain_j_index(domain_hdl) BIND(C) 334 334 USE ISO_C_BINDING 335 335 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_j_index 336 336 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 337 337 END FUNCTION cxios_is_defined_domain_j_index 338 339 338 339 340 340 SUBROUTINE cxios_set_domain_jbegin(domain_hdl, jbegin) BIND(C) 341 341 USE ISO_C_BINDING … … 343 343 INTEGER (KIND=C_INT) , VALUE :: jbegin 344 344 END SUBROUTINE cxios_set_domain_jbegin 345 345 346 346 SUBROUTINE cxios_get_domain_jbegin(domain_hdl, jbegin) BIND(C) 347 347 USE ISO_C_BINDING … … 349 349 INTEGER (KIND=C_INT) :: jbegin 350 350 END SUBROUTINE cxios_get_domain_jbegin 351 352 FUNCTION cxios_is_defined_domain_jbegin(domain_hdl 351 352 FUNCTION cxios_is_defined_domain_jbegin(domain_hdl) BIND(C) 353 353 USE ISO_C_BINDING 354 354 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_jbegin 355 355 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 356 356 END FUNCTION cxios_is_defined_domain_jbegin 357 358 357 358 359 359 SUBROUTINE cxios_set_domain_jend(domain_hdl, jend) BIND(C) 360 360 USE ISO_C_BINDING … … 362 362 INTEGER (KIND=C_INT) , VALUE :: jend 363 363 END SUBROUTINE cxios_set_domain_jend 364 364 365 365 SUBROUTINE cxios_get_domain_jend(domain_hdl, jend) BIND(C) 366 366 USE ISO_C_BINDING … … 368 368 INTEGER (KIND=C_INT) :: jend 369 369 END SUBROUTINE cxios_get_domain_jend 370 371 FUNCTION cxios_is_defined_domain_jend(domain_hdl 370 371 FUNCTION cxios_is_defined_domain_jend(domain_hdl) BIND(C) 372 372 USE ISO_C_BINDING 373 373 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_jend 374 374 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 375 375 END FUNCTION cxios_is_defined_domain_jend 376 377 376 377 378 378 SUBROUTINE cxios_set_domain_latvalue(domain_hdl, latvalue, extent1) BIND(C) 379 379 USE ISO_C_BINDING … … 382 382 INTEGER (kind = C_INT), VALUE :: extent1 383 383 END SUBROUTINE cxios_set_domain_latvalue 384 384 385 385 SUBROUTINE cxios_get_domain_latvalue(domain_hdl, latvalue, extent1) BIND(C) 386 386 USE ISO_C_BINDING … … 389 389 INTEGER (kind = C_INT), VALUE :: extent1 390 390 END SUBROUTINE cxios_get_domain_latvalue 391 392 FUNCTION cxios_is_defined_domain_latvalue(domain_hdl 391 392 FUNCTION cxios_is_defined_domain_latvalue(domain_hdl) BIND(C) 393 393 USE ISO_C_BINDING 394 394 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_latvalue 395 395 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 396 396 END FUNCTION cxios_is_defined_domain_latvalue 397 398 397 398 399 399 SUBROUTINE cxios_set_domain_long_name(domain_hdl, long_name, long_name_size) BIND(C) 400 400 USE ISO_C_BINDING … … 403 403 INTEGER (kind = C_INT) , VALUE :: long_name_size 404 404 END SUBROUTINE cxios_set_domain_long_name 405 405 406 406 SUBROUTINE cxios_get_domain_long_name(domain_hdl, long_name, long_name_size) BIND(C) 407 407 USE ISO_C_BINDING … … 410 410 INTEGER (kind = C_INT) , VALUE :: long_name_size 411 411 END SUBROUTINE cxios_get_domain_long_name 412 413 FUNCTION cxios_is_defined_domain_long_name(domain_hdl 412 413 FUNCTION cxios_is_defined_domain_long_name(domain_hdl) BIND(C) 414 414 USE ISO_C_BINDING 415 415 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_long_name 416 416 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 417 417 END FUNCTION cxios_is_defined_domain_long_name 418 419 418 419 420 420 SUBROUTINE cxios_set_domain_lonvalue(domain_hdl, lonvalue, extent1) BIND(C) 421 421 USE ISO_C_BINDING … … 424 424 INTEGER (kind = C_INT), VALUE :: extent1 425 425 END SUBROUTINE cxios_set_domain_lonvalue 426 426 427 427 SUBROUTINE cxios_get_domain_lonvalue(domain_hdl, lonvalue, extent1) BIND(C) 428 428 USE ISO_C_BINDING … … 431 431 INTEGER (kind = C_INT), VALUE :: extent1 432 432 END SUBROUTINE cxios_get_domain_lonvalue 433 434 FUNCTION cxios_is_defined_domain_lonvalue(domain_hdl 433 434 FUNCTION cxios_is_defined_domain_lonvalue(domain_hdl) BIND(C) 435 435 USE ISO_C_BINDING 436 436 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_lonvalue 437 437 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 438 438 END FUNCTION cxios_is_defined_domain_lonvalue 439 440 439 440 441 441 SUBROUTINE cxios_set_domain_mask(domain_hdl, mask, extent1, extent2) BIND(C) 442 442 USE ISO_C_BINDING … … 446 446 INTEGER (kind = C_INT), VALUE :: extent2 447 447 END SUBROUTINE cxios_set_domain_mask 448 448 449 449 SUBROUTINE cxios_get_domain_mask(domain_hdl, mask, extent1, extent2) BIND(C) 450 450 USE ISO_C_BINDING … … 454 454 INTEGER (kind = C_INT), VALUE :: extent2 455 455 END SUBROUTINE cxios_get_domain_mask 456 457 FUNCTION cxios_is_defined_domain_mask(domain_hdl 456 457 FUNCTION cxios_is_defined_domain_mask(domain_hdl) BIND(C) 458 458 USE ISO_C_BINDING 459 459 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_mask 460 460 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 461 461 END FUNCTION cxios_is_defined_domain_mask 462 463 462 463 464 464 SUBROUTINE cxios_set_domain_name(domain_hdl, name, name_size) BIND(C) 465 465 USE ISO_C_BINDING … … 468 468 INTEGER (kind = C_INT) , VALUE :: name_size 469 469 END SUBROUTINE cxios_set_domain_name 470 470 471 471 SUBROUTINE cxios_get_domain_name(domain_hdl, name, name_size) BIND(C) 472 472 USE ISO_C_BINDING … … 475 475 INTEGER (kind = C_INT) , VALUE :: name_size 476 476 END SUBROUTINE cxios_get_domain_name 477 478 FUNCTION cxios_is_defined_domain_name(domain_hdl 477 478 FUNCTION cxios_is_defined_domain_name(domain_hdl) BIND(C) 479 479 USE ISO_C_BINDING 480 480 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_name 481 481 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 482 482 END FUNCTION cxios_is_defined_domain_name 483 484 483 484 485 485 SUBROUTINE cxios_set_domain_ni(domain_hdl, ni) BIND(C) 486 486 USE ISO_C_BINDING … … 488 488 INTEGER (KIND=C_INT) , VALUE :: ni 489 489 END SUBROUTINE cxios_set_domain_ni 490 490 491 491 SUBROUTINE cxios_get_domain_ni(domain_hdl, ni) BIND(C) 492 492 USE ISO_C_BINDING … … 494 494 INTEGER (KIND=C_INT) :: ni 495 495 END SUBROUTINE cxios_get_domain_ni 496 497 FUNCTION cxios_is_defined_domain_ni(domain_hdl 496 497 FUNCTION cxios_is_defined_domain_ni(domain_hdl) BIND(C) 498 498 USE ISO_C_BINDING 499 499 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_ni 500 500 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 501 501 END FUNCTION cxios_is_defined_domain_ni 502 503 502 503 504 504 SUBROUTINE cxios_set_domain_ni_glo(domain_hdl, ni_glo) BIND(C) 505 505 USE ISO_C_BINDING … … 507 507 INTEGER (KIND=C_INT) , VALUE :: ni_glo 508 508 END SUBROUTINE cxios_set_domain_ni_glo 509 509 510 510 SUBROUTINE cxios_get_domain_ni_glo(domain_hdl, ni_glo) BIND(C) 511 511 USE ISO_C_BINDING … … 513 513 INTEGER (KIND=C_INT) :: ni_glo 514 514 END SUBROUTINE cxios_get_domain_ni_glo 515 516 FUNCTION cxios_is_defined_domain_ni_glo(domain_hdl 515 516 FUNCTION cxios_is_defined_domain_ni_glo(domain_hdl) BIND(C) 517 517 USE ISO_C_BINDING 518 518 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_ni_glo 519 519 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 520 520 END FUNCTION cxios_is_defined_domain_ni_glo 521 522 521 522 523 523 SUBROUTINE cxios_set_domain_nj(domain_hdl, nj) BIND(C) 524 524 USE ISO_C_BINDING … … 526 526 INTEGER (KIND=C_INT) , VALUE :: nj 527 527 END SUBROUTINE cxios_set_domain_nj 528 528 529 529 SUBROUTINE cxios_get_domain_nj(domain_hdl, nj) BIND(C) 530 530 USE ISO_C_BINDING … … 532 532 INTEGER (KIND=C_INT) :: nj 533 533 END SUBROUTINE cxios_get_domain_nj 534 535 FUNCTION cxios_is_defined_domain_nj(domain_hdl 534 535 FUNCTION cxios_is_defined_domain_nj(domain_hdl) BIND(C) 536 536 USE ISO_C_BINDING 537 537 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_nj 538 538 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 539 539 END FUNCTION cxios_is_defined_domain_nj 540 541 540 541 542 542 SUBROUTINE cxios_set_domain_nj_glo(domain_hdl, nj_glo) BIND(C) 543 543 USE ISO_C_BINDING … … 545 545 INTEGER (KIND=C_INT) , VALUE :: nj_glo 546 546 END SUBROUTINE cxios_set_domain_nj_glo 547 547 548 548 SUBROUTINE cxios_get_domain_nj_glo(domain_hdl, nj_glo) BIND(C) 549 549 USE ISO_C_BINDING … … 551 551 INTEGER (KIND=C_INT) :: nj_glo 552 552 END SUBROUTINE cxios_get_domain_nj_glo 553 554 FUNCTION cxios_is_defined_domain_nj_glo(domain_hdl 553 554 FUNCTION cxios_is_defined_domain_nj_glo(domain_hdl) BIND(C) 555 555 USE ISO_C_BINDING 556 556 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_nj_glo 557 557 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 558 558 END FUNCTION cxios_is_defined_domain_nj_glo 559 560 559 560 561 561 SUBROUTINE cxios_set_domain_nvertex(domain_hdl, nvertex) BIND(C) 562 562 USE ISO_C_BINDING … … 564 564 INTEGER (KIND=C_INT) , VALUE :: nvertex 565 565 END SUBROUTINE cxios_set_domain_nvertex 566 566 567 567 SUBROUTINE cxios_get_domain_nvertex(domain_hdl, nvertex) BIND(C) 568 568 USE ISO_C_BINDING … … 570 570 INTEGER (KIND=C_INT) :: nvertex 571 571 END SUBROUTINE cxios_get_domain_nvertex 572 573 FUNCTION cxios_is_defined_domain_nvertex(domain_hdl 572 573 FUNCTION cxios_is_defined_domain_nvertex(domain_hdl) BIND(C) 574 574 USE ISO_C_BINDING 575 575 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_nvertex 576 576 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 577 577 END FUNCTION cxios_is_defined_domain_nvertex 578 579 578 579 580 580 SUBROUTINE cxios_set_domain_standard_name(domain_hdl, standard_name, standard_name_size) BIND(C) 581 581 USE ISO_C_BINDING … … 584 584 INTEGER (kind = C_INT) , VALUE :: standard_name_size 585 585 END SUBROUTINE cxios_set_domain_standard_name 586 586 587 587 SUBROUTINE cxios_get_domain_standard_name(domain_hdl, standard_name, standard_name_size) BIND(C) 588 588 USE ISO_C_BINDING … … 591 591 INTEGER (kind = C_INT) , VALUE :: standard_name_size 592 592 END SUBROUTINE cxios_get_domain_standard_name 593 594 FUNCTION cxios_is_defined_domain_standard_name(domain_hdl 593 594 FUNCTION cxios_is_defined_domain_standard_name(domain_hdl) BIND(C) 595 595 USE ISO_C_BINDING 596 596 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_standard_name 597 597 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 598 598 END FUNCTION cxios_is_defined_domain_standard_name 599 600 599 600 601 601 SUBROUTINE cxios_set_domain_type(domain_hdl, type, type_size) BIND(C) 602 602 USE ISO_C_BINDING … … 605 605 INTEGER (kind = C_INT) , VALUE :: type_size 606 606 END SUBROUTINE cxios_set_domain_type 607 607 608 608 SUBROUTINE cxios_get_domain_type(domain_hdl, type, type_size) BIND(C) 609 609 USE ISO_C_BINDING … … 612 612 INTEGER (kind = C_INT) , VALUE :: type_size 613 613 END SUBROUTINE cxios_get_domain_type 614 615 FUNCTION cxios_is_defined_domain_type(domain_hdl 614 615 FUNCTION cxios_is_defined_domain_type(domain_hdl) BIND(C) 616 616 USE ISO_C_BINDING 617 617 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_type 618 618 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 619 619 END FUNCTION cxios_is_defined_domain_type 620 621 620 621 622 622 SUBROUTINE cxios_set_domain_zoom_ibegin(domain_hdl, zoom_ibegin) BIND(C) 623 623 USE ISO_C_BINDING … … 625 625 INTEGER (KIND=C_INT) , VALUE :: zoom_ibegin 626 626 END SUBROUTINE cxios_set_domain_zoom_ibegin 627 627 628 628 SUBROUTINE cxios_get_domain_zoom_ibegin(domain_hdl, zoom_ibegin) BIND(C) 629 629 USE ISO_C_BINDING … … 631 631 INTEGER (KIND=C_INT) :: zoom_ibegin 632 632 END SUBROUTINE cxios_get_domain_zoom_ibegin 633 634 FUNCTION cxios_is_defined_domain_zoom_ibegin(domain_hdl 633 634 FUNCTION cxios_is_defined_domain_zoom_ibegin(domain_hdl) BIND(C) 635 635 USE ISO_C_BINDING 636 636 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_zoom_ibegin 637 637 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 638 638 END FUNCTION cxios_is_defined_domain_zoom_ibegin 639 640 639 640 641 641 SUBROUTINE cxios_set_domain_zoom_ibegin_loc(domain_hdl, zoom_ibegin_loc) BIND(C) 642 642 USE ISO_C_BINDING … … 644 644 INTEGER (KIND=C_INT) , VALUE :: zoom_ibegin_loc 645 645 END SUBROUTINE cxios_set_domain_zoom_ibegin_loc 646 646 647 647 SUBROUTINE cxios_get_domain_zoom_ibegin_loc(domain_hdl, zoom_ibegin_loc) BIND(C) 648 648 USE ISO_C_BINDING … … 650 650 INTEGER (KIND=C_INT) :: zoom_ibegin_loc 651 651 END SUBROUTINE cxios_get_domain_zoom_ibegin_loc 652 653 FUNCTION cxios_is_defined_domain_zoom_ibegin_loc(domain_hdl 652 653 FUNCTION cxios_is_defined_domain_zoom_ibegin_loc(domain_hdl) BIND(C) 654 654 USE ISO_C_BINDING 655 655 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_zoom_ibegin_loc 656 656 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 657 657 END FUNCTION cxios_is_defined_domain_zoom_ibegin_loc 658 659 658 659 660 660 SUBROUTINE cxios_set_domain_zoom_jbegin(domain_hdl, zoom_jbegin) BIND(C) 661 661 USE ISO_C_BINDING … … 663 663 INTEGER (KIND=C_INT) , VALUE :: zoom_jbegin 664 664 END SUBROUTINE cxios_set_domain_zoom_jbegin 665 665 666 666 SUBROUTINE cxios_get_domain_zoom_jbegin(domain_hdl, zoom_jbegin) BIND(C) 667 667 USE ISO_C_BINDING … … 669 669 INTEGER (KIND=C_INT) :: zoom_jbegin 670 670 END SUBROUTINE cxios_get_domain_zoom_jbegin 671 672 FUNCTION cxios_is_defined_domain_zoom_jbegin(domain_hdl 671 672 FUNCTION cxios_is_defined_domain_zoom_jbegin(domain_hdl) BIND(C) 673 673 USE ISO_C_BINDING 674 674 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_zoom_jbegin 675 675 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 676 676 END FUNCTION cxios_is_defined_domain_zoom_jbegin 677 678 677 678 679 679 SUBROUTINE cxios_set_domain_zoom_jbegin_loc(domain_hdl, zoom_jbegin_loc) BIND(C) 680 680 USE ISO_C_BINDING … … 682 682 INTEGER (KIND=C_INT) , VALUE :: zoom_jbegin_loc 683 683 END SUBROUTINE cxios_set_domain_zoom_jbegin_loc 684 684 685 685 SUBROUTINE cxios_get_domain_zoom_jbegin_loc(domain_hdl, zoom_jbegin_loc) BIND(C) 686 686 USE ISO_C_BINDING … … 688 688 INTEGER (KIND=C_INT) :: zoom_jbegin_loc 689 689 END SUBROUTINE cxios_get_domain_zoom_jbegin_loc 690 691 FUNCTION cxios_is_defined_domain_zoom_jbegin_loc(domain_hdl 690 691 FUNCTION cxios_is_defined_domain_zoom_jbegin_loc(domain_hdl) BIND(C) 692 692 USE ISO_C_BINDING 693 693 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_zoom_jbegin_loc 694 694 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 695 695 END FUNCTION cxios_is_defined_domain_zoom_jbegin_loc 696 697 696 697 698 698 SUBROUTINE cxios_set_domain_zoom_ni(domain_hdl, zoom_ni) BIND(C) 699 699 USE ISO_C_BINDING … … 701 701 INTEGER (KIND=C_INT) , VALUE :: zoom_ni 702 702 END SUBROUTINE cxios_set_domain_zoom_ni 703 703 704 704 SUBROUTINE cxios_get_domain_zoom_ni(domain_hdl, zoom_ni) BIND(C) 705 705 USE ISO_C_BINDING … … 707 707 INTEGER (KIND=C_INT) :: zoom_ni 708 708 END SUBROUTINE cxios_get_domain_zoom_ni 709 710 FUNCTION cxios_is_defined_domain_zoom_ni(domain_hdl 709 710 FUNCTION cxios_is_defined_domain_zoom_ni(domain_hdl) BIND(C) 711 711 USE ISO_C_BINDING 712 712 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_zoom_ni 713 713 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 714 714 END FUNCTION cxios_is_defined_domain_zoom_ni 715 716 715 716 717 717 SUBROUTINE cxios_set_domain_zoom_ni_loc(domain_hdl, zoom_ni_loc) BIND(C) 718 718 USE ISO_C_BINDING … … 720 720 INTEGER (KIND=C_INT) , VALUE :: zoom_ni_loc 721 721 END SUBROUTINE cxios_set_domain_zoom_ni_loc 722 722 723 723 SUBROUTINE cxios_get_domain_zoom_ni_loc(domain_hdl, zoom_ni_loc) BIND(C) 724 724 USE ISO_C_BINDING … … 726 726 INTEGER (KIND=C_INT) :: zoom_ni_loc 727 727 END SUBROUTINE cxios_get_domain_zoom_ni_loc 728 729 FUNCTION cxios_is_defined_domain_zoom_ni_loc(domain_hdl 728 729 FUNCTION cxios_is_defined_domain_zoom_ni_loc(domain_hdl) BIND(C) 730 730 USE ISO_C_BINDING 731 731 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_zoom_ni_loc 732 732 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 733 733 END FUNCTION cxios_is_defined_domain_zoom_ni_loc 734 735 734 735 736 736 SUBROUTINE cxios_set_domain_zoom_nj(domain_hdl, zoom_nj) BIND(C) 737 737 USE ISO_C_BINDING … … 739 739 INTEGER (KIND=C_INT) , VALUE :: zoom_nj 740 740 END SUBROUTINE cxios_set_domain_zoom_nj 741 741 742 742 SUBROUTINE cxios_get_domain_zoom_nj(domain_hdl, zoom_nj) BIND(C) 743 743 USE ISO_C_BINDING … … 745 745 INTEGER (KIND=C_INT) :: zoom_nj 746 746 END SUBROUTINE cxios_get_domain_zoom_nj 747 748 FUNCTION cxios_is_defined_domain_zoom_nj(domain_hdl 747 748 FUNCTION cxios_is_defined_domain_zoom_nj(domain_hdl) BIND(C) 749 749 USE ISO_C_BINDING 750 750 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_zoom_nj 751 751 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 752 752 END FUNCTION cxios_is_defined_domain_zoom_nj 753 754 753 754 755 755 SUBROUTINE cxios_set_domain_zoom_nj_loc(domain_hdl, zoom_nj_loc) BIND(C) 756 756 USE ISO_C_BINDING … … 758 758 INTEGER (KIND=C_INT) , VALUE :: zoom_nj_loc 759 759 END SUBROUTINE cxios_set_domain_zoom_nj_loc 760 760 761 761 SUBROUTINE cxios_get_domain_zoom_nj_loc(domain_hdl, zoom_nj_loc) BIND(C) 762 762 USE ISO_C_BINDING … … 764 764 INTEGER (KIND=C_INT) :: zoom_nj_loc 765 765 END SUBROUTINE cxios_get_domain_zoom_nj_loc 766 767 FUNCTION cxios_is_defined_domain_zoom_nj_loc(domain_hdl 766 767 FUNCTION cxios_is_defined_domain_zoom_nj_loc(domain_hdl) BIND(C) 768 768 USE ISO_C_BINDING 769 769 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_zoom_nj_loc 770 770 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 771 771 END FUNCTION cxios_is_defined_domain_zoom_nj_loc 772 773 774 END INTERFACE 775 772 773 END INTERFACE 774 776 775 END MODULE domain_interface_attr -
XIOS/trunk/src/interface/fortran_attr/domaingroup_interface_attr.F90
r546 r581 6 6 MODULE domaingroup_interface_attr 7 7 USE, INTRINSIC :: ISO_C_BINDING 8 9 INTERFACE ! Do not call directly / interface FORTRAN 2003 <-> C9910 11 8 9 INTERFACE 10 ! Do not call directly / interface FORTRAN 2003 <-> C99 11 12 12 SUBROUTINE cxios_set_domaingroup_bounds_lat(domaingroup_hdl, bounds_lat, extent1, extent2) BIND(C) 13 13 USE ISO_C_BINDING … … 17 17 INTEGER (kind = C_INT), VALUE :: extent2 18 18 END SUBROUTINE cxios_set_domaingroup_bounds_lat 19 19 20 20 SUBROUTINE cxios_get_domaingroup_bounds_lat(domaingroup_hdl, bounds_lat, extent1, extent2) BIND(C) 21 21 USE ISO_C_BINDING … … 25 25 INTEGER (kind = C_INT), VALUE :: extent2 26 26 END SUBROUTINE cxios_get_domaingroup_bounds_lat 27 28 FUNCTION cxios_is_defined_domaingroup_bounds_lat(domaingroup_hdl 27 28 FUNCTION cxios_is_defined_domaingroup_bounds_lat(domaingroup_hdl) BIND(C) 29 29 USE ISO_C_BINDING 30 30 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_bounds_lat 31 31 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 32 32 END FUNCTION cxios_is_defined_domaingroup_bounds_lat 33 34 33 34 35 35 SUBROUTINE cxios_set_domaingroup_bounds_lon(domaingroup_hdl, bounds_lon, extent1, extent2) BIND(C) 36 36 USE ISO_C_BINDING … … 40 40 INTEGER (kind = C_INT), VALUE :: extent2 41 41 END SUBROUTINE cxios_set_domaingroup_bounds_lon 42 42 43 43 SUBROUTINE cxios_get_domaingroup_bounds_lon(domaingroup_hdl, bounds_lon, extent1, extent2) BIND(C) 44 44 USE ISO_C_BINDING … … 48 48 INTEGER (kind = C_INT), VALUE :: extent2 49 49 END SUBROUTINE cxios_get_domaingroup_bounds_lon 50 51 FUNCTION cxios_is_defined_domaingroup_bounds_lon(domaingroup_hdl 50 51 FUNCTION cxios_is_defined_domaingroup_bounds_lon(domaingroup_hdl) BIND(C) 52 52 USE ISO_C_BINDING 53 53 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_bounds_lon 54 54 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 55 55 END FUNCTION cxios_is_defined_domaingroup_bounds_lon 56 57 56 57 58 58 SUBROUTINE cxios_set_domaingroup_data_dim(domaingroup_hdl, data_dim) BIND(C) 59 59 USE ISO_C_BINDING … … 61 61 INTEGER (KIND=C_INT) , VALUE :: data_dim 62 62 END SUBROUTINE cxios_set_domaingroup_data_dim 63 63 64 64 SUBROUTINE cxios_get_domaingroup_data_dim(domaingroup_hdl, data_dim) BIND(C) 65 65 USE ISO_C_BINDING … … 67 67 INTEGER (KIND=C_INT) :: data_dim 68 68 END SUBROUTINE cxios_get_domaingroup_data_dim 69 70 FUNCTION cxios_is_defined_domaingroup_data_dim(domaingroup_hdl 69 70 FUNCTION cxios_is_defined_domaingroup_data_dim(domaingroup_hdl) BIND(C) 71 71 USE ISO_C_BINDING 72 72 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_data_dim 73 73 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 74 74 END FUNCTION cxios_is_defined_domaingroup_data_dim 75 76 75 76 77 77 SUBROUTINE cxios_set_domaingroup_data_i_index(domaingroup_hdl, data_i_index, extent1) BIND(C) 78 78 USE ISO_C_BINDING … … 81 81 INTEGER (kind = C_INT), VALUE :: extent1 82 82 END SUBROUTINE cxios_set_domaingroup_data_i_index 83 83 84 84 SUBROUTINE cxios_get_domaingroup_data_i_index(domaingroup_hdl, data_i_index, extent1) BIND(C) 85 85 USE ISO_C_BINDING … … 88 88 INTEGER (kind = C_INT), VALUE :: extent1 89 89 END SUBROUTINE cxios_get_domaingroup_data_i_index 90 91 FUNCTION cxios_is_defined_domaingroup_data_i_index(domaingroup_hdl 90 91 FUNCTION cxios_is_defined_domaingroup_data_i_index(domaingroup_hdl) BIND(C) 92 92 USE ISO_C_BINDING 93 93 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_data_i_index 94 94 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 95 95 END FUNCTION cxios_is_defined_domaingroup_data_i_index 96 97 96 97 98 98 SUBROUTINE cxios_set_domaingroup_data_ibegin(domaingroup_hdl, data_ibegin) BIND(C) 99 99 USE ISO_C_BINDING … … 101 101 INTEGER (KIND=C_INT) , VALUE :: data_ibegin 102 102 END SUBROUTINE cxios_set_domaingroup_data_ibegin 103 103 104 104 SUBROUTINE cxios_get_domaingroup_data_ibegin(domaingroup_hdl, data_ibegin) BIND(C) 105 105 USE ISO_C_BINDING … … 107 107 INTEGER (KIND=C_INT) :: data_ibegin 108 108 END SUBROUTINE cxios_get_domaingroup_data_ibegin 109 110 FUNCTION cxios_is_defined_domaingroup_data_ibegin(domaingroup_hdl 109 110 FUNCTION cxios_is_defined_domaingroup_data_ibegin(domaingroup_hdl) BIND(C) 111 111 USE ISO_C_BINDING 112 112 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_data_ibegin 113 113 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 114 114 END FUNCTION cxios_is_defined_domaingroup_data_ibegin 115 116 115 116 117 117 SUBROUTINE cxios_set_domaingroup_data_j_index(domaingroup_hdl, data_j_index, extent1) BIND(C) 118 118 USE ISO_C_BINDING … … 121 121 INTEGER (kind = C_INT), VALUE :: extent1 122 122 END SUBROUTINE cxios_set_domaingroup_data_j_index 123 123 124 124 SUBROUTINE cxios_get_domaingroup_data_j_index(domaingroup_hdl, data_j_index, extent1) BIND(C) 125 125 USE ISO_C_BINDING … … 128 128 INTEGER (kind = C_INT), VALUE :: extent1 129 129 END SUBROUTINE cxios_get_domaingroup_data_j_index 130 131 FUNCTION cxios_is_defined_domaingroup_data_j_index(domaingroup_hdl 130 131 FUNCTION cxios_is_defined_domaingroup_data_j_index(domaingroup_hdl) BIND(C) 132 132 USE ISO_C_BINDING 133 133 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_data_j_index 134 134 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 135 135 END FUNCTION cxios_is_defined_domaingroup_data_j_index 136 137 136 137 138 138 SUBROUTINE cxios_set_domaingroup_data_jbegin(domaingroup_hdl, data_jbegin) BIND(C) 139 139 USE ISO_C_BINDING … … 141 141 INTEGER (KIND=C_INT) , VALUE :: data_jbegin 142 142 END SUBROUTINE cxios_set_domaingroup_data_jbegin 143 143 144 144 SUBROUTINE cxios_get_domaingroup_data_jbegin(domaingroup_hdl, data_jbegin) BIND(C) 145 145 USE ISO_C_BINDING … … 147 147 INTEGER (KIND=C_INT) :: data_jbegin 148 148 END SUBROUTINE cxios_get_domaingroup_data_jbegin 149 150 FUNCTION cxios_is_defined_domaingroup_data_jbegin(domaingroup_hdl 149 150 FUNCTION cxios_is_defined_domaingroup_data_jbegin(domaingroup_hdl) BIND(C) 151 151 USE ISO_C_BINDING 152 152 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_data_jbegin 153 153 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 154 154 END FUNCTION cxios_is_defined_domaingroup_data_jbegin 155 156 155 156 157 157 SUBROUTINE cxios_set_domaingroup_data_n_index(domaingroup_hdl, data_n_index) BIND(C) 158 158 USE ISO_C_BINDING … … 160 160 INTEGER (KIND=C_INT) , VALUE :: data_n_index 161 161 END SUBROUTINE cxios_set_domaingroup_data_n_index 162 162 163 163 SUBROUTINE cxios_get_domaingroup_data_n_index(domaingroup_hdl, data_n_index) BIND(C) 164 164 USE ISO_C_BINDING … … 166 166 INTEGER (KIND=C_INT) :: data_n_index 167 167 END SUBROUTINE cxios_get_domaingroup_data_n_index 168 169 FUNCTION cxios_is_defined_domaingroup_data_n_index(domaingroup_hdl 168 169 FUNCTION cxios_is_defined_domaingroup_data_n_index(domaingroup_hdl) BIND(C) 170 170 USE ISO_C_BINDING 171 171 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_data_n_index 172 172 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 173 173 END FUNCTION cxios_is_defined_domaingroup_data_n_index 174 175 174 175 176 176 SUBROUTINE cxios_set_domaingroup_data_ni(domaingroup_hdl, data_ni) BIND(C) 177 177 USE ISO_C_BINDING … … 179 179 INTEGER (KIND=C_INT) , VALUE :: data_ni 180 180 END SUBROUTINE cxios_set_domaingroup_data_ni 181 181 182 182 SUBROUTINE cxios_get_domaingroup_data_ni(domaingroup_hdl, data_ni) BIND(C) 183 183 USE ISO_C_BINDING … … 185 185 INTEGER (KIND=C_INT) :: data_ni 186 186 END SUBROUTINE cxios_get_domaingroup_data_ni 187 188 FUNCTION cxios_is_defined_domaingroup_data_ni(domaingroup_hdl 187 188 FUNCTION cxios_is_defined_domaingroup_data_ni(domaingroup_hdl) BIND(C) 189 189 USE ISO_C_BINDING 190 190 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_data_ni 191 191 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 192 192 END FUNCTION cxios_is_defined_domaingroup_data_ni 193 194 193 194 195 195 SUBROUTINE cxios_set_domaingroup_data_nj(domaingroup_hdl, data_nj) BIND(C) 196 196 USE ISO_C_BINDING … … 198 198 INTEGER (KIND=C_INT) , VALUE :: data_nj 199 199 END SUBROUTINE cxios_set_domaingroup_data_nj 200 200 201 201 SUBROUTINE cxios_get_domaingroup_data_nj(domaingroup_hdl, data_nj) BIND(C) 202 202 USE ISO_C_BINDING … … 204 204 INTEGER (KIND=C_INT) :: data_nj 205 205 END SUBROUTINE cxios_get_domaingroup_data_nj 206 207 FUNCTION cxios_is_defined_domaingroup_data_nj(domaingroup_hdl 206 207 FUNCTION cxios_is_defined_domaingroup_data_nj(domaingroup_hdl) BIND(C) 208 208 USE ISO_C_BINDING 209 209 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_data_nj 210 210 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 211 211 END FUNCTION cxios_is_defined_domaingroup_data_nj 212 213 212 213 214 214 SUBROUTINE cxios_set_domaingroup_domain_group_ref(domaingroup_hdl, domain_group_ref, domain_group_ref_size) BIND(C) 215 215 USE ISO_C_BINDING … … 218 218 INTEGER (kind = C_INT) , VALUE :: domain_group_ref_size 219 219 END SUBROUTINE cxios_set_domaingroup_domain_group_ref 220 220 221 221 SUBROUTINE cxios_get_domaingroup_domain_group_ref(domaingroup_hdl, domain_group_ref, domain_group_ref_size) BIND(C) 222 222 USE ISO_C_BINDING … … 225 225 INTEGER (kind = C_INT) , VALUE :: domain_group_ref_size 226 226 END SUBROUTINE cxios_get_domaingroup_domain_group_ref 227 228 FUNCTION cxios_is_defined_domaingroup_domain_group_ref(domaingroup_hdl 227 228 FUNCTION cxios_is_defined_domaingroup_domain_group_ref(domaingroup_hdl) BIND(C) 229 229 USE ISO_C_BINDING 230 230 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_domain_group_ref 231 231 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 232 232 END FUNCTION cxios_is_defined_domaingroup_domain_group_ref 233 234 233 234 235 235 SUBROUTINE cxios_set_domaingroup_domain_ref(domaingroup_hdl, domain_ref, domain_ref_size) BIND(C) 236 236 USE ISO_C_BINDING … … 239 239 INTEGER (kind = C_INT) , VALUE :: domain_ref_size 240 240 END SUBROUTINE cxios_set_domaingroup_domain_ref 241 241 242 242 SUBROUTINE cxios_get_domaingroup_domain_ref(domaingroup_hdl, domain_ref, domain_ref_size) BIND(C) 243 243 USE ISO_C_BINDING … … 246 246 INTEGER (kind = C_INT) , VALUE :: domain_ref_size 247 247 END SUBROUTINE cxios_get_domaingroup_domain_ref 248 249 FUNCTION cxios_is_defined_domaingroup_domain_ref(domaingroup_hdl 248 249 FUNCTION cxios_is_defined_domaingroup_domain_ref(domaingroup_hdl) BIND(C) 250 250 USE ISO_C_BINDING 251 251 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_domain_ref 252 252 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 253 253 END FUNCTION cxios_is_defined_domaingroup_domain_ref 254 255 254 255 256 256 SUBROUTINE cxios_set_domaingroup_group_ref(domaingroup_hdl, group_ref, group_ref_size) BIND(C) 257 257 USE ISO_C_BINDING … … 260 260 INTEGER (kind = C_INT) , VALUE :: group_ref_size 261 261 END SUBROUTINE cxios_set_domaingroup_group_ref 262 262 263 263 SUBROUTINE cxios_get_domaingroup_group_ref(domaingroup_hdl, group_ref, group_ref_size) BIND(C) 264 264 USE ISO_C_BINDING … … 267 267 INTEGER (kind = C_INT) , VALUE :: group_ref_size 268 268 END SUBROUTINE cxios_get_domaingroup_group_ref 269 270 FUNCTION cxios_is_defined_domaingroup_group_ref(domaingroup_hdl 269 270 FUNCTION cxios_is_defined_domaingroup_group_ref(domaingroup_hdl) BIND(C) 271 271 USE ISO_C_BINDING 272 272 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_group_ref 273 273 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 274 274 END FUNCTION cxios_is_defined_domaingroup_group_ref 275 276 275 276 277 277 SUBROUTINE cxios_set_domaingroup_i_index(domaingroup_hdl, i_index, extent1, extent2) BIND(C) 278 278 USE ISO_C_BINDING … … 282 282 INTEGER (kind = C_INT), VALUE :: extent2 283 283 END SUBROUTINE cxios_set_domaingroup_i_index 284 284 285 285 SUBROUTINE cxios_get_domaingroup_i_index(domaingroup_hdl, i_index, extent1, extent2) BIND(C) 286 286 USE ISO_C_BINDING … … 290 290 INTEGER (kind = C_INT), VALUE :: extent2 291 291 END SUBROUTINE cxios_get_domaingroup_i_index 292 293 FUNCTION cxios_is_defined_domaingroup_i_index(domaingroup_hdl 292 293 FUNCTION cxios_is_defined_domaingroup_i_index(domaingroup_hdl) BIND(C) 294 294 USE ISO_C_BINDING 295 295 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_i_index 296 296 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 297 297 END FUNCTION cxios_is_defined_domaingroup_i_index 298 299 298 299 300 300 SUBROUTINE cxios_set_domaingroup_ibegin(domaingroup_hdl, ibegin) BIND(C) 301 301 USE ISO_C_BINDING … … 303 303 INTEGER (KIND=C_INT) , VALUE :: ibegin 304 304 END SUBROUTINE cxios_set_domaingroup_ibegin 305 305 306 306 SUBROUTINE cxios_get_domaingroup_ibegin(domaingroup_hdl, ibegin) BIND(C) 307 307 USE ISO_C_BINDING … … 309 309 INTEGER (KIND=C_INT) :: ibegin 310 310 END SUBROUTINE cxios_get_domaingroup_ibegin 311 312 FUNCTION cxios_is_defined_domaingroup_ibegin(domaingroup_hdl 311 312 FUNCTION cxios_is_defined_domaingroup_ibegin(domaingroup_hdl) BIND(C) 313 313 USE ISO_C_BINDING 314 314 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_ibegin 315 315 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 316 316 END FUNCTION cxios_is_defined_domaingroup_ibegin 317 318 317 318 319 319 SUBROUTINE cxios_set_domaingroup_iend(domaingroup_hdl, iend) BIND(C) 320 320 USE ISO_C_BINDING … … 322 322 INTEGER (KIND=C_INT) , VALUE :: iend 323 323 END SUBROUTINE cxios_set_domaingroup_iend 324 324 325 325 SUBROUTINE cxios_get_domaingroup_iend(domaingroup_hdl, iend) BIND(C) 326 326 USE ISO_C_BINDING … … 328 328 INTEGER (KIND=C_INT) :: iend 329 329 END SUBROUTINE cxios_get_domaingroup_iend 330 331 FUNCTION cxios_is_defined_domaingroup_iend(domaingroup_hdl 330 331 FUNCTION cxios_is_defined_domaingroup_iend(domaingroup_hdl) BIND(C) 332 332 USE ISO_C_BINDING 333 333 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_iend 334 334 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 335 335 END FUNCTION cxios_is_defined_domaingroup_iend 336 337 336 337 338 338 SUBROUTINE cxios_set_domaingroup_j_index(domaingroup_hdl, j_index, extent1, extent2) BIND(C) 339 339 USE ISO_C_BINDING … … 343 343 INTEGER (kind = C_INT), VALUE :: extent2 344 344 END SUBROUTINE cxios_set_domaingroup_j_index 345 345 346 346 SUBROUTINE cxios_get_domaingroup_j_index(domaingroup_hdl, j_index, extent1, extent2) BIND(C) 347 347 USE ISO_C_BINDING … … 351 351 INTEGER (kind = C_INT), VALUE :: extent2 352 352 END SUBROUTINE cxios_get_domaingroup_j_index 353 354 FUNCTION cxios_is_defined_domaingroup_j_index(domaingroup_hdl 353 354 FUNCTION cxios_is_defined_domaingroup_j_index(domaingroup_hdl) BIND(C) 355 355 USE ISO_C_BINDING 356 356 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_j_index 357 357 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 358 358 END FUNCTION cxios_is_defined_domaingroup_j_index 359 360 359 360 361 361 SUBROUTINE cxios_set_domaingroup_jbegin(domaingroup_hdl, jbegin) BIND(C) 362 362 USE ISO_C_BINDING … … 364 364 INTEGER (KIND=C_INT) , VALUE :: jbegin 365 365 END SUBROUTINE cxios_set_domaingroup_jbegin 366 366 367 367 SUBROUTINE cxios_get_domaingroup_jbegin(domaingroup_hdl, jbegin) BIND(C) 368 368 USE ISO_C_BINDING … … 370 370 INTEGER (KIND=C_INT) :: jbegin 371 371 END SUBROUTINE cxios_get_domaingroup_jbegin 372 373 FUNCTION cxios_is_defined_domaingroup_jbegin(domaingroup_hdl 372 373 FUNCTION cxios_is_defined_domaingroup_jbegin(domaingroup_hdl) BIND(C) 374 374 USE ISO_C_BINDING 375 375 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_jbegin 376 376 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 377 377 END FUNCTION cxios_is_defined_domaingroup_jbegin 378 379 378 379 380 380 SUBROUTINE cxios_set_domaingroup_jend(domaingroup_hdl, jend) BIND(C) 381 381 USE ISO_C_BINDING … … 383 383 INTEGER (KIND=C_INT) , VALUE :: jend 384 384 END SUBROUTINE cxios_set_domaingroup_jend 385 385 386 386 SUBROUTINE cxios_get_domaingroup_jend(domaingroup_hdl, jend) BIND(C) 387 387 USE ISO_C_BINDING … … 389 389 INTEGER (KIND=C_INT) :: jend 390 390 END SUBROUTINE cxios_get_domaingroup_jend 391 392 FUNCTION cxios_is_defined_domaingroup_jend(domaingroup_hdl 391 392 FUNCTION cxios_is_defined_domaingroup_jend(domaingroup_hdl) BIND(C) 393 393 USE ISO_C_BINDING 394 394 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_jend 395 395 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 396 396 END FUNCTION cxios_is_defined_domaingroup_jend 397 398 397 398 399 399 SUBROUTINE cxios_set_domaingroup_latvalue(domaingroup_hdl, latvalue, extent1) BIND(C) 400 400 USE ISO_C_BINDING … … 403 403 INTEGER (kind = C_INT), VALUE :: extent1 404 404 END SUBROUTINE cxios_set_domaingroup_latvalue 405 405 406 406 SUBROUTINE cxios_get_domaingroup_latvalue(domaingroup_hdl, latvalue, extent1) BIND(C) 407 407 USE ISO_C_BINDING … … 410 410 INTEGER (kind = C_INT), VALUE :: extent1 411 411 END SUBROUTINE cxios_get_domaingroup_latvalue 412 413 FUNCTION cxios_is_defined_domaingroup_latvalue(domaingroup_hdl 412 413 FUNCTION cxios_is_defined_domaingroup_latvalue(domaingroup_hdl) BIND(C) 414 414 USE ISO_C_BINDING 415 415 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_latvalue 416 416 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 417 417 END FUNCTION cxios_is_defined_domaingroup_latvalue 418 419 418 419 420 420 SUBROUTINE cxios_set_domaingroup_long_name(domaingroup_hdl, long_name, long_name_size) BIND(C) 421 421 USE ISO_C_BINDING … … 424 424 INTEGER (kind = C_INT) , VALUE :: long_name_size 425 425 END SUBROUTINE cxios_set_domaingroup_long_name 426 426 427 427 SUBROUTINE cxios_get_domaingroup_long_name(domaingroup_hdl, long_name, long_name_size) BIND(C) 428 428 USE ISO_C_BINDING … … 431 431 INTEGER (kind = C_INT) , VALUE :: long_name_size 432 432 END SUBROUTINE cxios_get_domaingroup_long_name 433 434 FUNCTION cxios_is_defined_domaingroup_long_name(domaingroup_hdl 433 434 FUNCTION cxios_is_defined_domaingroup_long_name(domaingroup_hdl) BIND(C) 435 435 USE ISO_C_BINDING 436 436 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_long_name 437 437 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 438 438 END FUNCTION cxios_is_defined_domaingroup_long_name 439 440 439 440 441 441 SUBROUTINE cxios_set_domaingroup_lonvalue(domaingroup_hdl, lonvalue, extent1) BIND(C) 442 442 USE ISO_C_BINDING … … 445 445 INTEGER (kind = C_INT), VALUE :: extent1 446 446 END SUBROUTINE cxios_set_domaingroup_lonvalue 447 447 448 448 SUBROUTINE cxios_get_domaingroup_lonvalue(domaingroup_hdl, lonvalue, extent1) BIND(C) 449 449 USE ISO_C_BINDING … … 452 452 INTEGER (kind = C_INT), VALUE :: extent1 453 453 END SUBROUTINE cxios_get_domaingroup_lonvalue 454 455 FUNCTION cxios_is_defined_domaingroup_lonvalue(domaingroup_hdl 454 455 FUNCTION cxios_is_defined_domaingroup_lonvalue(domaingroup_hdl) BIND(C) 456 456 USE ISO_C_BINDING 457 457 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_lonvalue 458 458 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 459 459 END FUNCTION cxios_is_defined_domaingroup_lonvalue 460 461 460 461 462 462 SUBROUTINE cxios_set_domaingroup_mask(domaingroup_hdl, mask, extent1, extent2) BIND(C) 463 463 USE ISO_C_BINDING … … 467 467 INTEGER (kind = C_INT), VALUE :: extent2 468 468 END SUBROUTINE cxios_set_domaingroup_mask 469 469 470 470 SUBROUTINE cxios_get_domaingroup_mask(domaingroup_hdl, mask, extent1, extent2) BIND(C) 471 471 USE ISO_C_BINDING … … 475 475 INTEGER (kind = C_INT), VALUE :: extent2 476 476 END SUBROUTINE cxios_get_domaingroup_mask 477 478 FUNCTION cxios_is_defined_domaingroup_mask(domaingroup_hdl 477 478 FUNCTION cxios_is_defined_domaingroup_mask(domaingroup_hdl) BIND(C) 479 479 USE ISO_C_BINDING 480 480 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_mask 481 481 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 482 482 END FUNCTION cxios_is_defined_domaingroup_mask 483 484 483 484 485 485 SUBROUTINE cxios_set_domaingroup_name(domaingroup_hdl, name, name_size) BIND(C) 486 486 USE ISO_C_BINDING … … 489 489 INTEGER (kind = C_INT) , VALUE :: name_size 490 490 END SUBROUTINE cxios_set_domaingroup_name 491 491 492 492 SUBROUTINE cxios_get_domaingroup_name(domaingroup_hdl, name, name_size) BIND(C) 493 493 USE ISO_C_BINDING … … 496 496 INTEGER (kind = C_INT) , VALUE :: name_size 497 497 END SUBROUTINE cxios_get_domaingroup_name 498 499 FUNCTION cxios_is_defined_domaingroup_name(domaingroup_hdl 498 499 FUNCTION cxios_is_defined_domaingroup_name(domaingroup_hdl) BIND(C) 500 500 USE ISO_C_BINDING 501 501 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_name 502 502 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 503 503 END FUNCTION cxios_is_defined_domaingroup_name 504 505 504 505 506 506 SUBROUTINE cxios_set_domaingroup_ni(domaingroup_hdl, ni) BIND(C) 507 507 USE ISO_C_BINDING … … 509 509 INTEGER (KIND=C_INT) , VALUE :: ni 510 510 END SUBROUTINE cxios_set_domaingroup_ni 511 511 512 512 SUBROUTINE cxios_get_domaingroup_ni(domaingroup_hdl, ni) BIND(C) 513 513 USE ISO_C_BINDING … … 515 515 INTEGER (KIND=C_INT) :: ni 516 516 END SUBROUTINE cxios_get_domaingroup_ni 517 518 FUNCTION cxios_is_defined_domaingroup_ni(domaingroup_hdl 517 518 FUNCTION cxios_is_defined_domaingroup_ni(domaingroup_hdl) BIND(C) 519 519 USE ISO_C_BINDING 520 520 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_ni 521 521 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 522 522 END FUNCTION cxios_is_defined_domaingroup_ni 523 524 523 524 525 525 SUBROUTINE cxios_set_domaingroup_ni_glo(domaingroup_hdl, ni_glo) BIND(C) 526 526 USE ISO_C_BINDING … … 528 528 INTEGER (KIND=C_INT) , VALUE :: ni_glo 529 529 END SUBROUTINE cxios_set_domaingroup_ni_glo 530 530 531 531 SUBROUTINE cxios_get_domaingroup_ni_glo(domaingroup_hdl, ni_glo) BIND(C) 532 532 USE ISO_C_BINDING … … 534 534 INTEGER (KIND=C_INT) :: ni_glo 535 535 END SUBROUTINE cxios_get_domaingroup_ni_glo 536 537 FUNCTION cxios_is_defined_domaingroup_ni_glo(domaingroup_hdl 536 537 FUNCTION cxios_is_defined_domaingroup_ni_glo(domaingroup_hdl) BIND(C) 538 538 USE ISO_C_BINDING 539 539 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_ni_glo 540 540 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 541 541 END FUNCTION cxios_is_defined_domaingroup_ni_glo 542 543 542 543 544 544 SUBROUTINE cxios_set_domaingroup_nj(domaingroup_hdl, nj) BIND(C) 545 545 USE ISO_C_BINDING … … 547 547 INTEGER (KIND=C_INT) , VALUE :: nj 548 548 END SUBROUTINE cxios_set_domaingroup_nj 549 549 550 550 SUBROUTINE cxios_get_domaingroup_nj(domaingroup_hdl, nj) BIND(C) 551 551 USE ISO_C_BINDING … … 553 553 INTEGER (KIND=C_INT) :: nj 554 554 END SUBROUTINE cxios_get_domaingroup_nj 555 556 FUNCTION cxios_is_defined_domaingroup_nj(domaingroup_hdl 555 556 FUNCTION cxios_is_defined_domaingroup_nj(domaingroup_hdl) BIND(C) 557 557 USE ISO_C_BINDING 558 558 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_nj 559 559 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 560 560 END FUNCTION cxios_is_defined_domaingroup_nj 561 562 561 562 563 563 SUBROUTINE cxios_set_domaingroup_nj_glo(domaingroup_hdl, nj_glo) BIND(C) 564 564 USE ISO_C_BINDING … … 566 566 INTEGER (KIND=C_INT) , VALUE :: nj_glo 567 567 END SUBROUTINE cxios_set_domaingroup_nj_glo 568 568 569 569 SUBROUTINE cxios_get_domaingroup_nj_glo(domaingroup_hdl, nj_glo) BIND(C) 570 570 USE ISO_C_BINDING … … 572 572 INTEGER (KIND=C_INT) :: nj_glo 573 573 END SUBROUTINE cxios_get_domaingroup_nj_glo 574 575 FUNCTION cxios_is_defined_domaingroup_nj_glo(domaingroup_hdl 574 575 FUNCTION cxios_is_defined_domaingroup_nj_glo(domaingroup_hdl) BIND(C) 576 576 USE ISO_C_BINDING 577 577 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_nj_glo 578 578 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 579 579 END FUNCTION cxios_is_defined_domaingroup_nj_glo 580 581 580 581 582 582 SUBROUTINE cxios_set_domaingroup_nvertex(domaingroup_hdl, nvertex) BIND(C) 583 583 USE ISO_C_BINDING … … 585 585 INTEGER (KIND=C_INT) , VALUE :: nvertex 586 586 END SUBROUTINE cxios_set_domaingroup_nvertex 587 587 588 588 SUBROUTINE cxios_get_domaingroup_nvertex(domaingroup_hdl, nvertex) BIND(C) 589 589 USE ISO_C_BINDING … … 591 591 INTEGER (KIND=C_INT) :: nvertex 592 592 END SUBROUTINE cxios_get_domaingroup_nvertex 593 594 FUNCTION cxios_is_defined_domaingroup_nvertex(domaingroup_hdl 593 594 FUNCTION cxios_is_defined_domaingroup_nvertex(domaingroup_hdl) BIND(C) 595 595 USE ISO_C_BINDING 596 596 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_nvertex 597 597 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 598 598 END FUNCTION cxios_is_defined_domaingroup_nvertex 599 600 599 600 601 601 SUBROUTINE cxios_set_domaingroup_standard_name(domaingroup_hdl, standard_name, standard_name_size) BIND(C) 602 602 USE ISO_C_BINDING … … 605 605 INTEGER (kind = C_INT) , VALUE :: standard_name_size 606 606 END SUBROUTINE cxios_set_domaingroup_standard_name 607 607 608 608 SUBROUTINE cxios_get_domaingroup_standard_name(domaingroup_hdl, standard_name, standard_name_size) BIND(C) 609 609 USE ISO_C_BINDING … … 612 612 INTEGER (kind = C_INT) , VALUE :: standard_name_size 613 613 END SUBROUTINE cxios_get_domaingroup_standard_name 614 615 FUNCTION cxios_is_defined_domaingroup_standard_name(domaingroup_hdl 614 615 FUNCTION cxios_is_defined_domaingroup_standard_name(domaingroup_hdl) BIND(C) 616 616 USE ISO_C_BINDING 617 617 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_standard_name 618 618 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 619 619 END FUNCTION cxios_is_defined_domaingroup_standard_name 620 621 620 621 622 622 SUBROUTINE cxios_set_domaingroup_type(domaingroup_hdl, type, type_size) BIND(C) 623 623 USE ISO_C_BINDING … … 626 626 INTEGER (kind = C_INT) , VALUE :: type_size 627 627 END SUBROUTINE cxios_set_domaingroup_type 628 628 629 629 SUBROUTINE cxios_get_domaingroup_type(domaingroup_hdl, type, type_size) BIND(C) 630 630 USE ISO_C_BINDING … … 633 633 INTEGER (kind = C_INT) , VALUE :: type_size 634 634 END SUBROUTINE cxios_get_domaingroup_type 635 636 FUNCTION cxios_is_defined_domaingroup_type(domaingroup_hdl 635 636 FUNCTION cxios_is_defined_domaingroup_type(domaingroup_hdl) BIND(C) 637 637 USE ISO_C_BINDING 638 638 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_type 639 639 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 640 640 END FUNCTION cxios_is_defined_domaingroup_type 641 642 641 642 643 643 SUBROUTINE cxios_set_domaingroup_zoom_ibegin(domaingroup_hdl, zoom_ibegin) BIND(C) 644 644 USE ISO_C_BINDING … … 646 646 INTEGER (KIND=C_INT) , VALUE :: zoom_ibegin 647 647 END SUBROUTINE cxios_set_domaingroup_zoom_ibegin 648 648 649 649 SUBROUTINE cxios_get_domaingroup_zoom_ibegin(domaingroup_hdl, zoom_ibegin) BIND(C) 650 650 USE ISO_C_BINDING … … 652 652 INTEGER (KIND=C_INT) :: zoom_ibegin 653 653 END SUBROUTINE cxios_get_domaingroup_zoom_ibegin 654 655 FUNCTION cxios_is_defined_domaingroup_zoom_ibegin(domaingroup_hdl 654 655 FUNCTION cxios_is_defined_domaingroup_zoom_ibegin(domaingroup_hdl) BIND(C) 656 656 USE ISO_C_BINDING 657 657 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_zoom_ibegin 658 658 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 659 659 END FUNCTION cxios_is_defined_domaingroup_zoom_ibegin 660 661 660 661 662 662 SUBROUTINE cxios_set_domaingroup_zoom_ibegin_loc(domaingroup_hdl, zoom_ibegin_loc) BIND(C) 663 663 USE ISO_C_BINDING … … 665 665 INTEGER (KIND=C_INT) , VALUE :: zoom_ibegin_loc 666 666 END SUBROUTINE cxios_set_domaingroup_zoom_ibegin_loc 667 667 668 668 SUBROUTINE cxios_get_domaingroup_zoom_ibegin_loc(domaingroup_hdl, zoom_ibegin_loc) BIND(C) 669 669 USE ISO_C_BINDING … … 671 671 INTEGER (KIND=C_INT) :: zoom_ibegin_loc 672 672 END SUBROUTINE cxios_get_domaingroup_zoom_ibegin_loc 673 674 FUNCTION cxios_is_defined_domaingroup_zoom_ibegin_loc(domaingroup_hdl 673 674 FUNCTION cxios_is_defined_domaingroup_zoom_ibegin_loc(domaingroup_hdl) BIND(C) 675 675 USE ISO_C_BINDING 676 676 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_zoom_ibegin_loc 677 677 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 678 678 END FUNCTION cxios_is_defined_domaingroup_zoom_ibegin_loc 679 680 679 680 681 681 SUBROUTINE cxios_set_domaingroup_zoom_jbegin(domaingroup_hdl, zoom_jbegin) BIND(C) 682 682 USE ISO_C_BINDING … … 684 684 INTEGER (KIND=C_INT) , VALUE :: zoom_jbegin 685 685 END SUBROUTINE cxios_set_domaingroup_zoom_jbegin 686 686 687 687 SUBROUTINE cxios_get_domaingroup_zoom_jbegin(domaingroup_hdl, zoom_jbegin) BIND(C) 688 688 USE ISO_C_BINDING … … 690 690 INTEGER (KIND=C_INT) :: zoom_jbegin 691 691 END SUBROUTINE cxios_get_domaingroup_zoom_jbegin 692 693 FUNCTION cxios_is_defined_domaingroup_zoom_jbegin(domaingroup_hdl 692 693 FUNCTION cxios_is_defined_domaingroup_zoom_jbegin(domaingroup_hdl) BIND(C) 694 694 USE ISO_C_BINDING 695 695 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_zoom_jbegin 696 696 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 697 697 END FUNCTION cxios_is_defined_domaingroup_zoom_jbegin 698 699 698 699 700 700 SUBROUTINE cxios_set_domaingroup_zoom_jbegin_loc(domaingroup_hdl, zoom_jbegin_loc) BIND(C) 701 701 USE ISO_C_BINDING … … 703 703 INTEGER (KIND=C_INT) , VALUE :: zoom_jbegin_loc 704 704 END SUBROUTINE cxios_set_domaingroup_zoom_jbegin_loc 705 705 706 706 SUBROUTINE cxios_get_domaingroup_zoom_jbegin_loc(domaingroup_hdl, zoom_jbegin_loc) BIND(C) 707 707 USE ISO_C_BINDING … … 709 709 INTEGER (KIND=C_INT) :: zoom_jbegin_loc 710 710 END SUBROUTINE cxios_get_domaingroup_zoom_jbegin_loc 711 712 FUNCTION cxios_is_defined_domaingroup_zoom_jbegin_loc(domaingroup_hdl 711 712 FUNCTION cxios_is_defined_domaingroup_zoom_jbegin_loc(domaingroup_hdl) BIND(C) 713 713 USE ISO_C_BINDING 714 714 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_zoom_jbegin_loc 715 715 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 716 716 END FUNCTION cxios_is_defined_domaingroup_zoom_jbegin_loc 717 718 717 718 719 719 SUBROUTINE cxios_set_domaingroup_zoom_ni(domaingroup_hdl, zoom_ni) BIND(C) 720 720 USE ISO_C_BINDING … … 722 722 INTEGER (KIND=C_INT) , VALUE :: zoom_ni 723 723 END SUBROUTINE cxios_set_domaingroup_zoom_ni 724 724 725 725 SUBROUTINE cxios_get_domaingroup_zoom_ni(domaingroup_hdl, zoom_ni) BIND(C) 726 726 USE ISO_C_BINDING … … 728 728 INTEGER (KIND=C_INT) :: zoom_ni 729 729 END SUBROUTINE cxios_get_domaingroup_zoom_ni 730 731 FUNCTION cxios_is_defined_domaingroup_zoom_ni(domaingroup_hdl 730 731 FUNCTION cxios_is_defined_domaingroup_zoom_ni(domaingroup_hdl) BIND(C) 732 732 USE ISO_C_BINDING 733 733 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_zoom_ni 734 734 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 735 735 END FUNCTION cxios_is_defined_domaingroup_zoom_ni 736 737 736 737 738 738 SUBROUTINE cxios_set_domaingroup_zoom_ni_loc(domaingroup_hdl, zoom_ni_loc) BIND(C) 739 739 USE ISO_C_BINDING … … 741 741 INTEGER (KIND=C_INT) , VALUE :: zoom_ni_loc 742 742 END SUBROUTINE cxios_set_domaingroup_zoom_ni_loc 743 743 744 744 SUBROUTINE cxios_get_domaingroup_zoom_ni_loc(domaingroup_hdl, zoom_ni_loc) BIND(C) 745 745 USE ISO_C_BINDING … … 747 747 INTEGER (KIND=C_INT) :: zoom_ni_loc 748 748 END SUBROUTINE cxios_get_domaingroup_zoom_ni_loc 749 750 FUNCTION cxios_is_defined_domaingroup_zoom_ni_loc(domaingroup_hdl 749 750 FUNCTION cxios_is_defined_domaingroup_zoom_ni_loc(domaingroup_hdl) BIND(C) 751 751 USE ISO_C_BINDING 752 752 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_zoom_ni_loc 753 753 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 754 754 END FUNCTION cxios_is_defined_domaingroup_zoom_ni_loc 755 756 755 756 757 757 SUBROUTINE cxios_set_domaingroup_zoom_nj(domaingroup_hdl, zoom_nj) BIND(C) 758 758 USE ISO_C_BINDING … … 760 760 INTEGER (KIND=C_INT) , VALUE :: zoom_nj 761 761 END SUBROUTINE cxios_set_domaingroup_zoom_nj 762 762 763 763 SUBROUTINE cxios_get_domaingroup_zoom_nj(domaingroup_hdl, zoom_nj) BIND(C) 764 764 USE ISO_C_BINDING … … 766 766 INTEGER (KIND=C_INT) :: zoom_nj 767 767 END SUBROUTINE cxios_get_domaingroup_zoom_nj 768 769 FUNCTION cxios_is_defined_domaingroup_zoom_nj(domaingroup_hdl 768 769 FUNCTION cxios_is_defined_domaingroup_zoom_nj(domaingroup_hdl) BIND(C) 770 770 USE ISO_C_BINDING 771 771 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_zoom_nj 772 772 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 773 773 END FUNCTION cxios_is_defined_domaingroup_zoom_nj 774 775 774 775 776 776 SUBROUTINE cxios_set_domaingroup_zoom_nj_loc(domaingroup_hdl, zoom_nj_loc) BIND(C) 777 777 USE ISO_C_BINDING … … 779 779 INTEGER (KIND=C_INT) , VALUE :: zoom_nj_loc 780 780 END SUBROUTINE cxios_set_domaingroup_zoom_nj_loc 781 781 782 782 SUBROUTINE cxios_get_domaingroup_zoom_nj_loc(domaingroup_hdl, zoom_nj_loc) BIND(C) 783 783 USE ISO_C_BINDING … … 785 785 INTEGER (KIND=C_INT) :: zoom_nj_loc 786 786 END SUBROUTINE cxios_get_domaingroup_zoom_nj_loc 787 788 FUNCTION cxios_is_defined_domaingroup_zoom_nj_loc(domaingroup_hdl 787 788 FUNCTION cxios_is_defined_domaingroup_zoom_nj_loc(domaingroup_hdl) BIND(C) 789 789 USE ISO_C_BINDING 790 790 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_zoom_nj_loc 791 791 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 792 792 END FUNCTION cxios_is_defined_domaingroup_zoom_nj_loc 793 794 795 END INTERFACE 796 793 794 END INTERFACE 795 797 796 END MODULE domaingroup_interface_attr -
XIOS/trunk/src/interface/fortran_attr/field_interface_attr.F90
r545 r581 6 6 MODULE field_interface_attr 7 7 USE, INTRINSIC :: ISO_C_BINDING 8 9 INTERFACE ! Do not call directly / interface FORTRAN 2003 <-> C9910 11 8 9 INTERFACE 10 ! Do not call directly / interface FORTRAN 2003 <-> C99 11 12 12 SUBROUTINE cxios_set_field_add_offset(field_hdl, add_offset) BIND(C) 13 13 USE ISO_C_BINDING … … 15 15 REAL (KIND=C_DOUBLE) , VALUE :: add_offset 16 16 END SUBROUTINE cxios_set_field_add_offset 17 17 18 18 SUBROUTINE cxios_get_field_add_offset(field_hdl, add_offset) BIND(C) 19 19 USE ISO_C_BINDING … … 21 21 REAL (KIND=C_DOUBLE) :: add_offset 22 22 END SUBROUTINE cxios_get_field_add_offset 23 24 FUNCTION cxios_is_defined_field_add_offset(field_hdl 23 24 FUNCTION cxios_is_defined_field_add_offset(field_hdl) BIND(C) 25 25 USE ISO_C_BINDING 26 26 LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_add_offset 27 27 INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 28 28 END FUNCTION cxios_is_defined_field_add_offset 29 30 29 30 31 31 SUBROUTINE cxios_set_field_axis_ref(field_hdl, axis_ref, axis_ref_size) BIND(C) 32 32 USE ISO_C_BINDING … … 35 35 INTEGER (kind = C_INT) , VALUE :: axis_ref_size 36 36 END SUBROUTINE cxios_set_field_axis_ref 37 37 38 38 SUBROUTINE cxios_get_field_axis_ref(field_hdl, axis_ref, axis_ref_size) BIND(C) 39 39 USE ISO_C_BINDING … … 42 42 INTEGER (kind = C_INT) , VALUE :: axis_ref_size 43 43 END SUBROUTINE cxios_get_field_axis_ref 44 45 FUNCTION cxios_is_defined_field_axis_ref(field_hdl 44 45 FUNCTION cxios_is_defined_field_axis_ref(field_hdl) BIND(C) 46 46 USE ISO_C_BINDING 47 47 LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_axis_ref 48 48 INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 49 49 END FUNCTION cxios_is_defined_field_axis_ref 50 51 50 51 52 52 SUBROUTINE cxios_set_field_default_value(field_hdl, default_value) BIND(C) 53 53 USE ISO_C_BINDING … … 55 55 REAL (KIND=C_DOUBLE) , VALUE :: default_value 56 56 END SUBROUTINE cxios_set_field_default_value 57 57 58 58 SUBROUTINE cxios_get_field_default_value(field_hdl, default_value) BIND(C) 59 59 USE ISO_C_BINDING … … 61 61 REAL (KIND=C_DOUBLE) :: default_value 62 62 END SUBROUTINE cxios_get_field_default_value 63 64 FUNCTION cxios_is_defined_field_default_value(field_hdl 63 64 FUNCTION cxios_is_defined_field_default_value(field_hdl) BIND(C) 65 65 USE ISO_C_BINDING 66 66 LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_default_value 67 67 INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 68 68 END FUNCTION cxios_is_defined_field_default_value 69 70 69 70 71 71 SUBROUTINE cxios_set_field_detect_missing_value(field_hdl, detect_missing_value) BIND(C) 72 72 USE ISO_C_BINDING … … 74 74 LOGICAL (KIND=C_BOOL) , VALUE :: detect_missing_value 75 75 END SUBROUTINE cxios_set_field_detect_missing_value 76 76 77 77 SUBROUTINE cxios_get_field_detect_missing_value(field_hdl, detect_missing_value) BIND(C) 78 78 USE ISO_C_BINDING … … 80 80 LOGICAL (KIND=C_BOOL) :: detect_missing_value 81 81 END SUBROUTINE cxios_get_field_detect_missing_value 82 83 FUNCTION cxios_is_defined_field_detect_missing_value(field_hdl 82 83 FUNCTION cxios_is_defined_field_detect_missing_value(field_hdl) BIND(C) 84 84 USE ISO_C_BINDING 85 85 LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_detect_missing_value 86 86 INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 87 87 END FUNCTION cxios_is_defined_field_detect_missing_value 88 89 88 89 90 90 SUBROUTINE cxios_set_field_domain_ref(field_hdl, domain_ref, domain_ref_size) BIND(C) 91 91 USE ISO_C_BINDING … … 94 94 INTEGER (kind = C_INT) , VALUE :: domain_ref_size 95 95 END SUBROUTINE cxios_set_field_domain_ref 96 96 97 97 SUBROUTINE cxios_get_field_domain_ref(field_hdl, domain_ref, domain_ref_size) BIND(C) 98 98 USE ISO_C_BINDING … … 101 101 INTEGER (kind = C_INT) , VALUE :: domain_ref_size 102 102 END SUBROUTINE cxios_get_field_domain_ref 103 104 FUNCTION cxios_is_defined_field_domain_ref(field_hdl 103 104 FUNCTION cxios_is_defined_field_domain_ref(field_hdl) BIND(C) 105 105 USE ISO_C_BINDING 106 106 LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_domain_ref 107 107 INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 108 108 END FUNCTION cxios_is_defined_field_domain_ref 109 110 109 110 111 111 SUBROUTINE cxios_set_field_enabled(field_hdl, enabled) BIND(C) 112 112 USE ISO_C_BINDING … … 114 114 LOGICAL (KIND=C_BOOL) , VALUE :: enabled 115 115 END SUBROUTINE cxios_set_field_enabled 116 116 117 117 SUBROUTINE cxios_get_field_enabled(field_hdl, enabled) BIND(C) 118 118 USE ISO_C_BINDING … … 120 120 LOGICAL (KIND=C_BOOL) :: enabled 121 121 END SUBROUTINE cxios_get_field_enabled 122 123 FUNCTION cxios_is_defined_field_enabled(field_hdl 122 123 FUNCTION cxios_is_defined_field_enabled(field_hdl) BIND(C) 124 124 USE ISO_C_BINDING 125 125 LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_enabled 126 126 INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 127 127 END FUNCTION cxios_is_defined_field_enabled 128 129 128 129 130 130 SUBROUTINE cxios_set_field_field_ref(field_hdl, field_ref, field_ref_size) BIND(C) 131 131 USE ISO_C_BINDING … … 134 134 INTEGER (kind = C_INT) , VALUE :: field_ref_size 135 135 END SUBROUTINE cxios_set_field_field_ref 136 136 137 137 SUBROUTINE cxios_get_field_field_ref(field_hdl, field_ref, field_ref_size) BIND(C) 138 138 USE ISO_C_BINDING … … 141 141 INTEGER (kind = C_INT) , VALUE :: field_ref_size 142 142 END SUBROUTINE cxios_get_field_field_ref 143 144 FUNCTION cxios_is_defined_field_field_ref(field_hdl 143 144 FUNCTION cxios_is_defined_field_field_ref(field_hdl) BIND(C) 145 145 USE ISO_C_BINDING 146 146 LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_field_ref 147 147 INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 148 148 END FUNCTION cxios_is_defined_field_field_ref 149 150 149 150 151 151 SUBROUTINE cxios_set_field_freq_offset(field_hdl, freq_offset) BIND(C) 152 152 USE ISO_C_BINDING … … 155 155 TYPE(txios(duration)), VALUE :: freq_offset 156 156 END SUBROUTINE cxios_set_field_freq_offset 157 157 158 158 SUBROUTINE cxios_get_field_freq_offset(field_hdl, freq_offset) BIND(C) 159 159 USE ISO_C_BINDING … … 162 162 TYPE(txios(duration)) :: freq_offset 163 163 END SUBROUTINE cxios_get_field_freq_offset 164 165 FUNCTION cxios_is_defined_field_freq_offset(field_hdl 164 165 FUNCTION cxios_is_defined_field_freq_offset(field_hdl) BIND(C) 166 166 USE ISO_C_BINDING 167 167 LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_freq_offset 168 168 INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 169 169 END FUNCTION cxios_is_defined_field_freq_offset 170 171 170 171 172 172 SUBROUTINE cxios_set_field_freq_op(field_hdl, freq_op) BIND(C) 173 173 USE ISO_C_BINDING … … 176 176 TYPE(txios(duration)), VALUE :: freq_op 177 177 END SUBROUTINE cxios_set_field_freq_op 178 178 179 179 SUBROUTINE cxios_get_field_freq_op(field_hdl, freq_op) BIND(C) 180 180 USE ISO_C_BINDING … … 183 183 TYPE(txios(duration)) :: freq_op 184 184 END SUBROUTINE cxios_get_field_freq_op 185 186 FUNCTION cxios_is_defined_field_freq_op(field_hdl 185 186 FUNCTION cxios_is_defined_field_freq_op(field_hdl) BIND(C) 187 187 USE ISO_C_BINDING 188 188 LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_freq_op 189 189 INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 190 190 END FUNCTION cxios_is_defined_field_freq_op 191 192 191 192 193 193 SUBROUTINE cxios_set_field_grid_ref(field_hdl, grid_ref, grid_ref_size) BIND(C) 194 194 USE ISO_C_BINDING … … 197 197 INTEGER (kind = C_INT) , VALUE :: grid_ref_size 198 198 END SUBROUTINE cxios_set_field_grid_ref 199 199 200 200 SUBROUTINE cxios_get_field_grid_ref(field_hdl, grid_ref, grid_ref_size) BIND(C) 201 201 USE ISO_C_BINDING … … 204 204 INTEGER (kind = C_INT) , VALUE :: grid_ref_size 205 205 END SUBROUTINE cxios_get_field_grid_ref 206 207 FUNCTION cxios_is_defined_field_grid_ref(field_hdl 206 207 FUNCTION cxios_is_defined_field_grid_ref(field_hdl) BIND(C) 208 208 USE ISO_C_BINDING 209 209 LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_grid_ref 210 210 INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 211 211 END FUNCTION cxios_is_defined_field_grid_ref 212 213 212 213 214 214 SUBROUTINE cxios_set_field_level(field_hdl, level) BIND(C) 215 215 USE ISO_C_BINDING … … 217 217 INTEGER (KIND=C_INT) , VALUE :: level 218 218 END SUBROUTINE cxios_set_field_level 219 219 220 220 SUBROUTINE cxios_get_field_level(field_hdl, level) BIND(C) 221 221 USE ISO_C_BINDING … … 223 223 INTEGER (KIND=C_INT) :: level 224 224 END SUBROUTINE cxios_get_field_level 225 226 FUNCTION cxios_is_defined_field_level(field_hdl 225 226 FUNCTION cxios_is_defined_field_level(field_hdl) BIND(C) 227 227 USE ISO_C_BINDING 228 228 LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_level 229 229 INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 230 230 END FUNCTION cxios_is_defined_field_level 231 232 231 232 233 233 SUBROUTINE cxios_set_field_long_name(field_hdl, long_name, long_name_size) BIND(C) 234 234 USE ISO_C_BINDING … … 237 237 INTEGER (kind = C_INT) , VALUE :: long_name_size 238 238 END SUBROUTINE cxios_set_field_long_name 239 239 240 240 SUBROUTINE cxios_get_field_long_name(field_hdl, long_name, long_name_size) BIND(C) 241 241 USE ISO_C_BINDING … … 244 244 INTEGER (kind = C_INT) , VALUE :: long_name_size 245 245 END SUBROUTINE cxios_get_field_long_name 246 247 FUNCTION cxios_is_defined_field_long_name(field_hdl 246 247 FUNCTION cxios_is_defined_field_long_name(field_hdl) BIND(C) 248 248 USE ISO_C_BINDING 249 249 LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_long_name 250 250 INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 251 251 END FUNCTION cxios_is_defined_field_long_name 252 253 252 253 254 254 SUBROUTINE cxios_set_field_name(field_hdl, name, name_size) BIND(C) 255 255 USE ISO_C_BINDING … … 258 258 INTEGER (kind = C_INT) , VALUE :: name_size 259 259 END SUBROUTINE cxios_set_field_name 260 260 261 261 SUBROUTINE cxios_get_field_name(field_hdl, name, name_size) BIND(C) 262 262 USE ISO_C_BINDING … … 265 265 INTEGER (kind = C_INT) , VALUE :: name_size 266 266 END SUBROUTINE cxios_get_field_name 267 268 FUNCTION cxios_is_defined_field_name(field_hdl 267 268 FUNCTION cxios_is_defined_field_name(field_hdl) BIND(C) 269 269 USE ISO_C_BINDING 270 270 LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_name 271 271 INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 272 272 END FUNCTION cxios_is_defined_field_name 273 274 273 274 275 275 SUBROUTINE cxios_set_field_operation(field_hdl, operation, operation_size) BIND(C) 276 276 USE ISO_C_BINDING … … 279 279 INTEGER (kind = C_INT) , VALUE :: operation_size 280 280 END SUBROUTINE cxios_set_field_operation 281 281 282 282 SUBROUTINE cxios_get_field_operation(field_hdl, operation, operation_size) BIND(C) 283 283 USE ISO_C_BINDING … … 286 286 INTEGER (kind = C_INT) , VALUE :: operation_size 287 287 END SUBROUTINE cxios_get_field_operation 288 289 FUNCTION cxios_is_defined_field_operation(field_hdl 288 289 FUNCTION cxios_is_defined_field_operation(field_hdl) BIND(C) 290 290 USE ISO_C_BINDING 291 291 LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_operation 292 292 INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 293 293 END FUNCTION cxios_is_defined_field_operation 294 295 294 295 296 296 SUBROUTINE cxios_set_field_prec(field_hdl, prec) BIND(C) 297 297 USE ISO_C_BINDING … … 299 299 INTEGER (KIND=C_INT) , VALUE :: prec 300 300 END SUBROUTINE cxios_set_field_prec 301 301 302 302 SUBROUTINE cxios_get_field_prec(field_hdl, prec) BIND(C) 303 303 USE ISO_C_BINDING … … 305 305 INTEGER (KIND=C_INT) :: prec 306 306 END SUBROUTINE cxios_get_field_prec 307 308 FUNCTION cxios_is_defined_field_prec(field_hdl 307 308 FUNCTION cxios_is_defined_field_prec(field_hdl) BIND(C) 309 309 USE ISO_C_BINDING 310 310 LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_prec 311 311 INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 312 312 END FUNCTION cxios_is_defined_field_prec 313 314 313 314 315 315 SUBROUTINE cxios_set_field_scale_factor(field_hdl, scale_factor) BIND(C) 316 316 USE ISO_C_BINDING … … 318 318 REAL (KIND=C_DOUBLE) , VALUE :: scale_factor 319 319 END SUBROUTINE cxios_set_field_scale_factor 320 320 321 321 SUBROUTINE cxios_get_field_scale_factor(field_hdl, scale_factor) BIND(C) 322 322 USE ISO_C_BINDING … … 324 324 REAL (KIND=C_DOUBLE) :: scale_factor 325 325 END SUBROUTINE cxios_get_field_scale_factor 326 327 FUNCTION cxios_is_defined_field_scale_factor(field_hdl 326 327 FUNCTION cxios_is_defined_field_scale_factor(field_hdl) BIND(C) 328 328 USE ISO_C_BINDING 329 329 LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_scale_factor 330 330 INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 331 331 END FUNCTION cxios_is_defined_field_scale_factor 332 333 332 333 334 334 SUBROUTINE cxios_set_field_standard_name(field_hdl, standard_name, standard_name_size) BIND(C) 335 335 USE ISO_C_BINDING … … 338 338 INTEGER (kind = C_INT) , VALUE :: standard_name_size 339 339 END SUBROUTINE cxios_set_field_standard_name 340 340 341 341 SUBROUTINE cxios_get_field_standard_name(field_hdl, standard_name, standard_name_size) BIND(C) 342 342 USE ISO_C_BINDING … … 345 345 INTEGER (kind = C_INT) , VALUE :: standard_name_size 346 346 END SUBROUTINE cxios_get_field_standard_name 347 348 FUNCTION cxios_is_defined_field_standard_name(field_hdl 347 348 FUNCTION cxios_is_defined_field_standard_name(field_hdl) BIND(C) 349 349 USE ISO_C_BINDING 350 350 LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_standard_name 351 351 INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 352 352 END FUNCTION cxios_is_defined_field_standard_name 353 354 353 354 355 355 SUBROUTINE cxios_set_field_unit(field_hdl, unit, unit_size) BIND(C) 356 356 USE ISO_C_BINDING … … 359 359 INTEGER (kind = C_INT) , VALUE :: unit_size 360 360 END SUBROUTINE cxios_set_field_unit 361 361 362 362 SUBROUTINE cxios_get_field_unit(field_hdl, unit, unit_size) BIND(C) 363 363 USE ISO_C_BINDING … … 366 366 INTEGER (kind = C_INT) , VALUE :: unit_size 367 367 END SUBROUTINE cxios_get_field_unit 368 369 FUNCTION cxios_is_defined_field_unit(field_hdl 368 369 FUNCTION cxios_is_defined_field_unit(field_hdl) BIND(C) 370 370 USE ISO_C_BINDING 371 371 LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_unit 372 372 INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 373 373 END FUNCTION cxios_is_defined_field_unit 374 375 374 375 376 376 SUBROUTINE cxios_set_field_valid_max(field_hdl, valid_max) BIND(C) 377 377 USE ISO_C_BINDING … … 379 379 REAL (KIND=C_DOUBLE) , VALUE :: valid_max 380 380 END SUBROUTINE cxios_set_field_valid_max 381 381 382 382 SUBROUTINE cxios_get_field_valid_max(field_hdl, valid_max) BIND(C) 383 383 USE ISO_C_BINDING … … 385 385 REAL (KIND=C_DOUBLE) :: valid_max 386 386 END SUBROUTINE cxios_get_field_valid_max 387 388 FUNCTION cxios_is_defined_field_valid_max(field_hdl 387 388 FUNCTION cxios_is_defined_field_valid_max(field_hdl) BIND(C) 389 389 USE ISO_C_BINDING 390 390 LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_valid_max 391 391 INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 392 392 END FUNCTION cxios_is_defined_field_valid_max 393 394 393 394 395 395 SUBROUTINE cxios_set_field_valid_min(field_hdl, valid_min) BIND(C) 396 396 USE ISO_C_BINDING … … 398 398 REAL (KIND=C_DOUBLE) , VALUE :: valid_min 399 399 END SUBROUTINE cxios_set_field_valid_min 400 400 401 401 SUBROUTINE cxios_get_field_valid_min(field_hdl, valid_min) BIND(C) 402 402 USE ISO_C_BINDING … … 404 404 REAL (KIND=C_DOUBLE) :: valid_min 405 405 END SUBROUTINE cxios_get_field_valid_min 406 407 FUNCTION cxios_is_defined_field_valid_min(field_hdl 406 407 FUNCTION cxios_is_defined_field_valid_min(field_hdl) BIND(C) 408 408 USE ISO_C_BINDING 409 409 LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_valid_min 410 410 INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 411 411 END FUNCTION cxios_is_defined_field_valid_min 412 413 414 END INTERFACE 415 412 413 END INTERFACE 414 416 415 END MODULE field_interface_attr -
XIOS/trunk/src/interface/fortran_attr/fieldgroup_interface_attr.F90
r545 r581 6 6 MODULE fieldgroup_interface_attr 7 7 USE, INTRINSIC :: ISO_C_BINDING 8 9 INTERFACE ! Do not call directly / interface FORTRAN 2003 <-> C9910 11 8 9 INTERFACE 10 ! Do not call directly / interface FORTRAN 2003 <-> C99 11 12 12 SUBROUTINE cxios_set_fieldgroup_add_offset(fieldgroup_hdl, add_offset) BIND(C) 13 13 USE ISO_C_BINDING … … 15 15 REAL (KIND=C_DOUBLE) , VALUE :: add_offset 16 16 END SUBROUTINE cxios_set_fieldgroup_add_offset 17 17 18 18 SUBROUTINE cxios_get_fieldgroup_add_offset(fieldgroup_hdl, add_offset) BIND(C) 19 19 USE ISO_C_BINDING … … 21 21 REAL (KIND=C_DOUBLE) :: add_offset 22 22 END SUBROUTINE cxios_get_fieldgroup_add_offset 23 24 FUNCTION cxios_is_defined_fieldgroup_add_offset(fieldgroup_hdl 23 24 FUNCTION cxios_is_defined_fieldgroup_add_offset(fieldgroup_hdl) BIND(C) 25 25 USE ISO_C_BINDING 26 26 LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_add_offset 27 27 INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 28 28 END FUNCTION cxios_is_defined_fieldgroup_add_offset 29 30 29 30 31 31 SUBROUTINE cxios_set_fieldgroup_axis_ref(fieldgroup_hdl, axis_ref, axis_ref_size) BIND(C) 32 32 USE ISO_C_BINDING … … 35 35 INTEGER (kind = C_INT) , VALUE :: axis_ref_size 36 36 END SUBROUTINE cxios_set_fieldgroup_axis_ref 37 37 38 38 SUBROUTINE cxios_get_fieldgroup_axis_ref(fieldgroup_hdl, axis_ref, axis_ref_size) BIND(C) 39 39 USE ISO_C_BINDING … … 42 42 INTEGER (kind = C_INT) , VALUE :: axis_ref_size 43 43 END SUBROUTINE cxios_get_fieldgroup_axis_ref 44 45 FUNCTION cxios_is_defined_fieldgroup_axis_ref(fieldgroup_hdl 44 45 FUNCTION cxios_is_defined_fieldgroup_axis_ref(fieldgroup_hdl) BIND(C) 46 46 USE ISO_C_BINDING 47 47 LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_axis_ref 48 48 INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 49 49 END FUNCTION cxios_is_defined_fieldgroup_axis_ref 50 51 50 51 52 52 SUBROUTINE cxios_set_fieldgroup_default_value(fieldgroup_hdl, default_value) BIND(C) 53 53 USE ISO_C_BINDING … … 55 55 REAL (KIND=C_DOUBLE) , VALUE :: default_value 56 56 END SUBROUTINE cxios_set_fieldgroup_default_value 57 57 58 58 SUBROUTINE cxios_get_fieldgroup_default_value(fieldgroup_hdl, default_value) BIND(C) 59 59 USE ISO_C_BINDING … … 61 61 REAL (KIND=C_DOUBLE) :: default_value 62 62 END SUBROUTINE cxios_get_fieldgroup_default_value 63 64 FUNCTION cxios_is_defined_fieldgroup_default_value(fieldgroup_hdl 63 64 FUNCTION cxios_is_defined_fieldgroup_default_value(fieldgroup_hdl) BIND(C) 65 65 USE ISO_C_BINDING 66 66 LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_default_value 67 67 INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 68 68 END FUNCTION cxios_is_defined_fieldgroup_default_value 69 70 69 70 71 71 SUBROUTINE cxios_set_fieldgroup_detect_missing_value(fieldgroup_hdl, detect_missing_value) BIND(C) 72 72 USE ISO_C_BINDING … … 74 74 LOGICAL (KIND=C_BOOL) , VALUE :: detect_missing_value 75 75 END SUBROUTINE cxios_set_fieldgroup_detect_missing_value 76 76 77 77 SUBROUTINE cxios_get_fieldgroup_detect_missing_value(fieldgroup_hdl, detect_missing_value) BIND(C) 78 78 USE ISO_C_BINDING … … 80 80 LOGICAL (KIND=C_BOOL) :: detect_missing_value 81 81 END SUBROUTINE cxios_get_fieldgroup_detect_missing_value 82 83 FUNCTION cxios_is_defined_fieldgroup_detect_missing_value(fieldgroup_hdl 82 83 FUNCTION cxios_is_defined_fieldgroup_detect_missing_value(fieldgroup_hdl) BIND(C) 84 84 USE ISO_C_BINDING 85 85 LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_detect_missing_value 86 86 INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 87 87 END FUNCTION cxios_is_defined_fieldgroup_detect_missing_value 88 89 88 89 90 90 SUBROUTINE cxios_set_fieldgroup_domain_ref(fieldgroup_hdl, domain_ref, domain_ref_size) BIND(C) 91 91 USE ISO_C_BINDING … … 94 94 INTEGER (kind = C_INT) , VALUE :: domain_ref_size 95 95 END SUBROUTINE cxios_set_fieldgroup_domain_ref 96 96 97 97 SUBROUTINE cxios_get_fieldgroup_domain_ref(fieldgroup_hdl, domain_ref, domain_ref_size) BIND(C) 98 98 USE ISO_C_BINDING … … 101 101 INTEGER (kind = C_INT) , VALUE :: domain_ref_size 102 102 END SUBROUTINE cxios_get_fieldgroup_domain_ref 103 104 FUNCTION cxios_is_defined_fieldgroup_domain_ref(fieldgroup_hdl 103 104 FUNCTION cxios_is_defined_fieldgroup_domain_ref(fieldgroup_hdl) BIND(C) 105 105 USE ISO_C_BINDING 106 106 LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_domain_ref 107 107 INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 108 108 END FUNCTION cxios_is_defined_fieldgroup_domain_ref 109 110 109 110 111 111 SUBROUTINE cxios_set_fieldgroup_enabled(fieldgroup_hdl, enabled) BIND(C) 112 112 USE ISO_C_BINDING … … 114 114 LOGICAL (KIND=C_BOOL) , VALUE :: enabled 115 115 END SUBROUTINE cxios_set_fieldgroup_enabled 116 116 117 117 SUBROUTINE cxios_get_fieldgroup_enabled(fieldgroup_hdl, enabled) BIND(C) 118 118 USE ISO_C_BINDING … … 120 120 LOGICAL (KIND=C_BOOL) :: enabled 121 121 END SUBROUTINE cxios_get_fieldgroup_enabled 122 123 FUNCTION cxios_is_defined_fieldgroup_enabled(fieldgroup_hdl 122 123 FUNCTION cxios_is_defined_fieldgroup_enabled(fieldgroup_hdl) BIND(C) 124 124 USE ISO_C_BINDING 125 125 LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_enabled 126 126 INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 127 127 END FUNCTION cxios_is_defined_fieldgroup_enabled 128 129 128 129 130 130 SUBROUTINE cxios_set_fieldgroup_field_ref(fieldgroup_hdl, field_ref, field_ref_size) BIND(C) 131 131 USE ISO_C_BINDING … … 134 134 INTEGER (kind = C_INT) , VALUE :: field_ref_size 135 135 END SUBROUTINE cxios_set_fieldgroup_field_ref 136 136 137 137 SUBROUTINE cxios_get_fieldgroup_field_ref(fieldgroup_hdl, field_ref, field_ref_size) BIND(C) 138 138 USE ISO_C_BINDING … … 141 141 INTEGER (kind = C_INT) , VALUE :: field_ref_size 142 142 END SUBROUTINE cxios_get_fieldgroup_field_ref 143 144 FUNCTION cxios_is_defined_fieldgroup_field_ref(fieldgroup_hdl 143 144 FUNCTION cxios_is_defined_fieldgroup_field_ref(fieldgroup_hdl) BIND(C) 145 145 USE ISO_C_BINDING 146 146 LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_field_ref 147 147 INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 148 148 END FUNCTION cxios_is_defined_fieldgroup_field_ref 149 150 149 150 151 151 SUBROUTINE cxios_set_fieldgroup_freq_offset(fieldgroup_hdl, freq_offset) BIND(C) 152 152 USE ISO_C_BINDING … … 155 155 TYPE(txios(duration)), VALUE :: freq_offset 156 156 END SUBROUTINE cxios_set_fieldgroup_freq_offset 157 157 158 158 SUBROUTINE cxios_get_fieldgroup_freq_offset(fieldgroup_hdl, freq_offset) BIND(C) 159 159 USE ISO_C_BINDING … … 162 162 TYPE(txios(duration)) :: freq_offset 163 163 END SUBROUTINE cxios_get_fieldgroup_freq_offset 164 165 FUNCTION cxios_is_defined_fieldgroup_freq_offset(fieldgroup_hdl 164 165 FUNCTION cxios_is_defined_fieldgroup_freq_offset(fieldgroup_hdl) BIND(C) 166 166 USE ISO_C_BINDING 167 167 LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_freq_offset 168 168 INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 169 169 END FUNCTION cxios_is_defined_fieldgroup_freq_offset 170 171 170 171 172 172 SUBROUTINE cxios_set_fieldgroup_freq_op(fieldgroup_hdl, freq_op) BIND(C) 173 173 USE ISO_C_BINDING … … 176 176 TYPE(txios(duration)), VALUE :: freq_op 177 177 END SUBROUTINE cxios_set_fieldgroup_freq_op 178 178 179 179 SUBROUTINE cxios_get_fieldgroup_freq_op(fieldgroup_hdl, freq_op) BIND(C) 180 180 USE ISO_C_BINDING … … 183 183 TYPE(txios(duration)) :: freq_op 184 184 END SUBROUTINE cxios_get_fieldgroup_freq_op 185 186 FUNCTION cxios_is_defined_fieldgroup_freq_op(fieldgroup_hdl 185 186 FUNCTION cxios_is_defined_fieldgroup_freq_op(fieldgroup_hdl) BIND(C) 187 187 USE ISO_C_BINDING 188 188 LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_freq_op 189 189 INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 190 190 END FUNCTION cxios_is_defined_fieldgroup_freq_op 191 192 191 192 193 193 SUBROUTINE cxios_set_fieldgroup_grid_ref(fieldgroup_hdl, grid_ref, grid_ref_size) BIND(C) 194 194 USE ISO_C_BINDING … … 197 197 INTEGER (kind = C_INT) , VALUE :: grid_ref_size 198 198 END SUBROUTINE cxios_set_fieldgroup_grid_ref 199 199 200 200 SUBROUTINE cxios_get_fieldgroup_grid_ref(fieldgroup_hdl, grid_ref, grid_ref_size) BIND(C) 201 201 USE ISO_C_BINDING … … 204 204 INTEGER (kind = C_INT) , VALUE :: grid_ref_size 205 205 END SUBROUTINE cxios_get_fieldgroup_grid_ref 206 207 FUNCTION cxios_is_defined_fieldgroup_grid_ref(fieldgroup_hdl 206 207 FUNCTION cxios_is_defined_fieldgroup_grid_ref(fieldgroup_hdl) BIND(C) 208 208 USE ISO_C_BINDING 209 209 LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_grid_ref 210 210 INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 211 211 END FUNCTION cxios_is_defined_fieldgroup_grid_ref 212 213 212 213 214 214 SUBROUTINE cxios_set_fieldgroup_group_ref(fieldgroup_hdl, group_ref, group_ref_size) BIND(C) 215 215 USE ISO_C_BINDING … … 218 218 INTEGER (kind = C_INT) , VALUE :: group_ref_size 219 219 END SUBROUTINE cxios_set_fieldgroup_group_ref 220 220 221 221 SUBROUTINE cxios_get_fieldgroup_group_ref(fieldgroup_hdl, group_ref, group_ref_size) BIND(C) 222 222 USE ISO_C_BINDING … … 225 225 INTEGER (kind = C_INT) , VALUE :: group_ref_size 226 226 END SUBROUTINE cxios_get_fieldgroup_group_ref 227 228 FUNCTION cxios_is_defined_fieldgroup_group_ref(fieldgroup_hdl 227 228 FUNCTION cxios_is_defined_fieldgroup_group_ref(fieldgroup_hdl) BIND(C) 229 229 USE ISO_C_BINDING 230 230 LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_group_ref 231 231 INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 232 232 END FUNCTION cxios_is_defined_fieldgroup_group_ref 233 234 233 234 235 235 SUBROUTINE cxios_set_fieldgroup_level(fieldgroup_hdl, level) BIND(C) 236 236 USE ISO_C_BINDING … … 238 238 INTEGER (KIND=C_INT) , VALUE :: level 239 239 END SUBROUTINE cxios_set_fieldgroup_level 240 240 241 241 SUBROUTINE cxios_get_fieldgroup_level(fieldgroup_hdl, level) BIND(C) 242 242 USE ISO_C_BINDING … … 244 244 INTEGER (KIND=C_INT) :: level 245 245 END SUBROUTINE cxios_get_fieldgroup_level 246 247 FUNCTION cxios_is_defined_fieldgroup_level(fieldgroup_hdl 246 247 FUNCTION cxios_is_defined_fieldgroup_level(fieldgroup_hdl) BIND(C) 248 248 USE ISO_C_BINDING 249 249 LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_level 250 250 INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 251 251 END FUNCTION cxios_is_defined_fieldgroup_level 252 253 252 253 254 254 SUBROUTINE cxios_set_fieldgroup_long_name(fieldgroup_hdl, long_name, long_name_size) BIND(C) 255 255 USE ISO_C_BINDING … … 258 258 INTEGER (kind = C_INT) , VALUE :: long_name_size 259 259 END SUBROUTINE cxios_set_fieldgroup_long_name 260 260 261 261 SUBROUTINE cxios_get_fieldgroup_long_name(fieldgroup_hdl, long_name, long_name_size) BIND(C) 262 262 USE ISO_C_BINDING … … 265 265 INTEGER (kind = C_INT) , VALUE :: long_name_size 266 266 END SUBROUTINE cxios_get_fieldgroup_long_name 267 268 FUNCTION cxios_is_defined_fieldgroup_long_name(fieldgroup_hdl 267 268 FUNCTION cxios_is_defined_fieldgroup_long_name(fieldgroup_hdl) BIND(C) 269 269 USE ISO_C_BINDING 270 270 LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_long_name 271 271 INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 272 272 END FUNCTION cxios_is_defined_fieldgroup_long_name 273 274 273 274 275 275 SUBROUTINE cxios_set_fieldgroup_name(fieldgroup_hdl, name, name_size) BIND(C) 276 276 USE ISO_C_BINDING … … 279 279 INTEGER (kind = C_INT) , VALUE :: name_size 280 280 END SUBROUTINE cxios_set_fieldgroup_name 281 281 282 282 SUBROUTINE cxios_get_fieldgroup_name(fieldgroup_hdl, name, name_size) BIND(C) 283 283 USE ISO_C_BINDING … … 286 286 INTEGER (kind = C_INT) , VALUE :: name_size 287 287 END SUBROUTINE cxios_get_fieldgroup_name 288 289 FUNCTION cxios_is_defined_fieldgroup_name(fieldgroup_hdl 288 289 FUNCTION cxios_is_defined_fieldgroup_name(fieldgroup_hdl) BIND(C) 290 290 USE ISO_C_BINDING 291 291 LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_name 292 292 INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 293 293 END FUNCTION cxios_is_defined_fieldgroup_name 294 295 294 295 296 296 SUBROUTINE cxios_set_fieldgroup_operation(fieldgroup_hdl, operation, operation_size) BIND(C) 297 297 USE ISO_C_BINDING … … 300 300 INTEGER (kind = C_INT) , VALUE :: operation_size 301 301 END SUBROUTINE cxios_set_fieldgroup_operation 302 302 303 303 SUBROUTINE cxios_get_fieldgroup_operation(fieldgroup_hdl, operation, operation_size) BIND(C) 304 304 USE ISO_C_BINDING … … 307 307 INTEGER (kind = C_INT) , VALUE :: operation_size 308 308 END SUBROUTINE cxios_get_fieldgroup_operation 309 310 FUNCTION cxios_is_defined_fieldgroup_operation(fieldgroup_hdl 309 310 FUNCTION cxios_is_defined_fieldgroup_operation(fieldgroup_hdl) BIND(C) 311 311 USE ISO_C_BINDING 312 312 LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_operation 313 313 INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 314 314 END FUNCTION cxios_is_defined_fieldgroup_operation 315 316 315 316 317 317 SUBROUTINE cxios_set_fieldgroup_prec(fieldgroup_hdl, prec) BIND(C) 318 318 USE ISO_C_BINDING … … 320 320 INTEGER (KIND=C_INT) , VALUE :: prec 321 321 END SUBROUTINE cxios_set_fieldgroup_prec 322 322 323 323 SUBROUTINE cxios_get_fieldgroup_prec(fieldgroup_hdl, prec) BIND(C) 324 324 USE ISO_C_BINDING … … 326 326 INTEGER (KIND=C_INT) :: prec 327 327 END SUBROUTINE cxios_get_fieldgroup_prec 328 329 FUNCTION cxios_is_defined_fieldgroup_prec(fieldgroup_hdl 328 329 FUNCTION cxios_is_defined_fieldgroup_prec(fieldgroup_hdl) BIND(C) 330 330 USE ISO_C_BINDING 331 331 LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_prec 332 332 INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 333 333 END FUNCTION cxios_is_defined_fieldgroup_prec 334 335 334 335 336 336 SUBROUTINE cxios_set_fieldgroup_scale_factor(fieldgroup_hdl, scale_factor) BIND(C) 337 337 USE ISO_C_BINDING … … 339 339 REAL (KIND=C_DOUBLE) , VALUE :: scale_factor 340 340 END SUBROUTINE cxios_set_fieldgroup_scale_factor 341 341 342 342 SUBROUTINE cxios_get_fieldgroup_scale_factor(fieldgroup_hdl, scale_factor) BIND(C) 343 343 USE ISO_C_BINDING … … 345 345 REAL (KIND=C_DOUBLE) :: scale_factor 346 346 END SUBROUTINE cxios_get_fieldgroup_scale_factor 347 348 FUNCTION cxios_is_defined_fieldgroup_scale_factor(fieldgroup_hdl 347 348 FUNCTION cxios_is_defined_fieldgroup_scale_factor(fieldgroup_hdl) BIND(C) 349 349 USE ISO_C_BINDING 350 350 LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_scale_factor 351 351 INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 352 352 END FUNCTION cxios_is_defined_fieldgroup_scale_factor 353 354 353 354 355 355 SUBROUTINE cxios_set_fieldgroup_standard_name(fieldgroup_hdl, standard_name, standard_name_size) BIND(C) 356 356 USE ISO_C_BINDING … … 359 359 INTEGER (kind = C_INT) , VALUE :: standard_name_size 360 360 END SUBROUTINE cxios_set_fieldgroup_standard_name 361 361 362 362 SUBROUTINE cxios_get_fieldgroup_standard_name(fieldgroup_hdl, standard_name, standard_name_size) BIND(C) 363 363 USE ISO_C_BINDING … … 366 366 INTEGER (kind = C_INT) , VALUE :: standard_name_size 367 367 END SUBROUTINE cxios_get_fieldgroup_standard_name 368 369 FUNCTION cxios_is_defined_fieldgroup_standard_name(fieldgroup_hdl 368 369 FUNCTION cxios_is_defined_fieldgroup_standard_name(fieldgroup_hdl) BIND(C) 370 370 USE ISO_C_BINDING 371 371 LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_standard_name 372 372 INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 373 373 END FUNCTION cxios_is_defined_fieldgroup_standard_name 374 375 374 375 376 376 SUBROUTINE cxios_set_fieldgroup_unit(fieldgroup_hdl, unit, unit_size) BIND(C) 377 377 USE ISO_C_BINDING … … 380 380 INTEGER (kind = C_INT) , VALUE :: unit_size 381 381 END SUBROUTINE cxios_set_fieldgroup_unit 382 382 383 383 SUBROUTINE cxios_get_fieldgroup_unit(fieldgroup_hdl, unit, unit_size) BIND(C) 384 384 USE ISO_C_BINDING … … 387 387 INTEGER (kind = C_INT) , VALUE :: unit_size 388 388 END SUBROUTINE cxios_get_fieldgroup_unit 389 390 FUNCTION cxios_is_defined_fieldgroup_unit(fieldgroup_hdl 389 390 FUNCTION cxios_is_defined_fieldgroup_unit(fieldgroup_hdl) BIND(C) 391 391 USE ISO_C_BINDING 392 392 LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_unit 393 393 INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 394 394 END FUNCTION cxios_is_defined_fieldgroup_unit 395 396 395 396 397 397 SUBROUTINE cxios_set_fieldgroup_valid_max(fieldgroup_hdl, valid_max) BIND(C) 398 398 USE ISO_C_BINDING … … 400 400 REAL (KIND=C_DOUBLE) , VALUE :: valid_max 401 401 END SUBROUTINE cxios_set_fieldgroup_valid_max 402 402 403 403 SUBROUTINE cxios_get_fieldgroup_valid_max(fieldgroup_hdl, valid_max) BIND(C) 404 404 USE ISO_C_BINDING … … 406 406 REAL (KIND=C_DOUBLE) :: valid_max 407 407 END SUBROUTINE cxios_get_fieldgroup_valid_max 408 409 FUNCTION cxios_is_defined_fieldgroup_valid_max(fieldgroup_hdl 408 409 FUNCTION cxios_is_defined_fieldgroup_valid_max(fieldgroup_hdl) BIND(C) 410 410 USE ISO_C_BINDING 411 411 LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_valid_max 412 412 INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 413 413 END FUNCTION cxios_is_defined_fieldgroup_valid_max 414 415 414 415 416 416 SUBROUTINE cxios_set_fieldgroup_valid_min(fieldgroup_hdl, valid_min) BIND(C) 417 417 USE ISO_C_BINDING … … 419 419 REAL (KIND=C_DOUBLE) , VALUE :: valid_min 420 420 END SUBROUTINE cxios_set_fieldgroup_valid_min 421 421 422 422 SUBROUTINE cxios_get_fieldgroup_valid_min(fieldgroup_hdl, valid_min) BIND(C) 423 423 USE ISO_C_BINDING … … 425 425 REAL (KIND=C_DOUBLE) :: valid_min 426 426 END SUBROUTINE cxios_get_fieldgroup_valid_min 427 428 FUNCTION cxios_is_defined_fieldgroup_valid_min(fieldgroup_hdl 427 428 FUNCTION cxios_is_defined_fieldgroup_valid_min(fieldgroup_hdl) BIND(C) 429 429 USE ISO_C_BINDING 430 430 LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_valid_min 431 431 INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 432 432 END FUNCTION cxios_is_defined_fieldgroup_valid_min 433 434 435 END INTERFACE 436 433 434 END INTERFACE 435 437 436 END MODULE fieldgroup_interface_attr -
XIOS/trunk/src/interface/fortran_attr/file_interface_attr.F90
r545 r581 6 6 MODULE file_interface_attr 7 7 USE, INTRINSIC :: ISO_C_BINDING 8 9 INTERFACE ! Do not call directly / interface FORTRAN 2003 <-> C9910 11 8 9 INTERFACE 10 ! Do not call directly / interface FORTRAN 2003 <-> C99 11 12 12 SUBROUTINE cxios_set_file_append(file_hdl, append) BIND(C) 13 13 USE ISO_C_BINDING … … 15 15 LOGICAL (KIND=C_BOOL) , VALUE :: append 16 16 END SUBROUTINE cxios_set_file_append 17 17 18 18 SUBROUTINE cxios_get_file_append(file_hdl, append) BIND(C) 19 19 USE ISO_C_BINDING … … 21 21 LOGICAL (KIND=C_BOOL) :: append 22 22 END SUBROUTINE cxios_get_file_append 23 24 FUNCTION cxios_is_defined_file_append(file_hdl 23 24 FUNCTION cxios_is_defined_file_append(file_hdl) BIND(C) 25 25 USE ISO_C_BINDING 26 26 LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_append 27 27 INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 28 28 END FUNCTION cxios_is_defined_file_append 29 30 29 30 31 31 SUBROUTINE cxios_set_file_description(file_hdl, description, description_size) BIND(C) 32 32 USE ISO_C_BINDING … … 35 35 INTEGER (kind = C_INT) , VALUE :: description_size 36 36 END SUBROUTINE cxios_set_file_description 37 37 38 38 SUBROUTINE cxios_get_file_description(file_hdl, description, description_size) BIND(C) 39 39 USE ISO_C_BINDING … … 42 42 INTEGER (kind = C_INT) , VALUE :: description_size 43 43 END SUBROUTINE cxios_get_file_description 44 45 FUNCTION cxios_is_defined_file_description(file_hdl 44 45 FUNCTION cxios_is_defined_file_description(file_hdl) BIND(C) 46 46 USE ISO_C_BINDING 47 47 LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_description 48 48 INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 49 49 END FUNCTION cxios_is_defined_file_description 50 51 50 51 52 52 SUBROUTINE cxios_set_file_enabled(file_hdl, enabled) BIND(C) 53 53 USE ISO_C_BINDING … … 55 55 LOGICAL (KIND=C_BOOL) , VALUE :: enabled 56 56 END SUBROUTINE cxios_set_file_enabled 57 57 58 58 SUBROUTINE cxios_get_file_enabled(file_hdl, enabled) BIND(C) 59 59 USE ISO_C_BINDING … … 61 61 LOGICAL (KIND=C_BOOL) :: enabled 62 62 END SUBROUTINE cxios_get_file_enabled 63 64 FUNCTION cxios_is_defined_file_enabled(file_hdl 63 64 FUNCTION cxios_is_defined_file_enabled(file_hdl) BIND(C) 65 65 USE ISO_C_BINDING 66 66 LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_enabled 67 67 INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 68 68 END FUNCTION cxios_is_defined_file_enabled 69 70 69 70 71 71 SUBROUTINE cxios_set_file_format(file_hdl, format, format_size) BIND(C) 72 72 USE ISO_C_BINDING … … 75 75 INTEGER (kind = C_INT) , VALUE :: format_size 76 76 END SUBROUTINE cxios_set_file_format 77 77 78 78 SUBROUTINE cxios_get_file_format(file_hdl, format, format_size) BIND(C) 79 79 USE ISO_C_BINDING … … 82 82 INTEGER (kind = C_INT) , VALUE :: format_size 83 83 END SUBROUTINE cxios_get_file_format 84 85 FUNCTION cxios_is_defined_file_format(file_hdl 84 85 FUNCTION cxios_is_defined_file_format(file_hdl) BIND(C) 86 86 USE ISO_C_BINDING 87 87 LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_format 88 88 INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 89 89 END FUNCTION cxios_is_defined_file_format 90 91 90 91 92 92 SUBROUTINE cxios_set_file_min_digits(file_hdl, min_digits) BIND(C) 93 93 USE ISO_C_BINDING … … 95 95 INTEGER (KIND=C_INT) , VALUE :: min_digits 96 96 END SUBROUTINE cxios_set_file_min_digits 97 97 98 98 SUBROUTINE cxios_get_file_min_digits(file_hdl, min_digits) BIND(C) 99 99 USE ISO_C_BINDING … … 101 101 INTEGER (KIND=C_INT) :: min_digits 102 102 END SUBROUTINE cxios_get_file_min_digits 103 104 FUNCTION cxios_is_defined_file_min_digits(file_hdl 103 104 FUNCTION cxios_is_defined_file_min_digits(file_hdl) BIND(C) 105 105 USE ISO_C_BINDING 106 106 LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_min_digits 107 107 INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 108 108 END FUNCTION cxios_is_defined_file_min_digits 109 110 109 110 111 111 SUBROUTINE cxios_set_file_name(file_hdl, name, name_size) BIND(C) 112 112 USE ISO_C_BINDING … … 115 115 INTEGER (kind = C_INT) , VALUE :: name_size 116 116 END SUBROUTINE cxios_set_file_name 117 117 118 118 SUBROUTINE cxios_get_file_name(file_hdl, name, name_size) BIND(C) 119 119 USE ISO_C_BINDING … … 122 122 INTEGER (kind = C_INT) , VALUE :: name_size 123 123 END SUBROUTINE cxios_get_file_name 124 125 FUNCTION cxios_is_defined_file_name(file_hdl 124 125 FUNCTION cxios_is_defined_file_name(file_hdl) BIND(C) 126 126 USE ISO_C_BINDING 127 127 LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_name 128 128 INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 129 129 END FUNCTION cxios_is_defined_file_name 130 131 130 131 132 132 SUBROUTINE cxios_set_file_name_suffix(file_hdl, name_suffix, name_suffix_size) BIND(C) 133 133 USE ISO_C_BINDING … … 136 136 INTEGER (kind = C_INT) , VALUE :: name_suffix_size 137 137 END SUBROUTINE cxios_set_file_name_suffix 138 138 139 139 SUBROUTINE cxios_get_file_name_suffix(file_hdl, name_suffix, name_suffix_size) BIND(C) 140 140 USE ISO_C_BINDING … … 143 143 INTEGER (kind = C_INT) , VALUE :: name_suffix_size 144 144 END SUBROUTINE cxios_get_file_name_suffix 145 146 FUNCTION cxios_is_defined_file_name_suffix(file_hdl 145 146 FUNCTION cxios_is_defined_file_name_suffix(file_hdl) BIND(C) 147 147 USE ISO_C_BINDING 148 148 LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_name_suffix 149 149 INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 150 150 END FUNCTION cxios_is_defined_file_name_suffix 151 152 151 152 153 153 SUBROUTINE cxios_set_file_output_freq(file_hdl, output_freq) BIND(C) 154 154 USE ISO_C_BINDING … … 157 157 TYPE(txios(duration)), VALUE :: output_freq 158 158 END SUBROUTINE cxios_set_file_output_freq 159 159 160 160 SUBROUTINE cxios_get_file_output_freq(file_hdl, output_freq) BIND(C) 161 161 USE ISO_C_BINDING … … 164 164 TYPE(txios(duration)) :: output_freq 165 165 END SUBROUTINE cxios_get_file_output_freq 166 167 FUNCTION cxios_is_defined_file_output_freq(file_hdl 166 167 FUNCTION cxios_is_defined_file_output_freq(file_hdl) BIND(C) 168 168 USE ISO_C_BINDING 169 169 LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_output_freq 170 170 INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 171 171 END FUNCTION cxios_is_defined_file_output_freq 172 173 172 173 174 174 SUBROUTINE cxios_set_file_output_level(file_hdl, output_level) BIND(C) 175 175 USE ISO_C_BINDING … … 177 177 INTEGER (KIND=C_INT) , VALUE :: output_level 178 178 END SUBROUTINE cxios_set_file_output_level 179 179 180 180 SUBROUTINE cxios_get_file_output_level(file_hdl, output_level) BIND(C) 181 181 USE ISO_C_BINDING … … 183 183 INTEGER (KIND=C_INT) :: output_level 184 184 END SUBROUTINE cxios_get_file_output_level 185 186 FUNCTION cxios_is_defined_file_output_level(file_hdl 185 186 FUNCTION cxios_is_defined_file_output_level(file_hdl) BIND(C) 187 187 USE ISO_C_BINDING 188 188 LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_output_level 189 189 INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 190 190 END FUNCTION cxios_is_defined_file_output_level 191 192 191 192 193 193 SUBROUTINE cxios_set_file_par_access(file_hdl, par_access, par_access_size) BIND(C) 194 194 USE ISO_C_BINDING … … 197 197 INTEGER (kind = C_INT) , VALUE :: par_access_size 198 198 END SUBROUTINE cxios_set_file_par_access 199 199 200 200 SUBROUTINE cxios_get_file_par_access(file_hdl, par_access, par_access_size) BIND(C) 201 201 USE ISO_C_BINDING … … 204 204 INTEGER (kind = C_INT) , VALUE :: par_access_size 205 205 END SUBROUTINE cxios_get_file_par_access 206 207 FUNCTION cxios_is_defined_file_par_access(file_hdl 206 207 FUNCTION cxios_is_defined_file_par_access(file_hdl) BIND(C) 208 208 USE ISO_C_BINDING 209 209 LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_par_access 210 210 INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 211 211 END FUNCTION cxios_is_defined_file_par_access 212 213 212 213 214 214 SUBROUTINE cxios_set_file_split_freq(file_hdl, split_freq) BIND(C) 215 215 USE ISO_C_BINDING … … 218 218 TYPE(txios(duration)), VALUE :: split_freq 219 219 END SUBROUTINE cxios_set_file_split_freq 220 220 221 221 SUBROUTINE cxios_get_file_split_freq(file_hdl, split_freq) BIND(C) 222 222 USE ISO_C_BINDING … … 225 225 TYPE(txios(duration)) :: split_freq 226 226 END SUBROUTINE cxios_get_file_split_freq 227 228 FUNCTION cxios_is_defined_file_split_freq(file_hdl 227 228 FUNCTION cxios_is_defined_file_split_freq(file_hdl) BIND(C) 229 229 USE ISO_C_BINDING 230 230 LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_split_freq 231 231 INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 232 232 END FUNCTION cxios_is_defined_file_split_freq 233 234 233 234 235 235 SUBROUTINE cxios_set_file_split_freq_format(file_hdl, split_freq_format, split_freq_format_size) BIND(C) 236 236 USE ISO_C_BINDING … … 239 239 INTEGER (kind = C_INT) , VALUE :: split_freq_format_size 240 240 END SUBROUTINE cxios_set_file_split_freq_format 241 241 242 242 SUBROUTINE cxios_get_file_split_freq_format(file_hdl, split_freq_format, split_freq_format_size) BIND(C) 243 243 USE ISO_C_BINDING … … 246 246 INTEGER (kind = C_INT) , VALUE :: split_freq_format_size 247 247 END SUBROUTINE cxios_get_file_split_freq_format 248 249 FUNCTION cxios_is_defined_file_split_freq_format(file_hdl 248 249 FUNCTION cxios_is_defined_file_split_freq_format(file_hdl) BIND(C) 250 250 USE ISO_C_BINDING 251 251 LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_split_freq_format 252 252 INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 253 253 END FUNCTION cxios_is_defined_file_split_freq_format 254 255 254 255 256 256 SUBROUTINE cxios_set_file_sync_freq(file_hdl, sync_freq) BIND(C) 257 257 USE ISO_C_BINDING … … 260 260 TYPE(txios(duration)), VALUE :: sync_freq 261 261 END SUBROUTINE cxios_set_file_sync_freq 262 262 263 263 SUBROUTINE cxios_get_file_sync_freq(file_hdl, sync_freq) BIND(C) 264 264 USE ISO_C_BINDING … … 267 267 TYPE(txios(duration)) :: sync_freq 268 268 END SUBROUTINE cxios_get_file_sync_freq 269 270 FUNCTION cxios_is_defined_file_sync_freq(file_hdl 269 270 FUNCTION cxios_is_defined_file_sync_freq(file_hdl) BIND(C) 271 271 USE ISO_C_BINDING 272 272 LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_sync_freq 273 273 INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 274 274 END FUNCTION cxios_is_defined_file_sync_freq 275 276 275 276 277 277 SUBROUTINE cxios_set_file_type(file_hdl, type, type_size) BIND(C) 278 278 USE ISO_C_BINDING … … 281 281 INTEGER (kind = C_INT) , VALUE :: type_size 282 282 END SUBROUTINE cxios_set_file_type 283 283 284 284 SUBROUTINE cxios_get_file_type(file_hdl, type, type_size) BIND(C) 285 285 USE ISO_C_BINDING … … 288 288 INTEGER (kind = C_INT) , VALUE :: type_size 289 289 END SUBROUTINE cxios_get_file_type 290 291 FUNCTION cxios_is_defined_file_type(file_hdl 290 291 FUNCTION cxios_is_defined_file_type(file_hdl) BIND(C) 292 292 USE ISO_C_BINDING 293 293 LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_type 294 294 INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 295 295 END FUNCTION cxios_is_defined_file_type 296 297 298 END INTERFACE 299 296 297 END INTERFACE 298 300 299 END MODULE file_interface_attr -
XIOS/trunk/src/interface/fortran_attr/filegroup_interface_attr.F90
r545 r581 6 6 MODULE filegroup_interface_attr 7 7 USE, INTRINSIC :: ISO_C_BINDING 8 9 INTERFACE ! Do not call directly / interface FORTRAN 2003 <-> C9910 11 8 9 INTERFACE 10 ! Do not call directly / interface FORTRAN 2003 <-> C99 11 12 12 SUBROUTINE cxios_set_filegroup_append(filegroup_hdl, append) BIND(C) 13 13 USE ISO_C_BINDING … … 15 15 LOGICAL (KIND=C_BOOL) , VALUE :: append 16 16 END SUBROUTINE cxios_set_filegroup_append 17 17 18 18 SUBROUTINE cxios_get_filegroup_append(filegroup_hdl, append) BIND(C) 19 19 USE ISO_C_BINDING … … 21 21 LOGICAL (KIND=C_BOOL) :: append 22 22 END SUBROUTINE cxios_get_filegroup_append 23 24 FUNCTION cxios_is_defined_filegroup_append(filegroup_hdl 23 24 FUNCTION cxios_is_defined_filegroup_append(filegroup_hdl) BIND(C) 25 25 USE ISO_C_BINDING 26 26 LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_append 27 27 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 28 28 END FUNCTION cxios_is_defined_filegroup_append 29 30 29 30 31 31 SUBROUTINE cxios_set_filegroup_description(filegroup_hdl, description, description_size) BIND(C) 32 32 USE ISO_C_BINDING … … 35 35 INTEGER (kind = C_INT) , VALUE :: description_size 36 36 END SUBROUTINE cxios_set_filegroup_description 37 37 38 38 SUBROUTINE cxios_get_filegroup_description(filegroup_hdl, description, description_size) BIND(C) 39 39 USE ISO_C_BINDING … … 42 42 INTEGER (kind = C_INT) , VALUE :: description_size 43 43 END SUBROUTINE cxios_get_filegroup_description 44 45 FUNCTION cxios_is_defined_filegroup_description(filegroup_hdl 44 45 FUNCTION cxios_is_defined_filegroup_description(filegroup_hdl) BIND(C) 46 46 USE ISO_C_BINDING 47 47 LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_description 48 48 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 49 49 END FUNCTION cxios_is_defined_filegroup_description 50 51 50 51 52 52 SUBROUTINE cxios_set_filegroup_enabled(filegroup_hdl, enabled) BIND(C) 53 53 USE ISO_C_BINDING … … 55 55 LOGICAL (KIND=C_BOOL) , VALUE :: enabled 56 56 END SUBROUTINE cxios_set_filegroup_enabled 57 57 58 58 SUBROUTINE cxios_get_filegroup_enabled(filegroup_hdl, enabled) BIND(C) 59 59 USE ISO_C_BINDING … … 61 61 LOGICAL (KIND=C_BOOL) :: enabled 62 62 END SUBROUTINE cxios_get_filegroup_enabled 63 64 FUNCTION cxios_is_defined_filegroup_enabled(filegroup_hdl 63 64 FUNCTION cxios_is_defined_filegroup_enabled(filegroup_hdl) BIND(C) 65 65 USE ISO_C_BINDING 66 66 LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_enabled 67 67 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 68 68 END FUNCTION cxios_is_defined_filegroup_enabled 69 70 69 70 71 71 SUBROUTINE cxios_set_filegroup_format(filegroup_hdl, format, format_size) BIND(C) 72 72 USE ISO_C_BINDING … … 75 75 INTEGER (kind = C_INT) , VALUE :: format_size 76 76 END SUBROUTINE cxios_set_filegroup_format 77 77 78 78 SUBROUTINE cxios_get_filegroup_format(filegroup_hdl, format, format_size) BIND(C) 79 79 USE ISO_C_BINDING … … 82 82 INTEGER (kind = C_INT) , VALUE :: format_size 83 83 END SUBROUTINE cxios_get_filegroup_format 84 85 FUNCTION cxios_is_defined_filegroup_format(filegroup_hdl 84 85 FUNCTION cxios_is_defined_filegroup_format(filegroup_hdl) BIND(C) 86 86 USE ISO_C_BINDING 87 87 LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_format 88 88 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 89 89 END FUNCTION cxios_is_defined_filegroup_format 90 91 90 91 92 92 SUBROUTINE cxios_set_filegroup_group_ref(filegroup_hdl, group_ref, group_ref_size) BIND(C) 93 93 USE ISO_C_BINDING … … 96 96 INTEGER (kind = C_INT) , VALUE :: group_ref_size 97 97 END SUBROUTINE cxios_set_filegroup_group_ref 98 98 99 99 SUBROUTINE cxios_get_filegroup_group_ref(filegroup_hdl, group_ref, group_ref_size) BIND(C) 100 100 USE ISO_C_BINDING … … 103 103 INTEGER (kind = C_INT) , VALUE :: group_ref_size 104 104 END SUBROUTINE cxios_get_filegroup_group_ref 105 106 FUNCTION cxios_is_defined_filegroup_group_ref(filegroup_hdl 105 106 FUNCTION cxios_is_defined_filegroup_group_ref(filegroup_hdl) BIND(C) 107 107 USE ISO_C_BINDING 108 108 LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_group_ref 109 109 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 110 110 END FUNCTION cxios_is_defined_filegroup_group_ref 111 112 111 112 113 113 SUBROUTINE cxios_set_filegroup_min_digits(filegroup_hdl, min_digits) BIND(C) 114 114 USE ISO_C_BINDING … … 116 116 INTEGER (KIND=C_INT) , VALUE :: min_digits 117 117 END SUBROUTINE cxios_set_filegroup_min_digits 118 118 119 119 SUBROUTINE cxios_get_filegroup_min_digits(filegroup_hdl, min_digits) BIND(C) 120 120 USE ISO_C_BINDING … … 122 122 INTEGER (KIND=C_INT) :: min_digits 123 123 END SUBROUTINE cxios_get_filegroup_min_digits 124 125 FUNCTION cxios_is_defined_filegroup_min_digits(filegroup_hdl 124 125 FUNCTION cxios_is_defined_filegroup_min_digits(filegroup_hdl) BIND(C) 126 126 USE ISO_C_BINDING 127 127 LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_min_digits 128 128 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 129 129 END FUNCTION cxios_is_defined_filegroup_min_digits 130 131 130 131 132 132 SUBROUTINE cxios_set_filegroup_name(filegroup_hdl, name, name_size) BIND(C) 133 133 USE ISO_C_BINDING … … 136 136 INTEGER (kind = C_INT) , VALUE :: name_size 137 137 END SUBROUTINE cxios_set_filegroup_name 138 138 139 139 SUBROUTINE cxios_get_filegroup_name(filegroup_hdl, name, name_size) BIND(C) 140 140 USE ISO_C_BINDING … … 143 143 INTEGER (kind = C_INT) , VALUE :: name_size 144 144 END SUBROUTINE cxios_get_filegroup_name 145 146 FUNCTION cxios_is_defined_filegroup_name(filegroup_hdl 145 146 FUNCTION cxios_is_defined_filegroup_name(filegroup_hdl) BIND(C) 147 147 USE ISO_C_BINDING 148 148 LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_name 149 149 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 150 150 END FUNCTION cxios_is_defined_filegroup_name 151 152 151 152 153 153 SUBROUTINE cxios_set_filegroup_name_suffix(filegroup_hdl, name_suffix, name_suffix_size) BIND(C) 154 154 USE ISO_C_BINDING … … 157 157 INTEGER (kind = C_INT) , VALUE :: name_suffix_size 158 158 END SUBROUTINE cxios_set_filegroup_name_suffix 159 159 160 160 SUBROUTINE cxios_get_filegroup_name_suffix(filegroup_hdl, name_suffix, name_suffix_size) BIND(C) 161 161 USE ISO_C_BINDING … … 164 164 INTEGER (kind = C_INT) , VALUE :: name_suffix_size 165 165 END SUBROUTINE cxios_get_filegroup_name_suffix 166 167 FUNCTION cxios_is_defined_filegroup_name_suffix(filegroup_hdl 166 167 FUNCTION cxios_is_defined_filegroup_name_suffix(filegroup_hdl) BIND(C) 168 168 USE ISO_C_BINDING 169 169 LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_name_suffix 170 170 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 171 171 END FUNCTION cxios_is_defined_filegroup_name_suffix 172 173 172 173 174 174 SUBROUTINE cxios_set_filegroup_output_freq(filegroup_hdl, output_freq) BIND(C) 175 175 USE ISO_C_BINDING … … 178 178 TYPE(txios(duration)), VALUE :: output_freq 179 179 END SUBROUTINE cxios_set_filegroup_output_freq 180 180 181 181 SUBROUTINE cxios_get_filegroup_output_freq(filegroup_hdl, output_freq) BIND(C) 182 182 USE ISO_C_BINDING … … 185 185 TYPE(txios(duration)) :: output_freq 186 186 END SUBROUTINE cxios_get_filegroup_output_freq 187 188 FUNCTION cxios_is_defined_filegroup_output_freq(filegroup_hdl 187 188 FUNCTION cxios_is_defined_filegroup_output_freq(filegroup_hdl) BIND(C) 189 189 USE ISO_C_BINDING 190 190 LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_output_freq 191 191 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 192 192 END FUNCTION cxios_is_defined_filegroup_output_freq 193 194 193 194 195 195 SUBROUTINE cxios_set_filegroup_output_level(filegroup_hdl, output_level) BIND(C) 196 196 USE ISO_C_BINDING … … 198 198 INTEGER (KIND=C_INT) , VALUE :: output_level 199 199 END SUBROUTINE cxios_set_filegroup_output_level 200 200 201 201 SUBROUTINE cxios_get_filegroup_output_level(filegroup_hdl, output_level) BIND(C) 202 202 USE ISO_C_BINDING … … 204 204 INTEGER (KIND=C_INT) :: output_level 205 205 END SUBROUTINE cxios_get_filegroup_output_level 206 207 FUNCTION cxios_is_defined_filegroup_output_level(filegroup_hdl 206 207 FUNCTION cxios_is_defined_filegroup_output_level(filegroup_hdl) BIND(C) 208 208 USE ISO_C_BINDING 209 209 LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_output_level 210 210 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 211 211 END FUNCTION cxios_is_defined_filegroup_output_level 212 213 212 213 214 214 SUBROUTINE cxios_set_filegroup_par_access(filegroup_hdl, par_access, par_access_size) BIND(C) 215 215 USE ISO_C_BINDING … … 218 218 INTEGER (kind = C_INT) , VALUE :: par_access_size 219 219 END SUBROUTINE cxios_set_filegroup_par_access 220 220 221 221 SUBROUTINE cxios_get_filegroup_par_access(filegroup_hdl, par_access, par_access_size) BIND(C) 222 222 USE ISO_C_BINDING … … 225 225 INTEGER (kind = C_INT) , VALUE :: par_access_size 226 226 END SUBROUTINE cxios_get_filegroup_par_access 227 228 FUNCTION cxios_is_defined_filegroup_par_access(filegroup_hdl 227 228 FUNCTION cxios_is_defined_filegroup_par_access(filegroup_hdl) BIND(C) 229 229 USE ISO_C_BINDING 230 230 LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_par_access 231 231 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 232 232 END FUNCTION cxios_is_defined_filegroup_par_access 233 234 233 234 235 235 SUBROUTINE cxios_set_filegroup_split_freq(filegroup_hdl, split_freq) BIND(C) 236 236 USE ISO_C_BINDING … … 239 239 TYPE(txios(duration)), VALUE :: split_freq 240 240 END SUBROUTINE cxios_set_filegroup_split_freq 241 241 242 242 SUBROUTINE cxios_get_filegroup_split_freq(filegroup_hdl, split_freq) BIND(C) 243 243 USE ISO_C_BINDING … … 246 246 TYPE(txios(duration)) :: split_freq 247 247 END SUBROUTINE cxios_get_filegroup_split_freq 248 249 FUNCTION cxios_is_defined_filegroup_split_freq(filegroup_hdl 248 249 FUNCTION cxios_is_defined_filegroup_split_freq(filegroup_hdl) BIND(C) 250 250 USE ISO_C_BINDING 251 251 LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_split_freq 252 252 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 253 253 END FUNCTION cxios_is_defined_filegroup_split_freq 254 255 254 255 256 256 SUBROUTINE cxios_set_filegroup_split_freq_format(filegroup_hdl, split_freq_format, split_freq_format_size) BIND(C) 257 257 USE ISO_C_BINDING … … 260 260 INTEGER (kind = C_INT) , VALUE :: split_freq_format_size 261 261 END SUBROUTINE cxios_set_filegroup_split_freq_format 262 262 263 263 SUBROUTINE cxios_get_filegroup_split_freq_format(filegroup_hdl, split_freq_format, split_freq_format_size) BIND(C) 264 264 USE ISO_C_BINDING … … 267 267 INTEGER (kind = C_INT) , VALUE :: split_freq_format_size 268 268 END SUBROUTINE cxios_get_filegroup_split_freq_format 269 270 FUNCTION cxios_is_defined_filegroup_split_freq_format(filegroup_hdl 269 270 FUNCTION cxios_is_defined_filegroup_split_freq_format(filegroup_hdl) BIND(C) 271 271 USE ISO_C_BINDING 272 272 LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_split_freq_format 273 273 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 274 274 END FUNCTION cxios_is_defined_filegroup_split_freq_format 275 276 275 276 277 277 SUBROUTINE cxios_set_filegroup_sync_freq(filegroup_hdl, sync_freq) BIND(C) 278 278 USE ISO_C_BINDING … … 281 281 TYPE(txios(duration)), VALUE :: sync_freq 282 282 END SUBROUTINE cxios_set_filegroup_sync_freq 283 283 284 284 SUBROUTINE cxios_get_filegroup_sync_freq(filegroup_hdl, sync_freq) BIND(C) 285 285 USE ISO_C_BINDING … … 288 288 TYPE(txios(duration)) :: sync_freq 289 289 END SUBROUTINE cxios_get_filegroup_sync_freq 290 291 FUNCTION cxios_is_defined_filegroup_sync_freq(filegroup_hdl 290 291 FUNCTION cxios_is_defined_filegroup_sync_freq(filegroup_hdl) BIND(C) 292 292 USE ISO_C_BINDING 293 293 LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_sync_freq 294 294 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 295 295 END FUNCTION cxios_is_defined_filegroup_sync_freq 296 297 296 297 298 298 SUBROUTINE cxios_set_filegroup_type(filegroup_hdl, type, type_size) BIND(C) 299 299 USE ISO_C_BINDING … … 302 302 INTEGER (kind = C_INT) , VALUE :: type_size 303 303 END SUBROUTINE cxios_set_filegroup_type 304 304 305 305 SUBROUTINE cxios_get_filegroup_type(filegroup_hdl, type, type_size) BIND(C) 306 306 USE ISO_C_BINDING … … 309 309 INTEGER (kind = C_INT) , VALUE :: type_size 310 310 END SUBROUTINE cxios_get_filegroup_type 311 312 FUNCTION cxios_is_defined_filegroup_type(filegroup_hdl 311 312 FUNCTION cxios_is_defined_filegroup_type(filegroup_hdl) BIND(C) 313 313 USE ISO_C_BINDING 314 314 LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_type 315 315 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 316 316 END FUNCTION cxios_is_defined_filegroup_type 317 318 319 END INTERFACE 320 317 318 END INTERFACE 319 321 320 END MODULE filegroup_interface_attr -
XIOS/trunk/src/interface/fortran_attr/grid_interface_attr.F90
r575 r581 6 6 MODULE grid_interface_attr 7 7 USE, INTRINSIC :: ISO_C_BINDING 8 9 INTERFACE ! Do not call directly / interface FORTRAN 2003 <-> C9910 11 8 9 INTERFACE 10 ! Do not call directly / interface FORTRAN 2003 <-> C99 11 12 12 SUBROUTINE cxios_set_grid_axis_domain_order(grid_hdl, axis_domain_order, extent1) BIND(C) 13 13 USE ISO_C_BINDING … … 16 16 INTEGER (kind = C_INT), VALUE :: extent1 17 17 END SUBROUTINE cxios_set_grid_axis_domain_order 18 18 19 19 SUBROUTINE cxios_get_grid_axis_domain_order(grid_hdl, axis_domain_order, extent1) BIND(C) 20 20 USE ISO_C_BINDING … … 23 23 INTEGER (kind = C_INT), VALUE :: extent1 24 24 END SUBROUTINE cxios_get_grid_axis_domain_order 25 26 FUNCTION cxios_is_defined_grid_axis_domain_order(grid_hdl 25 26 FUNCTION cxios_is_defined_grid_axis_domain_order(grid_hdl) BIND(C) 27 27 USE ISO_C_BINDING 28 28 LOGICAL(kind=C_BOOL) :: cxios_is_defined_grid_axis_domain_order 29 29 INTEGER (kind = C_INTPTR_T), VALUE :: grid_hdl 30 30 END FUNCTION cxios_is_defined_grid_axis_domain_order 31 32 31 32 33 33 SUBROUTINE cxios_set_grid_description(grid_hdl, description, description_size) BIND(C) 34 34 USE ISO_C_BINDING … … 37 37 INTEGER (kind = C_INT) , VALUE :: description_size 38 38 END SUBROUTINE cxios_set_grid_description 39 39 40 40 SUBROUTINE cxios_get_grid_description(grid_hdl, description, description_size) BIND(C) 41 41 USE ISO_C_BINDING … … 44 44 INTEGER (kind = C_INT) , VALUE :: description_size 45 45 END SUBROUTINE cxios_get_grid_description 46 47 FUNCTION cxios_is_defined_grid_description(grid_hdl 46 47 FUNCTION cxios_is_defined_grid_description(grid_hdl) BIND(C) 48 48 USE ISO_C_BINDING 49 49 LOGICAL(kind=C_BOOL) :: cxios_is_defined_grid_description 50 50 INTEGER (kind = C_INTPTR_T), VALUE :: grid_hdl 51 51 END FUNCTION cxios_is_defined_grid_description 52 53 52 53 54 54 SUBROUTINE cxios_set_grid_mask1(grid_hdl, mask1, extent1) BIND(C) 55 55 USE ISO_C_BINDING … … 58 58 INTEGER (kind = C_INT), VALUE :: extent1 59 59 END SUBROUTINE cxios_set_grid_mask1 60 60 61 61 SUBROUTINE cxios_get_grid_mask1(grid_hdl, mask1, extent1) BIND(C) 62 62 USE ISO_C_BINDING … … 65 65 INTEGER (kind = C_INT), VALUE :: extent1 66 66 END SUBROUTINE cxios_get_grid_mask1 67 68 FUNCTION cxios_is_defined_grid_mask1(grid_hdl 67 68 FUNCTION cxios_is_defined_grid_mask1(grid_hdl) BIND(C) 69 69 USE ISO_C_BINDING 70 70 LOGICAL(kind=C_BOOL) :: cxios_is_defined_grid_mask1 71 71 INTEGER (kind = C_INTPTR_T), VALUE :: grid_hdl 72 72 END FUNCTION cxios_is_defined_grid_mask1 73 74 73 74 75 75 SUBROUTINE cxios_set_grid_mask2(grid_hdl, mask2, extent1, extent2) BIND(C) 76 76 USE ISO_C_BINDING … … 80 80 INTEGER (kind = C_INT), VALUE :: extent2 81 81 END SUBROUTINE cxios_set_grid_mask2 82 82 83 83 SUBROUTINE cxios_get_grid_mask2(grid_hdl, mask2, extent1, extent2) BIND(C) 84 84 USE ISO_C_BINDING … … 88 88 INTEGER (kind = C_INT), VALUE :: extent2 89 89 END SUBROUTINE cxios_get_grid_mask2 90 91 FUNCTION cxios_is_defined_grid_mask2(grid_hdl 90 91 FUNCTION cxios_is_defined_grid_mask2(grid_hdl) BIND(C) 92 92 USE ISO_C_BINDING 93 93 LOGICAL(kind=C_BOOL) :: cxios_is_defined_grid_mask2 94 94 INTEGER (kind = C_INTPTR_T), VALUE :: grid_hdl 95 95 END FUNCTION cxios_is_defined_grid_mask2 96 97 96 97 98 98 SUBROUTINE cxios_set_grid_mask3(grid_hdl, mask3, extent1, extent2, extent3) BIND(C) 99 99 USE ISO_C_BINDING … … 104 104 INTEGER (kind = C_INT), VALUE :: extent3 105 105 END SUBROUTINE cxios_set_grid_mask3 106 106 107 107 SUBROUTINE cxios_get_grid_mask3(grid_hdl, mask3, extent1, extent2, extent3) BIND(C) 108 108 USE ISO_C_BINDING … … 113 113 INTEGER (kind = C_INT), VALUE :: extent3 114 114 END SUBROUTINE cxios_get_grid_mask3 115 116 FUNCTION cxios_is_defined_grid_mask3(grid_hdl 115 116 FUNCTION cxios_is_defined_grid_mask3(grid_hdl) BIND(C) 117 117 USE ISO_C_BINDING 118 118 LOGICAL(kind=C_BOOL) :: cxios_is_defined_grid_mask3 119 119 INTEGER (kind = C_INTPTR_T), VALUE :: grid_hdl 120 120 END FUNCTION cxios_is_defined_grid_mask3 121 122 121 122 123 123 SUBROUTINE cxios_set_grid_name(grid_hdl, name, name_size) BIND(C) 124 124 USE ISO_C_BINDING … … 127 127 INTEGER (kind = C_INT) , VALUE :: name_size 128 128 END SUBROUTINE cxios_set_grid_name 129 129 130 130 SUBROUTINE cxios_get_grid_name(grid_hdl, name, name_size) BIND(C) 131 131 USE ISO_C_BINDING … … 134 134 INTEGER (kind = C_INT) , VALUE :: name_size 135 135 END SUBROUTINE cxios_get_grid_name 136 137 FUNCTION cxios_is_defined_grid_name(grid_hdl 136 137 FUNCTION cxios_is_defined_grid_name(grid_hdl) BIND(C) 138 138 USE ISO_C_BINDING 139 139 LOGICAL(kind=C_BOOL) :: cxios_is_defined_grid_name 140 140 INTEGER (kind = C_INTPTR_T), VALUE :: grid_hdl 141 141 END FUNCTION cxios_is_defined_grid_name 142 143 144 END INTERFACE 145 142 143 END INTERFACE 144 146 145 END MODULE grid_interface_attr -
XIOS/trunk/src/interface/fortran_attr/gridgroup_interface_attr.F90
r575 r581 6 6 MODULE gridgroup_interface_attr 7 7 USE, INTRINSIC :: ISO_C_BINDING 8 9 INTERFACE ! Do not call directly / interface FORTRAN 2003 <-> C9910 11 8 9 INTERFACE 10 ! Do not call directly / interface FORTRAN 2003 <-> C99 11 12 12 SUBROUTINE cxios_set_gridgroup_axis_domain_order(gridgroup_hdl, axis_domain_order, extent1) BIND(C) 13 13 USE ISO_C_BINDING … … 16 16 INTEGER (kind = C_INT), VALUE :: extent1 17 17 END SUBROUTINE cxios_set_gridgroup_axis_domain_order 18 18 19 19 SUBROUTINE cxios_get_gridgroup_axis_domain_order(gridgroup_hdl, axis_domain_order, extent1) BIND(C) 20 20 USE ISO_C_BINDING … … 23 23 INTEGER (kind = C_INT), VALUE :: extent1 24 24 END SUBROUTINE cxios_get_gridgroup_axis_domain_order 25 26 FUNCTION cxios_is_defined_gridgroup_axis_domain_order(gridgroup_hdl 25 26 FUNCTION cxios_is_defined_gridgroup_axis_domain_order(gridgroup_hdl) BIND(C) 27 27 USE ISO_C_BINDING 28 28 LOGICAL(kind=C_BOOL) :: cxios_is_defined_gridgroup_axis_domain_order 29 29 INTEGER (kind = C_INTPTR_T), VALUE :: gridgroup_hdl 30 30 END FUNCTION cxios_is_defined_gridgroup_axis_domain_order 31 32 31 32 33 33 SUBROUTINE cxios_set_gridgroup_description(gridgroup_hdl, description, description_size) BIND(C) 34 34 USE ISO_C_BINDING … … 37 37 INTEGER (kind = C_INT) , VALUE :: description_size 38 38 END SUBROUTINE cxios_set_gridgroup_description 39 39 40 40 SUBROUTINE cxios_get_gridgroup_description(gridgroup_hdl, description, description_size) BIND(C) 41 41 USE ISO_C_BINDING … … 44 44 INTEGER (kind = C_INT) , VALUE :: description_size 45 45 END SUBROUTINE cxios_get_gridgroup_description 46 47 FUNCTION cxios_is_defined_gridgroup_description(gridgroup_hdl 46 47 FUNCTION cxios_is_defined_gridgroup_description(gridgroup_hdl) BIND(C) 48 48 USE ISO_C_BINDING 49 49 LOGICAL(kind=C_BOOL) :: cxios_is_defined_gridgroup_description 50 50 INTEGER (kind = C_INTPTR_T), VALUE :: gridgroup_hdl 51 51 END FUNCTION cxios_is_defined_gridgroup_description 52 53 52 53 54 54 SUBROUTINE cxios_set_gridgroup_group_ref(gridgroup_hdl, group_ref, group_ref_size) BIND(C) 55 55 USE ISO_C_BINDING … … 58 58 INTEGER (kind = C_INT) , VALUE :: group_ref_size 59 59 END SUBROUTINE cxios_set_gridgroup_group_ref 60 60 61 61 SUBROUTINE cxios_get_gridgroup_group_ref(gridgroup_hdl, group_ref, group_ref_size) BIND(C) 62 62 USE ISO_C_BINDING … … 65 65 INTEGER (kind = C_INT) , VALUE :: group_ref_size 66 66 END SUBROUTINE cxios_get_gridgroup_group_ref 67 68 FUNCTION cxios_is_defined_gridgroup_group_ref(gridgroup_hdl 67 68 FUNCTION cxios_is_defined_gridgroup_group_ref(gridgroup_hdl) BIND(C) 69 69 USE ISO_C_BINDING 70 70 LOGICAL(kind=C_BOOL) :: cxios_is_defined_gridgroup_group_ref 71 71 INTEGER (kind = C_INTPTR_T), VALUE :: gridgroup_hdl 72 72 END FUNCTION cxios_is_defined_gridgroup_group_ref 73 74 73 74 75 75 SUBROUTINE cxios_set_gridgroup_mask1(gridgroup_hdl, mask1, extent1) BIND(C) 76 76 USE ISO_C_BINDING … … 79 79 INTEGER (kind = C_INT), VALUE :: extent1 80 80 END SUBROUTINE cxios_set_gridgroup_mask1 81 81 82 82 SUBROUTINE cxios_get_gridgroup_mask1(gridgroup_hdl, mask1, extent1) BIND(C) 83 83 USE ISO_C_BINDING … … 86 86 INTEGER (kind = C_INT), VALUE :: extent1 87 87 END SUBROUTINE cxios_get_gridgroup_mask1 88 89 FUNCTION cxios_is_defined_gridgroup_mask1(gridgroup_hdl 88 89 FUNCTION cxios_is_defined_gridgroup_mask1(gridgroup_hdl) BIND(C) 90 90 USE ISO_C_BINDING 91 91 LOGICAL(kind=C_BOOL) :: cxios_is_defined_gridgroup_mask1 92 92 INTEGER (kind = C_INTPTR_T), VALUE :: gridgroup_hdl 93 93 END FUNCTION cxios_is_defined_gridgroup_mask1 94 95 94 95 96 96 SUBROUTINE cxios_set_gridgroup_mask2(gridgroup_hdl, mask2, extent1, extent2) BIND(C) 97 97 USE ISO_C_BINDING … … 101 101 INTEGER (kind = C_INT), VALUE :: extent2 102 102 END SUBROUTINE cxios_set_gridgroup_mask2 103 103 104 104 SUBROUTINE cxios_get_gridgroup_mask2(gridgroup_hdl, mask2, extent1, extent2) BIND(C) 105 105 USE ISO_C_BINDING … … 109 109 INTEGER (kind = C_INT), VALUE :: extent2 110 110 END SUBROUTINE cxios_get_gridgroup_mask2 111 112 FUNCTION cxios_is_defined_gridgroup_mask2(gridgroup_hdl 111 112 FUNCTION cxios_is_defined_gridgroup_mask2(gridgroup_hdl) BIND(C) 113 113 USE ISO_C_BINDING 114 114 LOGICAL(kind=C_BOOL) :: cxios_is_defined_gridgroup_mask2 115 115 INTEGER (kind = C_INTPTR_T), VALUE :: gridgroup_hdl 116 116 END FUNCTION cxios_is_defined_gridgroup_mask2 117 118 117 118 119 119 SUBROUTINE cxios_set_gridgroup_mask3(gridgroup_hdl, mask3, extent1, extent2, extent3) BIND(C) 120 120 USE ISO_C_BINDING … … 125 125 INTEGER (kind = C_INT), VALUE :: extent3 126 126 END SUBROUTINE cxios_set_gridgroup_mask3 127 127 128 128 SUBROUTINE cxios_get_gridgroup_mask3(gridgroup_hdl, mask3, extent1, extent2, extent3) BIND(C) 129 129 USE ISO_C_BINDING … … 134 134 INTEGER (kind = C_INT), VALUE :: extent3 135 135 END SUBROUTINE cxios_get_gridgroup_mask3 136 137 FUNCTION cxios_is_defined_gridgroup_mask3(gridgroup_hdl 136 137 FUNCTION cxios_is_defined_gridgroup_mask3(gridgroup_hdl) BIND(C) 138 138 USE ISO_C_BINDING 139 139 LOGICAL(kind=C_BOOL) :: cxios_is_defined_gridgroup_mask3 140 140 INTEGER (kind = C_INTPTR_T), VALUE :: gridgroup_hdl 141 141 END FUNCTION cxios_is_defined_gridgroup_mask3 142 143 142 143 144 144 SUBROUTINE cxios_set_gridgroup_name(gridgroup_hdl, name, name_size) BIND(C) 145 145 USE ISO_C_BINDING … … 148 148 INTEGER (kind = C_INT) , VALUE :: name_size 149 149 END SUBROUTINE cxios_set_gridgroup_name 150 150 151 151 SUBROUTINE cxios_get_gridgroup_name(gridgroup_hdl, name, name_size) BIND(C) 152 152 USE ISO_C_BINDING … … 155 155 INTEGER (kind = C_INT) , VALUE :: name_size 156 156 END SUBROUTINE cxios_get_gridgroup_name 157 158 FUNCTION cxios_is_defined_gridgroup_name(gridgroup_hdl 157 158 FUNCTION cxios_is_defined_gridgroup_name(gridgroup_hdl) BIND(C) 159 159 USE ISO_C_BINDING 160 160 LOGICAL(kind=C_BOOL) :: cxios_is_defined_gridgroup_name 161 161 INTEGER (kind = C_INTPTR_T), VALUE :: gridgroup_hdl 162 162 END FUNCTION cxios_is_defined_gridgroup_name 163 164 165 END INTERFACE 166 163 164 END INTERFACE 165 167 166 END MODULE gridgroup_interface_attr -
XIOS/trunk/src/interface/fortran_attr/iaxis_attr.F90
r556 r581 8 8 USE iaxis 9 9 USE axis_interface_attr 10 10 11 11 CONTAINS 12 12 13 13 SUBROUTINE xios(set_axis_attr) & 14 14 ( axis_id, axis_ref, data_begin, data_index, data_n, ibegin, long_name, mask, name, ni, positive & 15 15 , size, standard_name, unit, value, zoom_begin, zoom_end, zoom_size ) 16 16 17 17 IMPLICIT NONE 18 18 TYPE(txios(axis)) :: axis_hdl … … 36 36 INTEGER , OPTIONAL, INTENT(IN) :: zoom_end 37 37 INTEGER , OPTIONAL, INTENT(IN) :: zoom_size 38 38 39 39 CALL xios(get_axis_handle)(axis_id,axis_hdl) 40 40 CALL xios(set_axis_attr_hdl_) & 41 41 ( axis_hdl, axis_ref, data_begin, data_index, data_n, ibegin, long_name, mask, name, ni, positive & 42 42 , size, standard_name, unit, value, zoom_begin, zoom_end, zoom_size ) 43 43 44 44 END SUBROUTINE xios(set_axis_attr) 45 45 46 46 SUBROUTINE xios(set_axis_attr_hdl) & 47 47 ( axis_hdl, axis_ref, data_begin, data_index, data_n, ibegin, long_name, mask, name, ni, positive & 48 48 , size, standard_name, unit, value, zoom_begin, zoom_end, zoom_size ) 49 49 50 50 IMPLICIT NONE 51 51 TYPE(txios(axis)) , INTENT(IN) :: axis_hdl … … 68 68 INTEGER , OPTIONAL, INTENT(IN) :: zoom_end 69 69 INTEGER , OPTIONAL, INTENT(IN) :: zoom_size 70 70 71 71 CALL xios(set_axis_attr_hdl_) & 72 72 ( axis_hdl, axis_ref, data_begin, data_index, data_n, ibegin, long_name, mask, name, ni, positive & 73 73 , size, standard_name, unit, value, zoom_begin, zoom_end, zoom_size ) 74 74 75 75 END SUBROUTINE xios(set_axis_attr_hdl) 76 76 77 77 SUBROUTINE xios(set_axis_attr_hdl_) & 78 78 ( axis_hdl, axis_ref_, data_begin_, data_index_, data_n_, ibegin_, long_name_, mask_, name_ & 79 79 , ni_, positive_, size_, standard_name_, unit_, value_, zoom_begin_, zoom_end_, zoom_size_ ) 80 80 81 81 IMPLICIT NONE 82 82 TYPE(txios(axis)) , INTENT(IN) :: axis_hdl … … 99 99 INTEGER , OPTIONAL, INTENT(IN) :: zoom_end_ 100 100 INTEGER , OPTIONAL, INTENT(IN) :: zoom_size_ 101 101 102 102 IF (PRESENT(axis_ref_)) THEN 103 103 CALL cxios_set_axis_axis_ref(axis_hdl%daddr, axis_ref_, len(axis_ref_)) 104 104 ENDIF 105 105 106 106 IF (PRESENT(data_begin_)) THEN 107 107 CALL cxios_set_axis_data_begin(axis_hdl%daddr, data_begin_) 108 108 ENDIF 109 109 110 110 IF (PRESENT(data_index_)) THEN 111 CALL cxios_set_axis_data_index(axis_hdl%daddr, data_index_, size(data_index_,1))112 ENDIF 113 111 CALL cxios_set_axis_data_index(axis_hdl%daddr, data_index_, size(data_index_,1)) 112 ENDIF 113 114 114 IF (PRESENT(data_n_)) THEN 115 115 CALL cxios_set_axis_data_n(axis_hdl%daddr, data_n_) 116 116 ENDIF 117 117 118 118 IF (PRESENT(ibegin_)) THEN 119 119 CALL cxios_set_axis_ibegin(axis_hdl%daddr, ibegin_) 120 120 ENDIF 121 121 122 122 IF (PRESENT(long_name_)) THEN 123 123 CALL cxios_set_axis_long_name(axis_hdl%daddr, long_name_, len(long_name_)) 124 124 ENDIF 125 125 126 126 IF (PRESENT(mask_)) THEN 127 127 ALLOCATE(mask__tmp(size(mask_,1))) 128 mask__tmp =mask_129 CALL cxios_set_axis_mask(axis_hdl%daddr, mask__tmp, size(mask_,1))130 ENDIF 131 128 mask__tmp = mask_ 129 CALL cxios_set_axis_mask(axis_hdl%daddr, mask__tmp, size(mask_,1)) 130 ENDIF 131 132 132 IF (PRESENT(name_)) THEN 133 133 CALL cxios_set_axis_name(axis_hdl%daddr, name_, len(name_)) 134 134 ENDIF 135 135 136 136 IF (PRESENT(ni_)) THEN 137 137 CALL cxios_set_axis_ni(axis_hdl%daddr, ni_) 138 138 ENDIF 139 139 140 140 IF (PRESENT(positive_)) THEN 141 141 CALL cxios_set_axis_positive(axis_hdl%daddr, positive_, len(positive_)) 142 142 ENDIF 143 143 144 144 IF (PRESENT(size_)) THEN 145 145 CALL cxios_set_axis_size(axis_hdl%daddr, size_) 146 146 ENDIF 147 147 148 148 IF (PRESENT(standard_name_)) THEN 149 149 CALL cxios_set_axis_standard_name(axis_hdl%daddr, standard_name_, len(standard_name_)) 150 150 ENDIF 151 151 152 152 IF (PRESENT(unit_)) THEN 153 153 CALL cxios_set_axis_unit(axis_hdl%daddr, unit_, len(unit_)) 154 154 ENDIF 155 155 156 156 IF (PRESENT(value_)) THEN 157 CALL cxios_set_axis_value(axis_hdl%daddr, value_, size(value_,1))158 ENDIF 159 157 CALL cxios_set_axis_value(axis_hdl%daddr, value_, size(value_,1)) 158 ENDIF 159 160 160 IF (PRESENT(zoom_begin_)) THEN 161 161 CALL cxios_set_axis_zoom_begin(axis_hdl%daddr, zoom_begin_) 162 162 ENDIF 163 163 164 164 IF (PRESENT(zoom_end_)) THEN 165 165 CALL cxios_set_axis_zoom_end(axis_hdl%daddr, zoom_end_) 166 166 ENDIF 167 167 168 168 IF (PRESENT(zoom_size_)) THEN 169 169 CALL cxios_set_axis_zoom_size(axis_hdl%daddr, zoom_size_) 170 170 ENDIF 171 172 173 171 174 172 END SUBROUTINE xios(set_axis_attr_hdl_) 175 173 176 174 SUBROUTINE xios(get_axis_attr) & 177 175 ( axis_id, axis_ref, data_begin, data_index, data_n, ibegin, long_name, mask, name, ni, positive & 178 176 , size, standard_name, unit, value, zoom_begin, zoom_end, zoom_size ) 179 177 180 178 IMPLICIT NONE 181 179 TYPE(txios(axis)) :: axis_hdl … … 199 197 INTEGER , OPTIONAL, INTENT(OUT) :: zoom_end 200 198 INTEGER , OPTIONAL, INTENT(OUT) :: zoom_size 201 199 202 200 CALL xios(get_axis_handle)(axis_id,axis_hdl) 203 201 CALL xios(get_axis_attr_hdl_) & 204 202 ( axis_hdl, axis_ref, data_begin, data_index, data_n, ibegin, long_name, mask, name, ni, positive & 205 203 , size, standard_name, unit, value, zoom_begin, zoom_end, zoom_size ) 206 204 207 205 END SUBROUTINE xios(get_axis_attr) 208 206 209 207 SUBROUTINE xios(get_axis_attr_hdl) & 210 208 ( axis_hdl, axis_ref, data_begin, data_index, data_n, ibegin, long_name, mask, name, ni, positive & 211 209 , size, standard_name, unit, value, zoom_begin, zoom_end, zoom_size ) 212 210 213 211 IMPLICIT NONE 214 212 TYPE(txios(axis)) , INTENT(IN) :: axis_hdl … … 231 229 INTEGER , OPTIONAL, INTENT(OUT) :: zoom_end 232 230 INTEGER , OPTIONAL, INTENT(OUT) :: zoom_size 233 231 234 232 CALL xios(get_axis_attr_hdl_) & 235 233 ( axis_hdl, axis_ref, data_begin, data_index, data_n, ibegin, long_name, mask, name, ni, positive & 236 234 , size, standard_name, unit, value, zoom_begin, zoom_end, zoom_size ) 237 235 238 236 END SUBROUTINE xios(get_axis_attr_hdl) 239 237 240 238 SUBROUTINE xios(get_axis_attr_hdl_) & 241 239 ( axis_hdl, axis_ref_, data_begin_, data_index_, data_n_, ibegin_, long_name_, mask_, name_ & 242 240 , ni_, positive_, size_, standard_name_, unit_, value_, zoom_begin_, zoom_end_, zoom_size_ ) 243 241 244 242 IMPLICIT NONE 245 243 TYPE(txios(axis)) , INTENT(IN) :: axis_hdl … … 262 260 INTEGER , OPTIONAL, INTENT(OUT) :: zoom_end_ 263 261 INTEGER , OPTIONAL, INTENT(OUT) :: zoom_size_ 264 262 265 263 IF (PRESENT(axis_ref_)) THEN 266 264 CALL cxios_get_axis_axis_ref(axis_hdl%daddr, axis_ref_, len(axis_ref_)) 267 265 ENDIF 268 266 269 267 IF (PRESENT(data_begin_)) THEN 270 268 CALL cxios_get_axis_data_begin(axis_hdl%daddr, data_begin_) 271 269 ENDIF 272 270 273 271 IF (PRESENT(data_index_)) THEN 274 CALL cxios_get_axis_data_index(axis_hdl%daddr, data_index_, size(data_index_,1))275 ENDIF 276 272 CALL cxios_get_axis_data_index(axis_hdl%daddr, data_index_, size(data_index_,1)) 273 ENDIF 274 277 275 IF (PRESENT(data_n_)) THEN 278 276 CALL cxios_get_axis_data_n(axis_hdl%daddr, data_n_) 279 277 ENDIF 280 278 281 279 IF (PRESENT(ibegin_)) THEN 282 280 CALL cxios_get_axis_ibegin(axis_hdl%daddr, ibegin_) 283 281 ENDIF 284 282 285 283 IF (PRESENT(long_name_)) THEN 286 284 CALL cxios_get_axis_long_name(axis_hdl%daddr, long_name_, len(long_name_)) 287 285 ENDIF 288 286 289 287 IF (PRESENT(mask_)) THEN 290 288 ALLOCATE(mask__tmp(size(mask_,1))) 291 CALL cxios_get_axis_mask(axis_hdl%daddr, mask__tmp, size(mask_,1))292 mask_ =mask__tmp293 ENDIF 294 289 CALL cxios_get_axis_mask(axis_hdl%daddr, mask__tmp, size(mask_,1)) 290 mask_ = mask__tmp 291 ENDIF 292 295 293 IF (PRESENT(name_)) THEN 296 294 CALL cxios_get_axis_name(axis_hdl%daddr, name_, len(name_)) 297 295 ENDIF 298 296 299 297 IF (PRESENT(ni_)) THEN 300 298 CALL cxios_get_axis_ni(axis_hdl%daddr, ni_) 301 299 ENDIF 302 300 303 301 IF (PRESENT(positive_)) THEN 304 302 CALL cxios_get_axis_positive(axis_hdl%daddr, positive_, len(positive_)) 305 303 ENDIF 306 304 307 305 IF (PRESENT(size_)) THEN 308 306 CALL cxios_get_axis_size(axis_hdl%daddr, size_) 309 307 ENDIF 310 308 311 309 IF (PRESENT(standard_name_)) THEN 312 310 CALL cxios_get_axis_standard_name(axis_hdl%daddr, standard_name_, len(standard_name_)) 313 311 ENDIF 314 312 315 313 IF (PRESENT(unit_)) THEN 316 314 CALL cxios_get_axis_unit(axis_hdl%daddr, unit_, len(unit_)) 317 315 ENDIF 318 316 319 317 IF (PRESENT(value_)) THEN 320 CALL cxios_get_axis_value(axis_hdl%daddr, value_, size(value_,1))321 ENDIF 322 318 CALL cxios_get_axis_value(axis_hdl%daddr, value_, size(value_,1)) 319 ENDIF 320 323 321 IF (PRESENT(zoom_begin_)) THEN 324 322 CALL cxios_get_axis_zoom_begin(axis_hdl%daddr, zoom_begin_) 325 323 ENDIF 326 324 327 325 IF (PRESENT(zoom_end_)) THEN 328 326 CALL cxios_get_axis_zoom_end(axis_hdl%daddr, zoom_end_) 329 327 ENDIF 330 328 331 329 IF (PRESENT(zoom_size_)) THEN 332 330 CALL cxios_get_axis_zoom_size(axis_hdl%daddr, zoom_size_) 333 331 ENDIF 334 335 336 332 337 333 END SUBROUTINE xios(get_axis_attr_hdl_) 338 334 339 335 SUBROUTINE xios(is_defined_axis_attr) & 340 336 ( axis_id, axis_ref, data_begin, data_index, data_n, ibegin, long_name, mask, name, ni, positive & 341 337 , size, standard_name, unit, value, zoom_begin, zoom_end, zoom_size ) 342 338 343 339 IMPLICIT NONE 344 340 TYPE(txios(axis)) :: axis_hdl … … 378 374 LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_size 379 375 LOGICAL(KIND=C_BOOL) :: zoom_size_tmp 380 376 381 377 CALL xios(get_axis_handle)(axis_id,axis_hdl) 382 378 CALL xios(is_defined_axis_attr_hdl_) & 383 379 ( axis_hdl, axis_ref, data_begin, data_index, data_n, ibegin, long_name, mask, name, ni, positive & 384 380 , size, standard_name, unit, value, zoom_begin, zoom_end, zoom_size ) 385 381 386 382 END SUBROUTINE xios(is_defined_axis_attr) 387 383 388 384 SUBROUTINE xios(is_defined_axis_attr_hdl) & 389 385 ( axis_hdl, axis_ref, data_begin, data_index, data_n, ibegin, long_name, mask, name, ni, positive & 390 386 , size, standard_name, unit, value, zoom_begin, zoom_end, zoom_size ) 391 387 392 388 IMPLICIT NONE 393 389 TYPE(txios(axis)) , INTENT(IN) :: axis_hdl … … 426 422 LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_size 427 423 LOGICAL(KIND=C_BOOL) :: zoom_size_tmp 428 424 429 425 CALL xios(is_defined_axis_attr_hdl_) & 430 426 ( axis_hdl, axis_ref, data_begin, data_index, data_n, ibegin, long_name, mask, name, ni, positive & 431 427 , size, standard_name, unit, value, zoom_begin, zoom_end, zoom_size ) 432 428 433 429 END SUBROUTINE xios(is_defined_axis_attr_hdl) 434 430 435 431 SUBROUTINE xios(is_defined_axis_attr_hdl_) & 436 432 ( axis_hdl, axis_ref_, data_begin_, data_index_, data_n_, ibegin_, long_name_, mask_, name_ & 437 433 , ni_, positive_, size_, standard_name_, unit_, value_, zoom_begin_, zoom_end_, zoom_size_ ) 438 434 439 435 IMPLICIT NONE 440 436 TYPE(txios(axis)) , INTENT(IN) :: axis_hdl … … 473 469 LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_size_ 474 470 LOGICAL(KIND=C_BOOL) :: zoom_size__tmp 475 471 476 472 IF (PRESENT(axis_ref_)) THEN 477 axis_ref__tmp =cxios_is_defined_axis_axis_ref(axis_hdl%daddr)478 axis_ref_ =axis_ref__tmp479 ENDIF 480 473 axis_ref__tmp = cxios_is_defined_axis_axis_ref(axis_hdl%daddr) 474 axis_ref_ = axis_ref__tmp 475 ENDIF 476 481 477 IF (PRESENT(data_begin_)) THEN 482 data_begin__tmp =cxios_is_defined_axis_data_begin(axis_hdl%daddr)483 data_begin_ =data_begin__tmp484 ENDIF 485 478 data_begin__tmp = cxios_is_defined_axis_data_begin(axis_hdl%daddr) 479 data_begin_ = data_begin__tmp 480 ENDIF 481 486 482 IF (PRESENT(data_index_)) THEN 487 data_index__tmp =cxios_is_defined_axis_data_index(axis_hdl%daddr)488 data_index_ =data_index__tmp489 ENDIF 490 483 data_index__tmp = cxios_is_defined_axis_data_index(axis_hdl%daddr) 484 data_index_ = data_index__tmp 485 ENDIF 486 491 487 IF (PRESENT(data_n_)) THEN 492 data_n__tmp =cxios_is_defined_axis_data_n(axis_hdl%daddr)493 data_n_ =data_n__tmp494 ENDIF 495 488 data_n__tmp = cxios_is_defined_axis_data_n(axis_hdl%daddr) 489 data_n_ = data_n__tmp 490 ENDIF 491 496 492 IF (PRESENT(ibegin_)) THEN 497 ibegin__tmp =cxios_is_defined_axis_ibegin(axis_hdl%daddr)498 ibegin_ =ibegin__tmp499 ENDIF 500 493 ibegin__tmp = cxios_is_defined_axis_ibegin(axis_hdl%daddr) 494 ibegin_ = ibegin__tmp 495 ENDIF 496 501 497 IF (PRESENT(long_name_)) THEN 502 long_name__tmp =cxios_is_defined_axis_long_name(axis_hdl%daddr)503 long_name_ =long_name__tmp504 ENDIF 505 498 long_name__tmp = cxios_is_defined_axis_long_name(axis_hdl%daddr) 499 long_name_ = long_name__tmp 500 ENDIF 501 506 502 IF (PRESENT(mask_)) THEN 507 mask__tmp =cxios_is_defined_axis_mask(axis_hdl%daddr)508 mask_ =mask__tmp509 ENDIF 510 503 mask__tmp = cxios_is_defined_axis_mask(axis_hdl%daddr) 504 mask_ = mask__tmp 505 ENDIF 506 511 507 IF (PRESENT(name_)) THEN 512 name__tmp =cxios_is_defined_axis_name(axis_hdl%daddr)513 name_ =name__tmp514 ENDIF 515 508 name__tmp = cxios_is_defined_axis_name(axis_hdl%daddr) 509 name_ = name__tmp 510 ENDIF 511 516 512 IF (PRESENT(ni_)) THEN 517 ni__tmp =cxios_is_defined_axis_ni(axis_hdl%daddr)518 ni_ =ni__tmp519 ENDIF 520 513 ni__tmp = cxios_is_defined_axis_ni(axis_hdl%daddr) 514 ni_ = ni__tmp 515 ENDIF 516 521 517 IF (PRESENT(positive_)) THEN 522 positive__tmp =cxios_is_defined_axis_positive(axis_hdl%daddr)523 positive_ =positive__tmp524 ENDIF 525 518 positive__tmp = cxios_is_defined_axis_positive(axis_hdl%daddr) 519 positive_ = positive__tmp 520 ENDIF 521 526 522 IF (PRESENT(size_)) THEN 527 size__tmp =cxios_is_defined_axis_size(axis_hdl%daddr)528 size_ =size__tmp529 ENDIF 530 523 size__tmp = cxios_is_defined_axis_size(axis_hdl%daddr) 524 size_ = size__tmp 525 ENDIF 526 531 527 IF (PRESENT(standard_name_)) THEN 532 standard_name__tmp =cxios_is_defined_axis_standard_name(axis_hdl%daddr)533 standard_name_ =standard_name__tmp534 ENDIF 535 528 standard_name__tmp = cxios_is_defined_axis_standard_name(axis_hdl%daddr) 529 standard_name_ = standard_name__tmp 530 ENDIF 531 536 532 IF (PRESENT(unit_)) THEN 537 unit__tmp =cxios_is_defined_axis_unit(axis_hdl%daddr)538 unit_ =unit__tmp539 ENDIF 540 533 unit__tmp = cxios_is_defined_axis_unit(axis_hdl%daddr) 534 unit_ = unit__tmp 535 ENDIF 536 541 537 IF (PRESENT(value_)) THEN 542 value__tmp =cxios_is_defined_axis_value(axis_hdl%daddr)543 value_ =value__tmp544 ENDIF 545 538 value__tmp = cxios_is_defined_axis_value(axis_hdl%daddr) 539 value_ = value__tmp 540 ENDIF 541 546 542 IF (PRESENT(zoom_begin_)) THEN 547 zoom_begin__tmp =cxios_is_defined_axis_zoom_begin(axis_hdl%daddr)548 zoom_begin_ =zoom_begin__tmp549 ENDIF 550 543 zoom_begin__tmp = cxios_is_defined_axis_zoom_begin(axis_hdl%daddr) 544 zoom_begin_ = zoom_begin__tmp 545 ENDIF 546 551 547 IF (PRESENT(zoom_end_)) THEN 552 zoom_end__tmp =cxios_is_defined_axis_zoom_end(axis_hdl%daddr)553 zoom_end_ =zoom_end__tmp554 ENDIF 555 548 zoom_end__tmp = cxios_is_defined_axis_zoom_end(axis_hdl%daddr) 549 zoom_end_ = zoom_end__tmp 550 ENDIF 551 556 552 IF (PRESENT(zoom_size_)) THEN 557 zoom_size__tmp=cxios_is_defined_axis_zoom_size(axis_hdl%daddr) 558 zoom_size_=zoom_size__tmp 559 ENDIF 560 561 562 553 zoom_size__tmp = cxios_is_defined_axis_zoom_size(axis_hdl%daddr) 554 zoom_size_ = zoom_size__tmp 555 ENDIF 556 563 557 END SUBROUTINE xios(is_defined_axis_attr_hdl_) 564 558 565 559 END MODULE iaxis_attr -
XIOS/trunk/src/interface/fortran_attr/iaxisgroup_attr.F90
r556 r581 8 8 USE iaxis 9 9 USE axisgroup_interface_attr 10 10 11 11 CONTAINS 12 12 13 13 SUBROUTINE xios(set_axisgroup_attr) & 14 14 ( axisgroup_id, axis_ref, data_begin, data_index, data_n, group_ref, ibegin, long_name, mask & 15 15 , name, ni, positive, size, standard_name, unit, value, zoom_begin, zoom_end, zoom_size ) 16 16 17 17 IMPLICIT NONE 18 18 TYPE(txios(axisgroup)) :: axisgroup_hdl … … 37 37 INTEGER , OPTIONAL, INTENT(IN) :: zoom_end 38 38 INTEGER , OPTIONAL, INTENT(IN) :: zoom_size 39 39 40 40 CALL xios(get_axisgroup_handle)(axisgroup_id,axisgroup_hdl) 41 41 CALL xios(set_axisgroup_attr_hdl_) & 42 42 ( axisgroup_hdl, axis_ref, data_begin, data_index, data_n, group_ref, ibegin, long_name, mask & 43 43 , name, ni, positive, size, standard_name, unit, value, zoom_begin, zoom_end, zoom_size ) 44 44 45 45 END SUBROUTINE xios(set_axisgroup_attr) 46 46 47 47 SUBROUTINE xios(set_axisgroup_attr_hdl) & 48 48 ( axisgroup_hdl, axis_ref, data_begin, data_index, data_n, group_ref, ibegin, long_name, mask & 49 49 , name, ni, positive, size, standard_name, unit, value, zoom_begin, zoom_end, zoom_size ) 50 50 51 51 IMPLICIT NONE 52 52 TYPE(txios(axisgroup)) , INTENT(IN) :: axisgroup_hdl … … 70 70 INTEGER , OPTIONAL, INTENT(IN) :: zoom_end 71 71 INTEGER , OPTIONAL, INTENT(IN) :: zoom_size 72 72 73 73 CALL xios(set_axisgroup_attr_hdl_) & 74 74 ( axisgroup_hdl, axis_ref, data_begin, data_index, data_n, group_ref, ibegin, long_name, mask & 75 75 , name, ni, positive, size, standard_name, unit, value, zoom_begin, zoom_end, zoom_size ) 76 76 77 77 END SUBROUTINE xios(set_axisgroup_attr_hdl) 78 78 79 79 SUBROUTINE xios(set_axisgroup_attr_hdl_) & 80 80 ( axisgroup_hdl, axis_ref_, data_begin_, data_index_, data_n_, group_ref_, ibegin_, long_name_ & 81 81 , mask_, name_, ni_, positive_, size_, standard_name_, unit_, value_, zoom_begin_, zoom_end_ & 82 82 , zoom_size_ ) 83 83 84 84 IMPLICIT NONE 85 85 TYPE(txios(axisgroup)) , INTENT(IN) :: axisgroup_hdl … … 103 103 INTEGER , OPTIONAL, INTENT(IN) :: zoom_end_ 104 104 INTEGER , OPTIONAL, INTENT(IN) :: zoom_size_ 105 105 106 106 IF (PRESENT(axis_ref_)) THEN 107 107 CALL cxios_set_axisgroup_axis_ref(axisgroup_hdl%daddr, axis_ref_, len(axis_ref_)) 108 108 ENDIF 109 109 110 110 IF (PRESENT(data_begin_)) THEN 111 111 CALL cxios_set_axisgroup_data_begin(axisgroup_hdl%daddr, data_begin_) 112 112 ENDIF 113 113 114 114 IF (PRESENT(data_index_)) THEN 115 CALL cxios_set_axisgroup_data_index(axisgroup_hdl%daddr, data_index_, size(data_index_,1))116 ENDIF 117 115 CALL cxios_set_axisgroup_data_index(axisgroup_hdl%daddr, data_index_, size(data_index_,1)) 116 ENDIF 117 118 118 IF (PRESENT(data_n_)) THEN 119 119 CALL cxios_set_axisgroup_data_n(axisgroup_hdl%daddr, data_n_) 120 120 ENDIF 121 121 122 122 IF (PRESENT(group_ref_)) THEN 123 123 CALL cxios_set_axisgroup_group_ref(axisgroup_hdl%daddr, group_ref_, len(group_ref_)) 124 124 ENDIF 125 125 126 126 IF (PRESENT(ibegin_)) THEN 127 127 CALL cxios_set_axisgroup_ibegin(axisgroup_hdl%daddr, ibegin_) 128 128 ENDIF 129 129 130 130 IF (PRESENT(long_name_)) THEN 131 131 CALL cxios_set_axisgroup_long_name(axisgroup_hdl%daddr, long_name_, len(long_name_)) 132 132 ENDIF 133 133 134 134 IF (PRESENT(mask_)) THEN 135 135 ALLOCATE(mask__tmp(size(mask_,1))) 136 mask__tmp =mask_137 CALL cxios_set_axisgroup_mask(axisgroup_hdl%daddr, mask__tmp, size(mask_,1))138 ENDIF 139 136 mask__tmp = mask_ 137 CALL cxios_set_axisgroup_mask(axisgroup_hdl%daddr, mask__tmp, size(mask_,1)) 138 ENDIF 139 140 140 IF (PRESENT(name_)) THEN 141 141 CALL cxios_set_axisgroup_name(axisgroup_hdl%daddr, name_, len(name_)) 142 142 ENDIF 143 143 144 144 IF (PRESENT(ni_)) THEN 145 145 CALL cxios_set_axisgroup_ni(axisgroup_hdl%daddr, ni_) 146 146 ENDIF 147 147 148 148 IF (PRESENT(positive_)) THEN 149 149 CALL cxios_set_axisgroup_positive(axisgroup_hdl%daddr, positive_, len(positive_)) 150 150 ENDIF 151 151 152 152 IF (PRESENT(size_)) THEN 153 153 CALL cxios_set_axisgroup_size(axisgroup_hdl%daddr, size_) 154 154 ENDIF 155 155 156 156 IF (PRESENT(standard_name_)) THEN 157 157 CALL cxios_set_axisgroup_standard_name(axisgroup_hdl%daddr, standard_name_, len(standard_name_)) 158 158 ENDIF 159 159 160 160 IF (PRESENT(unit_)) THEN 161 161 CALL cxios_set_axisgroup_unit(axisgroup_hdl%daddr, unit_, len(unit_)) 162 162 ENDIF 163 163 164 164 IF (PRESENT(value_)) THEN 165 CALL cxios_set_axisgroup_value(axisgroup_hdl%daddr, value_, size(value_,1))166 ENDIF 167 165 CALL cxios_set_axisgroup_value(axisgroup_hdl%daddr, value_, size(value_,1)) 166 ENDIF 167 168 168 IF (PRESENT(zoom_begin_)) THEN 169 169 CALL cxios_set_axisgroup_zoom_begin(axisgroup_hdl%daddr, zoom_begin_) 170 170 ENDIF 171 171 172 172 IF (PRESENT(zoom_end_)) THEN 173 173 CALL cxios_set_axisgroup_zoom_end(axisgroup_hdl%daddr, zoom_end_) 174 174 ENDIF 175 175 176 176 IF (PRESENT(zoom_size_)) THEN 177 177 CALL cxios_set_axisgroup_zoom_size(axisgroup_hdl%daddr, zoom_size_) 178 178 ENDIF 179 180 181 179 182 180 END SUBROUTINE xios(set_axisgroup_attr_hdl_) 183 181 184 182 SUBROUTINE xios(get_axisgroup_attr) & 185 183 ( axisgroup_id, axis_ref, data_begin, data_index, data_n, group_ref, ibegin, long_name, mask & 186 184 , name, ni, positive, size, standard_name, unit, value, zoom_begin, zoom_end, zoom_size ) 187 185 188 186 IMPLICIT NONE 189 187 TYPE(txios(axisgroup)) :: axisgroup_hdl … … 208 206 INTEGER , OPTIONAL, INTENT(OUT) :: zoom_end 209 207 INTEGER , OPTIONAL, INTENT(OUT) :: zoom_size 210 208 211 209 CALL xios(get_axisgroup_handle)(axisgroup_id,axisgroup_hdl) 212 210 CALL xios(get_axisgroup_attr_hdl_) & 213 211 ( axisgroup_hdl, axis_ref, data_begin, data_index, data_n, group_ref, ibegin, long_name, mask & 214 212 , name, ni, positive, size, standard_name, unit, value, zoom_begin, zoom_end, zoom_size ) 215 213 216 214 END SUBROUTINE xios(get_axisgroup_attr) 217 215 218 216 SUBROUTINE xios(get_axisgroup_attr_hdl) & 219 217 ( axisgroup_hdl, axis_ref, data_begin, data_index, data_n, group_ref, ibegin, long_name, mask & 220 218 , name, ni, positive, size, standard_name, unit, value, zoom_begin, zoom_end, zoom_size ) 221 219 222 220 IMPLICIT NONE 223 221 TYPE(txios(axisgroup)) , INTENT(IN) :: axisgroup_hdl … … 241 239 INTEGER , OPTIONAL, INTENT(OUT) :: zoom_end 242 240 INTEGER , OPTIONAL, INTENT(OUT) :: zoom_size 243 241 244 242 CALL xios(get_axisgroup_attr_hdl_) & 245 243 ( axisgroup_hdl, axis_ref, data_begin, data_index, data_n, group_ref, ibegin, long_name, mask & 246 244 , name, ni, positive, size, standard_name, unit, value, zoom_begin, zoom_end, zoom_size ) 247 245 248 246 END SUBROUTINE xios(get_axisgroup_attr_hdl) 249 247 250 248 SUBROUTINE xios(get_axisgroup_attr_hdl_) & 251 249 ( axisgroup_hdl, axis_ref_, data_begin_, data_index_, data_n_, group_ref_, ibegin_, long_name_ & 252 250 , mask_, name_, ni_, positive_, size_, standard_name_, unit_, value_, zoom_begin_, zoom_end_ & 253 251 , zoom_size_ ) 254 252 255 253 IMPLICIT NONE 256 254 TYPE(txios(axisgroup)) , INTENT(IN) :: axisgroup_hdl … … 274 272 INTEGER , OPTIONAL, INTENT(OUT) :: zoom_end_ 275 273 INTEGER , OPTIONAL, INTENT(OUT) :: zoom_size_ 276 274 277 275 IF (PRESENT(axis_ref_)) THEN 278 276 CALL cxios_get_axisgroup_axis_ref(axisgroup_hdl%daddr, axis_ref_, len(axis_ref_)) 279 277 ENDIF 280 278 281 279 IF (PRESENT(data_begin_)) THEN 282 280 CALL cxios_get_axisgroup_data_begin(axisgroup_hdl%daddr, data_begin_) 283 281 ENDIF 284 282 285 283 IF (PRESENT(data_index_)) THEN 286 CALL cxios_get_axisgroup_data_index(axisgroup_hdl%daddr, data_index_, size(data_index_,1))287 ENDIF 288 284 CALL cxios_get_axisgroup_data_index(axisgroup_hdl%daddr, data_index_, size(data_index_,1)) 285 ENDIF 286 289 287 IF (PRESENT(data_n_)) THEN 290 288 CALL cxios_get_axisgroup_data_n(axisgroup_hdl%daddr, data_n_) 291 289 ENDIF 292 290 293 291 IF (PRESENT(group_ref_)) THEN 294 292 CALL cxios_get_axisgroup_group_ref(axisgroup_hdl%daddr, group_ref_, len(group_ref_)) 295 293 ENDIF 296 294 297 295 IF (PRESENT(ibegin_)) THEN 298 296 CALL cxios_get_axisgroup_ibegin(axisgroup_hdl%daddr, ibegin_) 299 297 ENDIF 300 298 301 299 IF (PRESENT(long_name_)) THEN 302 300 CALL cxios_get_axisgroup_long_name(axisgroup_hdl%daddr, long_name_, len(long_name_)) 303 301 ENDIF 304 302 305 303 IF (PRESENT(mask_)) THEN 306 304 ALLOCATE(mask__tmp(size(mask_,1))) 307 CALL cxios_get_axisgroup_mask(axisgroup_hdl%daddr, mask__tmp, size(mask_,1))308 mask_ =mask__tmp309 ENDIF 310 305 CALL cxios_get_axisgroup_mask(axisgroup_hdl%daddr, mask__tmp, size(mask_,1)) 306 mask_ = mask__tmp 307 ENDIF 308 311 309 IF (PRESENT(name_)) THEN 312 310 CALL cxios_get_axisgroup_name(axisgroup_hdl%daddr, name_, len(name_)) 313 311 ENDIF 314 312 315 313 IF (PRESENT(ni_)) THEN 316 314 CALL cxios_get_axisgroup_ni(axisgroup_hdl%daddr, ni_) 317 315 ENDIF 318 316 319 317 IF (PRESENT(positive_)) THEN 320 318 CALL cxios_get_axisgroup_positive(axisgroup_hdl%daddr, positive_, len(positive_)) 321 319 ENDIF 322 320 323 321 IF (PRESENT(size_)) THEN 324 322 CALL cxios_get_axisgroup_size(axisgroup_hdl%daddr, size_) 325 323 ENDIF 326 324 327 325 IF (PRESENT(standard_name_)) THEN 328 326 CALL cxios_get_axisgroup_standard_name(axisgroup_hdl%daddr, standard_name_, len(standard_name_)) 329 327 ENDIF 330 328 331 329 IF (PRESENT(unit_)) THEN 332 330 CALL cxios_get_axisgroup_unit(axisgroup_hdl%daddr, unit_, len(unit_)) 333 331 ENDIF 334 332 335 333 IF (PRESENT(value_)) THEN 336 CALL cxios_get_axisgroup_value(axisgroup_hdl%daddr, value_, size(value_,1))337 ENDIF 338 334 CALL cxios_get_axisgroup_value(axisgroup_hdl%daddr, value_, size(value_,1)) 335 ENDIF 336 339 337 IF (PRESENT(zoom_begin_)) THEN 340 338 CALL cxios_get_axisgroup_zoom_begin(axisgroup_hdl%daddr, zoom_begin_) 341 339 ENDIF 342 340 343 341 IF (PRESENT(zoom_end_)) THEN 344 342 CALL cxios_get_axisgroup_zoom_end(axisgroup_hdl%daddr, zoom_end_) 345 343 ENDIF 346 344 347 345 IF (PRESENT(zoom_size_)) THEN 348 346 CALL cxios_get_axisgroup_zoom_size(axisgroup_hdl%daddr, zoom_size_) 349 347 ENDIF 350 351 352 348 353 349 END SUBROUTINE xios(get_axisgroup_attr_hdl_) 354 350 355 351 SUBROUTINE xios(is_defined_axisgroup_attr) & 356 352 ( axisgroup_id, axis_ref, data_begin, data_index, data_n, group_ref, ibegin, long_name, mask & 357 353 , name, ni, positive, size, standard_name, unit, value, zoom_begin, zoom_end, zoom_size ) 358 354 359 355 IMPLICIT NONE 360 356 TYPE(txios(axisgroup)) :: axisgroup_hdl … … 396 392 LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_size 397 393 LOGICAL(KIND=C_BOOL) :: zoom_size_tmp 398 394 399 395 CALL xios(get_axisgroup_handle)(axisgroup_id,axisgroup_hdl) 400 396 CALL xios(is_defined_axisgroup_attr_hdl_) & 401 397 ( axisgroup_hdl, axis_ref, data_begin, data_index, data_n, group_ref, ibegin, long_name, mask & 402 398 , name, ni, positive, size, standard_name, unit, value, zoom_begin, zoom_end, zoom_size ) 403 399 404 400 END SUBROUTINE xios(is_defined_axisgroup_attr) 405 401 406 402 SUBROUTINE xios(is_defined_axisgroup_attr_hdl) & 407 403 ( axisgroup_hdl, axis_ref, data_begin, data_index, data_n, group_ref, ibegin, long_name, mask & 408 404 , name, ni, positive, size, standard_name, unit, value, zoom_begin, zoom_end, zoom_size ) 409 405 410 406 IMPLICIT NONE 411 407 TYPE(txios(axisgroup)) , INTENT(IN) :: axisgroup_hdl … … 446 442 LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_size 447 443 LOGICAL(KIND=C_BOOL) :: zoom_size_tmp 448 444 449 445 CALL xios(is_defined_axisgroup_attr_hdl_) & 450 446 ( axisgroup_hdl, axis_ref, data_begin, data_index, data_n, group_ref, ibegin, long_name, mask & 451 447 , name, ni, positive, size, standard_name, unit, value, zoom_begin, zoom_end, zoom_size ) 452 448 453 449 END SUBROUTINE xios(is_defined_axisgroup_attr_hdl) 454 450 455 451 SUBROUTINE xios(is_defined_axisgroup_attr_hdl_) & 456 452 ( axisgroup_hdl, axis_ref_, data_begin_, data_index_, data_n_, group_ref_, ibegin_, long_name_ & 457 453 , mask_, name_, ni_, positive_, size_, standard_name_, unit_, value_, zoom_begin_, zoom_end_ & 458 454 , zoom_size_ ) 459 455 460 456 IMPLICIT NONE 461 457 TYPE(txios(axisgroup)) , INTENT(IN) :: axisgroup_hdl … … 496 492 LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_size_ 497 493 LOGICAL(KIND=C_BOOL) :: zoom_size__tmp 498 494 499 495 IF (PRESENT(axis_ref_)) THEN 500 axis_ref__tmp =cxios_is_defined_axisgroup_axis_ref(axisgroup_hdl%daddr)501 axis_ref_ =axis_ref__tmp502 ENDIF 503 496 axis_ref__tmp = cxios_is_defined_axisgroup_axis_ref(axisgroup_hdl%daddr) 497 axis_ref_ = axis_ref__tmp 498 ENDIF 499 504 500 IF (PRESENT(data_begin_)) THEN 505 data_begin__tmp =cxios_is_defined_axisgroup_data_begin(axisgroup_hdl%daddr)506 data_begin_ =data_begin__tmp507 ENDIF 508 501 data_begin__tmp = cxios_is_defined_axisgroup_data_begin(axisgroup_hdl%daddr) 502 data_begin_ = data_begin__tmp 503 ENDIF 504 509 505 IF (PRESENT(data_index_)) THEN 510 data_index__tmp =cxios_is_defined_axisgroup_data_index(axisgroup_hdl%daddr)511 data_index_ =data_index__tmp512 ENDIF 513 506 data_index__tmp = cxios_is_defined_axisgroup_data_index(axisgroup_hdl%daddr) 507 data_index_ = data_index__tmp 508 ENDIF 509 514 510 IF (PRESENT(data_n_)) THEN 515 data_n__tmp =cxios_is_defined_axisgroup_data_n(axisgroup_hdl%daddr)516 data_n_ =data_n__tmp517 ENDIF 518 511 data_n__tmp = cxios_is_defined_axisgroup_data_n(axisgroup_hdl%daddr) 512 data_n_ = data_n__tmp 513 ENDIF 514 519 515 IF (PRESENT(group_ref_)) THEN 520 group_ref__tmp =cxios_is_defined_axisgroup_group_ref(axisgroup_hdl%daddr)521 group_ref_ =group_ref__tmp522 ENDIF 523 516 group_ref__tmp = cxios_is_defined_axisgroup_group_ref(axisgroup_hdl%daddr) 517 group_ref_ = group_ref__tmp 518 ENDIF 519 524 520 IF (PRESENT(ibegin_)) THEN 525 ibegin__tmp =cxios_is_defined_axisgroup_ibegin(axisgroup_hdl%daddr)526 ibegin_ =ibegin__tmp527 ENDIF 528 521 ibegin__tmp = cxios_is_defined_axisgroup_ibegin(axisgroup_hdl%daddr) 522 ibegin_ = ibegin__tmp 523 ENDIF 524 529 525 IF (PRESENT(long_name_)) THEN 530 long_name__tmp =cxios_is_defined_axisgroup_long_name(axisgroup_hdl%daddr)531 long_name_ =long_name__tmp532 ENDIF 533 526 long_name__tmp = cxios_is_defined_axisgroup_long_name(axisgroup_hdl%daddr) 527 long_name_ = long_name__tmp 528 ENDIF 529 534 530 IF (PRESENT(mask_)) THEN 535 mask__tmp =cxios_is_defined_axisgroup_mask(axisgroup_hdl%daddr)536 mask_ =mask__tmp537 ENDIF 538 531 mask__tmp = cxios_is_defined_axisgroup_mask(axisgroup_hdl%daddr) 532 mask_ = mask__tmp 533 ENDIF 534 539 535 IF (PRESENT(name_)) THEN 540 name__tmp =cxios_is_defined_axisgroup_name(axisgroup_hdl%daddr)541 name_ =name__tmp542 ENDIF 543 536 name__tmp = cxios_is_defined_axisgroup_name(axisgroup_hdl%daddr) 537 name_ = name__tmp 538 ENDIF 539 544 540 IF (PRESENT(ni_)) THEN 545 ni__tmp =cxios_is_defined_axisgroup_ni(axisgroup_hdl%daddr)546 ni_ =ni__tmp547 ENDIF 548 541 ni__tmp = cxios_is_defined_axisgroup_ni(axisgroup_hdl%daddr) 542 ni_ = ni__tmp 543 ENDIF 544 549 545 IF (PRESENT(positive_)) THEN 550 positive__tmp =cxios_is_defined_axisgroup_positive(axisgroup_hdl%daddr)551 positive_ =positive__tmp552 ENDIF 553 546 positive__tmp = cxios_is_defined_axisgroup_positive(axisgroup_hdl%daddr) 547 positive_ = positive__tmp 548 ENDIF 549 554 550 IF (PRESENT(size_)) THEN 555 size__tmp =cxios_is_defined_axisgroup_size(axisgroup_hdl%daddr)556 size_ =size__tmp557 ENDIF 558 551 size__tmp = cxios_is_defined_axisgroup_size(axisgroup_hdl%daddr) 552 size_ = size__tmp 553 ENDIF 554 559 555 IF (PRESENT(standard_name_)) THEN 560 standard_name__tmp =cxios_is_defined_axisgroup_standard_name(axisgroup_hdl%daddr)561 standard_name_ =standard_name__tmp562 ENDIF 563 556 standard_name__tmp = cxios_is_defined_axisgroup_standard_name(axisgroup_hdl%daddr) 557 standard_name_ = standard_name__tmp 558 ENDIF 559 564 560 IF (PRESENT(unit_)) THEN 565 unit__tmp =cxios_is_defined_axisgroup_unit(axisgroup_hdl%daddr)566 unit_ =unit__tmp567 ENDIF 568 561 unit__tmp = cxios_is_defined_axisgroup_unit(axisgroup_hdl%daddr) 562 unit_ = unit__tmp 563 ENDIF 564 569 565 IF (PRESENT(value_)) THEN 570 value__tmp =cxios_is_defined_axisgroup_value(axisgroup_hdl%daddr)571 value_ =value__tmp572 ENDIF 573 566 value__tmp = cxios_is_defined_axisgroup_value(axisgroup_hdl%daddr) 567 value_ = value__tmp 568 ENDIF 569 574 570 IF (PRESENT(zoom_begin_)) THEN 575 zoom_begin__tmp =cxios_is_defined_axisgroup_zoom_begin(axisgroup_hdl%daddr)576 zoom_begin_ =zoom_begin__tmp577 ENDIF 578 571 zoom_begin__tmp = cxios_is_defined_axisgroup_zoom_begin(axisgroup_hdl%daddr) 572 zoom_begin_ = zoom_begin__tmp 573 ENDIF 574 579 575 IF (PRESENT(zoom_end_)) THEN 580 zoom_end__tmp =cxios_is_defined_axisgroup_zoom_end(axisgroup_hdl%daddr)581 zoom_end_ =zoom_end__tmp582 ENDIF 583 576 zoom_end__tmp = cxios_is_defined_axisgroup_zoom_end(axisgroup_hdl%daddr) 577 zoom_end_ = zoom_end__tmp 578 ENDIF 579 584 580 IF (PRESENT(zoom_size_)) THEN 585 zoom_size__tmp=cxios_is_defined_axisgroup_zoom_size(axisgroup_hdl%daddr) 586 zoom_size_=zoom_size__tmp 587 ENDIF 588 589 590 581 zoom_size__tmp = cxios_is_defined_axisgroup_zoom_size(axisgroup_hdl%daddr) 582 zoom_size_ = zoom_size__tmp 583 ENDIF 584 591 585 END SUBROUTINE xios(is_defined_axisgroup_attr_hdl_) 592 586 593 587 END MODULE iaxisgroup_attr -
XIOS/trunk/src/interface/fortran_attr/icalendar_wrapper_attr.F90
r550 r581 8 8 USE icalendar_wrapper 9 9 USE calendar_wrapper_interface_attr 10 10 11 11 CONTAINS 12 12 13 13 SUBROUTINE xios(set_calendar_wrapper_attr) & 14 14 ( calendar_wrapper_id, day_length, leap_year_drift, leap_year_drift_offset, leap_year_month & 15 15 , month_lengths, start_date, time_origin, timestep, type, year_length ) 16 16 17 17 IMPLICIT NONE 18 18 TYPE(txios(calendar_wrapper)) :: calendar_wrapper_hdl … … 28 28 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type 29 29 INTEGER , OPTIONAL, INTENT(IN) :: year_length 30 30 31 31 CALL xios(get_calendar_wrapper_handle)(calendar_wrapper_id,calendar_wrapper_hdl) 32 32 CALL xios(set_calendar_wrapper_attr_hdl_) & 33 33 ( calendar_wrapper_hdl, day_length, leap_year_drift, leap_year_drift_offset, leap_year_month & 34 34 , month_lengths, start_date, time_origin, timestep, type, year_length ) 35 35 36 36 END SUBROUTINE xios(set_calendar_wrapper_attr) 37 37 38 38 SUBROUTINE xios(set_calendar_wrapper_attr_hdl) & 39 39 ( calendar_wrapper_hdl, day_length, leap_year_drift, leap_year_drift_offset, leap_year_month & 40 40 , month_lengths, start_date, time_origin, timestep, type, year_length ) 41 41 42 42 IMPLICIT NONE 43 43 TYPE(txios(calendar_wrapper)) , INTENT(IN) :: calendar_wrapper_hdl … … 52 52 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type 53 53 INTEGER , OPTIONAL, INTENT(IN) :: year_length 54 54 55 55 CALL xios(set_calendar_wrapper_attr_hdl_) & 56 56 ( calendar_wrapper_hdl, day_length, leap_year_drift, leap_year_drift_offset, leap_year_month & 57 57 , month_lengths, start_date, time_origin, timestep, type, year_length ) 58 58 59 59 END SUBROUTINE xios(set_calendar_wrapper_attr_hdl) 60 60 61 61 SUBROUTINE xios(set_calendar_wrapper_attr_hdl_) & 62 62 ( calendar_wrapper_hdl, day_length_, leap_year_drift_, leap_year_drift_offset_, leap_year_month_ & 63 63 , month_lengths_, start_date_, time_origin_, timestep_, type_, year_length_ ) 64 64 65 65 IMPLICIT NONE 66 66 TYPE(txios(calendar_wrapper)) , INTENT(IN) :: calendar_wrapper_hdl … … 75 75 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type_ 76 76 INTEGER , OPTIONAL, INTENT(IN) :: year_length_ 77 77 78 78 IF (PRESENT(day_length_)) THEN 79 79 CALL cxios_set_calendar_wrapper_day_length(calendar_wrapper_hdl%daddr, day_length_) 80 80 ENDIF 81 81 82 82 IF (PRESENT(leap_year_drift_)) THEN 83 83 CALL cxios_set_calendar_wrapper_leap_year_drift(calendar_wrapper_hdl%daddr, leap_year_drift_) 84 84 ENDIF 85 85 86 86 IF (PRESENT(leap_year_drift_offset_)) THEN 87 87 CALL cxios_set_calendar_wrapper_leap_year_drift_offset(calendar_wrapper_hdl%daddr, leap_year_drift_offset_) 88 88 ENDIF 89 89 90 90 IF (PRESENT(leap_year_month_)) THEN 91 91 CALL cxios_set_calendar_wrapper_leap_year_month(calendar_wrapper_hdl%daddr, leap_year_month_) 92 92 ENDIF 93 93 94 94 IF (PRESENT(month_lengths_)) THEN 95 CALL cxios_set_calendar_wrapper_month_lengths(calendar_wrapper_hdl%daddr, month_lengths_, size(month_lengths_,1))96 ENDIF 97 95 CALL cxios_set_calendar_wrapper_month_lengths(calendar_wrapper_hdl%daddr, month_lengths_, size(month_lengths_,1)) 96 ENDIF 97 98 98 IF (PRESENT(start_date_)) THEN 99 99 CALL cxios_set_calendar_wrapper_start_date(calendar_wrapper_hdl%daddr, start_date_, len(start_date_)) 100 100 ENDIF 101 101 102 102 IF (PRESENT(time_origin_)) THEN 103 103 CALL cxios_set_calendar_wrapper_time_origin(calendar_wrapper_hdl%daddr, time_origin_, len(time_origin_)) 104 104 ENDIF 105 105 106 106 IF (PRESENT(timestep_)) THEN 107 107 CALL cxios_set_calendar_wrapper_timestep(calendar_wrapper_hdl%daddr, timestep_) 108 108 ENDIF 109 109 110 110 IF (PRESENT(type_)) THEN 111 111 CALL cxios_set_calendar_wrapper_type(calendar_wrapper_hdl%daddr, type_, len(type_)) 112 112 ENDIF 113 113 114 114 IF (PRESENT(year_length_)) THEN 115 115 CALL cxios_set_calendar_wrapper_year_length(calendar_wrapper_hdl%daddr, year_length_) 116 116 ENDIF 117 118 119 117 120 118 END SUBROUTINE xios(set_calendar_wrapper_attr_hdl_) 121 119 122 120 SUBROUTINE xios(get_calendar_wrapper_attr) & 123 121 ( calendar_wrapper_id, day_length, leap_year_drift, leap_year_drift_offset, leap_year_month & 124 122 , month_lengths, start_date, time_origin, timestep, type, year_length ) 125 123 126 124 IMPLICIT NONE 127 125 TYPE(txios(calendar_wrapper)) :: calendar_wrapper_hdl … … 137 135 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type 138 136 INTEGER , OPTIONAL, INTENT(OUT) :: year_length 139 137 140 138 CALL xios(get_calendar_wrapper_handle)(calendar_wrapper_id,calendar_wrapper_hdl) 141 139 CALL xios(get_calendar_wrapper_attr_hdl_) & 142 140 ( calendar_wrapper_hdl, day_length, leap_year_drift, leap_year_drift_offset, leap_year_month & 143 141 , month_lengths, start_date, time_origin, timestep, type, year_length ) 144 142 145 143 END SUBROUTINE xios(get_calendar_wrapper_attr) 146 144 147 145 SUBROUTINE xios(get_calendar_wrapper_attr_hdl) & 148 146 ( calendar_wrapper_hdl, day_length, leap_year_drift, leap_year_drift_offset, leap_year_month & 149 147 , month_lengths, start_date, time_origin, timestep, type, year_length ) 150 148 151 149 IMPLICIT NONE 152 150 TYPE(txios(calendar_wrapper)) , INTENT(IN) :: calendar_wrapper_hdl … … 161 159 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type 162 160 INTEGER , OPTIONAL, INTENT(OUT) :: year_length 163 161 164 162 CALL xios(get_calendar_wrapper_attr_hdl_) & 165 163 ( calendar_wrapper_hdl, day_length, leap_year_drift, leap_year_drift_offset, leap_year_month & 166 164 , month_lengths, start_date, time_origin, timestep, type, year_length ) 167 165 168 166 END SUBROUTINE xios(get_calendar_wrapper_attr_hdl) 169 167 170 168 SUBROUTINE xios(get_calendar_wrapper_attr_hdl_) & 171 169 ( calendar_wrapper_hdl, day_length_, leap_year_drift_, leap_year_drift_offset_, leap_year_month_ & 172 170 , month_lengths_, start_date_, time_origin_, timestep_, type_, year_length_ ) 173 171 174 172 IMPLICIT NONE 175 173 TYPE(txios(calendar_wrapper)) , INTENT(IN) :: calendar_wrapper_hdl … … 184 182 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type_ 185 183 INTEGER , OPTIONAL, INTENT(OUT) :: year_length_ 186 184 187 185 IF (PRESENT(day_length_)) THEN 188 186 CALL cxios_get_calendar_wrapper_day_length(calendar_wrapper_hdl%daddr, day_length_) 189 187 ENDIF 190 188 191 189 IF (PRESENT(leap_year_drift_)) THEN 192 190 CALL cxios_get_calendar_wrapper_leap_year_drift(calendar_wrapper_hdl%daddr, leap_year_drift_) 193 191 ENDIF 194 192 195 193 IF (PRESENT(leap_year_drift_offset_)) THEN 196 194 CALL cxios_get_calendar_wrapper_leap_year_drift_offset(calendar_wrapper_hdl%daddr, leap_year_drift_offset_) 197 195 ENDIF 198 196 199 197 IF (PRESENT(leap_year_month_)) THEN 200 198 CALL cxios_get_calendar_wrapper_leap_year_month(calendar_wrapper_hdl%daddr, leap_year_month_) 201 199 ENDIF 202 200 203 201 IF (PRESENT(month_lengths_)) THEN 204 CALL cxios_get_calendar_wrapper_month_lengths(calendar_wrapper_hdl%daddr, month_lengths_, size(month_lengths_,1))205 ENDIF 206 202 CALL cxios_get_calendar_wrapper_month_lengths(calendar_wrapper_hdl%daddr, month_lengths_, size(month_lengths_,1)) 203 ENDIF 204 207 205 IF (PRESENT(start_date_)) THEN 208 206 CALL cxios_get_calendar_wrapper_start_date(calendar_wrapper_hdl%daddr, start_date_, len(start_date_)) 209 207 ENDIF 210 208 211 209 IF (PRESENT(time_origin_)) THEN 212 210 CALL cxios_get_calendar_wrapper_time_origin(calendar_wrapper_hdl%daddr, time_origin_, len(time_origin_)) 213 211 ENDIF 214 212 215 213 IF (PRESENT(timestep_)) THEN 216 214 CALL cxios_get_calendar_wrapper_timestep(calendar_wrapper_hdl%daddr, timestep_) 217 215 ENDIF 218 216 219 217 IF (PRESENT(type_)) THEN 220 218 CALL cxios_get_calendar_wrapper_type(calendar_wrapper_hdl%daddr, type_, len(type_)) 221 219 ENDIF 222 220 223 221 IF (PRESENT(year_length_)) THEN 224 222 CALL cxios_get_calendar_wrapper_year_length(calendar_wrapper_hdl%daddr, year_length_) 225 223 ENDIF 226 227 228 224 229 225 END SUBROUTINE xios(get_calendar_wrapper_attr_hdl_) 230 226 231 227 SUBROUTINE xios(is_defined_calendar_wrapper_attr) & 232 228 ( calendar_wrapper_id, day_length, leap_year_drift, leap_year_drift_offset, leap_year_month & 233 229 , month_lengths, start_date, time_origin, timestep, type, year_length ) 234 230 235 231 IMPLICIT NONE 236 232 TYPE(txios(calendar_wrapper)) :: calendar_wrapper_hdl … … 256 252 LOGICAL, OPTIONAL, INTENT(OUT) :: year_length 257 253 LOGICAL(KIND=C_BOOL) :: year_length_tmp 258 254 259 255 CALL xios(get_calendar_wrapper_handle)(calendar_wrapper_id,calendar_wrapper_hdl) 260 256 CALL xios(is_defined_calendar_wrapper_attr_hdl_) & 261 257 ( calendar_wrapper_hdl, day_length, leap_year_drift, leap_year_drift_offset, leap_year_month & 262 258 , month_lengths, start_date, time_origin, timestep, type, year_length ) 263 259 264 260 END SUBROUTINE xios(is_defined_calendar_wrapper_attr) 265 261 266 262 SUBROUTINE xios(is_defined_calendar_wrapper_attr_hdl) & 267 263 ( calendar_wrapper_hdl, day_length, leap_year_drift, leap_year_drift_offset, leap_year_month & 268 264 , month_lengths, start_date, time_origin, timestep, type, year_length ) 269 265 270 266 IMPLICIT NONE 271 267 TYPE(txios(calendar_wrapper)) , INTENT(IN) :: calendar_wrapper_hdl … … 290 286 LOGICAL, OPTIONAL, INTENT(OUT) :: year_length 291 287 LOGICAL(KIND=C_BOOL) :: year_length_tmp 292 288 293 289 CALL xios(is_defined_calendar_wrapper_attr_hdl_) & 294 290 ( calendar_wrapper_hdl, day_length, leap_year_drift, leap_year_drift_offset, leap_year_month & 295 291 , month_lengths, start_date, time_origin, timestep, type, year_length ) 296 292 297 293 END SUBROUTINE xios(is_defined_calendar_wrapper_attr_hdl) 298 294 299 295 SUBROUTINE xios(is_defined_calendar_wrapper_attr_hdl_) & 300 296 ( calendar_wrapper_hdl, day_length_, leap_year_drift_, leap_year_drift_offset_, leap_year_month_ & 301 297 , month_lengths_, start_date_, time_origin_, timestep_, type_, year_length_ ) 302 298 303 299 IMPLICIT NONE 304 300 TYPE(txios(calendar_wrapper)) , INTENT(IN) :: calendar_wrapper_hdl … … 323 319 LOGICAL, OPTIONAL, INTENT(OUT) :: year_length_ 324 320 LOGICAL(KIND=C_BOOL) :: year_length__tmp 325 321 326 322 IF (PRESENT(day_length_)) THEN 327 day_length__tmp =cxios_is_defined_calendar_wrapper_day_length(calendar_wrapper_hdl%daddr)328 day_length_ =day_length__tmp329 ENDIF 330 323 day_length__tmp = cxios_is_defined_calendar_wrapper_day_length(calendar_wrapper_hdl%daddr) 324 day_length_ = day_length__tmp 325 ENDIF 326 331 327 IF (PRESENT(leap_year_drift_)) THEN 332 leap_year_drift__tmp =cxios_is_defined_calendar_wrapper_leap_year_drift(calendar_wrapper_hdl%daddr)333 leap_year_drift_ =leap_year_drift__tmp334 ENDIF 335 328 leap_year_drift__tmp = cxios_is_defined_calendar_wrapper_leap_year_drift(calendar_wrapper_hdl%daddr) 329 leap_year_drift_ = leap_year_drift__tmp 330 ENDIF 331 336 332 IF (PRESENT(leap_year_drift_offset_)) THEN 337 leap_year_drift_offset__tmp =cxios_is_defined_calendar_wrapper_leap_year_drift_offset(calendar_wrapper_hdl%daddr)338 leap_year_drift_offset_ =leap_year_drift_offset__tmp339 ENDIF 340 333 leap_year_drift_offset__tmp = cxios_is_defined_calendar_wrapper_leap_year_drift_offset(calendar_wrapper_hdl%daddr) 334 leap_year_drift_offset_ = leap_year_drift_offset__tmp 335 ENDIF 336 341 337 IF (PRESENT(leap_year_month_)) THEN 342 leap_year_month__tmp =cxios_is_defined_calendar_wrapper_leap_year_month(calendar_wrapper_hdl%daddr)343 leap_year_month_ =leap_year_month__tmp344 ENDIF 345 338 leap_year_month__tmp = cxios_is_defined_calendar_wrapper_leap_year_month(calendar_wrapper_hdl%daddr) 339 leap_year_month_ = leap_year_month__tmp 340 ENDIF 341 346 342 IF (PRESENT(month_lengths_)) THEN 347 month_lengths__tmp =cxios_is_defined_calendar_wrapper_month_lengths(calendar_wrapper_hdl%daddr)348 month_lengths_ =month_lengths__tmp349 ENDIF 350 343 month_lengths__tmp = cxios_is_defined_calendar_wrapper_month_lengths(calendar_wrapper_hdl%daddr) 344 month_lengths_ = month_lengths__tmp 345 ENDIF 346 351 347 IF (PRESENT(start_date_)) THEN 352 start_date__tmp =cxios_is_defined_calendar_wrapper_start_date(calendar_wrapper_hdl%daddr)353 start_date_ =start_date__tmp354 ENDIF 355 348 start_date__tmp = cxios_is_defined_calendar_wrapper_start_date(calendar_wrapper_hdl%daddr) 349 start_date_ = start_date__tmp 350 ENDIF 351 356 352 IF (PRESENT(time_origin_)) THEN 357 time_origin__tmp =cxios_is_defined_calendar_wrapper_time_origin(calendar_wrapper_hdl%daddr)358 time_origin_ =time_origin__tmp359 ENDIF 360 353 time_origin__tmp = cxios_is_defined_calendar_wrapper_time_origin(calendar_wrapper_hdl%daddr) 354 time_origin_ = time_origin__tmp 355 ENDIF 356 361 357 IF (PRESENT(timestep_)) THEN 362 timestep__tmp =cxios_is_defined_calendar_wrapper_timestep(calendar_wrapper_hdl%daddr)363 timestep_ =timestep__tmp364 ENDIF 365 358 timestep__tmp = cxios_is_defined_calendar_wrapper_timestep(calendar_wrapper_hdl%daddr) 359 timestep_ = timestep__tmp 360 ENDIF 361 366 362 IF (PRESENT(type_)) THEN 367 type__tmp =cxios_is_defined_calendar_wrapper_type(calendar_wrapper_hdl%daddr)368 type_ =type__tmp369 ENDIF 370 363 type__tmp = cxios_is_defined_calendar_wrapper_type(calendar_wrapper_hdl%daddr) 364 type_ = type__tmp 365 ENDIF 366 371 367 IF (PRESENT(year_length_)) THEN 372 year_length__tmp=cxios_is_defined_calendar_wrapper_year_length(calendar_wrapper_hdl%daddr) 373 year_length_=year_length__tmp 374 ENDIF 375 376 377 368 year_length__tmp = cxios_is_defined_calendar_wrapper_year_length(calendar_wrapper_hdl%daddr) 369 year_length_ = year_length__tmp 370 ENDIF 371 378 372 END SUBROUTINE xios(is_defined_calendar_wrapper_attr_hdl_) 379 373 380 374 END MODULE icalendar_wrapper_attr -
XIOS/trunk/src/interface/fortran_attr/icontext_attr.F90
r549 r581 8 8 USE icontext 9 9 USE context_interface_attr 10 10 11 11 CONTAINS 12 12 13 13 SUBROUTINE xios(set_context_attr) & 14 14 ( context_id, output_dir ) 15 15 16 16 IMPLICIT NONE 17 17 TYPE(txios(context)) :: context_hdl 18 18 CHARACTER(LEN=*), INTENT(IN) ::context_id 19 19 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: output_dir 20 20 21 21 CALL xios(get_context_handle)(context_id,context_hdl) 22 22 CALL xios(set_context_attr_hdl_) & 23 23 ( context_hdl, output_dir ) 24 24 25 25 END SUBROUTINE xios(set_context_attr) 26 26 27 27 SUBROUTINE xios(set_context_attr_hdl) & 28 28 ( context_hdl, output_dir ) 29 29 30 30 IMPLICIT NONE 31 31 TYPE(txios(context)) , INTENT(IN) :: context_hdl 32 32 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: output_dir 33 33 34 34 CALL xios(set_context_attr_hdl_) & 35 35 ( context_hdl, output_dir ) 36 36 37 37 END SUBROUTINE xios(set_context_attr_hdl) 38 38 39 39 SUBROUTINE xios(set_context_attr_hdl_) & 40 40 ( context_hdl, output_dir_ ) 41 41 42 42 IMPLICIT NONE 43 43 TYPE(txios(context)) , INTENT(IN) :: context_hdl 44 44 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: output_dir_ 45 45 46 46 IF (PRESENT(output_dir_)) THEN 47 47 CALL cxios_set_context_output_dir(context_hdl%daddr, output_dir_, len(output_dir_)) 48 48 ENDIF 49 50 51 49 52 50 END SUBROUTINE xios(set_context_attr_hdl_) 53 51 54 52 SUBROUTINE xios(get_context_attr) & 55 53 ( context_id, output_dir ) 56 54 57 55 IMPLICIT NONE 58 56 TYPE(txios(context)) :: context_hdl 59 57 CHARACTER(LEN=*), INTENT(IN) ::context_id 60 58 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: output_dir 61 59 62 60 CALL xios(get_context_handle)(context_id,context_hdl) 63 61 CALL xios(get_context_attr_hdl_) & 64 62 ( context_hdl, output_dir ) 65 63 66 64 END SUBROUTINE xios(get_context_attr) 67 65 68 66 SUBROUTINE xios(get_context_attr_hdl) & 69 67 ( context_hdl, output_dir ) 70 68 71 69 IMPLICIT NONE 72 70 TYPE(txios(context)) , INTENT(IN) :: context_hdl 73 71 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: output_dir 74 72 75 73 CALL xios(get_context_attr_hdl_) & 76 74 ( context_hdl, output_dir ) 77 75 78 76 END SUBROUTINE xios(get_context_attr_hdl) 79 77 80 78 SUBROUTINE xios(get_context_attr_hdl_) & 81 79 ( context_hdl, output_dir_ ) 82 80 83 81 IMPLICIT NONE 84 82 TYPE(txios(context)) , INTENT(IN) :: context_hdl 85 83 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: output_dir_ 86 84 87 85 IF (PRESENT(output_dir_)) THEN 88 86 CALL cxios_get_context_output_dir(context_hdl%daddr, output_dir_, len(output_dir_)) 89 87 ENDIF 90 91 92 88 93 89 END SUBROUTINE xios(get_context_attr_hdl_) 94 90 95 91 SUBROUTINE xios(is_defined_context_attr) & 96 92 ( context_id, output_dir ) 97 93 98 94 IMPLICIT NONE 99 95 TYPE(txios(context)) :: context_hdl … … 101 97 LOGICAL, OPTIONAL, INTENT(OUT) :: output_dir 102 98 LOGICAL(KIND=C_BOOL) :: output_dir_tmp 103 99 104 100 CALL xios(get_context_handle)(context_id,context_hdl) 105 101 CALL xios(is_defined_context_attr_hdl_) & 106 102 ( context_hdl, output_dir ) 107 103 108 104 END SUBROUTINE xios(is_defined_context_attr) 109 105 110 106 SUBROUTINE xios(is_defined_context_attr_hdl) & 111 107 ( context_hdl, output_dir ) 112 108 113 109 IMPLICIT NONE 114 110 TYPE(txios(context)) , INTENT(IN) :: context_hdl 115 111 LOGICAL, OPTIONAL, INTENT(OUT) :: output_dir 116 112 LOGICAL(KIND=C_BOOL) :: output_dir_tmp 117 113 118 114 CALL xios(is_defined_context_attr_hdl_) & 119 115 ( context_hdl, output_dir ) 120 116 121 117 END SUBROUTINE xios(is_defined_context_attr_hdl) 122 118 123 119 SUBROUTINE xios(is_defined_context_attr_hdl_) & 124 120 ( context_hdl, output_dir_ ) 125 121 126 122 IMPLICIT NONE 127 123 TYPE(txios(context)) , INTENT(IN) :: context_hdl 128 124 LOGICAL, OPTIONAL, INTENT(OUT) :: output_dir_ 129 125 LOGICAL(KIND=C_BOOL) :: output_dir__tmp 130 126 131 127 IF (PRESENT(output_dir_)) THEN 132 output_dir__tmp =cxios_is_defined_context_output_dir(context_hdl%daddr)133 output_dir_ =output_dir__tmp128 output_dir__tmp = cxios_is_defined_context_output_dir(context_hdl%daddr) 129 output_dir_ = output_dir__tmp 134 130 ENDIF 135 136 137 131 138 132 END SUBROUTINE xios(is_defined_context_attr_hdl_) 139 133 140 134 END MODULE icontext_attr -
XIOS/trunk/src/interface/fortran_attr/idomain_attr.F90
r546 r581 8 8 USE idomain 9 9 USE domain_interface_attr 10 10 11 11 CONTAINS 12 12 13 13 SUBROUTINE xios(set_domain_attr) & 14 14 ( domain_id, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin & … … 17 17 , type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc, zoom_ni, zoom_ni_loc, zoom_nj & 18 18 , zoom_nj_loc ) 19 19 20 20 IMPLICIT NONE 21 21 TYPE(txios(domain)) :: domain_hdl … … 60 60 INTEGER , OPTIONAL, INTENT(IN) :: zoom_nj 61 61 INTEGER , OPTIONAL, INTENT(IN) :: zoom_nj_loc 62 62 63 63 CALL xios(get_domain_handle)(domain_id,domain_hdl) 64 64 CALL xios(set_domain_attr_hdl_) & … … 68 68 , type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc, zoom_ni, zoom_ni_loc, zoom_nj & 69 69 , zoom_nj_loc ) 70 70 71 71 END SUBROUTINE xios(set_domain_attr) 72 72 73 73 SUBROUTINE xios(set_domain_attr_hdl) & 74 74 ( domain_hdl, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin & … … 77 77 , type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc, zoom_ni, zoom_ni_loc, zoom_nj & 78 78 , zoom_nj_loc ) 79 79 80 80 IMPLICIT NONE 81 81 TYPE(txios(domain)) , INTENT(IN) :: domain_hdl … … 119 119 INTEGER , OPTIONAL, INTENT(IN) :: zoom_nj 120 120 INTEGER , OPTIONAL, INTENT(IN) :: zoom_nj_loc 121 121 122 122 CALL xios(set_domain_attr_hdl_) & 123 123 ( domain_hdl, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin & … … 126 126 , type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc, zoom_ni, zoom_ni_loc, zoom_nj & 127 127 , zoom_nj_loc ) 128 128 129 129 END SUBROUTINE xios(set_domain_attr_hdl) 130 130 131 131 SUBROUTINE xios(set_domain_attr_hdl_) & 132 132 ( domain_hdl, bounds_lat_, bounds_lon_, data_dim_, data_i_index_, data_ibegin_, data_j_index_ & … … 135 135 , ni_glo_, nj_, nj_glo_, nvertex_, standard_name_, type_, zoom_ibegin_, zoom_ibegin_loc_, zoom_jbegin_ & 136 136 , zoom_jbegin_loc_, zoom_ni_, zoom_ni_loc_, zoom_nj_, zoom_nj_loc_ ) 137 137 138 138 IMPLICIT NONE 139 139 TYPE(txios(domain)) , INTENT(IN) :: domain_hdl … … 177 177 INTEGER , OPTIONAL, INTENT(IN) :: zoom_nj_ 178 178 INTEGER , OPTIONAL, INTENT(IN) :: zoom_nj_loc_ 179 179 180 180 IF (PRESENT(bounds_lat_)) THEN 181 CALL cxios_set_domain_bounds_lat(domain_hdl%daddr, bounds_lat_, size(bounds_lat_,1),size(bounds_lat_,2))182 ENDIF 183 181 CALL cxios_set_domain_bounds_lat(domain_hdl%daddr, bounds_lat_, size(bounds_lat_,1), size(bounds_lat_,2)) 182 ENDIF 183 184 184 IF (PRESENT(bounds_lon_)) THEN 185 CALL cxios_set_domain_bounds_lon(domain_hdl%daddr, bounds_lon_, size(bounds_lon_,1),size(bounds_lon_,2))186 ENDIF 187 185 CALL cxios_set_domain_bounds_lon(domain_hdl%daddr, bounds_lon_, size(bounds_lon_,1), size(bounds_lon_,2)) 186 ENDIF 187 188 188 IF (PRESENT(data_dim_)) THEN 189 189 CALL cxios_set_domain_data_dim(domain_hdl%daddr, data_dim_) 190 190 ENDIF 191 191 192 192 IF (PRESENT(data_i_index_)) THEN 193 CALL cxios_set_domain_data_i_index(domain_hdl%daddr, data_i_index_, size(data_i_index_,1))194 ENDIF 195 193 CALL cxios_set_domain_data_i_index(domain_hdl%daddr, data_i_index_, size(data_i_index_,1)) 194 ENDIF 195 196 196 IF (PRESENT(data_ibegin_)) THEN 197 197 CALL cxios_set_domain_data_ibegin(domain_hdl%daddr, data_ibegin_) 198 198 ENDIF 199 199 200 200 IF (PRESENT(data_j_index_)) THEN 201 CALL cxios_set_domain_data_j_index(domain_hdl%daddr, data_j_index_, size(data_j_index_,1))202 ENDIF 203 201 CALL cxios_set_domain_data_j_index(domain_hdl%daddr, data_j_index_, size(data_j_index_,1)) 202 ENDIF 203 204 204 IF (PRESENT(data_jbegin_)) THEN 205 205 CALL cxios_set_domain_data_jbegin(domain_hdl%daddr, data_jbegin_) 206 206 ENDIF 207 207 208 208 IF (PRESENT(data_n_index_)) THEN 209 209 CALL cxios_set_domain_data_n_index(domain_hdl%daddr, data_n_index_) 210 210 ENDIF 211 211 212 212 IF (PRESENT(data_ni_)) THEN 213 213 CALL cxios_set_domain_data_ni(domain_hdl%daddr, data_ni_) 214 214 ENDIF 215 215 216 216 IF (PRESENT(data_nj_)) THEN 217 217 CALL cxios_set_domain_data_nj(domain_hdl%daddr, data_nj_) 218 218 ENDIF 219 219 220 220 IF (PRESENT(domain_group_ref_)) THEN 221 221 CALL cxios_set_domain_domain_group_ref(domain_hdl%daddr, domain_group_ref_, len(domain_group_ref_)) 222 222 ENDIF 223 223 224 224 IF (PRESENT(domain_ref_)) THEN 225 225 CALL cxios_set_domain_domain_ref(domain_hdl%daddr, domain_ref_, len(domain_ref_)) 226 226 ENDIF 227 227 228 228 IF (PRESENT(i_index_)) THEN 229 CALL cxios_set_domain_i_index(domain_hdl%daddr, i_index_, size(i_index_,1),size(i_index_,2))230 ENDIF 231 229 CALL cxios_set_domain_i_index(domain_hdl%daddr, i_index_, size(i_index_,1), size(i_index_,2)) 230 ENDIF 231 232 232 IF (PRESENT(ibegin_)) THEN 233 233 CALL cxios_set_domain_ibegin(domain_hdl%daddr, ibegin_) 234 234 ENDIF 235 235 236 236 IF (PRESENT(iend_)) THEN 237 237 CALL cxios_set_domain_iend(domain_hdl%daddr, iend_) 238 238 ENDIF 239 239 240 240 IF (PRESENT(j_index_)) THEN 241 CALL cxios_set_domain_j_index(domain_hdl%daddr, j_index_, size(j_index_,1),size(j_index_,2))242 ENDIF 243 241 CALL cxios_set_domain_j_index(domain_hdl%daddr, j_index_, size(j_index_,1), size(j_index_,2)) 242 ENDIF 243 244 244 IF (PRESENT(jbegin_)) THEN 245 245 CALL cxios_set_domain_jbegin(domain_hdl%daddr, jbegin_) 246 246 ENDIF 247 247 248 248 IF (PRESENT(jend_)) THEN 249 249 CALL cxios_set_domain_jend(domain_hdl%daddr, jend_) 250 250 ENDIF 251 251 252 252 IF (PRESENT(latvalue_)) THEN 253 CALL cxios_set_domain_latvalue(domain_hdl%daddr, latvalue_, size(latvalue_,1))254 ENDIF 255 253 CALL cxios_set_domain_latvalue(domain_hdl%daddr, latvalue_, size(latvalue_,1)) 254 ENDIF 255 256 256 IF (PRESENT(long_name_)) THEN 257 257 CALL cxios_set_domain_long_name(domain_hdl%daddr, long_name_, len(long_name_)) 258 258 ENDIF 259 259 260 260 IF (PRESENT(lonvalue_)) THEN 261 CALL cxios_set_domain_lonvalue(domain_hdl%daddr, lonvalue_, size(lonvalue_,1))262 ENDIF 263 261 CALL cxios_set_domain_lonvalue(domain_hdl%daddr, lonvalue_, size(lonvalue_,1)) 262 ENDIF 263 264 264 IF (PRESENT(mask_)) THEN 265 ALLOCATE(mask__tmp(size(mask_,1), size(mask_,2)))266 mask__tmp =mask_267 CALL cxios_set_domain_mask(domain_hdl%daddr, mask__tmp, size(mask_,1),size(mask_,2))268 ENDIF 269 265 ALLOCATE(mask__tmp(size(mask_,1), size(mask_,2))) 266 mask__tmp = mask_ 267 CALL cxios_set_domain_mask(domain_hdl%daddr, mask__tmp, size(mask_,1), size(mask_,2)) 268 ENDIF 269 270 270 IF (PRESENT(name_)) THEN 271 271 CALL cxios_set_domain_name(domain_hdl%daddr, name_, len(name_)) 272 272 ENDIF 273 273 274 274 IF (PRESENT(ni_)) THEN 275 275 CALL cxios_set_domain_ni(domain_hdl%daddr, ni_) 276 276 ENDIF 277 277 278 278 IF (PRESENT(ni_glo_)) THEN 279 279 CALL cxios_set_domain_ni_glo(domain_hdl%daddr, ni_glo_) 280 280 ENDIF 281 281 282 282 IF (PRESENT(nj_)) THEN 283 283 CALL cxios_set_domain_nj(domain_hdl%daddr, nj_) 284 284 ENDIF 285 285 286 286 IF (PRESENT(nj_glo_)) THEN 287 287 CALL cxios_set_domain_nj_glo(domain_hdl%daddr, nj_glo_) 288 288 ENDIF 289 289 290 290 IF (PRESENT(nvertex_)) THEN 291 291 CALL cxios_set_domain_nvertex(domain_hdl%daddr, nvertex_) 292 292 ENDIF 293 293 294 294 IF (PRESENT(standard_name_)) THEN 295 295 CALL cxios_set_domain_standard_name(domain_hdl%daddr, standard_name_, len(standard_name_)) 296 296 ENDIF 297 297 298 298 IF (PRESENT(type_)) THEN 299 299 CALL cxios_set_domain_type(domain_hdl%daddr, type_, len(type_)) 300 300 ENDIF 301 301 302 302 IF (PRESENT(zoom_ibegin_)) THEN 303 303 CALL cxios_set_domain_zoom_ibegin(domain_hdl%daddr, zoom_ibegin_) 304 304 ENDIF 305 305 306 306 IF (PRESENT(zoom_ibegin_loc_)) THEN 307 307 CALL cxios_set_domain_zoom_ibegin_loc(domain_hdl%daddr, zoom_ibegin_loc_) 308 308 ENDIF 309 309 310 310 IF (PRESENT(zoom_jbegin_)) THEN 311 311 CALL cxios_set_domain_zoom_jbegin(domain_hdl%daddr, zoom_jbegin_) 312 312 ENDIF 313 313 314 314 IF (PRESENT(zoom_jbegin_loc_)) THEN 315 315 CALL cxios_set_domain_zoom_jbegin_loc(domain_hdl%daddr, zoom_jbegin_loc_) 316 316 ENDIF 317 317 318 318 IF (PRESENT(zoom_ni_)) THEN 319 319 CALL cxios_set_domain_zoom_ni(domain_hdl%daddr, zoom_ni_) 320 320 ENDIF 321 321 322 322 IF (PRESENT(zoom_ni_loc_)) THEN 323 323 CALL cxios_set_domain_zoom_ni_loc(domain_hdl%daddr, zoom_ni_loc_) 324 324 ENDIF 325 325 326 326 IF (PRESENT(zoom_nj_)) THEN 327 327 CALL cxios_set_domain_zoom_nj(domain_hdl%daddr, zoom_nj_) 328 328 ENDIF 329 329 330 330 IF (PRESENT(zoom_nj_loc_)) THEN 331 331 CALL cxios_set_domain_zoom_nj_loc(domain_hdl%daddr, zoom_nj_loc_) 332 332 ENDIF 333 334 335 333 336 334 END SUBROUTINE xios(set_domain_attr_hdl_) 337 335 338 336 SUBROUTINE xios(get_domain_attr) & 339 337 ( domain_id, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin & … … 342 340 , type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc, zoom_ni, zoom_ni_loc, zoom_nj & 343 341 , zoom_nj_loc ) 344 342 345 343 IMPLICIT NONE 346 344 TYPE(txios(domain)) :: domain_hdl … … 385 383 INTEGER , OPTIONAL, INTENT(OUT) :: zoom_nj 386 384 INTEGER , OPTIONAL, INTENT(OUT) :: zoom_nj_loc 387 385 388 386 CALL xios(get_domain_handle)(domain_id,domain_hdl) 389 387 CALL xios(get_domain_attr_hdl_) & … … 393 391 , type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc, zoom_ni, zoom_ni_loc, zoom_nj & 394 392 , zoom_nj_loc ) 395 393 396 394 END SUBROUTINE xios(get_domain_attr) 397 395 398 396 SUBROUTINE xios(get_domain_attr_hdl) & 399 397 ( domain_hdl, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin & … … 402 400 , type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc, zoom_ni, zoom_ni_loc, zoom_nj & 403 401 , zoom_nj_loc ) 404 402 405 403 IMPLICIT NONE 406 404 TYPE(txios(domain)) , INTENT(IN) :: domain_hdl … … 444 442 INTEGER , OPTIONAL, INTENT(OUT) :: zoom_nj 445 443 INTEGER , OPTIONAL, INTENT(OUT) :: zoom_nj_loc 446 444 447 445 CALL xios(get_domain_attr_hdl_) & 448 446 ( domain_hdl, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin & … … 451 449 , type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc, zoom_ni, zoom_ni_loc, zoom_nj & 452 450 , zoom_nj_loc ) 453 451 454 452 END SUBROUTINE xios(get_domain_attr_hdl) 455 453 456 454 SUBROUTINE xios(get_domain_attr_hdl_) & 457 455 ( domain_hdl, bounds_lat_, bounds_lon_, data_dim_, data_i_index_, data_ibegin_, data_j_index_ & … … 460 458 , ni_glo_, nj_, nj_glo_, nvertex_, standard_name_, type_, zoom_ibegin_, zoom_ibegin_loc_, zoom_jbegin_ & 461 459 , zoom_jbegin_loc_, zoom_ni_, zoom_ni_loc_, zoom_nj_, zoom_nj_loc_ ) 462 460 463 461 IMPLICIT NONE 464 462 TYPE(txios(domain)) , INTENT(IN) :: domain_hdl … … 502 500 INTEGER , OPTIONAL, INTENT(OUT) :: zoom_nj_ 503 501 INTEGER , OPTIONAL, INTENT(OUT) :: zoom_nj_loc_ 504 502 505 503 IF (PRESENT(bounds_lat_)) THEN 506 CALL cxios_get_domain_bounds_lat(domain_hdl%daddr, bounds_lat_, size(bounds_lat_,1),size(bounds_lat_,2))507 ENDIF 508 504 CALL cxios_get_domain_bounds_lat(domain_hdl%daddr, bounds_lat_, size(bounds_lat_,1), size(bounds_lat_,2)) 505 ENDIF 506 509 507 IF (PRESENT(bounds_lon_)) THEN 510 CALL cxios_get_domain_bounds_lon(domain_hdl%daddr, bounds_lon_, size(bounds_lon_,1),size(bounds_lon_,2))511 ENDIF 512 508 CALL cxios_get_domain_bounds_lon(domain_hdl%daddr, bounds_lon_, size(bounds_lon_,1), size(bounds_lon_,2)) 509 ENDIF 510 513 511 IF (PRESENT(data_dim_)) THEN 514 512 CALL cxios_get_domain_data_dim(domain_hdl%daddr, data_dim_) 515 513 ENDIF 516 514 517 515 IF (PRESENT(data_i_index_)) THEN 518 CALL cxios_get_domain_data_i_index(domain_hdl%daddr, data_i_index_, size(data_i_index_,1))519 ENDIF 520 516 CALL cxios_get_domain_data_i_index(domain_hdl%daddr, data_i_index_, size(data_i_index_,1)) 517 ENDIF 518 521 519 IF (PRESENT(data_ibegin_)) THEN 522 520 CALL cxios_get_domain_data_ibegin(domain_hdl%daddr, data_ibegin_) 523 521 ENDIF 524 522 525 523 IF (PRESENT(data_j_index_)) THEN 526 CALL cxios_get_domain_data_j_index(domain_hdl%daddr, data_j_index_, size(data_j_index_,1))527 ENDIF 528 524 CALL cxios_get_domain_data_j_index(domain_hdl%daddr, data_j_index_, size(data_j_index_,1)) 525 ENDIF 526 529 527 IF (PRESENT(data_jbegin_)) THEN 530 528 CALL cxios_get_domain_data_jbegin(domain_hdl%daddr, data_jbegin_) 531 529 ENDIF 532 530 533 531 IF (PRESENT(data_n_index_)) THEN 534 532 CALL cxios_get_domain_data_n_index(domain_hdl%daddr, data_n_index_) 535 533 ENDIF 536 534 537 535 IF (PRESENT(data_ni_)) THEN 538 536 CALL cxios_get_domain_data_ni(domain_hdl%daddr, data_ni_) 539 537 ENDIF 540 538 541 539 IF (PRESENT(data_nj_)) THEN 542 540 CALL cxios_get_domain_data_nj(domain_hdl%daddr, data_nj_) 543 541 ENDIF 544 542 545 543 IF (PRESENT(domain_group_ref_)) THEN 546 544 CALL cxios_get_domain_domain_group_ref(domain_hdl%daddr, domain_group_ref_, len(domain_group_ref_)) 547 545 ENDIF 548 546 549 547 IF (PRESENT(domain_ref_)) THEN 550 548 CALL cxios_get_domain_domain_ref(domain_hdl%daddr, domain_ref_, len(domain_ref_)) 551 549 ENDIF 552 550 553 551 IF (PRESENT(i_index_)) THEN 554 CALL cxios_get_domain_i_index(domain_hdl%daddr, i_index_, size(i_index_,1),size(i_index_,2))555 ENDIF 556 552 CALL cxios_get_domain_i_index(domain_hdl%daddr, i_index_, size(i_index_,1), size(i_index_,2)) 553 ENDIF 554 557 555 IF (PRESENT(ibegin_)) THEN 558 556 CALL cxios_get_domain_ibegin(domain_hdl%daddr, ibegin_) 559 557 ENDIF 560 558 561 559 IF (PRESENT(iend_)) THEN 562 560 CALL cxios_get_domain_iend(domain_hdl%daddr, iend_) 563 561 ENDIF 564 562 565 563 IF (PRESENT(j_index_)) THEN 566 CALL cxios_get_domain_j_index(domain_hdl%daddr, j_index_, size(j_index_,1),size(j_index_,2))567 ENDIF 568 564 CALL cxios_get_domain_j_index(domain_hdl%daddr, j_index_, size(j_index_,1), size(j_index_,2)) 565 ENDIF 566 569 567 IF (PRESENT(jbegin_)) THEN 570 568 CALL cxios_get_domain_jbegin(domain_hdl%daddr, jbegin_) 571 569 ENDIF 572 570 573 571 IF (PRESENT(jend_)) THEN 574 572 CALL cxios_get_domain_jend(domain_hdl%daddr, jend_) 575 573 ENDIF 576 574 577 575 IF (PRESENT(latvalue_)) THEN 578 CALL cxios_get_domain_latvalue(domain_hdl%daddr, latvalue_, size(latvalue_,1))579 ENDIF 580 576 CALL cxios_get_domain_latvalue(domain_hdl%daddr, latvalue_, size(latvalue_,1)) 577 ENDIF 578 581 579 IF (PRESENT(long_name_)) THEN 582 580 CALL cxios_get_domain_long_name(domain_hdl%daddr, long_name_, len(long_name_)) 583 581 ENDIF 584 582 585 583 IF (PRESENT(lonvalue_)) THEN 586 CALL cxios_get_domain_lonvalue(domain_hdl%daddr, lonvalue_, size(lonvalue_,1))587 ENDIF 588 584 CALL cxios_get_domain_lonvalue(domain_hdl%daddr, lonvalue_, size(lonvalue_,1)) 585 ENDIF 586 589 587 IF (PRESENT(mask_)) THEN 590 ALLOCATE(mask__tmp(size(mask_,1), size(mask_,2)))591 CALL cxios_get_domain_mask(domain_hdl%daddr, mask__tmp, size(mask_,1),size(mask_,2))592 mask_ =mask__tmp593 ENDIF 594 588 ALLOCATE(mask__tmp(size(mask_,1), size(mask_,2))) 589 CALL cxios_get_domain_mask(domain_hdl%daddr, mask__tmp, size(mask_,1), size(mask_,2)) 590 mask_ = mask__tmp 591 ENDIF 592 595 593 IF (PRESENT(name_)) THEN 596 594 CALL cxios_get_domain_name(domain_hdl%daddr, name_, len(name_)) 597 595 ENDIF 598 596 599 597 IF (PRESENT(ni_)) THEN 600 598 CALL cxios_get_domain_ni(domain_hdl%daddr, ni_) 601 599 ENDIF 602 600 603 601 IF (PRESENT(ni_glo_)) THEN 604 602 CALL cxios_get_domain_ni_glo(domain_hdl%daddr, ni_glo_) 605 603 ENDIF 606 604 607 605 IF (PRESENT(nj_)) THEN 608 606 CALL cxios_get_domain_nj(domain_hdl%daddr, nj_) 609 607 ENDIF 610 608 611 609 IF (PRESENT(nj_glo_)) THEN 612 610 CALL cxios_get_domain_nj_glo(domain_hdl%daddr, nj_glo_) 613 611 ENDIF 614 612 615 613 IF (PRESENT(nvertex_)) THEN 616 614 CALL cxios_get_domain_nvertex(domain_hdl%daddr, nvertex_) 617 615 ENDIF 618 616 619 617 IF (PRESENT(standard_name_)) THEN 620 618 CALL cxios_get_domain_standard_name(domain_hdl%daddr, standard_name_, len(standard_name_)) 621 619 ENDIF 622 620 623 621 IF (PRESENT(type_)) THEN 624 622 CALL cxios_get_domain_type(domain_hdl%daddr, type_, len(type_)) 625 623 ENDIF 626 624 627 625 IF (PRESENT(zoom_ibegin_)) THEN 628 626 CALL cxios_get_domain_zoom_ibegin(domain_hdl%daddr, zoom_ibegin_) 629 627 ENDIF 630 628 631 629 IF (PRESENT(zoom_ibegin_loc_)) THEN 632 630 CALL cxios_get_domain_zoom_ibegin_loc(domain_hdl%daddr, zoom_ibegin_loc_) 633 631 ENDIF 634 632 635 633 IF (PRESENT(zoom_jbegin_)) THEN 636 634 CALL cxios_get_domain_zoom_jbegin(domain_hdl%daddr, zoom_jbegin_) 637 635 ENDIF 638 636 639 637 IF (PRESENT(zoom_jbegin_loc_)) THEN 640 638 CALL cxios_get_domain_zoom_jbegin_loc(domain_hdl%daddr, zoom_jbegin_loc_) 641 639 ENDIF 642 640 643 641 IF (PRESENT(zoom_ni_)) THEN 644 642 CALL cxios_get_domain_zoom_ni(domain_hdl%daddr, zoom_ni_) 645 643 ENDIF 646 644 647 645 IF (PRESENT(zoom_ni_loc_)) THEN 648 646 CALL cxios_get_domain_zoom_ni_loc(domain_hdl%daddr, zoom_ni_loc_) 649 647 ENDIF 650 648 651 649 IF (PRESENT(zoom_nj_)) THEN 652 650 CALL cxios_get_domain_zoom_nj(domain_hdl%daddr, zoom_nj_) 653 651 ENDIF 654 652 655 653 IF (PRESENT(zoom_nj_loc_)) THEN 656 654 CALL cxios_get_domain_zoom_nj_loc(domain_hdl%daddr, zoom_nj_loc_) 657 655 ENDIF 658 659 660 656 661 657 END SUBROUTINE xios(get_domain_attr_hdl_) 662 658 663 659 SUBROUTINE xios(is_defined_domain_attr) & 664 660 ( domain_id, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin & … … 667 663 , type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc, zoom_ni, zoom_ni_loc, zoom_nj & 668 664 , zoom_nj_loc ) 669 665 670 666 IMPLICIT NONE 671 667 TYPE(txios(domain)) :: domain_hdl … … 747 743 LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_nj_loc 748 744 LOGICAL(KIND=C_BOOL) :: zoom_nj_loc_tmp 749 745 750 746 CALL xios(get_domain_handle)(domain_id,domain_hdl) 751 747 CALL xios(is_defined_domain_attr_hdl_) & … … 755 751 , type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc, zoom_ni, zoom_ni_loc, zoom_nj & 756 752 , zoom_nj_loc ) 757 753 758 754 END SUBROUTINE xios(is_defined_domain_attr) 759 755 760 756 SUBROUTINE xios(is_defined_domain_attr_hdl) & 761 757 ( domain_hdl, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin & … … 764 760 , type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc, zoom_ni, zoom_ni_loc, zoom_nj & 765 761 , zoom_nj_loc ) 766 762 767 763 IMPLICIT NONE 768 764 TYPE(txios(domain)) , INTENT(IN) :: domain_hdl … … 843 839 LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_nj_loc 844 840 LOGICAL(KIND=C_BOOL) :: zoom_nj_loc_tmp 845 841 846 842 CALL xios(is_defined_domain_attr_hdl_) & 847 843 ( domain_hdl, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin & … … 850 846 , type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc, zoom_ni, zoom_ni_loc, zoom_nj & 851 847 , zoom_nj_loc ) 852 848 853 849 END SUBROUTINE xios(is_defined_domain_attr_hdl) 854 850 855 851 SUBROUTINE xios(is_defined_domain_attr_hdl_) & 856 852 ( domain_hdl, bounds_lat_, bounds_lon_, data_dim_, data_i_index_, data_ibegin_, data_j_index_ & … … 859 855 , ni_glo_, nj_, nj_glo_, nvertex_, standard_name_, type_, zoom_ibegin_, zoom_ibegin_loc_, zoom_jbegin_ & 860 856 , zoom_jbegin_loc_, zoom_ni_, zoom_ni_loc_, zoom_nj_, zoom_nj_loc_ ) 861 857 862 858 IMPLICIT NONE 863 859 TYPE(txios(domain)) , INTENT(IN) :: domain_hdl … … 938 934 LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_nj_loc_ 939 935 LOGICAL(KIND=C_BOOL) :: zoom_nj_loc__tmp 940 936 941 937 IF (PRESENT(bounds_lat_)) THEN 942 bounds_lat__tmp =cxios_is_defined_domain_bounds_lat(domain_hdl%daddr)943 bounds_lat_ =bounds_lat__tmp944 ENDIF 945 938 bounds_lat__tmp = cxios_is_defined_domain_bounds_lat(domain_hdl%daddr) 939 bounds_lat_ = bounds_lat__tmp 940 ENDIF 941 946 942 IF (PRESENT(bounds_lon_)) THEN 947 bounds_lon__tmp =cxios_is_defined_domain_bounds_lon(domain_hdl%daddr)948 bounds_lon_ =bounds_lon__tmp949 ENDIF 950 943 bounds_lon__tmp = cxios_is_defined_domain_bounds_lon(domain_hdl%daddr) 944 bounds_lon_ = bounds_lon__tmp 945 ENDIF 946 951 947 IF (PRESENT(data_dim_)) THEN 952 data_dim__tmp =cxios_is_defined_domain_data_dim(domain_hdl%daddr)953 data_dim_ =data_dim__tmp954 ENDIF 955 948 data_dim__tmp = cxios_is_defined_domain_data_dim(domain_hdl%daddr) 949 data_dim_ = data_dim__tmp 950 ENDIF 951 956 952 IF (PRESENT(data_i_index_)) THEN 957 data_i_index__tmp =cxios_is_defined_domain_data_i_index(domain_hdl%daddr)958 data_i_index_ =data_i_index__tmp959 ENDIF 960 953 data_i_index__tmp = cxios_is_defined_domain_data_i_index(domain_hdl%daddr) 954 data_i_index_ = data_i_index__tmp 955 ENDIF 956 961 957 IF (PRESENT(data_ibegin_)) THEN 962 data_ibegin__tmp =cxios_is_defined_domain_data_ibegin(domain_hdl%daddr)963 data_ibegin_ =data_ibegin__tmp964 ENDIF 965 958 data_ibegin__tmp = cxios_is_defined_domain_data_ibegin(domain_hdl%daddr) 959 data_ibegin_ = data_ibegin__tmp 960 ENDIF 961 966 962 IF (PRESENT(data_j_index_)) THEN 967 data_j_index__tmp =cxios_is_defined_domain_data_j_index(domain_hdl%daddr)968 data_j_index_ =data_j_index__tmp969 ENDIF 970 963 data_j_index__tmp = cxios_is_defined_domain_data_j_index(domain_hdl%daddr) 964 data_j_index_ = data_j_index__tmp 965 ENDIF 966 971 967 IF (PRESENT(data_jbegin_)) THEN 972 data_jbegin__tmp =cxios_is_defined_domain_data_jbegin(domain_hdl%daddr)973 data_jbegin_ =data_jbegin__tmp974 ENDIF 975 968 data_jbegin__tmp = cxios_is_defined_domain_data_jbegin(domain_hdl%daddr) 969 data_jbegin_ = data_jbegin__tmp 970 ENDIF 971 976 972 IF (PRESENT(data_n_index_)) THEN 977 data_n_index__tmp =cxios_is_defined_domain_data_n_index(domain_hdl%daddr)978 data_n_index_ =data_n_index__tmp979 ENDIF 980 973 data_n_index__tmp = cxios_is_defined_domain_data_n_index(domain_hdl%daddr) 974 data_n_index_ = data_n_index__tmp 975 ENDIF 976 981 977 IF (PRESENT(data_ni_)) THEN 982 data_ni__tmp =cxios_is_defined_domain_data_ni(domain_hdl%daddr)983 data_ni_ =data_ni__tmp984 ENDIF 985 978 data_ni__tmp = cxios_is_defined_domain_data_ni(domain_hdl%daddr) 979 data_ni_ = data_ni__tmp 980 ENDIF 981 986 982 IF (PRESENT(data_nj_)) THEN 987 data_nj__tmp =cxios_is_defined_domain_data_nj(domain_hdl%daddr)988 data_nj_ =data_nj__tmp989 ENDIF 990 983 data_nj__tmp = cxios_is_defined_domain_data_nj(domain_hdl%daddr) 984 data_nj_ = data_nj__tmp 985 ENDIF 986 991 987 IF (PRESENT(domain_group_ref_)) THEN 992 domain_group_ref__tmp =cxios_is_defined_domain_domain_group_ref(domain_hdl%daddr)993 domain_group_ref_ =domain_group_ref__tmp994 ENDIF 995 988 domain_group_ref__tmp = cxios_is_defined_domain_domain_group_ref(domain_hdl%daddr) 989 domain_group_ref_ = domain_group_ref__tmp 990 ENDIF 991 996 992 IF (PRESENT(domain_ref_)) THEN 997 domain_ref__tmp =cxios_is_defined_domain_domain_ref(domain_hdl%daddr)998 domain_ref_ =domain_ref__tmp999 ENDIF 1000 993 domain_ref__tmp = cxios_is_defined_domain_domain_ref(domain_hdl%daddr) 994 domain_ref_ = domain_ref__tmp 995 ENDIF 996 1001 997 IF (PRESENT(i_index_)) THEN 1002 i_index__tmp =cxios_is_defined_domain_i_index(domain_hdl%daddr)1003 i_index_ =i_index__tmp1004 ENDIF 1005 998 i_index__tmp = cxios_is_defined_domain_i_index(domain_hdl%daddr) 999 i_index_ = i_index__tmp 1000 ENDIF 1001 1006 1002 IF (PRESENT(ibegin_)) THEN 1007 ibegin__tmp =cxios_is_defined_domain_ibegin(domain_hdl%daddr)1008 ibegin_ =ibegin__tmp1009 ENDIF 1010 1003 ibegin__tmp = cxios_is_defined_domain_ibegin(domain_hdl%daddr) 1004 ibegin_ = ibegin__tmp 1005 ENDIF 1006 1011 1007 IF (PRESENT(iend_)) THEN 1012 iend__tmp =cxios_is_defined_domain_iend(domain_hdl%daddr)1013 iend_ =iend__tmp1014 ENDIF 1015 1008 iend__tmp = cxios_is_defined_domain_iend(domain_hdl%daddr) 1009 iend_ = iend__tmp 1010 ENDIF 1011 1016 1012 IF (PRESENT(j_index_)) THEN 1017 j_index__tmp =cxios_is_defined_domain_j_index(domain_hdl%daddr)1018 j_index_ =j_index__tmp1019 ENDIF 1020 1013 j_index__tmp = cxios_is_defined_domain_j_index(domain_hdl%daddr) 1014 j_index_ = j_index__tmp 1015 ENDIF 1016 1021 1017 IF (PRESENT(jbegin_)) THEN 1022 jbegin__tmp =cxios_is_defined_domain_jbegin(domain_hdl%daddr)1023 jbegin_ =jbegin__tmp1024 ENDIF 1025 1018 jbegin__tmp = cxios_is_defined_domain_jbegin(domain_hdl%daddr) 1019 jbegin_ = jbegin__tmp 1020 ENDIF 1021 1026 1022 IF (PRESENT(jend_)) THEN 1027 jend__tmp =cxios_is_defined_domain_jend(domain_hdl%daddr)1028 jend_ =jend__tmp1029 ENDIF 1030 1023 jend__tmp = cxios_is_defined_domain_jend(domain_hdl%daddr) 1024 jend_ = jend__tmp 1025 ENDIF 1026 1031 1027 IF (PRESENT(latvalue_)) THEN 1032 latvalue__tmp =cxios_is_defined_domain_latvalue(domain_hdl%daddr)1033 latvalue_ =latvalue__tmp1034 ENDIF 1035 1028 latvalue__tmp = cxios_is_defined_domain_latvalue(domain_hdl%daddr) 1029 latvalue_ = latvalue__tmp 1030 ENDIF 1031 1036 1032 IF (PRESENT(long_name_)) THEN 1037 long_name__tmp =cxios_is_defined_domain_long_name(domain_hdl%daddr)1038 long_name_ =long_name__tmp1039 ENDIF 1040 1033 long_name__tmp = cxios_is_defined_domain_long_name(domain_hdl%daddr) 1034 long_name_ = long_name__tmp 1035 ENDIF 1036 1041 1037 IF (PRESENT(lonvalue_)) THEN 1042 lonvalue__tmp =cxios_is_defined_domain_lonvalue(domain_hdl%daddr)1043 lonvalue_ =lonvalue__tmp1044 ENDIF 1045 1038 lonvalue__tmp = cxios_is_defined_domain_lonvalue(domain_hdl%daddr) 1039 lonvalue_ = lonvalue__tmp 1040 ENDIF 1041 1046 1042 IF (PRESENT(mask_)) THEN 1047 mask__tmp =cxios_is_defined_domain_mask(domain_hdl%daddr)1048 mask_ =mask__tmp1049 ENDIF 1050 1043 mask__tmp = cxios_is_defined_domain_mask(domain_hdl%daddr) 1044 mask_ = mask__tmp 1045 ENDIF 1046 1051 1047 IF (PRESENT(name_)) THEN 1052 name__tmp =cxios_is_defined_domain_name(domain_hdl%daddr)1053 name_ =name__tmp1054 ENDIF 1055 1048 name__tmp = cxios_is_defined_domain_name(domain_hdl%daddr) 1049 name_ = name__tmp 1050 ENDIF 1051 1056 1052 IF (PRESENT(ni_)) THEN 1057 ni__tmp =cxios_is_defined_domain_ni(domain_hdl%daddr)1058 ni_ =ni__tmp1059 ENDIF 1060 1053 ni__tmp = cxios_is_defined_domain_ni(domain_hdl%daddr) 1054 ni_ = ni__tmp 1055 ENDIF 1056 1061 1057 IF (PRESENT(ni_glo_)) THEN 1062 ni_glo__tmp =cxios_is_defined_domain_ni_glo(domain_hdl%daddr)1063 ni_glo_ =ni_glo__tmp1064 ENDIF 1065 1058 ni_glo__tmp = cxios_is_defined_domain_ni_glo(domain_hdl%daddr) 1059 ni_glo_ = ni_glo__tmp 1060 ENDIF 1061 1066 1062 IF (PRESENT(nj_)) THEN 1067 nj__tmp =cxios_is_defined_domain_nj(domain_hdl%daddr)1068 nj_ =nj__tmp1069 ENDIF 1070 1063 nj__tmp = cxios_is_defined_domain_nj(domain_hdl%daddr) 1064 nj_ = nj__tmp 1065 ENDIF 1066 1071 1067 IF (PRESENT(nj_glo_)) THEN 1072 nj_glo__tmp =cxios_is_defined_domain_nj_glo(domain_hdl%daddr)1073 nj_glo_ =nj_glo__tmp1074 ENDIF 1075 1068 nj_glo__tmp = cxios_is_defined_domain_nj_glo(domain_hdl%daddr) 1069 nj_glo_ = nj_glo__tmp 1070 ENDIF 1071 1076 1072 IF (PRESENT(nvertex_)) THEN 1077 nvertex__tmp =cxios_is_defined_domain_nvertex(domain_hdl%daddr)1078 nvertex_ =nvertex__tmp1079 ENDIF 1080 1073 nvertex__tmp = cxios_is_defined_domain_nvertex(domain_hdl%daddr) 1074 nvertex_ = nvertex__tmp 1075 ENDIF 1076 1081 1077 IF (PRESENT(standard_name_)) THEN 1082 standard_name__tmp =cxios_is_defined_domain_standard_name(domain_hdl%daddr)1083 standard_name_ =standard_name__tmp1084 ENDIF 1085 1078 standard_name__tmp = cxios_is_defined_domain_standard_name(domain_hdl%daddr) 1079 standard_name_ = standard_name__tmp 1080 ENDIF 1081 1086 1082 IF (PRESENT(type_)) THEN 1087 type__tmp =cxios_is_defined_domain_type(domain_hdl%daddr)1088 type_ =type__tmp1089 ENDIF 1090 1083 type__tmp = cxios_is_defined_domain_type(domain_hdl%daddr) 1084 type_ = type__tmp 1085 ENDIF 1086 1091 1087 IF (PRESENT(zoom_ibegin_)) THEN 1092 zoom_ibegin__tmp =cxios_is_defined_domain_zoom_ibegin(domain_hdl%daddr)1093 zoom_ibegin_ =zoom_ibegin__tmp1094 ENDIF 1095 1088 zoom_ibegin__tmp = cxios_is_defined_domain_zoom_ibegin(domain_hdl%daddr) 1089 zoom_ibegin_ = zoom_ibegin__tmp 1090 ENDIF 1091 1096 1092 IF (PRESENT(zoom_ibegin_loc_)) THEN 1097 zoom_ibegin_loc__tmp =cxios_is_defined_domain_zoom_ibegin_loc(domain_hdl%daddr)1098 zoom_ibegin_loc_ =zoom_ibegin_loc__tmp1099 ENDIF 1100 1093 zoom_ibegin_loc__tmp = cxios_is_defined_domain_zoom_ibegin_loc(domain_hdl%daddr) 1094 zoom_ibegin_loc_ = zoom_ibegin_loc__tmp 1095 ENDIF 1096 1101 1097 IF (PRESENT(zoom_jbegin_)) THEN 1102 zoom_jbegin__tmp =cxios_is_defined_domain_zoom_jbegin(domain_hdl%daddr)1103 zoom_jbegin_ =zoom_jbegin__tmp1104 ENDIF 1105 1098 zoom_jbegin__tmp = cxios_is_defined_domain_zoom_jbegin(domain_hdl%daddr) 1099 zoom_jbegin_ = zoom_jbegin__tmp 1100 ENDIF 1101 1106 1102 IF (PRESENT(zoom_jbegin_loc_)) THEN 1107 zoom_jbegin_loc__tmp =cxios_is_defined_domain_zoom_jbegin_loc(domain_hdl%daddr)1108 zoom_jbegin_loc_ =zoom_jbegin_loc__tmp1109 ENDIF 1110 1103 zoom_jbegin_loc__tmp = cxios_is_defined_domain_zoom_jbegin_loc(domain_hdl%daddr) 1104 zoom_jbegin_loc_ = zoom_jbegin_loc__tmp 1105 ENDIF 1106 1111 1107 IF (PRESENT(zoom_ni_)) THEN 1112 zoom_ni__tmp =cxios_is_defined_domain_zoom_ni(domain_hdl%daddr)1113 zoom_ni_ =zoom_ni__tmp1114 ENDIF 1115 1108 zoom_ni__tmp = cxios_is_defined_domain_zoom_ni(domain_hdl%daddr) 1109 zoom_ni_ = zoom_ni__tmp 1110 ENDIF 1111 1116 1112 IF (PRESENT(zoom_ni_loc_)) THEN 1117 zoom_ni_loc__tmp =cxios_is_defined_domain_zoom_ni_loc(domain_hdl%daddr)1118 zoom_ni_loc_ =zoom_ni_loc__tmp1119 ENDIF 1120 1113 zoom_ni_loc__tmp = cxios_is_defined_domain_zoom_ni_loc(domain_hdl%daddr) 1114 zoom_ni_loc_ = zoom_ni_loc__tmp 1115 ENDIF 1116 1121 1117 IF (PRESENT(zoom_nj_)) THEN 1122 zoom_nj__tmp =cxios_is_defined_domain_zoom_nj(domain_hdl%daddr)1123 zoom_nj_ =zoom_nj__tmp1124 ENDIF 1125 1118 zoom_nj__tmp = cxios_is_defined_domain_zoom_nj(domain_hdl%daddr) 1119 zoom_nj_ = zoom_nj__tmp 1120 ENDIF 1121 1126 1122 IF (PRESENT(zoom_nj_loc_)) THEN 1127 zoom_nj_loc__tmp=cxios_is_defined_domain_zoom_nj_loc(domain_hdl%daddr) 1128 zoom_nj_loc_=zoom_nj_loc__tmp 1129 ENDIF 1130 1131 1132 1123 zoom_nj_loc__tmp = cxios_is_defined_domain_zoom_nj_loc(domain_hdl%daddr) 1124 zoom_nj_loc_ = zoom_nj_loc__tmp 1125 ENDIF 1126 1133 1127 END SUBROUTINE xios(is_defined_domain_attr_hdl_) 1134 1128 1135 1129 END MODULE idomain_attr -
XIOS/trunk/src/interface/fortran_attr/idomaingroup_attr.F90
r546 r581 8 8 USE idomain 9 9 USE domaingroup_interface_attr 10 10 11 11 CONTAINS 12 12 13 13 SUBROUTINE xios(set_domaingroup_attr) & 14 14 ( domaingroup_id, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index & … … 17 17 , nj, nj_glo, nvertex, standard_name, type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc & 18 18 , zoom_ni, zoom_ni_loc, zoom_nj, zoom_nj_loc ) 19 19 20 20 IMPLICIT NONE 21 21 TYPE(txios(domaingroup)) :: domaingroup_hdl … … 61 61 INTEGER , OPTIONAL, INTENT(IN) :: zoom_nj 62 62 INTEGER , OPTIONAL, INTENT(IN) :: zoom_nj_loc 63 63 64 64 CALL xios(get_domaingroup_handle)(domaingroup_id,domaingroup_hdl) 65 65 CALL xios(set_domaingroup_attr_hdl_) & … … 69 69 , nj, nj_glo, nvertex, standard_name, type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc & 70 70 , zoom_ni, zoom_ni_loc, zoom_nj, zoom_nj_loc ) 71 71 72 72 END SUBROUTINE xios(set_domaingroup_attr) 73 73 74 74 SUBROUTINE xios(set_domaingroup_attr_hdl) & 75 75 ( domaingroup_hdl, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index & … … 78 78 , nj, nj_glo, nvertex, standard_name, type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc & 79 79 , zoom_ni, zoom_ni_loc, zoom_nj, zoom_nj_loc ) 80 80 81 81 IMPLICIT NONE 82 82 TYPE(txios(domaingroup)) , INTENT(IN) :: domaingroup_hdl … … 121 121 INTEGER , OPTIONAL, INTENT(IN) :: zoom_nj 122 122 INTEGER , OPTIONAL, INTENT(IN) :: zoom_nj_loc 123 123 124 124 CALL xios(set_domaingroup_attr_hdl_) & 125 125 ( domaingroup_hdl, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index & … … 128 128 , nj, nj_glo, nvertex, standard_name, type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc & 129 129 , zoom_ni, zoom_ni_loc, zoom_nj, zoom_nj_loc ) 130 130 131 131 END SUBROUTINE xios(set_domaingroup_attr_hdl) 132 132 133 133 SUBROUTINE xios(set_domaingroup_attr_hdl_) & 134 134 ( domaingroup_hdl, bounds_lat_, bounds_lon_, data_dim_, data_i_index_, data_ibegin_, data_j_index_ & … … 137 137 , name_, ni_, ni_glo_, nj_, nj_glo_, nvertex_, standard_name_, type_, zoom_ibegin_, zoom_ibegin_loc_ & 138 138 , zoom_jbegin_, zoom_jbegin_loc_, zoom_ni_, zoom_ni_loc_, zoom_nj_, zoom_nj_loc_ ) 139 139 140 140 IMPLICIT NONE 141 141 TYPE(txios(domaingroup)) , INTENT(IN) :: domaingroup_hdl … … 180 180 INTEGER , OPTIONAL, INTENT(IN) :: zoom_nj_ 181 181 INTEGER , OPTIONAL, INTENT(IN) :: zoom_nj_loc_ 182 182 183 183 IF (PRESENT(bounds_lat_)) THEN 184 CALL cxios_set_domaingroup_bounds_lat(domaingroup_hdl%daddr, bounds_lat_, size(bounds_lat_,1),size(bounds_lat_,2))185 ENDIF 186 184 CALL cxios_set_domaingroup_bounds_lat(domaingroup_hdl%daddr, bounds_lat_, size(bounds_lat_,1), size(bounds_lat_,2)) 185 ENDIF 186 187 187 IF (PRESENT(bounds_lon_)) THEN 188 CALL cxios_set_domaingroup_bounds_lon(domaingroup_hdl%daddr, bounds_lon_, size(bounds_lon_,1),size(bounds_lon_,2))189 ENDIF 190 188 CALL cxios_set_domaingroup_bounds_lon(domaingroup_hdl%daddr, bounds_lon_, size(bounds_lon_,1), size(bounds_lon_,2)) 189 ENDIF 190 191 191 IF (PRESENT(data_dim_)) THEN 192 192 CALL cxios_set_domaingroup_data_dim(domaingroup_hdl%daddr, data_dim_) 193 193 ENDIF 194 194 195 195 IF (PRESENT(data_i_index_)) THEN 196 CALL cxios_set_domaingroup_data_i_index(domaingroup_hdl%daddr, data_i_index_, size(data_i_index_,1))197 ENDIF 198 196 CALL cxios_set_domaingroup_data_i_index(domaingroup_hdl%daddr, data_i_index_, size(data_i_index_,1)) 197 ENDIF 198 199 199 IF (PRESENT(data_ibegin_)) THEN 200 200 CALL cxios_set_domaingroup_data_ibegin(domaingroup_hdl%daddr, data_ibegin_) 201 201 ENDIF 202 202 203 203 IF (PRESENT(data_j_index_)) THEN 204 CALL cxios_set_domaingroup_data_j_index(domaingroup_hdl%daddr, data_j_index_, size(data_j_index_,1))205 ENDIF 206 204 CALL cxios_set_domaingroup_data_j_index(domaingroup_hdl%daddr, data_j_index_, size(data_j_index_,1)) 205 ENDIF 206 207 207 IF (PRESENT(data_jbegin_)) THEN 208 208 CALL cxios_set_domaingroup_data_jbegin(domaingroup_hdl%daddr, data_jbegin_) 209 209 ENDIF 210 210 211 211 IF (PRESENT(data_n_index_)) THEN 212 212 CALL cxios_set_domaingroup_data_n_index(domaingroup_hdl%daddr, data_n_index_) 213 213 ENDIF 214 214 215 215 IF (PRESENT(data_ni_)) THEN 216 216 CALL cxios_set_domaingroup_data_ni(domaingroup_hdl%daddr, data_ni_) 217 217 ENDIF 218 218 219 219 IF (PRESENT(data_nj_)) THEN 220 220 CALL cxios_set_domaingroup_data_nj(domaingroup_hdl%daddr, data_nj_) 221 221 ENDIF 222 222 223 223 IF (PRESENT(domain_group_ref_)) THEN 224 224 CALL cxios_set_domaingroup_domain_group_ref(domaingroup_hdl%daddr, domain_group_ref_, len(domain_group_ref_)) 225 225 ENDIF 226 226 227 227 IF (PRESENT(domain_ref_)) THEN 228 228 CALL cxios_set_domaingroup_domain_ref(domaingroup_hdl%daddr, domain_ref_, len(domain_ref_)) 229 229 ENDIF 230 230 231 231 IF (PRESENT(group_ref_)) THEN 232 232 CALL cxios_set_domaingroup_group_ref(domaingroup_hdl%daddr, group_ref_, len(group_ref_)) 233 233 ENDIF 234 234 235 235 IF (PRESENT(i_index_)) THEN 236 CALL cxios_set_domaingroup_i_index(domaingroup_hdl%daddr, i_index_, size(i_index_,1),size(i_index_,2))237 ENDIF 238 236 CALL cxios_set_domaingroup_i_index(domaingroup_hdl%daddr, i_index_, size(i_index_,1), size(i_index_,2)) 237 ENDIF 238 239 239 IF (PRESENT(ibegin_)) THEN 240 240 CALL cxios_set_domaingroup_ibegin(domaingroup_hdl%daddr, ibegin_) 241 241 ENDIF 242 242 243 243 IF (PRESENT(iend_)) THEN 244 244 CALL cxios_set_domaingroup_iend(domaingroup_hdl%daddr, iend_) 245 245 ENDIF 246 246 247 247 IF (PRESENT(j_index_)) THEN 248 CALL cxios_set_domaingroup_j_index(domaingroup_hdl%daddr, j_index_, size(j_index_,1),size(j_index_,2))249 ENDIF 250 248 CALL cxios_set_domaingroup_j_index(domaingroup_hdl%daddr, j_index_, size(j_index_,1), size(j_index_,2)) 249 ENDIF 250 251 251 IF (PRESENT(jbegin_)) THEN 252 252 CALL cxios_set_domaingroup_jbegin(domaingroup_hdl%daddr, jbegin_) 253 253 ENDIF 254 254 255 255 IF (PRESENT(jend_)) THEN 256 256 CALL cxios_set_domaingroup_jend(domaingroup_hdl%daddr, jend_) 257 257 ENDIF 258 258 259 259 IF (PRESENT(latvalue_)) THEN 260 CALL cxios_set_domaingroup_latvalue(domaingroup_hdl%daddr, latvalue_, size(latvalue_,1))261 ENDIF 262 260 CALL cxios_set_domaingroup_latvalue(domaingroup_hdl%daddr, latvalue_, size(latvalue_,1)) 261 ENDIF 262 263 263 IF (PRESENT(long_name_)) THEN 264 264 CALL cxios_set_domaingroup_long_name(domaingroup_hdl%daddr, long_name_, len(long_name_)) 265 265 ENDIF 266 266 267 267 IF (PRESENT(lonvalue_)) THEN 268 CALL cxios_set_domaingroup_lonvalue(domaingroup_hdl%daddr, lonvalue_, size(lonvalue_,1))269 ENDIF 270 268 CALL cxios_set_domaingroup_lonvalue(domaingroup_hdl%daddr, lonvalue_, size(lonvalue_,1)) 269 ENDIF 270 271 271 IF (PRESENT(mask_)) THEN 272 ALLOCATE(mask__tmp(size(mask_,1), size(mask_,2)))273 mask__tmp =mask_274 CALL cxios_set_domaingroup_mask(domaingroup_hdl%daddr, mask__tmp, size(mask_,1),size(mask_,2))275 ENDIF 276 272 ALLOCATE(mask__tmp(size(mask_,1), size(mask_,2))) 273 mask__tmp = mask_ 274 CALL cxios_set_domaingroup_mask(domaingroup_hdl%daddr, mask__tmp, size(mask_,1), size(mask_,2)) 275 ENDIF 276 277 277 IF (PRESENT(name_)) THEN 278 278 CALL cxios_set_domaingroup_name(domaingroup_hdl%daddr, name_, len(name_)) 279 279 ENDIF 280 280 281 281 IF (PRESENT(ni_)) THEN 282 282 CALL cxios_set_domaingroup_ni(domaingroup_hdl%daddr, ni_) 283 283 ENDIF 284 284 285 285 IF (PRESENT(ni_glo_)) THEN 286 286 CALL cxios_set_domaingroup_ni_glo(domaingroup_hdl%daddr, ni_glo_) 287 287 ENDIF 288 288 289 289 IF (PRESENT(nj_)) THEN 290 290 CALL cxios_set_domaingroup_nj(domaingroup_hdl%daddr, nj_) 291 291 ENDIF 292 292 293 293 IF (PRESENT(nj_glo_)) THEN 294 294 CALL cxios_set_domaingroup_nj_glo(domaingroup_hdl%daddr, nj_glo_) 295 295 ENDIF 296 296 297 297 IF (PRESENT(nvertex_)) THEN 298 298 CALL cxios_set_domaingroup_nvertex(domaingroup_hdl%daddr, nvertex_) 299 299 ENDIF 300 300 301 301 IF (PRESENT(standard_name_)) THEN 302 302 CALL cxios_set_domaingroup_standard_name(domaingroup_hdl%daddr, standard_name_, len(standard_name_)) 303 303 ENDIF 304 304 305 305 IF (PRESENT(type_)) THEN 306 306 CALL cxios_set_domaingroup_type(domaingroup_hdl%daddr, type_, len(type_)) 307 307 ENDIF 308 308 309 309 IF (PRESENT(zoom_ibegin_)) THEN 310 310 CALL cxios_set_domaingroup_zoom_ibegin(domaingroup_hdl%daddr, zoom_ibegin_) 311 311 ENDIF 312 312 313 313 IF (PRESENT(zoom_ibegin_loc_)) THEN 314 314 CALL cxios_set_domaingroup_zoom_ibegin_loc(domaingroup_hdl%daddr, zoom_ibegin_loc_) 315 315 ENDIF 316 316 317 317 IF (PRESENT(zoom_jbegin_)) THEN 318 318 CALL cxios_set_domaingroup_zoom_jbegin(domaingroup_hdl%daddr, zoom_jbegin_) 319 319 ENDIF 320 320 321 321 IF (PRESENT(zoom_jbegin_loc_)) THEN 322 322 CALL cxios_set_domaingroup_zoom_jbegin_loc(domaingroup_hdl%daddr, zoom_jbegin_loc_) 323 323 ENDIF 324 324 325 325 IF (PRESENT(zoom_ni_)) THEN 326 326 CALL cxios_set_domaingroup_zoom_ni(domaingroup_hdl%daddr, zoom_ni_) 327 327 ENDIF 328 328 329 329 IF (PRESENT(zoom_ni_loc_)) THEN 330 330 CALL cxios_set_domaingroup_zoom_ni_loc(domaingroup_hdl%daddr, zoom_ni_loc_) 331 331 ENDIF 332 332 333 333 IF (PRESENT(zoom_nj_)) THEN 334 334 CALL cxios_set_domaingroup_zoom_nj(domaingroup_hdl%daddr, zoom_nj_) 335 335 ENDIF 336 336 337 337 IF (PRESENT(zoom_nj_loc_)) THEN 338 338 CALL cxios_set_domaingroup_zoom_nj_loc(domaingroup_hdl%daddr, zoom_nj_loc_) 339 339 ENDIF 340 341 342 340 343 341 END SUBROUTINE xios(set_domaingroup_attr_hdl_) 344 342 345 343 SUBROUTINE xios(get_domaingroup_attr) & 346 344 ( domaingroup_id, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index & … … 349 347 , nj, nj_glo, nvertex, standard_name, type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc & 350 348 , zoom_ni, zoom_ni_loc, zoom_nj, zoom_nj_loc ) 351 349 352 350 IMPLICIT NONE 353 351 TYPE(txios(domaingroup)) :: domaingroup_hdl … … 393 391 INTEGER , OPTIONAL, INTENT(OUT) :: zoom_nj 394 392 INTEGER , OPTIONAL, INTENT(OUT) :: zoom_nj_loc 395 393 396 394 CALL xios(get_domaingroup_handle)(domaingroup_id,domaingroup_hdl) 397 395 CALL xios(get_domaingroup_attr_hdl_) & … … 401 399 , nj, nj_glo, nvertex, standard_name, type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc & 402 400 , zoom_ni, zoom_ni_loc, zoom_nj, zoom_nj_loc ) 403 401 404 402 END SUBROUTINE xios(get_domaingroup_attr) 405 403 406 404 SUBROUTINE xios(get_domaingroup_attr_hdl) & 407 405 ( domaingroup_hdl, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index & … … 410 408 , nj, nj_glo, nvertex, standard_name, type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc & 411 409 , zoom_ni, zoom_ni_loc, zoom_nj, zoom_nj_loc ) 412 410 413 411 IMPLICIT NONE 414 412 TYPE(txios(domaingroup)) , INTENT(IN) :: domaingroup_hdl … … 453 451 INTEGER , OPTIONAL, INTENT(OUT) :: zoom_nj 454 452 INTEGER , OPTIONAL, INTENT(OUT) :: zoom_nj_loc 455 453 456 454 CALL xios(get_domaingroup_attr_hdl_) & 457 455 ( domaingroup_hdl, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index & … … 460 458 , nj, nj_glo, nvertex, standard_name, type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc & 461 459 , zoom_ni, zoom_ni_loc, zoom_nj, zoom_nj_loc ) 462 460 463 461 END SUBROUTINE xios(get_domaingroup_attr_hdl) 464 462 465 463 SUBROUTINE xios(get_domaingroup_attr_hdl_) & 466 464 ( domaingroup_hdl, bounds_lat_, bounds_lon_, data_dim_, data_i_index_, data_ibegin_, data_j_index_ & … … 469 467 , name_, ni_, ni_glo_, nj_, nj_glo_, nvertex_, standard_name_, type_, zoom_ibegin_, zoom_ibegin_loc_ & 470 468 , zoom_jbegin_, zoom_jbegin_loc_, zoom_ni_, zoom_ni_loc_, zoom_nj_, zoom_nj_loc_ ) 471 469 472 470 IMPLICIT NONE 473 471 TYPE(txios(domaingroup)) , INTENT(IN) :: domaingroup_hdl … … 512 510 INTEGER , OPTIONAL, INTENT(OUT) :: zoom_nj_ 513 511 INTEGER , OPTIONAL, INTENT(OUT) :: zoom_nj_loc_ 514 512 515 513 IF (PRESENT(bounds_lat_)) THEN 516 CALL cxios_get_domaingroup_bounds_lat(domaingroup_hdl%daddr, bounds_lat_, size(bounds_lat_,1),size(bounds_lat_,2))517 ENDIF 518 514 CALL cxios_get_domaingroup_bounds_lat(domaingroup_hdl%daddr, bounds_lat_, size(bounds_lat_,1), size(bounds_lat_,2)) 515 ENDIF 516 519 517 IF (PRESENT(bounds_lon_)) THEN 520 CALL cxios_get_domaingroup_bounds_lon(domaingroup_hdl%daddr, bounds_lon_, size(bounds_lon_,1),size(bounds_lon_,2))521 ENDIF 522 518 CALL cxios_get_domaingroup_bounds_lon(domaingroup_hdl%daddr, bounds_lon_, size(bounds_lon_,1), size(bounds_lon_,2)) 519 ENDIF 520 523 521 IF (PRESENT(data_dim_)) THEN 524 522 CALL cxios_get_domaingroup_data_dim(domaingroup_hdl%daddr, data_dim_) 525 523 ENDIF 526 524 527 525 IF (PRESENT(data_i_index_)) THEN 528 CALL cxios_get_domaingroup_data_i_index(domaingroup_hdl%daddr, data_i_index_, size(data_i_index_,1))529 ENDIF 530 526 CALL cxios_get_domaingroup_data_i_index(domaingroup_hdl%daddr, data_i_index_, size(data_i_index_,1)) 527 ENDIF 528 531 529 IF (PRESENT(data_ibegin_)) THEN 532 530 CALL cxios_get_domaingroup_data_ibegin(domaingroup_hdl%daddr, data_ibegin_) 533 531 ENDIF 534 532 535 533 IF (PRESENT(data_j_index_)) THEN 536 CALL cxios_get_domaingroup_data_j_index(domaingroup_hdl%daddr, data_j_index_, size(data_j_index_,1))537 ENDIF 538 534 CALL cxios_get_domaingroup_data_j_index(domaingroup_hdl%daddr, data_j_index_, size(data_j_index_,1)) 535 ENDIF 536 539 537 IF (PRESENT(data_jbegin_)) THEN 540 538 CALL cxios_get_domaingroup_data_jbegin(domaingroup_hdl%daddr, data_jbegin_) 541 539 ENDIF 542 540 543 541 IF (PRESENT(data_n_index_)) THEN 544 542 CALL cxios_get_domaingroup_data_n_index(domaingroup_hdl%daddr, data_n_index_) 545 543 ENDIF 546 544 547 545 IF (PRESENT(data_ni_)) THEN 548 546 CALL cxios_get_domaingroup_data_ni(domaingroup_hdl%daddr, data_ni_) 549 547 ENDIF 550 548 551 549 IF (PRESENT(data_nj_)) THEN 552 550 CALL cxios_get_domaingroup_data_nj(domaingroup_hdl%daddr, data_nj_) 553 551 ENDIF 554 552 555 553 IF (PRESENT(domain_group_ref_)) THEN 556 554 CALL cxios_get_domaingroup_domain_group_ref(domaingroup_hdl%daddr, domain_group_ref_, len(domain_group_ref_)) 557 555 ENDIF 558 556 559 557 IF (PRESENT(domain_ref_)) THEN 560 558 CALL cxios_get_domaingroup_domain_ref(domaingroup_hdl%daddr, domain_ref_, len(domain_ref_)) 561 559 ENDIF 562 560 563 561 IF (PRESENT(group_ref_)) THEN 564 562 CALL cxios_get_domaingroup_group_ref(domaingroup_hdl%daddr, group_ref_, len(group_ref_)) 565 563 ENDIF 566 564 567 565 IF (PRESENT(i_index_)) THEN 568 CALL cxios_get_domaingroup_i_index(domaingroup_hdl%daddr, i_index_, size(i_index_,1),size(i_index_,2))569 ENDIF 570 566 CALL cxios_get_domaingroup_i_index(domaingroup_hdl%daddr, i_index_, size(i_index_,1), size(i_index_,2)) 567 ENDIF 568 571 569 IF (PRESENT(ibegin_)) THEN 572 570 CALL cxios_get_domaingroup_ibegin(domaingroup_hdl%daddr, ibegin_) 573 571 ENDIF 574 572 575 573 IF (PRESENT(iend_)) THEN 576 574 CALL cxios_get_domaingroup_iend(domaingroup_hdl%daddr, iend_) 577 575 ENDIF 578 576 579 577 IF (PRESENT(j_index_)) THEN 580 CALL cxios_get_domaingroup_j_index(domaingroup_hdl%daddr, j_index_, size(j_index_,1),size(j_index_,2))581 ENDIF 582 578 CALL cxios_get_domaingroup_j_index(domaingroup_hdl%daddr, j_index_, size(j_index_,1), size(j_index_,2)) 579 ENDIF 580 583 581 IF (PRESENT(jbegin_)) THEN 584 582 CALL cxios_get_domaingroup_jbegin(domaingroup_hdl%daddr, jbegin_) 585 583 ENDIF 586 584 587 585 IF (PRESENT(jend_)) THEN 588 586 CALL cxios_get_domaingroup_jend(domaingroup_hdl%daddr, jend_) 589 587 ENDIF 590 588 591 589 IF (PRESENT(latvalue_)) THEN 592 CALL cxios_get_domaingroup_latvalue(domaingroup_hdl%daddr, latvalue_, size(latvalue_,1))593 ENDIF 594 590 CALL cxios_get_domaingroup_latvalue(domaingroup_hdl%daddr, latvalue_, size(latvalue_,1)) 591 ENDIF 592 595 593 IF (PRESENT(long_name_)) THEN 596 594 CALL cxios_get_domaingroup_long_name(domaingroup_hdl%daddr, long_name_, len(long_name_)) 597 595 ENDIF 598 596 599 597 IF (PRESENT(lonvalue_)) THEN 600 CALL cxios_get_domaingroup_lonvalue(domaingroup_hdl%daddr, lonvalue_, size(lonvalue_,1))601 ENDIF 602 598 CALL cxios_get_domaingroup_lonvalue(domaingroup_hdl%daddr, lonvalue_, size(lonvalue_,1)) 599 ENDIF 600 603 601 IF (PRESENT(mask_)) THEN 604 ALLOCATE(mask__tmp(size(mask_,1), size(mask_,2)))605 CALL cxios_get_domaingroup_mask(domaingroup_hdl%daddr, mask__tmp, size(mask_,1),size(mask_,2))606 mask_ =mask__tmp607 ENDIF 608 602 ALLOCATE(mask__tmp(size(mask_,1), size(mask_,2))) 603 CALL cxios_get_domaingroup_mask(domaingroup_hdl%daddr, mask__tmp, size(mask_,1), size(mask_,2)) 604 mask_ = mask__tmp 605 ENDIF 606 609 607 IF (PRESENT(name_)) THEN 610 608 CALL cxios_get_domaingroup_name(domaingroup_hdl%daddr, name_, len(name_)) 611 609 ENDIF 612 610 613 611 IF (PRESENT(ni_)) THEN 614 612 CALL cxios_get_domaingroup_ni(domaingroup_hdl%daddr, ni_) 615 613 ENDIF 616 614 617 615 IF (PRESENT(ni_glo_)) THEN 618 616 CALL cxios_get_domaingroup_ni_glo(domaingroup_hdl%daddr, ni_glo_) 619 617 ENDIF 620 618 621 619 IF (PRESENT(nj_)) THEN 622 620 CALL cxios_get_domaingroup_nj(domaingroup_hdl%daddr, nj_) 623 621 ENDIF 624 622 625 623 IF (PRESENT(nj_glo_)) THEN 626 624 CALL cxios_get_domaingroup_nj_glo(domaingroup_hdl%daddr, nj_glo_) 627 625 ENDIF 628 626 629 627 IF (PRESENT(nvertex_)) THEN 630 628 CALL cxios_get_domaingroup_nvertex(domaingroup_hdl%daddr, nvertex_) 631 629 ENDIF 632 630 633 631 IF (PRESENT(standard_name_)) THEN 634 632 CALL cxios_get_domaingroup_standard_name(domaingroup_hdl%daddr, standard_name_, len(standard_name_)) 635 633 ENDIF 636 634 637 635 IF (PRESENT(type_)) THEN 638 636 CALL cxios_get_domaingroup_type(domaingroup_hdl%daddr, type_, len(type_)) 639 637 ENDIF 640 638 641 639 IF (PRESENT(zoom_ibegin_)) THEN 642 640 CALL cxios_get_domaingroup_zoom_ibegin(domaingroup_hdl%daddr, zoom_ibegin_) 643 641 ENDIF 644 642 645 643 IF (PRESENT(zoom_ibegin_loc_)) THEN 646 644 CALL cxios_get_domaingroup_zoom_ibegin_loc(domaingroup_hdl%daddr, zoom_ibegin_loc_) 647 645 ENDIF 648 646 649 647 IF (PRESENT(zoom_jbegin_)) THEN 650 648 CALL cxios_get_domaingroup_zoom_jbegin(domaingroup_hdl%daddr, zoom_jbegin_) 651 649 ENDIF 652 650 653 651 IF (PRESENT(zoom_jbegin_loc_)) THEN 654 652 CALL cxios_get_domaingroup_zoom_jbegin_loc(domaingroup_hdl%daddr, zoom_jbegin_loc_) 655 653 ENDIF 656 654 657 655 IF (PRESENT(zoom_ni_)) THEN 658 656 CALL cxios_get_domaingroup_zoom_ni(domaingroup_hdl%daddr, zoom_ni_) 659 657 ENDIF 660 658 661 659 IF (PRESENT(zoom_ni_loc_)) THEN 662 660 CALL cxios_get_domaingroup_zoom_ni_loc(domaingroup_hdl%daddr, zoom_ni_loc_) 663 661 ENDIF 664 662 665 663 IF (PRESENT(zoom_nj_)) THEN 666 664 CALL cxios_get_domaingroup_zoom_nj(domaingroup_hdl%daddr, zoom_nj_) 667 665 ENDIF 668 666 669 667 IF (PRESENT(zoom_nj_loc_)) THEN 670 668 CALL cxios_get_domaingroup_zoom_nj_loc(domaingroup_hdl%daddr, zoom_nj_loc_) 671 669 ENDIF 672 673 674 670 675 671 END SUBROUTINE xios(get_domaingroup_attr_hdl_) 676 672 677 673 SUBROUTINE xios(is_defined_domaingroup_attr) & 678 674 ( domaingroup_id, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index & … … 681 677 , nj, nj_glo, nvertex, standard_name, type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc & 682 678 , zoom_ni, zoom_ni_loc, zoom_nj, zoom_nj_loc ) 683 679 684 680 IMPLICIT NONE 685 681 TYPE(txios(domaingroup)) :: domaingroup_hdl … … 763 759 LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_nj_loc 764 760 LOGICAL(KIND=C_BOOL) :: zoom_nj_loc_tmp 765 761 766 762 CALL xios(get_domaingroup_handle)(domaingroup_id,domaingroup_hdl) 767 763 CALL xios(is_defined_domaingroup_attr_hdl_) & … … 771 767 , nj, nj_glo, nvertex, standard_name, type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc & 772 768 , zoom_ni, zoom_ni_loc, zoom_nj, zoom_nj_loc ) 773 769 774 770 END SUBROUTINE xios(is_defined_domaingroup_attr) 775 771 776 772 SUBROUTINE xios(is_defined_domaingroup_attr_hdl) & 777 773 ( domaingroup_hdl, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index & … … 780 776 , nj, nj_glo, nvertex, standard_name, type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc & 781 777 , zoom_ni, zoom_ni_loc, zoom_nj, zoom_nj_loc ) 782 778 783 779 IMPLICIT NONE 784 780 TYPE(txios(domaingroup)) , INTENT(IN) :: domaingroup_hdl … … 861 857 LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_nj_loc 862 858 LOGICAL(KIND=C_BOOL) :: zoom_nj_loc_tmp 863 859 864 860 CALL xios(is_defined_domaingroup_attr_hdl_) & 865 861 ( domaingroup_hdl, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index & … … 868 864 , nj, nj_glo, nvertex, standard_name, type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc & 869 865 , zoom_ni, zoom_ni_loc, zoom_nj, zoom_nj_loc ) 870 866 871 867 END SUBROUTINE xios(is_defined_domaingroup_attr_hdl) 872 868 873 869 SUBROUTINE xios(is_defined_domaingroup_attr_hdl_) & 874 870 ( domaingroup_hdl, bounds_lat_, bounds_lon_, data_dim_, data_i_index_, data_ibegin_, data_j_index_ & … … 877 873 , name_, ni_, ni_glo_, nj_, nj_glo_, nvertex_, standard_name_, type_, zoom_ibegin_, zoom_ibegin_loc_ & 878 874 , zoom_jbegin_, zoom_jbegin_loc_, zoom_ni_, zoom_ni_loc_, zoom_nj_, zoom_nj_loc_ ) 879 875 880 876 IMPLICIT NONE 881 877 TYPE(txios(domaingroup)) , INTENT(IN) :: domaingroup_hdl … … 958 954 LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_nj_loc_ 959 955 LOGICAL(KIND=C_BOOL) :: zoom_nj_loc__tmp 960 956 961 957 IF (PRESENT(bounds_lat_)) THEN 962 bounds_lat__tmp =cxios_is_defined_domaingroup_bounds_lat(domaingroup_hdl%daddr)963 bounds_lat_ =bounds_lat__tmp964 ENDIF 965 958 bounds_lat__tmp = cxios_is_defined_domaingroup_bounds_lat(domaingroup_hdl%daddr) 959 bounds_lat_ = bounds_lat__tmp 960 ENDIF 961 966 962 IF (PRESENT(bounds_lon_)) THEN 967 bounds_lon__tmp =cxios_is_defined_domaingroup_bounds_lon(domaingroup_hdl%daddr)968 bounds_lon_ =bounds_lon__tmp969 ENDIF 970 963 bounds_lon__tmp = cxios_is_defined_domaingroup_bounds_lon(domaingroup_hdl%daddr) 964 bounds_lon_ = bounds_lon__tmp 965 ENDIF 966 971 967 IF (PRESENT(data_dim_)) THEN 972 data_dim__tmp =cxios_is_defined_domaingroup_data_dim(domaingroup_hdl%daddr)973 data_dim_ =data_dim__tmp974 ENDIF 975 968 data_dim__tmp = cxios_is_defined_domaingroup_data_dim(domaingroup_hdl%daddr) 969 data_dim_ = data_dim__tmp 970 ENDIF 971 976 972 IF (PRESENT(data_i_index_)) THEN 977 data_i_index__tmp =cxios_is_defined_domaingroup_data_i_index(domaingroup_hdl%daddr)978 data_i_index_ =data_i_index__tmp979 ENDIF 980 973 data_i_index__tmp = cxios_is_defined_domaingroup_data_i_index(domaingroup_hdl%daddr) 974 data_i_index_ = data_i_index__tmp 975 ENDIF 976 981 977 IF (PRESENT(data_ibegin_)) THEN 982 data_ibegin__tmp =cxios_is_defined_domaingroup_data_ibegin(domaingroup_hdl%daddr)983 data_ibegin_ =data_ibegin__tmp984 ENDIF 985 978 data_ibegin__tmp = cxios_is_defined_domaingroup_data_ibegin(domaingroup_hdl%daddr) 979 data_ibegin_ = data_ibegin__tmp 980 ENDIF 981 986 982 IF (PRESENT(data_j_index_)) THEN 987 data_j_index__tmp =cxios_is_defined_domaingroup_data_j_index(domaingroup_hdl%daddr)988 data_j_index_ =data_j_index__tmp989 ENDIF 990 983 data_j_index__tmp = cxios_is_defined_domaingroup_data_j_index(domaingroup_hdl%daddr) 984 data_j_index_ = data_j_index__tmp 985 ENDIF 986 991 987 IF (PRESENT(data_jbegin_)) THEN 992 data_jbegin__tmp =cxios_is_defined_domaingroup_data_jbegin(domaingroup_hdl%daddr)993 data_jbegin_ =data_jbegin__tmp994 ENDIF 995 988 data_jbegin__tmp = cxios_is_defined_domaingroup_data_jbegin(domaingroup_hdl%daddr) 989 data_jbegin_ = data_jbegin__tmp 990 ENDIF 991 996 992 IF (PRESENT(data_n_index_)) THEN 997 data_n_index__tmp =cxios_is_defined_domaingroup_data_n_index(domaingroup_hdl%daddr)998 data_n_index_ =data_n_index__tmp999 ENDIF 1000 993 data_n_index__tmp = cxios_is_defined_domaingroup_data_n_index(domaingroup_hdl%daddr) 994 data_n_index_ = data_n_index__tmp 995 ENDIF 996 1001 997 IF (PRESENT(data_ni_)) THEN 1002 data_ni__tmp =cxios_is_defined_domaingroup_data_ni(domaingroup_hdl%daddr)1003 data_ni_ =data_ni__tmp1004 ENDIF 1005 998 data_ni__tmp = cxios_is_defined_domaingroup_data_ni(domaingroup_hdl%daddr) 999 data_ni_ = data_ni__tmp 1000 ENDIF 1001 1006 1002 IF (PRESENT(data_nj_)) THEN 1007 data_nj__tmp =cxios_is_defined_domaingroup_data_nj(domaingroup_hdl%daddr)1008 data_nj_ =data_nj__tmp1009 ENDIF 1010 1003 data_nj__tmp = cxios_is_defined_domaingroup_data_nj(domaingroup_hdl%daddr) 1004 data_nj_ = data_nj__tmp 1005 ENDIF 1006 1011 1007 IF (PRESENT(domain_group_ref_)) THEN 1012 domain_group_ref__tmp =cxios_is_defined_domaingroup_domain_group_ref(domaingroup_hdl%daddr)1013 domain_group_ref_ =domain_group_ref__tmp1014 ENDIF 1015 1008 domain_group_ref__tmp = cxios_is_defined_domaingroup_domain_group_ref(domaingroup_hdl%daddr) 1009 domain_group_ref_ = domain_group_ref__tmp 1010 ENDIF 1011 1016 1012 IF (PRESENT(domain_ref_)) THEN 1017 domain_ref__tmp =cxios_is_defined_domaingroup_domain_ref(domaingroup_hdl%daddr)1018 domain_ref_ =domain_ref__tmp1019 ENDIF 1020 1013 domain_ref__tmp = cxios_is_defined_domaingroup_domain_ref(domaingroup_hdl%daddr) 1014 domain_ref_ = domain_ref__tmp 1015 ENDIF 1016 1021 1017 IF (PRESENT(group_ref_)) THEN 1022 group_ref__tmp =cxios_is_defined_domaingroup_group_ref(domaingroup_hdl%daddr)1023 group_ref_ =group_ref__tmp1024 ENDIF 1025 1018 group_ref__tmp = cxios_is_defined_domaingroup_group_ref(domaingroup_hdl%daddr) 1019 group_ref_ = group_ref__tmp 1020 ENDIF 1021 1026 1022 IF (PRESENT(i_index_)) THEN 1027 i_index__tmp =cxios_is_defined_domaingroup_i_index(domaingroup_hdl%daddr)1028 i_index_ =i_index__tmp1029 ENDIF 1030 1023 i_index__tmp = cxios_is_defined_domaingroup_i_index(domaingroup_hdl%daddr) 1024 i_index_ = i_index__tmp 1025 ENDIF 1026 1031 1027 IF (PRESENT(ibegin_)) THEN 1032 ibegin__tmp =cxios_is_defined_domaingroup_ibegin(domaingroup_hdl%daddr)1033 ibegin_ =ibegin__tmp1034 ENDIF 1035 1028 ibegin__tmp = cxios_is_defined_domaingroup_ibegin(domaingroup_hdl%daddr) 1029 ibegin_ = ibegin__tmp 1030 ENDIF 1031 1036 1032 IF (PRESENT(iend_)) THEN 1037 iend__tmp =cxios_is_defined_domaingroup_iend(domaingroup_hdl%daddr)1038 iend_ =iend__tmp1039 ENDIF 1040 1033 iend__tmp = cxios_is_defined_domaingroup_iend(domaingroup_hdl%daddr) 1034 iend_ = iend__tmp 1035 ENDIF 1036 1041 1037 IF (PRESENT(j_index_)) THEN 1042 j_index__tmp =cxios_is_defined_domaingroup_j_index(domaingroup_hdl%daddr)1043 j_index_ =j_index__tmp1044 ENDIF 1045 1038 j_index__tmp = cxios_is_defined_domaingroup_j_index(domaingroup_hdl%daddr) 1039 j_index_ = j_index__tmp 1040 ENDIF 1041 1046 1042 IF (PRESENT(jbegin_)) THEN 1047 jbegin__tmp =cxios_is_defined_domaingroup_jbegin(domaingroup_hdl%daddr)1048 jbegin_ =jbegin__tmp1049 ENDIF 1050 1043 jbegin__tmp = cxios_is_defined_domaingroup_jbegin(domaingroup_hdl%daddr) 1044 jbegin_ = jbegin__tmp 1045 ENDIF 1046 1051 1047 IF (PRESENT(jend_)) THEN 1052 jend__tmp =cxios_is_defined_domaingroup_jend(domaingroup_hdl%daddr)1053 jend_ =jend__tmp1054 ENDIF 1055 1048 jend__tmp = cxios_is_defined_domaingroup_jend(domaingroup_hdl%daddr) 1049 jend_ = jend__tmp 1050 ENDIF 1051 1056 1052 IF (PRESENT(latvalue_)) THEN 1057 latvalue__tmp =cxios_is_defined_domaingroup_latvalue(domaingroup_hdl%daddr)1058 latvalue_ =latvalue__tmp1059 ENDIF 1060 1053 latvalue__tmp = cxios_is_defined_domaingroup_latvalue(domaingroup_hdl%daddr) 1054 latvalue_ = latvalue__tmp 1055 ENDIF 1056 1061 1057 IF (PRESENT(long_name_)) THEN 1062 long_name__tmp =cxios_is_defined_domaingroup_long_name(domaingroup_hdl%daddr)1063 long_name_ =long_name__tmp1064 ENDIF 1065 1058 long_name__tmp = cxios_is_defined_domaingroup_long_name(domaingroup_hdl%daddr) 1059 long_name_ = long_name__tmp 1060 ENDIF 1061 1066 1062 IF (PRESENT(lonvalue_)) THEN 1067 lonvalue__tmp =cxios_is_defined_domaingroup_lonvalue(domaingroup_hdl%daddr)1068 lonvalue_ =lonvalue__tmp1069 ENDIF 1070 1063 lonvalue__tmp = cxios_is_defined_domaingroup_lonvalue(domaingroup_hdl%daddr) 1064 lonvalue_ = lonvalue__tmp 1065 ENDIF 1066 1071 1067 IF (PRESENT(mask_)) THEN 1072 mask__tmp =cxios_is_defined_domaingroup_mask(domaingroup_hdl%daddr)1073 mask_ =mask__tmp1074 ENDIF 1075 1068 mask__tmp = cxios_is_defined_domaingroup_mask(domaingroup_hdl%daddr) 1069 mask_ = mask__tmp 1070 ENDIF 1071 1076 1072 IF (PRESENT(name_)) THEN 1077 name__tmp =cxios_is_defined_domaingroup_name(domaingroup_hdl%daddr)1078 name_ =name__tmp1079 ENDIF 1080 1073 name__tmp = cxios_is_defined_domaingroup_name(domaingroup_hdl%daddr) 1074 name_ = name__tmp 1075 ENDIF 1076 1081 1077 IF (PRESENT(ni_)) THEN 1082 ni__tmp =cxios_is_defined_domaingroup_ni(domaingroup_hdl%daddr)1083 ni_ =ni__tmp1084 ENDIF 1085 1078 ni__tmp = cxios_is_defined_domaingroup_ni(domaingroup_hdl%daddr) 1079 ni_ = ni__tmp 1080 ENDIF 1081 1086 1082 IF (PRESENT(ni_glo_)) THEN 1087 ni_glo__tmp =cxios_is_defined_domaingroup_ni_glo(domaingroup_hdl%daddr)1088 ni_glo_ =ni_glo__tmp1089 ENDIF 1090 1083 ni_glo__tmp = cxios_is_defined_domaingroup_ni_glo(domaingroup_hdl%daddr) 1084 ni_glo_ = ni_glo__tmp 1085 ENDIF 1086 1091 1087 IF (PRESENT(nj_)) THEN 1092 nj__tmp =cxios_is_defined_domaingroup_nj(domaingroup_hdl%daddr)1093 nj_ =nj__tmp1094 ENDIF 1095 1088 nj__tmp = cxios_is_defined_domaingroup_nj(domaingroup_hdl%daddr) 1089 nj_ = nj__tmp 1090 ENDIF 1091 1096 1092 IF (PRESENT(nj_glo_)) THEN 1097 nj_glo__tmp =cxios_is_defined_domaingroup_nj_glo(domaingroup_hdl%daddr)1098 nj_glo_ =nj_glo__tmp1099 ENDIF 1100 1093 nj_glo__tmp = cxios_is_defined_domaingroup_nj_glo(domaingroup_hdl%daddr) 1094 nj_glo_ = nj_glo__tmp 1095 ENDIF 1096 1101 1097 IF (PRESENT(nvertex_)) THEN 1102 nvertex__tmp =cxios_is_defined_domaingroup_nvertex(domaingroup_hdl%daddr)1103 nvertex_ =nvertex__tmp1104 ENDIF 1105 1098 nvertex__tmp = cxios_is_defined_domaingroup_nvertex(domaingroup_hdl%daddr) 1099 nvertex_ = nvertex__tmp 1100 ENDIF 1101 1106 1102 IF (PRESENT(standard_name_)) THEN 1107 standard_name__tmp =cxios_is_defined_domaingroup_standard_name(domaingroup_hdl%daddr)1108 standard_name_ =standard_name__tmp1109 ENDIF 1110 1103 standard_name__tmp = cxios_is_defined_domaingroup_standard_name(domaingroup_hdl%daddr) 1104 standard_name_ = standard_name__tmp 1105 ENDIF 1106 1111 1107 IF (PRESENT(type_)) THEN 1112 type__tmp =cxios_is_defined_domaingroup_type(domaingroup_hdl%daddr)1113 type_ =type__tmp1114 ENDIF 1115 1108 type__tmp = cxios_is_defined_domaingroup_type(domaingroup_hdl%daddr) 1109 type_ = type__tmp 1110 ENDIF 1111 1116 1112 IF (PRESENT(zoom_ibegin_)) THEN 1117 zoom_ibegin__tmp =cxios_is_defined_domaingroup_zoom_ibegin(domaingroup_hdl%daddr)1118 zoom_ibegin_ =zoom_ibegin__tmp1119 ENDIF 1120 1113 zoom_ibegin__tmp = cxios_is_defined_domaingroup_zoom_ibegin(domaingroup_hdl%daddr) 1114 zoom_ibegin_ = zoom_ibegin__tmp 1115 ENDIF 1116 1121 1117 IF (PRESENT(zoom_ibegin_loc_)) THEN 1122 zoom_ibegin_loc__tmp =cxios_is_defined_domaingroup_zoom_ibegin_loc(domaingroup_hdl%daddr)1123 zoom_ibegin_loc_ =zoom_ibegin_loc__tmp1124 ENDIF 1125 1118 zoom_ibegin_loc__tmp = cxios_is_defined_domaingroup_zoom_ibegin_loc(domaingroup_hdl%daddr) 1119 zoom_ibegin_loc_ = zoom_ibegin_loc__tmp 1120 ENDIF 1121 1126 1122 IF (PRESENT(zoom_jbegin_)) THEN 1127 zoom_jbegin__tmp =cxios_is_defined_domaingroup_zoom_jbegin(domaingroup_hdl%daddr)1128 zoom_jbegin_ =zoom_jbegin__tmp1129 ENDIF 1130 1123 zoom_jbegin__tmp = cxios_is_defined_domaingroup_zoom_jbegin(domaingroup_hdl%daddr) 1124 zoom_jbegin_ = zoom_jbegin__tmp 1125 ENDIF 1126 1131 1127 IF (PRESENT(zoom_jbegin_loc_)) THEN 1132 zoom_jbegin_loc__tmp =cxios_is_defined_domaingroup_zoom_jbegin_loc(domaingroup_hdl%daddr)1133 zoom_jbegin_loc_ =zoom_jbegin_loc__tmp1134 ENDIF 1135 1128 zoom_jbegin_loc__tmp = cxios_is_defined_domaingroup_zoom_jbegin_loc(domaingroup_hdl%daddr) 1129 zoom_jbegin_loc_ = zoom_jbegin_loc__tmp 1130 ENDIF 1131 1136 1132 IF (PRESENT(zoom_ni_)) THEN 1137 zoom_ni__tmp =cxios_is_defined_domaingroup_zoom_ni(domaingroup_hdl%daddr)1138 zoom_ni_ =zoom_ni__tmp1139 ENDIF 1140 1133 zoom_ni__tmp = cxios_is_defined_domaingroup_zoom_ni(domaingroup_hdl%daddr) 1134 zoom_ni_ = zoom_ni__tmp 1135 ENDIF 1136 1141 1137 IF (PRESENT(zoom_ni_loc_)) THEN 1142 zoom_ni_loc__tmp =cxios_is_defined_domaingroup_zoom_ni_loc(domaingroup_hdl%daddr)1143 zoom_ni_loc_ =zoom_ni_loc__tmp1144 ENDIF 1145 1138 zoom_ni_loc__tmp = cxios_is_defined_domaingroup_zoom_ni_loc(domaingroup_hdl%daddr) 1139 zoom_ni_loc_ = zoom_ni_loc__tmp 1140 ENDIF 1141 1146 1142 IF (PRESENT(zoom_nj_)) THEN 1147 zoom_nj__tmp =cxios_is_defined_domaingroup_zoom_nj(domaingroup_hdl%daddr)1148 zoom_nj_ =zoom_nj__tmp1149 ENDIF 1150 1143 zoom_nj__tmp = cxios_is_defined_domaingroup_zoom_nj(domaingroup_hdl%daddr) 1144 zoom_nj_ = zoom_nj__tmp 1145 ENDIF 1146 1151 1147 IF (PRESENT(zoom_nj_loc_)) THEN 1152 zoom_nj_loc__tmp=cxios_is_defined_domaingroup_zoom_nj_loc(domaingroup_hdl%daddr) 1153 zoom_nj_loc_=zoom_nj_loc__tmp 1154 ENDIF 1155 1156 1157 1148 zoom_nj_loc__tmp = cxios_is_defined_domaingroup_zoom_nj_loc(domaingroup_hdl%daddr) 1149 zoom_nj_loc_ = zoom_nj_loc__tmp 1150 ENDIF 1151 1158 1152 END SUBROUTINE xios(is_defined_domaingroup_attr_hdl_) 1159 1153 1160 1154 END MODULE idomaingroup_attr -
XIOS/trunk/src/interface/fortran_attr/ifield_attr.F90
r538 r581 8 8 USE ifield 9 9 USE field_interface_attr 10 10 11 11 CONTAINS 12 12 13 13 SUBROUTINE xios(set_field_attr) & 14 14 ( field_id, add_offset, axis_ref, default_value, detect_missing_value, domain_ref, enabled, field_ref & 15 15 , freq_offset, freq_op, grid_ref, level, long_name, name, operation, prec, scale_factor, standard_name & 16 16 , unit, valid_max, valid_min ) 17 17 18 18 IMPLICIT NONE 19 19 TYPE(txios(field)) :: field_hdl … … 41 41 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: valid_max 42 42 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: valid_min 43 43 44 44 CALL xios(get_field_handle)(field_id,field_hdl) 45 45 CALL xios(set_field_attr_hdl_) & … … 47 47 , field_ref, freq_offset, freq_op, grid_ref, level, long_name, name, operation, prec, scale_factor & 48 48 , standard_name, unit, valid_max, valid_min ) 49 49 50 50 END SUBROUTINE xios(set_field_attr) 51 51 52 52 SUBROUTINE xios(set_field_attr_hdl) & 53 53 ( field_hdl, add_offset, axis_ref, default_value, detect_missing_value, domain_ref, enabled & 54 54 , field_ref, freq_offset, freq_op, grid_ref, level, long_name, name, operation, prec, scale_factor & 55 55 , standard_name, unit, valid_max, valid_min ) 56 56 57 57 IMPLICIT NONE 58 58 TYPE(txios(field)) , INTENT(IN) :: field_hdl … … 79 79 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: valid_max 80 80 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: valid_min 81 81 82 82 CALL xios(set_field_attr_hdl_) & 83 83 ( field_hdl, add_offset, axis_ref, default_value, detect_missing_value, domain_ref, enabled & 84 84 , field_ref, freq_offset, freq_op, grid_ref, level, long_name, name, operation, prec, scale_factor & 85 85 , standard_name, unit, valid_max, valid_min ) 86 86 87 87 END SUBROUTINE xios(set_field_attr_hdl) 88 88 89 89 SUBROUTINE xios(set_field_attr_hdl_) & 90 90 ( field_hdl, add_offset_, axis_ref_, default_value_, detect_missing_value_, domain_ref_, enabled_ & 91 91 , field_ref_, freq_offset_, freq_op_, grid_ref_, level_, long_name_, name_, operation_, prec_ & 92 92 , scale_factor_, standard_name_, unit_, valid_max_, valid_min_ ) 93 93 94 94 IMPLICIT NONE 95 95 TYPE(txios(field)) , INTENT(IN) :: field_hdl … … 116 116 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: valid_max_ 117 117 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: valid_min_ 118 118 119 119 IF (PRESENT(add_offset_)) THEN 120 120 CALL cxios_set_field_add_offset(field_hdl%daddr, add_offset_) 121 121 ENDIF 122 122 123 123 IF (PRESENT(axis_ref_)) THEN 124 124 CALL cxios_set_field_axis_ref(field_hdl%daddr, axis_ref_, len(axis_ref_)) 125 125 ENDIF 126 126 127 127 IF (PRESENT(default_value_)) THEN 128 128 CALL cxios_set_field_default_value(field_hdl%daddr, default_value_) 129 129 ENDIF 130 130 131 131 IF (PRESENT(detect_missing_value_)) THEN 132 detect_missing_value__tmp =detect_missing_value_132 detect_missing_value__tmp = detect_missing_value_ 133 133 CALL cxios_set_field_detect_missing_value(field_hdl%daddr, detect_missing_value__tmp) 134 134 ENDIF 135 135 136 136 IF (PRESENT(domain_ref_)) THEN 137 137 CALL cxios_set_field_domain_ref(field_hdl%daddr, domain_ref_, len(domain_ref_)) 138 138 ENDIF 139 139 140 140 IF (PRESENT(enabled_)) THEN 141 enabled__tmp =enabled_141 enabled__tmp = enabled_ 142 142 CALL cxios_set_field_enabled(field_hdl%daddr, enabled__tmp) 143 143 ENDIF 144 144 145 145 IF (PRESENT(field_ref_)) THEN 146 146 CALL cxios_set_field_field_ref(field_hdl%daddr, field_ref_, len(field_ref_)) 147 147 ENDIF 148 148 149 149 IF (PRESENT(freq_offset_)) THEN 150 150 CALL cxios_set_field_freq_offset(field_hdl%daddr, freq_offset_) 151 151 ENDIF 152 152 153 153 IF (PRESENT(freq_op_)) THEN 154 154 CALL cxios_set_field_freq_op(field_hdl%daddr, freq_op_) 155 155 ENDIF 156 156 157 157 IF (PRESENT(grid_ref_)) THEN 158 158 CALL cxios_set_field_grid_ref(field_hdl%daddr, grid_ref_, len(grid_ref_)) 159 159 ENDIF 160 160 161 161 IF (PRESENT(level_)) THEN 162 162 CALL cxios_set_field_level(field_hdl%daddr, level_) 163 163 ENDIF 164 164 165 165 IF (PRESENT(long_name_)) THEN 166 166 CALL cxios_set_field_long_name(field_hdl%daddr, long_name_, len(long_name_)) 167 167 ENDIF 168 168 169 169 IF (PRESENT(name_)) THEN 170 170 CALL cxios_set_field_name(field_hdl%daddr, name_, len(name_)) 171 171 ENDIF 172 172 173 173 IF (PRESENT(operation_)) THEN 174 174 CALL cxios_set_field_operation(field_hdl%daddr, operation_, len(operation_)) 175 175 ENDIF 176 176 177 177 IF (PRESENT(prec_)) THEN 178 178 CALL cxios_set_field_prec(field_hdl%daddr, prec_) 179 179 ENDIF 180 180 181 181 IF (PRESENT(scale_factor_)) THEN 182 182 CALL cxios_set_field_scale_factor(field_hdl%daddr, scale_factor_) 183 183 ENDIF 184 184 185 185 IF (PRESENT(standard_name_)) THEN 186 186 CALL cxios_set_field_standard_name(field_hdl%daddr, standard_name_, len(standard_name_)) 187 187 ENDIF 188 188 189 189 IF (PRESENT(unit_)) THEN 190 190 CALL cxios_set_field_unit(field_hdl%daddr, unit_, len(unit_)) 191 191 ENDIF 192 192 193 193 IF (PRESENT(valid_max_)) THEN 194 194 CALL cxios_set_field_valid_max(field_hdl%daddr, valid_max_) 195 195 ENDIF 196 196 197 197 IF (PRESENT(valid_min_)) THEN 198 198 CALL cxios_set_field_valid_min(field_hdl%daddr, valid_min_) 199 199 ENDIF 200 201 202 200 203 201 END SUBROUTINE xios(set_field_attr_hdl_) 204 202 205 203 SUBROUTINE xios(get_field_attr) & 206 204 ( field_id, add_offset, axis_ref, default_value, detect_missing_value, domain_ref, enabled, field_ref & 207 205 , freq_offset, freq_op, grid_ref, level, long_name, name, operation, prec, scale_factor, standard_name & 208 206 , unit, valid_max, valid_min ) 209 207 210 208 IMPLICIT NONE 211 209 TYPE(txios(field)) :: field_hdl … … 233 231 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: valid_max 234 232 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: valid_min 235 233 236 234 CALL xios(get_field_handle)(field_id,field_hdl) 237 235 CALL xios(get_field_attr_hdl_) & … … 239 237 , field_ref, freq_offset, freq_op, grid_ref, level, long_name, name, operation, prec, scale_factor & 240 238 , standard_name, unit, valid_max, valid_min ) 241 239 242 240 END SUBROUTINE xios(get_field_attr) 243 241 244 242 SUBROUTINE xios(get_field_attr_hdl) & 245 243 ( field_hdl, add_offset, axis_ref, default_value, detect_missing_value, domain_ref, enabled & 246 244 , field_ref, freq_offset, freq_op, grid_ref, level, long_name, name, operation, prec, scale_factor & 247 245 , standard_name, unit, valid_max, valid_min ) 248 246 249 247 IMPLICIT NONE 250 248 TYPE(txios(field)) , INTENT(IN) :: field_hdl … … 271 269 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: valid_max 272 270 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: valid_min 273 271 274 272 CALL xios(get_field_attr_hdl_) & 275 273 ( field_hdl, add_offset, axis_ref, default_value, detect_missing_value, domain_ref, enabled & 276 274 , field_ref, freq_offset, freq_op, grid_ref, level, long_name, name, operation, prec, scale_factor & 277 275 , standard_name, unit, valid_max, valid_min ) 278 276 279 277 END SUBROUTINE xios(get_field_attr_hdl) 280 278 281 279 SUBROUTINE xios(get_field_attr_hdl_) & 282 280 ( field_hdl, add_offset_, axis_ref_, default_value_, detect_missing_value_, domain_ref_, enabled_ & 283 281 , field_ref_, freq_offset_, freq_op_, grid_ref_, level_, long_name_, name_, operation_, prec_ & 284 282 , scale_factor_, standard_name_, unit_, valid_max_, valid_min_ ) 285 283 286 284 IMPLICIT NONE 287 285 TYPE(txios(field)) , INTENT(IN) :: field_hdl … … 308 306 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: valid_max_ 309 307 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: valid_min_ 310 308 311 309 IF (PRESENT(add_offset_)) THEN 312 310 CALL cxios_get_field_add_offset(field_hdl%daddr, add_offset_) 313 311 ENDIF 314 312 315 313 IF (PRESENT(axis_ref_)) THEN 316 314 CALL cxios_get_field_axis_ref(field_hdl%daddr, axis_ref_, len(axis_ref_)) 317 315 ENDIF 318 316 319 317 IF (PRESENT(default_value_)) THEN 320 318 CALL cxios_get_field_default_value(field_hdl%daddr, default_value_) 321 319 ENDIF 322 320 323 321 IF (PRESENT(detect_missing_value_)) THEN 324 322 CALL cxios_get_field_detect_missing_value(field_hdl%daddr, detect_missing_value__tmp) 325 detect_missing_value_ =detect_missing_value__tmp326 ENDIF 327 323 detect_missing_value_ = detect_missing_value__tmp 324 ENDIF 325 328 326 IF (PRESENT(domain_ref_)) THEN 329 327 CALL cxios_get_field_domain_ref(field_hdl%daddr, domain_ref_, len(domain_ref_)) 330 328 ENDIF 331 329 332 330 IF (PRESENT(enabled_)) THEN 333 331 CALL cxios_get_field_enabled(field_hdl%daddr, enabled__tmp) 334 enabled_ =enabled__tmp335 ENDIF 336 332 enabled_ = enabled__tmp 333 ENDIF 334 337 335 IF (PRESENT(field_ref_)) THEN 338 336 CALL cxios_get_field_field_ref(field_hdl%daddr, field_ref_, len(field_ref_)) 339 337 ENDIF 340 338 341 339 IF (PRESENT(freq_offset_)) THEN 342 340 CALL cxios_get_field_freq_offset(field_hdl%daddr, freq_offset_) 343 341 ENDIF 344 342 345 343 IF (PRESENT(freq_op_)) THEN 346 344 CALL cxios_get_field_freq_op(field_hdl%daddr, freq_op_) 347 345 ENDIF 348 346 349 347 IF (PRESENT(grid_ref_)) THEN 350 348 CALL cxios_get_field_grid_ref(field_hdl%daddr, grid_ref_, len(grid_ref_)) 351 349 ENDIF 352 350 353 351 IF (PRESENT(level_)) THEN 354 352 CALL cxios_get_field_level(field_hdl%daddr, level_) 355 353 ENDIF 356 354 357 355 IF (PRESENT(long_name_)) THEN 358 356 CALL cxios_get_field_long_name(field_hdl%daddr, long_name_, len(long_name_)) 359 357 ENDIF 360 358 361 359 IF (PRESENT(name_)) THEN 362 360 CALL cxios_get_field_name(field_hdl%daddr, name_, len(name_)) 363 361 ENDIF 364 362 365 363 IF (PRESENT(operation_)) THEN 366 364 CALL cxios_get_field_operation(field_hdl%daddr, operation_, len(operation_)) 367 365 ENDIF 368 366 369 367 IF (PRESENT(prec_)) THEN 370 368 CALL cxios_get_field_prec(field_hdl%daddr, prec_) 371 369 ENDIF 372 370 373 371 IF (PRESENT(scale_factor_)) THEN 374 372 CALL cxios_get_field_scale_factor(field_hdl%daddr, scale_factor_) 375 373 ENDIF 376 374 377 375 IF (PRESENT(standard_name_)) THEN 378 376 CALL cxios_get_field_standard_name(field_hdl%daddr, standard_name_, len(standard_name_)) 379 377 ENDIF 380 378 381 379 IF (PRESENT(unit_)) THEN 382 380 CALL cxios_get_field_unit(field_hdl%daddr, unit_, len(unit_)) 383 381 ENDIF 384 382 385 383 IF (PRESENT(valid_max_)) THEN 386 384 CALL cxios_get_field_valid_max(field_hdl%daddr, valid_max_) 387 385 ENDIF 388 386 389 387 IF (PRESENT(valid_min_)) THEN 390 388 CALL cxios_get_field_valid_min(field_hdl%daddr, valid_min_) 391 389 ENDIF 392 393 394 390 395 391 END SUBROUTINE xios(get_field_attr_hdl_) 396 392 397 393 SUBROUTINE xios(is_defined_field_attr) & 398 394 ( field_id, add_offset, axis_ref, default_value, detect_missing_value, domain_ref, enabled, field_ref & 399 395 , freq_offset, freq_op, grid_ref, level, long_name, name, operation, prec, scale_factor, standard_name & 400 396 , unit, valid_max, valid_min ) 401 397 402 398 IMPLICIT NONE 403 399 TYPE(txios(field)) :: field_hdl … … 443 439 LOGICAL, OPTIONAL, INTENT(OUT) :: valid_min 444 440 LOGICAL(KIND=C_BOOL) :: valid_min_tmp 445 441 446 442 CALL xios(get_field_handle)(field_id,field_hdl) 447 443 CALL xios(is_defined_field_attr_hdl_) & … … 449 445 , field_ref, freq_offset, freq_op, grid_ref, level, long_name, name, operation, prec, scale_factor & 450 446 , standard_name, unit, valid_max, valid_min ) 451 447 452 448 END SUBROUTINE xios(is_defined_field_attr) 453 449 454 450 SUBROUTINE xios(is_defined_field_attr_hdl) & 455 451 ( field_hdl, add_offset, axis_ref, default_value, detect_missing_value, domain_ref, enabled & 456 452 , field_ref, freq_offset, freq_op, grid_ref, level, long_name, name, operation, prec, scale_factor & 457 453 , standard_name, unit, valid_max, valid_min ) 458 454 459 455 IMPLICIT NONE 460 456 TYPE(txios(field)) , INTENT(IN) :: field_hdl … … 499 495 LOGICAL, OPTIONAL, INTENT(OUT) :: valid_min 500 496 LOGICAL(KIND=C_BOOL) :: valid_min_tmp 501 497 502 498 CALL xios(is_defined_field_attr_hdl_) & 503 499 ( field_hdl, add_offset, axis_ref, default_value, detect_missing_value, domain_ref, enabled & 504 500 , field_ref, freq_offset, freq_op, grid_ref, level, long_name, name, operation, prec, scale_factor & 505 501 , standard_name, unit, valid_max, valid_min ) 506 502 507 503 END SUBROUTINE xios(is_defined_field_attr_hdl) 508 504 509 505 SUBROUTINE xios(is_defined_field_attr_hdl_) & 510 506 ( field_hdl, add_offset_, axis_ref_, default_value_, detect_missing_value_, domain_ref_, enabled_ & 511 507 , field_ref_, freq_offset_, freq_op_, grid_ref_, level_, long_name_, name_, operation_, prec_ & 512 508 , scale_factor_, standard_name_, unit_, valid_max_, valid_min_ ) 513 509 514 510 IMPLICIT NONE 515 511 TYPE(txios(field)) , INTENT(IN) :: field_hdl … … 554 550 LOGICAL, OPTIONAL, INTENT(OUT) :: valid_min_ 555 551 LOGICAL(KIND=C_BOOL) :: valid_min__tmp 556 552 557 553 IF (PRESENT(add_offset_)) THEN 558 add_offset__tmp =cxios_is_defined_field_add_offset(field_hdl%daddr)559 add_offset_ =add_offset__tmp560 ENDIF 561 554 add_offset__tmp = cxios_is_defined_field_add_offset(field_hdl%daddr) 555 add_offset_ = add_offset__tmp 556 ENDIF 557 562 558 IF (PRESENT(axis_ref_)) THEN 563 axis_ref__tmp =cxios_is_defined_field_axis_ref(field_hdl%daddr)564 axis_ref_ =axis_ref__tmp565 ENDIF 566 559 axis_ref__tmp = cxios_is_defined_field_axis_ref(field_hdl%daddr) 560 axis_ref_ = axis_ref__tmp 561 ENDIF 562 567 563 IF (PRESENT(default_value_)) THEN 568 default_value__tmp =cxios_is_defined_field_default_value(field_hdl%daddr)569 default_value_ =default_value__tmp570 ENDIF 571 564 default_value__tmp = cxios_is_defined_field_default_value(field_hdl%daddr) 565 default_value_ = default_value__tmp 566 ENDIF 567 572 568 IF (PRESENT(detect_missing_value_)) THEN 573 detect_missing_value__tmp =cxios_is_defined_field_detect_missing_value(field_hdl%daddr)574 detect_missing_value_ =detect_missing_value__tmp575 ENDIF 576 569 detect_missing_value__tmp = cxios_is_defined_field_detect_missing_value(field_hdl%daddr) 570 detect_missing_value_ = detect_missing_value__tmp 571 ENDIF 572 577 573 IF (PRESENT(domain_ref_)) THEN 578 domain_ref__tmp =cxios_is_defined_field_domain_ref(field_hdl%daddr)579 domain_ref_ =domain_ref__tmp580 ENDIF 581 574 domain_ref__tmp = cxios_is_defined_field_domain_ref(field_hdl%daddr) 575 domain_ref_ = domain_ref__tmp 576 ENDIF 577 582 578 IF (PRESENT(enabled_)) THEN 583 enabled__tmp =cxios_is_defined_field_enabled(field_hdl%daddr)584 enabled_ =enabled__tmp585 ENDIF 586 579 enabled__tmp = cxios_is_defined_field_enabled(field_hdl%daddr) 580 enabled_ = enabled__tmp 581 ENDIF 582 587 583 IF (PRESENT(field_ref_)) THEN 588 field_ref__tmp =cxios_is_defined_field_field_ref(field_hdl%daddr)589 field_ref_ =field_ref__tmp590 ENDIF 591 584 field_ref__tmp = cxios_is_defined_field_field_ref(field_hdl%daddr) 585 field_ref_ = field_ref__tmp 586 ENDIF 587 592 588 IF (PRESENT(freq_offset_)) THEN 593 freq_offset__tmp =cxios_is_defined_field_freq_offset(field_hdl%daddr)594 freq_offset_ =freq_offset__tmp595 ENDIF 596 589 freq_offset__tmp = cxios_is_defined_field_freq_offset(field_hdl%daddr) 590 freq_offset_ = freq_offset__tmp 591 ENDIF 592 597 593 IF (PRESENT(freq_op_)) THEN 598 freq_op__tmp =cxios_is_defined_field_freq_op(field_hdl%daddr)599 freq_op_ =freq_op__tmp600 ENDIF 601 594 freq_op__tmp = cxios_is_defined_field_freq_op(field_hdl%daddr) 595 freq_op_ = freq_op__tmp 596 ENDIF 597 602 598 IF (PRESENT(grid_ref_)) THEN 603 grid_ref__tmp =cxios_is_defined_field_grid_ref(field_hdl%daddr)604 grid_ref_ =grid_ref__tmp605 ENDIF 606 599 grid_ref__tmp = cxios_is_defined_field_grid_ref(field_hdl%daddr) 600 grid_ref_ = grid_ref__tmp 601 ENDIF 602 607 603 IF (PRESENT(level_)) THEN 608 level__tmp =cxios_is_defined_field_level(field_hdl%daddr)609 level_ =level__tmp610 ENDIF 611 604 level__tmp = cxios_is_defined_field_level(field_hdl%daddr) 605 level_ = level__tmp 606 ENDIF 607 612 608 IF (PRESENT(long_name_)) THEN 613 long_name__tmp =cxios_is_defined_field_long_name(field_hdl%daddr)614 long_name_ =long_name__tmp615 ENDIF 616 609 long_name__tmp = cxios_is_defined_field_long_name(field_hdl%daddr) 610 long_name_ = long_name__tmp 611 ENDIF 612 617 613 IF (PRESENT(name_)) THEN 618 name__tmp =cxios_is_defined_field_name(field_hdl%daddr)619 name_ =name__tmp620 ENDIF 621 614 name__tmp = cxios_is_defined_field_name(field_hdl%daddr) 615 name_ = name__tmp 616 ENDIF 617 622 618 IF (PRESENT(operation_)) THEN 623 operation__tmp =cxios_is_defined_field_operation(field_hdl%daddr)624 operation_ =operation__tmp625 ENDIF 626 619 operation__tmp = cxios_is_defined_field_operation(field_hdl%daddr) 620 operation_ = operation__tmp 621 ENDIF 622 627 623 IF (PRESENT(prec_)) THEN 628 prec__tmp =cxios_is_defined_field_prec(field_hdl%daddr)629 prec_ =prec__tmp630 ENDIF 631 624 prec__tmp = cxios_is_defined_field_prec(field_hdl%daddr) 625 prec_ = prec__tmp 626 ENDIF 627 632 628 IF (PRESENT(scale_factor_)) THEN 633 scale_factor__tmp =cxios_is_defined_field_scale_factor(field_hdl%daddr)634 scale_factor_ =scale_factor__tmp635 ENDIF 636 629 scale_factor__tmp = cxios_is_defined_field_scale_factor(field_hdl%daddr) 630 scale_factor_ = scale_factor__tmp 631 ENDIF 632 637 633 IF (PRESENT(standard_name_)) THEN 638 standard_name__tmp =cxios_is_defined_field_standard_name(field_hdl%daddr)639 standard_name_ =standard_name__tmp640 ENDIF 641 634 standard_name__tmp = cxios_is_defined_field_standard_name(field_hdl%daddr) 635 standard_name_ = standard_name__tmp 636 ENDIF 637 642 638 IF (PRESENT(unit_)) THEN 643 unit__tmp =cxios_is_defined_field_unit(field_hdl%daddr)644 unit_ =unit__tmp645 ENDIF 646 639 unit__tmp = cxios_is_defined_field_unit(field_hdl%daddr) 640 unit_ = unit__tmp 641 ENDIF 642 647 643 IF (PRESENT(valid_max_)) THEN 648 valid_max__tmp =cxios_is_defined_field_valid_max(field_hdl%daddr)649 valid_max_ =valid_max__tmp650 ENDIF 651 644 valid_max__tmp = cxios_is_defined_field_valid_max(field_hdl%daddr) 645 valid_max_ = valid_max__tmp 646 ENDIF 647 652 648 IF (PRESENT(valid_min_)) THEN 653 valid_min__tmp=cxios_is_defined_field_valid_min(field_hdl%daddr) 654 valid_min_=valid_min__tmp 655 ENDIF 656 657 658 649 valid_min__tmp = cxios_is_defined_field_valid_min(field_hdl%daddr) 650 valid_min_ = valid_min__tmp 651 ENDIF 652 659 653 END SUBROUTINE xios(is_defined_field_attr_hdl_) 660 654 661 655 END MODULE ifield_attr -
XIOS/trunk/src/interface/fortran_attr/ifieldgroup_attr.F90
r538 r581 8 8 USE ifield 9 9 USE fieldgroup_interface_attr 10 10 11 11 CONTAINS 12 12 13 13 SUBROUTINE xios(set_fieldgroup_attr) & 14 14 ( fieldgroup_id, add_offset, axis_ref, default_value, detect_missing_value, domain_ref, enabled & 15 15 , field_ref, freq_offset, freq_op, grid_ref, group_ref, level, long_name, name, operation, prec & 16 16 , scale_factor, standard_name, unit, valid_max, valid_min ) 17 17 18 18 IMPLICIT NONE 19 19 TYPE(txios(fieldgroup)) :: fieldgroup_hdl … … 42 42 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: valid_max 43 43 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: valid_min 44 44 45 45 CALL xios(get_fieldgroup_handle)(fieldgroup_id,fieldgroup_hdl) 46 46 CALL xios(set_fieldgroup_attr_hdl_) & … … 48 48 , field_ref, freq_offset, freq_op, grid_ref, group_ref, level, long_name, name, operation, prec & 49 49 , scale_factor, standard_name, unit, valid_max, valid_min ) 50 50 51 51 END SUBROUTINE xios(set_fieldgroup_attr) 52 52 53 53 SUBROUTINE xios(set_fieldgroup_attr_hdl) & 54 54 ( fieldgroup_hdl, add_offset, axis_ref, default_value, detect_missing_value, domain_ref, enabled & 55 55 , field_ref, freq_offset, freq_op, grid_ref, group_ref, level, long_name, name, operation, prec & 56 56 , scale_factor, standard_name, unit, valid_max, valid_min ) 57 57 58 58 IMPLICIT NONE 59 59 TYPE(txios(fieldgroup)) , INTENT(IN) :: fieldgroup_hdl … … 81 81 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: valid_max 82 82 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: valid_min 83 83 84 84 CALL xios(set_fieldgroup_attr_hdl_) & 85 85 ( fieldgroup_hdl, add_offset, axis_ref, default_value, detect_missing_value, domain_ref, enabled & 86 86 , field_ref, freq_offset, freq_op, grid_ref, group_ref, level, long_name, name, operation, prec & 87 87 , scale_factor, standard_name, unit, valid_max, valid_min ) 88 88 89 89 END SUBROUTINE xios(set_fieldgroup_attr_hdl) 90 90 91 91 SUBROUTINE xios(set_fieldgroup_attr_hdl_) & 92 92 ( fieldgroup_hdl, add_offset_, axis_ref_, default_value_, detect_missing_value_, domain_ref_ & 93 93 , enabled_, field_ref_, freq_offset_, freq_op_, grid_ref_, group_ref_, level_, long_name_, name_ & 94 94 , operation_, prec_, scale_factor_, standard_name_, unit_, valid_max_, valid_min_ ) 95 95 96 96 IMPLICIT NONE 97 97 TYPE(txios(fieldgroup)) , INTENT(IN) :: fieldgroup_hdl … … 119 119 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: valid_max_ 120 120 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: valid_min_ 121 121 122 122 IF (PRESENT(add_offset_)) THEN 123 123 CALL cxios_set_fieldgroup_add_offset(fieldgroup_hdl%daddr, add_offset_) 124 124 ENDIF 125 125 126 126 IF (PRESENT(axis_ref_)) THEN 127 127 CALL cxios_set_fieldgroup_axis_ref(fieldgroup_hdl%daddr, axis_ref_, len(axis_ref_)) 128 128 ENDIF 129 129 130 130 IF (PRESENT(default_value_)) THEN 131 131 CALL cxios_set_fieldgroup_default_value(fieldgroup_hdl%daddr, default_value_) 132 132 ENDIF 133 133 134 134 IF (PRESENT(detect_missing_value_)) THEN 135 detect_missing_value__tmp =detect_missing_value_135 detect_missing_value__tmp = detect_missing_value_ 136 136 CALL cxios_set_fieldgroup_detect_missing_value(fieldgroup_hdl%daddr, detect_missing_value__tmp) 137 137 ENDIF 138 138 139 139 IF (PRESENT(domain_ref_)) THEN 140 140 CALL cxios_set_fieldgroup_domain_ref(fieldgroup_hdl%daddr, domain_ref_, len(domain_ref_)) 141 141 ENDIF 142 142 143 143 IF (PRESENT(enabled_)) THEN 144 enabled__tmp =enabled_144 enabled__tmp = enabled_ 145 145 CALL cxios_set_fieldgroup_enabled(fieldgroup_hdl%daddr, enabled__tmp) 146 146 ENDIF 147 147 148 148 IF (PRESENT(field_ref_)) THEN 149 149 CALL cxios_set_fieldgroup_field_ref(fieldgroup_hdl%daddr, field_ref_, len(field_ref_)) 150 150 ENDIF 151 151 152 152 IF (PRESENT(freq_offset_)) THEN 153 153 CALL cxios_set_fieldgroup_freq_offset(fieldgroup_hdl%daddr, freq_offset_) 154 154 ENDIF 155 155 156 156 IF (PRESENT(freq_op_)) THEN 157 157 CALL cxios_set_fieldgroup_freq_op(fieldgroup_hdl%daddr, freq_op_) 158 158 ENDIF 159 159 160 160 IF (PRESENT(grid_ref_)) THEN 161 161 CALL cxios_set_fieldgroup_grid_ref(fieldgroup_hdl%daddr, grid_ref_, len(grid_ref_)) 162 162 ENDIF 163 163 164 164 IF (PRESENT(group_ref_)) THEN 165 165 CALL cxios_set_fieldgroup_group_ref(fieldgroup_hdl%daddr, group_ref_, len(group_ref_)) 166 166 ENDIF 167 167 168 168 IF (PRESENT(level_)) THEN 169 169 CALL cxios_set_fieldgroup_level(fieldgroup_hdl%daddr, level_) 170 170 ENDIF 171 171 172 172 IF (PRESENT(long_name_)) THEN 173 173 CALL cxios_set_fieldgroup_long_name(fieldgroup_hdl%daddr, long_name_, len(long_name_)) 174 174 ENDIF 175 175 176 176 IF (PRESENT(name_)) THEN 177 177 CALL cxios_set_fieldgroup_name(fieldgroup_hdl%daddr, name_, len(name_)) 178 178 ENDIF 179 179 180 180 IF (PRESENT(operation_)) THEN 181 181 CALL cxios_set_fieldgroup_operation(fieldgroup_hdl%daddr, operation_, len(operation_)) 182 182 ENDIF 183 183 184 184 IF (PRESENT(prec_)) THEN 185 185 CALL cxios_set_fieldgroup_prec(fieldgroup_hdl%daddr, prec_) 186 186 ENDIF 187 187 188 188 IF (PRESENT(scale_factor_)) THEN 189 189 CALL cxios_set_fieldgroup_scale_factor(fieldgroup_hdl%daddr, scale_factor_) 190 190 ENDIF 191 191 192 192 IF (PRESENT(standard_name_)) THEN 193 193 CALL cxios_set_fieldgroup_standard_name(fieldgroup_hdl%daddr, standard_name_, len(standard_name_)) 194 194 ENDIF 195 195 196 196 IF (PRESENT(unit_)) THEN 197 197 CALL cxios_set_fieldgroup_unit(fieldgroup_hdl%daddr, unit_, len(unit_)) 198 198 ENDIF 199 199 200 200 IF (PRESENT(valid_max_)) THEN 201 201 CALL cxios_set_fieldgroup_valid_max(fieldgroup_hdl%daddr, valid_max_) 202 202 ENDIF 203 203 204 204 IF (PRESENT(valid_min_)) THEN 205 205 CALL cxios_set_fieldgroup_valid_min(fieldgroup_hdl%daddr, valid_min_) 206 206 ENDIF 207 208 209 207 210 208 END SUBROUTINE xios(set_fieldgroup_attr_hdl_) 211 209 212 210 SUBROUTINE xios(get_fieldgroup_attr) & 213 211 ( fieldgroup_id, add_offset, axis_ref, default_value, detect_missing_value, domain_ref, enabled & 214 212 , field_ref, freq_offset, freq_op, grid_ref, group_ref, level, long_name, name, operation, prec & 215 213 , scale_factor, standard_name, unit, valid_max, valid_min ) 216 214 217 215 IMPLICIT NONE 218 216 TYPE(txios(fieldgroup)) :: fieldgroup_hdl … … 241 239 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: valid_max 242 240 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: valid_min 243 241 244 242 CALL xios(get_fieldgroup_handle)(fieldgroup_id,fieldgroup_hdl) 245 243 CALL xios(get_fieldgroup_attr_hdl_) & … … 247 245 , field_ref, freq_offset, freq_op, grid_ref, group_ref, level, long_name, name, operation, prec & 248 246 , scale_factor, standard_name, unit, valid_max, valid_min ) 249 247 250 248 END SUBROUTINE xios(get_fieldgroup_attr) 251 249 252 250 SUBROUTINE xios(get_fieldgroup_attr_hdl) & 253 251 ( fieldgroup_hdl, add_offset, axis_ref, default_value, detect_missing_value, domain_ref, enabled & 254 252 , field_ref, freq_offset, freq_op, grid_ref, group_ref, level, long_name, name, operation, prec & 255 253 , scale_factor, standard_name, unit, valid_max, valid_min ) 256 254 257 255 IMPLICIT NONE 258 256 TYPE(txios(fieldgroup)) , INTENT(IN) :: fieldgroup_hdl … … 280 278 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: valid_max 281 279 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: valid_min 282 280 283 281 CALL xios(get_fieldgroup_attr_hdl_) & 284 282 ( fieldgroup_hdl, add_offset, axis_ref, default_value, detect_missing_value, domain_ref, enabled & 285 283 , field_ref, freq_offset, freq_op, grid_ref, group_ref, level, long_name, name, operation, prec & 286 284 , scale_factor, standard_name, unit, valid_max, valid_min ) 287 285 288 286 END SUBROUTINE xios(get_fieldgroup_attr_hdl) 289 287 290 288 SUBROUTINE xios(get_fieldgroup_attr_hdl_) & 291 289 ( fieldgroup_hdl, add_offset_, axis_ref_, default_value_, detect_missing_value_, domain_ref_ & 292 290 , enabled_, field_ref_, freq_offset_, freq_op_, grid_ref_, group_ref_, level_, long_name_, name_ & 293 291 , operation_, prec_, scale_factor_, standard_name_, unit_, valid_max_, valid_min_ ) 294 292 295 293 IMPLICIT NONE 296 294 TYPE(txios(fieldgroup)) , INTENT(IN) :: fieldgroup_hdl … … 318 316 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: valid_max_ 319 317 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: valid_min_ 320 318 321 319 IF (PRESENT(add_offset_)) THEN 322 320 CALL cxios_get_fieldgroup_add_offset(fieldgroup_hdl%daddr, add_offset_) 323 321 ENDIF 324 322 325 323 IF (PRESENT(axis_ref_)) THEN 326 324 CALL cxios_get_fieldgroup_axis_ref(fieldgroup_hdl%daddr, axis_ref_, len(axis_ref_)) 327 325 ENDIF 328 326 329 327 IF (PRESENT(default_value_)) THEN 330 328 CALL cxios_get_fieldgroup_default_value(fieldgroup_hdl%daddr, default_value_) 331 329 ENDIF 332 330 333 331 IF (PRESENT(detect_missing_value_)) THEN 334 332 CALL cxios_get_fieldgroup_detect_missing_value(fieldgroup_hdl%daddr, detect_missing_value__tmp) 335 detect_missing_value_ =detect_missing_value__tmp336 ENDIF 337 333 detect_missing_value_ = detect_missing_value__tmp 334 ENDIF 335 338 336 IF (PRESENT(domain_ref_)) THEN 339 337 CALL cxios_get_fieldgroup_domain_ref(fieldgroup_hdl%daddr, domain_ref_, len(domain_ref_)) 340 338 ENDIF 341 339 342 340 IF (PRESENT(enabled_)) THEN 343 341 CALL cxios_get_fieldgroup_enabled(fieldgroup_hdl%daddr, enabled__tmp) 344 enabled_ =enabled__tmp345 ENDIF 346 342 enabled_ = enabled__tmp 343 ENDIF 344 347 345 IF (PRESENT(field_ref_)) THEN 348 346 CALL cxios_get_fieldgroup_field_ref(fieldgroup_hdl%daddr, field_ref_, len(field_ref_)) 349 347 ENDIF 350 348 351 349 IF (PRESENT(freq_offset_)) THEN 352 350 CALL cxios_get_fieldgroup_freq_offset(fieldgroup_hdl%daddr, freq_offset_) 353 351 ENDIF 354 352 355 353 IF (PRESENT(freq_op_)) THEN 356 354 CALL cxios_get_fieldgroup_freq_op(fieldgroup_hdl%daddr, freq_op_) 357 355 ENDIF 358 356 359 357 IF (PRESENT(grid_ref_)) THEN 360 358 CALL cxios_get_fieldgroup_grid_ref(fieldgroup_hdl%daddr, grid_ref_, len(grid_ref_)) 361 359 ENDIF 362 360 363 361 IF (PRESENT(group_ref_)) THEN 364 362 CALL cxios_get_fieldgroup_group_ref(fieldgroup_hdl%daddr, group_ref_, len(group_ref_)) 365 363 ENDIF 366 364 367 365 IF (PRESENT(level_)) THEN 368 366 CALL cxios_get_fieldgroup_level(fieldgroup_hdl%daddr, level_) 369 367 ENDIF 370 368 371 369 IF (PRESENT(long_name_)) THEN 372 370 CALL cxios_get_fieldgroup_long_name(fieldgroup_hdl%daddr, long_name_, len(long_name_)) 373 371 ENDIF 374 372 375 373 IF (PRESENT(name_)) THEN 376 374 CALL cxios_get_fieldgroup_name(fieldgroup_hdl%daddr, name_, len(name_)) 377 375 ENDIF 378 376 379 377 IF (PRESENT(operation_)) THEN 380 378 CALL cxios_get_fieldgroup_operation(fieldgroup_hdl%daddr, operation_, len(operation_)) 381 379 ENDIF 382 380 383 381 IF (PRESENT(prec_)) THEN 384 382 CALL cxios_get_fieldgroup_prec(fieldgroup_hdl%daddr, prec_) 385 383 ENDIF 386 384 387 385 IF (PRESENT(scale_factor_)) THEN 388 386 CALL cxios_get_fieldgroup_scale_factor(fieldgroup_hdl%daddr, scale_factor_) 389 387 ENDIF 390 388 391 389 IF (PRESENT(standard_name_)) THEN 392 390 CALL cxios_get_fieldgroup_standard_name(fieldgroup_hdl%daddr, standard_name_, len(standard_name_)) 393 391 ENDIF 394 392 395 393 IF (PRESENT(unit_)) THEN 396 394 CALL cxios_get_fieldgroup_unit(fieldgroup_hdl%daddr, unit_, len(unit_)) 397 395 ENDIF 398 396 399 397 IF (PRESENT(valid_max_)) THEN 400 398 CALL cxios_get_fieldgroup_valid_max(fieldgroup_hdl%daddr, valid_max_) 401 399 ENDIF 402 400 403 401 IF (PRESENT(valid_min_)) THEN 404 402 CALL cxios_get_fieldgroup_valid_min(fieldgroup_hdl%daddr, valid_min_) 405 403 ENDIF 406 407 408 404 409 405 END SUBROUTINE xios(get_fieldgroup_attr_hdl_) 410 406 411 407 SUBROUTINE xios(is_defined_fieldgroup_attr) & 412 408 ( fieldgroup_id, add_offset, axis_ref, default_value, detect_missing_value, domain_ref, enabled & 413 409 , field_ref, freq_offset, freq_op, grid_ref, group_ref, level, long_name, name, operation, prec & 414 410 , scale_factor, standard_name, unit, valid_max, valid_min ) 415 411 416 412 IMPLICIT NONE 417 413 TYPE(txios(fieldgroup)) :: fieldgroup_hdl … … 459 455 LOGICAL, OPTIONAL, INTENT(OUT) :: valid_min 460 456 LOGICAL(KIND=C_BOOL) :: valid_min_tmp 461 457 462 458 CALL xios(get_fieldgroup_handle)(fieldgroup_id,fieldgroup_hdl) 463 459 CALL xios(is_defined_fieldgroup_attr_hdl_) & … … 465 461 , field_ref, freq_offset, freq_op, grid_ref, group_ref, level, long_name, name, operation, prec & 466 462 , scale_factor, standard_name, unit, valid_max, valid_min ) 467 463 468 464 END SUBROUTINE xios(is_defined_fieldgroup_attr) 469 465 470 466 SUBROUTINE xios(is_defined_fieldgroup_attr_hdl) & 471 467 ( fieldgroup_hdl, add_offset, axis_ref, default_value, detect_missing_value, domain_ref, enabled & 472 468 , field_ref, freq_offset, freq_op, grid_ref, group_ref, level, long_name, name, operation, prec & 473 469 , scale_factor, standard_name, unit, valid_max, valid_min ) 474 470 475 471 IMPLICIT NONE 476 472 TYPE(txios(fieldgroup)) , INTENT(IN) :: fieldgroup_hdl … … 517 513 LOGICAL, OPTIONAL, INTENT(OUT) :: valid_min 518 514 LOGICAL(KIND=C_BOOL) :: valid_min_tmp 519 515 520 516 CALL xios(is_defined_fieldgroup_attr_hdl_) & 521 517 ( fieldgroup_hdl, add_offset, axis_ref, default_value, detect_missing_value, domain_ref, enabled & 522 518 , field_ref, freq_offset, freq_op, grid_ref, group_ref, level, long_name, name, operation, prec & 523 519 , scale_factor, standard_name, unit, valid_max, valid_min ) 524 520 525 521 END SUBROUTINE xios(is_defined_fieldgroup_attr_hdl) 526 522 527 523 SUBROUTINE xios(is_defined_fieldgroup_attr_hdl_) & 528 524 ( fieldgroup_hdl, add_offset_, axis_ref_, default_value_, detect_missing_value_, domain_ref_ & 529 525 , enabled_, field_ref_, freq_offset_, freq_op_, grid_ref_, group_ref_, level_, long_name_, name_ & 530 526 , operation_, prec_, scale_factor_, standard_name_, unit_, valid_max_, valid_min_ ) 531 527 532 528 IMPLICIT NONE 533 529 TYPE(txios(fieldgroup)) , INTENT(IN) :: fieldgroup_hdl … … 574 570 LOGICAL, OPTIONAL, INTENT(OUT) :: valid_min_ 575 571 LOGICAL(KIND=C_BOOL) :: valid_min__tmp 576 572 577 573 IF (PRESENT(add_offset_)) THEN 578 add_offset__tmp =cxios_is_defined_fieldgroup_add_offset(fieldgroup_hdl%daddr)579 add_offset_ =add_offset__tmp580 ENDIF 581 574 add_offset__tmp = cxios_is_defined_fieldgroup_add_offset(fieldgroup_hdl%daddr) 575 add_offset_ = add_offset__tmp 576 ENDIF 577 582 578 IF (PRESENT(axis_ref_)) THEN 583 axis_ref__tmp =cxios_is_defined_fieldgroup_axis_ref(fieldgroup_hdl%daddr)584 axis_ref_ =axis_ref__tmp585 ENDIF 586 579 axis_ref__tmp = cxios_is_defined_fieldgroup_axis_ref(fieldgroup_hdl%daddr) 580 axis_ref_ = axis_ref__tmp 581 ENDIF 582 587 583 IF (PRESENT(default_value_)) THEN 588 default_value__tmp =cxios_is_defined_fieldgroup_default_value(fieldgroup_hdl%daddr)589 default_value_ =default_value__tmp590 ENDIF 591 584 default_value__tmp = cxios_is_defined_fieldgroup_default_value(fieldgroup_hdl%daddr) 585 default_value_ = default_value__tmp 586 ENDIF 587 592 588 IF (PRESENT(detect_missing_value_)) THEN 593 detect_missing_value__tmp =cxios_is_defined_fieldgroup_detect_missing_value(fieldgroup_hdl%daddr)594 detect_missing_value_ =detect_missing_value__tmp595 ENDIF 596 589 detect_missing_value__tmp = cxios_is_defined_fieldgroup_detect_missing_value(fieldgroup_hdl%daddr) 590 detect_missing_value_ = detect_missing_value__tmp 591 ENDIF 592 597 593 IF (PRESENT(domain_ref_)) THEN 598 domain_ref__tmp =cxios_is_defined_fieldgroup_domain_ref(fieldgroup_hdl%daddr)599 domain_ref_ =domain_ref__tmp600 ENDIF 601 594 domain_ref__tmp = cxios_is_defined_fieldgroup_domain_ref(fieldgroup_hdl%daddr) 595 domain_ref_ = domain_ref__tmp 596 ENDIF 597 602 598 IF (PRESENT(enabled_)) THEN 603 enabled__tmp =cxios_is_defined_fieldgroup_enabled(fieldgroup_hdl%daddr)604 enabled_ =enabled__tmp605 ENDIF 606 599 enabled__tmp = cxios_is_defined_fieldgroup_enabled(fieldgroup_hdl%daddr) 600 enabled_ = enabled__tmp 601 ENDIF 602 607 603 IF (PRESENT(field_ref_)) THEN 608 field_ref__tmp =cxios_is_defined_fieldgroup_field_ref(fieldgroup_hdl%daddr)609 field_ref_ =field_ref__tmp610 ENDIF 611 604 field_ref__tmp = cxios_is_defined_fieldgroup_field_ref(fieldgroup_hdl%daddr) 605 field_ref_ = field_ref__tmp 606 ENDIF 607 612 608 IF (PRESENT(freq_offset_)) THEN 613 freq_offset__tmp =cxios_is_defined_fieldgroup_freq_offset(fieldgroup_hdl%daddr)614 freq_offset_ =freq_offset__tmp615 ENDIF 616 609 freq_offset__tmp = cxios_is_defined_fieldgroup_freq_offset(fieldgroup_hdl%daddr) 610 freq_offset_ = freq_offset__tmp 611 ENDIF 612 617 613 IF (PRESENT(freq_op_)) THEN 618 freq_op__tmp =cxios_is_defined_fieldgroup_freq_op(fieldgroup_hdl%daddr)619 freq_op_ =freq_op__tmp620 ENDIF 621 614 freq_op__tmp = cxios_is_defined_fieldgroup_freq_op(fieldgroup_hdl%daddr) 615 freq_op_ = freq_op__tmp 616 ENDIF 617 622 618 IF (PRESENT(grid_ref_)) THEN 623 grid_ref__tmp =cxios_is_defined_fieldgroup_grid_ref(fieldgroup_hdl%daddr)624 grid_ref_ =grid_ref__tmp625 ENDIF 626 619 grid_ref__tmp = cxios_is_defined_fieldgroup_grid_ref(fieldgroup_hdl%daddr) 620 grid_ref_ = grid_ref__tmp 621 ENDIF 622 627 623 IF (PRESENT(group_ref_)) THEN 628 group_ref__tmp =cxios_is_defined_fieldgroup_group_ref(fieldgroup_hdl%daddr)629 group_ref_ =group_ref__tmp630 ENDIF 631 624 group_ref__tmp = cxios_is_defined_fieldgroup_group_ref(fieldgroup_hdl%daddr) 625 group_ref_ = group_ref__tmp 626 ENDIF 627 632 628 IF (PRESENT(level_)) THEN 633 level__tmp =cxios_is_defined_fieldgroup_level(fieldgroup_hdl%daddr)634 level_ =level__tmp635 ENDIF 636 629 level__tmp = cxios_is_defined_fieldgroup_level(fieldgroup_hdl%daddr) 630 level_ = level__tmp 631 ENDIF 632 637 633 IF (PRESENT(long_name_)) THEN 638 long_name__tmp =cxios_is_defined_fieldgroup_long_name(fieldgroup_hdl%daddr)639 long_name_ =long_name__tmp640 ENDIF 641 634 long_name__tmp = cxios_is_defined_fieldgroup_long_name(fieldgroup_hdl%daddr) 635 long_name_ = long_name__tmp 636 ENDIF 637 642 638 IF (PRESENT(name_)) THEN 643 name__tmp =cxios_is_defined_fieldgroup_name(fieldgroup_hdl%daddr)644 name_ =name__tmp645 ENDIF 646 639 name__tmp = cxios_is_defined_fieldgroup_name(fieldgroup_hdl%daddr) 640 name_ = name__tmp 641 ENDIF 642 647 643 IF (PRESENT(operation_)) THEN 648 operation__tmp =cxios_is_defined_fieldgroup_operation(fieldgroup_hdl%daddr)649 operation_ =operation__tmp650 ENDIF 651 644 operation__tmp = cxios_is_defined_fieldgroup_operation(fieldgroup_hdl%daddr) 645 operation_ = operation__tmp 646 ENDIF 647 652 648 IF (PRESENT(prec_)) THEN 653 prec__tmp =cxios_is_defined_fieldgroup_prec(fieldgroup_hdl%daddr)654 prec_ =prec__tmp655 ENDIF 656 649 prec__tmp = cxios_is_defined_fieldgroup_prec(fieldgroup_hdl%daddr) 650 prec_ = prec__tmp 651 ENDIF 652 657 653 IF (PRESENT(scale_factor_)) THEN 658 scale_factor__tmp =cxios_is_defined_fieldgroup_scale_factor(fieldgroup_hdl%daddr)659 scale_factor_ =scale_factor__tmp660 ENDIF 661 654 scale_factor__tmp = cxios_is_defined_fieldgroup_scale_factor(fieldgroup_hdl%daddr) 655 scale_factor_ = scale_factor__tmp 656 ENDIF 657 662 658 IF (PRESENT(standard_name_)) THEN 663 standard_name__tmp =cxios_is_defined_fieldgroup_standard_name(fieldgroup_hdl%daddr)664 standard_name_ =standard_name__tmp665 ENDIF 666 659 standard_name__tmp = cxios_is_defined_fieldgroup_standard_name(fieldgroup_hdl%daddr) 660 standard_name_ = standard_name__tmp 661 ENDIF 662 667 663 IF (PRESENT(unit_)) THEN 668 unit__tmp =cxios_is_defined_fieldgroup_unit(fieldgroup_hdl%daddr)669 unit_ =unit__tmp670 ENDIF 671 664 unit__tmp = cxios_is_defined_fieldgroup_unit(fieldgroup_hdl%daddr) 665 unit_ = unit__tmp 666 ENDIF 667 672 668 IF (PRESENT(valid_max_)) THEN 673 valid_max__tmp =cxios_is_defined_fieldgroup_valid_max(fieldgroup_hdl%daddr)674 valid_max_ =valid_max__tmp675 ENDIF 676 669 valid_max__tmp = cxios_is_defined_fieldgroup_valid_max(fieldgroup_hdl%daddr) 670 valid_max_ = valid_max__tmp 671 ENDIF 672 677 673 IF (PRESENT(valid_min_)) THEN 678 valid_min__tmp=cxios_is_defined_fieldgroup_valid_min(fieldgroup_hdl%daddr) 679 valid_min_=valid_min__tmp 680 ENDIF 681 682 683 674 valid_min__tmp = cxios_is_defined_fieldgroup_valid_min(fieldgroup_hdl%daddr) 675 valid_min_ = valid_min__tmp 676 ENDIF 677 684 678 END SUBROUTINE xios(is_defined_fieldgroup_attr_hdl_) 685 679 686 680 END MODULE ifieldgroup_attr -
XIOS/trunk/src/interface/fortran_attr/ifile_attr.F90
r538 r581 8 8 USE ifile 9 9 USE file_interface_attr 10 10 11 11 CONTAINS 12 12 13 13 SUBROUTINE xios(set_file_attr) & 14 14 ( file_id, append, description, enabled, format, min_digits, name, name_suffix, output_freq & 15 15 , output_level, par_access, split_freq, split_freq_format, sync_freq, type ) 16 16 17 17 IMPLICIT NONE 18 18 TYPE(txios(file)) :: file_hdl … … 34 34 TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: sync_freq 35 35 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type 36 36 37 37 CALL xios(get_file_handle)(file_id,file_hdl) 38 38 CALL xios(set_file_attr_hdl_) & 39 39 ( file_hdl, append, description, enabled, format, min_digits, name, name_suffix, output_freq & 40 40 , output_level, par_access, split_freq, split_freq_format, sync_freq, type ) 41 41 42 42 END SUBROUTINE xios(set_file_attr) 43 43 44 44 SUBROUTINE xios(set_file_attr_hdl) & 45 45 ( file_hdl, append, description, enabled, format, min_digits, name, name_suffix, output_freq & 46 46 , output_level, par_access, split_freq, split_freq_format, sync_freq, type ) 47 47 48 48 IMPLICIT NONE 49 49 TYPE(txios(file)) , INTENT(IN) :: file_hdl … … 64 64 TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: sync_freq 65 65 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type 66 66 67 67 CALL xios(set_file_attr_hdl_) & 68 68 ( file_hdl, append, description, enabled, format, min_digits, name, name_suffix, output_freq & 69 69 , output_level, par_access, split_freq, split_freq_format, sync_freq, type ) 70 70 71 71 END SUBROUTINE xios(set_file_attr_hdl) 72 72 73 73 SUBROUTINE xios(set_file_attr_hdl_) & 74 74 ( file_hdl, append_, description_, enabled_, format_, min_digits_, name_, name_suffix_, output_freq_ & 75 75 , output_level_, par_access_, split_freq_, split_freq_format_, sync_freq_, type_ ) 76 76 77 77 IMPLICIT NONE 78 78 TYPE(txios(file)) , INTENT(IN) :: file_hdl … … 93 93 TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: sync_freq_ 94 94 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type_ 95 95 96 96 IF (PRESENT(append_)) THEN 97 append__tmp =append_97 append__tmp = append_ 98 98 CALL cxios_set_file_append(file_hdl%daddr, append__tmp) 99 99 ENDIF 100 100 101 101 IF (PRESENT(description_)) THEN 102 102 CALL cxios_set_file_description(file_hdl%daddr, description_, len(description_)) 103 103 ENDIF 104 104 105 105 IF (PRESENT(enabled_)) THEN 106 enabled__tmp =enabled_106 enabled__tmp = enabled_ 107 107 CALL cxios_set_file_enabled(file_hdl%daddr, enabled__tmp) 108 108 ENDIF 109 109 110 110 IF (PRESENT(format_)) THEN 111 111 CALL cxios_set_file_format(file_hdl%daddr, format_, len(format_)) 112 112 ENDIF 113 113 114 114 IF (PRESENT(min_digits_)) THEN 115 115 CALL cxios_set_file_min_digits(file_hdl%daddr, min_digits_) 116 116 ENDIF 117 117 118 118 IF (PRESENT(name_)) THEN 119 119 CALL cxios_set_file_name(file_hdl%daddr, name_, len(name_)) 120 120 ENDIF 121 121 122 122 IF (PRESENT(name_suffix_)) THEN 123 123 CALL cxios_set_file_name_suffix(file_hdl%daddr, name_suffix_, len(name_suffix_)) 124 124 ENDIF 125 125 126 126 IF (PRESENT(output_freq_)) THEN 127 127 CALL cxios_set_file_output_freq(file_hdl%daddr, output_freq_) 128 128 ENDIF 129 129 130 130 IF (PRESENT(output_level_)) THEN 131 131 CALL cxios_set_file_output_level(file_hdl%daddr, output_level_) 132 132 ENDIF 133 133 134 134 IF (PRESENT(par_access_)) THEN 135 135 CALL cxios_set_file_par_access(file_hdl%daddr, par_access_, len(par_access_)) 136 136 ENDIF 137 137 138 138 IF (PRESENT(split_freq_)) THEN 139 139 CALL cxios_set_file_split_freq(file_hdl%daddr, split_freq_) 140 140 ENDIF 141 141 142 142 IF (PRESENT(split_freq_format_)) THEN 143 143 CALL cxios_set_file_split_freq_format(file_hdl%daddr, split_freq_format_, len(split_freq_format_)) 144 144 ENDIF 145 145 146 146 IF (PRESENT(sync_freq_)) THEN 147 147 CALL cxios_set_file_sync_freq(file_hdl%daddr, sync_freq_) 148 148 ENDIF 149 149 150 150 IF (PRESENT(type_)) THEN 151 151 CALL cxios_set_file_type(file_hdl%daddr, type_, len(type_)) 152 152 ENDIF 153 154 155 153 156 154 END SUBROUTINE xios(set_file_attr_hdl_) 157 155 158 156 SUBROUTINE xios(get_file_attr) & 159 157 ( file_id, append, description, enabled, format, min_digits, name, name_suffix, output_freq & 160 158 , output_level, par_access, split_freq, split_freq_format, sync_freq, type ) 161 159 162 160 IMPLICIT NONE 163 161 TYPE(txios(file)) :: file_hdl … … 179 177 TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: sync_freq 180 178 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type 181 179 182 180 CALL xios(get_file_handle)(file_id,file_hdl) 183 181 CALL xios(get_file_attr_hdl_) & 184 182 ( file_hdl, append, description, enabled, format, min_digits, name, name_suffix, output_freq & 185 183 , output_level, par_access, split_freq, split_freq_format, sync_freq, type ) 186 184 187 185 END SUBROUTINE xios(get_file_attr) 188 186 189 187 SUBROUTINE xios(get_file_attr_hdl) & 190 188 ( file_hdl, append, description, enabled, format, min_digits, name, name_suffix, output_freq & 191 189 , output_level, par_access, split_freq, split_freq_format, sync_freq, type ) 192 190 193 191 IMPLICIT NONE 194 192 TYPE(txios(file)) , INTENT(IN) :: file_hdl … … 209 207 TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: sync_freq 210 208 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type 211 209 212 210 CALL xios(get_file_attr_hdl_) & 213 211 ( file_hdl, append, description, enabled, format, min_digits, name, name_suffix, output_freq & 214 212 , output_level, par_access, split_freq, split_freq_format, sync_freq, type ) 215 213 216 214 END SUBROUTINE xios(get_file_attr_hdl) 217 215 218 216 SUBROUTINE xios(get_file_attr_hdl_) & 219 217 ( file_hdl, append_, description_, enabled_, format_, min_digits_, name_, name_suffix_, output_freq_ & 220 218 , output_level_, par_access_, split_freq_, split_freq_format_, sync_freq_, type_ ) 221 219 222 220 IMPLICIT NONE 223 221 TYPE(txios(file)) , INTENT(IN) :: file_hdl … … 238 236 TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: sync_freq_ 239 237 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type_ 240 238 241 239 IF (PRESENT(append_)) THEN 242 240 CALL cxios_get_file_append(file_hdl%daddr, append__tmp) 243 append_ =append__tmp244 ENDIF 245 241 append_ = append__tmp 242 ENDIF 243 246 244 IF (PRESENT(description_)) THEN 247 245 CALL cxios_get_file_description(file_hdl%daddr, description_, len(description_)) 248 246 ENDIF 249 247 250 248 IF (PRESENT(enabled_)) THEN 251 249 CALL cxios_get_file_enabled(file_hdl%daddr, enabled__tmp) 252 enabled_ =enabled__tmp253 ENDIF 254 250 enabled_ = enabled__tmp 251 ENDIF 252 255 253 IF (PRESENT(format_)) THEN 256 254 CALL cxios_get_file_format(file_hdl%daddr, format_, len(format_)) 257 255 ENDIF 258 256 259 257 IF (PRESENT(min_digits_)) THEN 260 258 CALL cxios_get_file_min_digits(file_hdl%daddr, min_digits_) 261 259 ENDIF 262 260 263 261 IF (PRESENT(name_)) THEN 264 262 CALL cxios_get_file_name(file_hdl%daddr, name_, len(name_)) 265 263 ENDIF 266 264 267 265 IF (PRESENT(name_suffix_)) THEN 268 266 CALL cxios_get_file_name_suffix(file_hdl%daddr, name_suffix_, len(name_suffix_)) 269 267 ENDIF 270 268 271 269 IF (PRESENT(output_freq_)) THEN 272 270 CALL cxios_get_file_output_freq(file_hdl%daddr, output_freq_) 273 271 ENDIF 274 272 275 273 IF (PRESENT(output_level_)) THEN 276 274 CALL cxios_get_file_output_level(file_hdl%daddr, output_level_) 277 275 ENDIF 278 276 279 277 IF (PRESENT(par_access_)) THEN 280 278 CALL cxios_get_file_par_access(file_hdl%daddr, par_access_, len(par_access_)) 281 279 ENDIF 282 280 283 281 IF (PRESENT(split_freq_)) THEN 284 282 CALL cxios_get_file_split_freq(file_hdl%daddr, split_freq_) 285 283 ENDIF 286 284 287 285 IF (PRESENT(split_freq_format_)) THEN 288 286 CALL cxios_get_file_split_freq_format(file_hdl%daddr, split_freq_format_, len(split_freq_format_)) 289 287 ENDIF 290 288 291 289 IF (PRESENT(sync_freq_)) THEN 292 290 CALL cxios_get_file_sync_freq(file_hdl%daddr, sync_freq_) 293 291 ENDIF 294 292 295 293 IF (PRESENT(type_)) THEN 296 294 CALL cxios_get_file_type(file_hdl%daddr, type_, len(type_)) 297 295 ENDIF 298 299 300 296 301 297 END SUBROUTINE xios(get_file_attr_hdl_) 302 298 303 299 SUBROUTINE xios(is_defined_file_attr) & 304 300 ( file_id, append, description, enabled, format, min_digits, name, name_suffix, output_freq & 305 301 , output_level, par_access, split_freq, split_freq_format, sync_freq, type ) 306 302 307 303 IMPLICIT NONE 308 304 TYPE(txios(file)) :: file_hdl … … 336 332 LOGICAL, OPTIONAL, INTENT(OUT) :: type 337 333 LOGICAL(KIND=C_BOOL) :: type_tmp 338 334 339 335 CALL xios(get_file_handle)(file_id,file_hdl) 340 336 CALL xios(is_defined_file_attr_hdl_) & 341 337 ( file_hdl, append, description, enabled, format, min_digits, name, name_suffix, output_freq & 342 338 , output_level, par_access, split_freq, split_freq_format, sync_freq, type ) 343 339 344 340 END SUBROUTINE xios(is_defined_file_attr) 345 341 346 342 SUBROUTINE xios(is_defined_file_attr_hdl) & 347 343 ( file_hdl, append, description, enabled, format, min_digits, name, name_suffix, output_freq & 348 344 , output_level, par_access, split_freq, split_freq_format, sync_freq, type ) 349 345 350 346 IMPLICIT NONE 351 347 TYPE(txios(file)) , INTENT(IN) :: file_hdl … … 378 374 LOGICAL, OPTIONAL, INTENT(OUT) :: type 379 375 LOGICAL(KIND=C_BOOL) :: type_tmp 380 376 381 377 CALL xios(is_defined_file_attr_hdl_) & 382 378 ( file_hdl, append, description, enabled, format, min_digits, name, name_suffix, output_freq & 383 379 , output_level, par_access, split_freq, split_freq_format, sync_freq, type ) 384 380 385 381 END SUBROUTINE xios(is_defined_file_attr_hdl) 386 382 387 383 SUBROUTINE xios(is_defined_file_attr_hdl_) & 388 384 ( file_hdl, append_, description_, enabled_, format_, min_digits_, name_, name_suffix_, output_freq_ & 389 385 , output_level_, par_access_, split_freq_, split_freq_format_, sync_freq_, type_ ) 390 386 391 387 IMPLICIT NONE 392 388 TYPE(txios(file)) , INTENT(IN) :: file_hdl … … 419 415 LOGICAL, OPTIONAL, INTENT(OUT) :: type_ 420 416 LOGICAL(KIND=C_BOOL) :: type__tmp 421 417 422 418 IF (PRESENT(append_)) THEN 423 append__tmp =cxios_is_defined_file_append(file_hdl%daddr)424 append_ =append__tmp425 ENDIF 426 419 append__tmp = cxios_is_defined_file_append(file_hdl%daddr) 420 append_ = append__tmp 421 ENDIF 422 427 423 IF (PRESENT(description_)) THEN 428 description__tmp =cxios_is_defined_file_description(file_hdl%daddr)429 description_ =description__tmp430 ENDIF 431 424 description__tmp = cxios_is_defined_file_description(file_hdl%daddr) 425 description_ = description__tmp 426 ENDIF 427 432 428 IF (PRESENT(enabled_)) THEN 433 enabled__tmp =cxios_is_defined_file_enabled(file_hdl%daddr)434 enabled_ =enabled__tmp435 ENDIF 436 429 enabled__tmp = cxios_is_defined_file_enabled(file_hdl%daddr) 430 enabled_ = enabled__tmp 431 ENDIF 432 437 433 IF (PRESENT(format_)) THEN 438 format__tmp =cxios_is_defined_file_format(file_hdl%daddr)439 format_ =format__tmp440 ENDIF 441 434 format__tmp = cxios_is_defined_file_format(file_hdl%daddr) 435 format_ = format__tmp 436 ENDIF 437 442 438 IF (PRESENT(min_digits_)) THEN 443 min_digits__tmp =cxios_is_defined_file_min_digits(file_hdl%daddr)444 min_digits_ =min_digits__tmp445 ENDIF 446 439 min_digits__tmp = cxios_is_defined_file_min_digits(file_hdl%daddr) 440 min_digits_ = min_digits__tmp 441 ENDIF 442 447 443 IF (PRESENT(name_)) THEN 448 name__tmp =cxios_is_defined_file_name(file_hdl%daddr)449 name_ =name__tmp450 ENDIF 451 444 name__tmp = cxios_is_defined_file_name(file_hdl%daddr) 445 name_ = name__tmp 446 ENDIF 447 452 448 IF (PRESENT(name_suffix_)) THEN 453 name_suffix__tmp =cxios_is_defined_file_name_suffix(file_hdl%daddr)454 name_suffix_ =name_suffix__tmp455 ENDIF 456 449 name_suffix__tmp = cxios_is_defined_file_name_suffix(file_hdl%daddr) 450 name_suffix_ = name_suffix__tmp 451 ENDIF 452 457 453 IF (PRESENT(output_freq_)) THEN 458 output_freq__tmp =cxios_is_defined_file_output_freq(file_hdl%daddr)459 output_freq_ =output_freq__tmp460 ENDIF 461 454 output_freq__tmp = cxios_is_defined_file_output_freq(file_hdl%daddr) 455 output_freq_ = output_freq__tmp 456 ENDIF 457 462 458 IF (PRESENT(output_level_)) THEN 463 output_level__tmp =cxios_is_defined_file_output_level(file_hdl%daddr)464 output_level_ =output_level__tmp465 ENDIF 466 459 output_level__tmp = cxios_is_defined_file_output_level(file_hdl%daddr) 460 output_level_ = output_level__tmp 461 ENDIF 462 467 463 IF (PRESENT(par_access_)) THEN 468 par_access__tmp =cxios_is_defined_file_par_access(file_hdl%daddr)469 par_access_ =par_access__tmp470 ENDIF 471 464 par_access__tmp = cxios_is_defined_file_par_access(file_hdl%daddr) 465 par_access_ = par_access__tmp 466 ENDIF 467 472 468 IF (PRESENT(split_freq_)) THEN 473 split_freq__tmp =cxios_is_defined_file_split_freq(file_hdl%daddr)474 split_freq_ =split_freq__tmp475 ENDIF 476 469 split_freq__tmp = cxios_is_defined_file_split_freq(file_hdl%daddr) 470 split_freq_ = split_freq__tmp 471 ENDIF 472 477 473 IF (PRESENT(split_freq_format_)) THEN 478 split_freq_format__tmp =cxios_is_defined_file_split_freq_format(file_hdl%daddr)479 split_freq_format_ =split_freq_format__tmp480 ENDIF 481 474 split_freq_format__tmp = cxios_is_defined_file_split_freq_format(file_hdl%daddr) 475 split_freq_format_ = split_freq_format__tmp 476 ENDIF 477 482 478 IF (PRESENT(sync_freq_)) THEN 483 sync_freq__tmp =cxios_is_defined_file_sync_freq(file_hdl%daddr)484 sync_freq_ =sync_freq__tmp485 ENDIF 486 479 sync_freq__tmp = cxios_is_defined_file_sync_freq(file_hdl%daddr) 480 sync_freq_ = sync_freq__tmp 481 ENDIF 482 487 483 IF (PRESENT(type_)) THEN 488 type__tmp=cxios_is_defined_file_type(file_hdl%daddr) 489 type_=type__tmp 490 ENDIF 491 492 493 484 type__tmp = cxios_is_defined_file_type(file_hdl%daddr) 485 type_ = type__tmp 486 ENDIF 487 494 488 END SUBROUTINE xios(is_defined_file_attr_hdl_) 495 489 496 490 END MODULE ifile_attr -
XIOS/trunk/src/interface/fortran_attr/ifilegroup_attr.F90
r538 r581 8 8 USE ifile 9 9 USE filegroup_interface_attr 10 10 11 11 CONTAINS 12 12 13 13 SUBROUTINE xios(set_filegroup_attr) & 14 14 ( filegroup_id, append, description, enabled, format, group_ref, min_digits, name, name_suffix & 15 15 , output_freq, output_level, par_access, split_freq, split_freq_format, sync_freq, type ) 16 16 17 17 IMPLICIT NONE 18 18 TYPE(txios(filegroup)) :: filegroup_hdl … … 35 35 TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: sync_freq 36 36 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type 37 37 38 38 CALL xios(get_filegroup_handle)(filegroup_id,filegroup_hdl) 39 39 CALL xios(set_filegroup_attr_hdl_) & 40 40 ( filegroup_hdl, append, description, enabled, format, group_ref, min_digits, name, name_suffix & 41 41 , output_freq, output_level, par_access, split_freq, split_freq_format, sync_freq, type ) 42 42 43 43 END SUBROUTINE xios(set_filegroup_attr) 44 44 45 45 SUBROUTINE xios(set_filegroup_attr_hdl) & 46 46 ( filegroup_hdl, append, description, enabled, format, group_ref, min_digits, name, name_suffix & 47 47 , output_freq, output_level, par_access, split_freq, split_freq_format, sync_freq, type ) 48 48 49 49 IMPLICIT NONE 50 50 TYPE(txios(filegroup)) , INTENT(IN) :: filegroup_hdl … … 66 66 TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: sync_freq 67 67 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type 68 68 69 69 CALL xios(set_filegroup_attr_hdl_) & 70 70 ( filegroup_hdl, append, description, enabled, format, group_ref, min_digits, name, name_suffix & 71 71 , output_freq, output_level, par_access, split_freq, split_freq_format, sync_freq, type ) 72 72 73 73 END SUBROUTINE xios(set_filegroup_attr_hdl) 74 74 75 75 SUBROUTINE xios(set_filegroup_attr_hdl_) & 76 76 ( filegroup_hdl, append_, description_, enabled_, format_, group_ref_, min_digits_, name_, name_suffix_ & 77 77 , output_freq_, output_level_, par_access_, split_freq_, split_freq_format_, sync_freq_, type_ & 78 78 ) 79 79 80 80 IMPLICIT NONE 81 81 TYPE(txios(filegroup)) , INTENT(IN) :: filegroup_hdl … … 97 97 TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: sync_freq_ 98 98 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type_ 99 99 100 100 IF (PRESENT(append_)) THEN 101 append__tmp =append_101 append__tmp = append_ 102 102 CALL cxios_set_filegroup_append(filegroup_hdl%daddr, append__tmp) 103 103 ENDIF 104 104 105 105 IF (PRESENT(description_)) THEN 106 106 CALL cxios_set_filegroup_description(filegroup_hdl%daddr, description_, len(description_)) 107 107 ENDIF 108 108 109 109 IF (PRESENT(enabled_)) THEN 110 enabled__tmp =enabled_110 enabled__tmp = enabled_ 111 111 CALL cxios_set_filegroup_enabled(filegroup_hdl%daddr, enabled__tmp) 112 112 ENDIF 113 113 114 114 IF (PRESENT(format_)) THEN 115 115 CALL cxios_set_filegroup_format(filegroup_hdl%daddr, format_, len(format_)) 116 116 ENDIF 117 117 118 118 IF (PRESENT(group_ref_)) THEN 119 119 CALL cxios_set_filegroup_group_ref(filegroup_hdl%daddr, group_ref_, len(group_ref_)) 120 120 ENDIF 121 121 122 122 IF (PRESENT(min_digits_)) THEN 123 123 CALL cxios_set_filegroup_min_digits(filegroup_hdl%daddr, min_digits_) 124 124 ENDIF 125 125 126 126 IF (PRESENT(name_)) THEN 127 127 CALL cxios_set_filegroup_name(filegroup_hdl%daddr, name_, len(name_)) 128 128 ENDIF 129 129 130 130 IF (PRESENT(name_suffix_)) THEN 131 131 CALL cxios_set_filegroup_name_suffix(filegroup_hdl%daddr, name_suffix_, len(name_suffix_)) 132 132 ENDIF 133 133 134 134 IF (PRESENT(output_freq_)) THEN 135 135 CALL cxios_set_filegroup_output_freq(filegroup_hdl%daddr, output_freq_) 136 136 ENDIF 137 137 138 138 IF (PRESENT(output_level_)) THEN 139 139 CALL cxios_set_filegroup_output_level(filegroup_hdl%daddr, output_level_) 140 140 ENDIF 141 141 142 142 IF (PRESENT(par_access_)) THEN 143 143 CALL cxios_set_filegroup_par_access(filegroup_hdl%daddr, par_access_, len(par_access_)) 144 144 ENDIF 145 145 146 146 IF (PRESENT(split_freq_)) THEN 147 147 CALL cxios_set_filegroup_split_freq(filegroup_hdl%daddr, split_freq_) 148 148 ENDIF 149 149 150 150 IF (PRESENT(split_freq_format_)) THEN 151 151 CALL cxios_set_filegroup_split_freq_format(filegroup_hdl%daddr, split_freq_format_, len(split_freq_format_)) 152 152 ENDIF 153 153 154 154 IF (PRESENT(sync_freq_)) THEN 155 155 CALL cxios_set_filegroup_sync_freq(filegroup_hdl%daddr, sync_freq_) 156 156 ENDIF 157 157 158 158 IF (PRESENT(type_)) THEN 159 159 CALL cxios_set_filegroup_type(filegroup_hdl%daddr, type_, len(type_)) 160 160 ENDIF 161 162 163 161 164 162 END SUBROUTINE xios(set_filegroup_attr_hdl_) 165 163 166 164 SUBROUTINE xios(get_filegroup_attr) & 167 165 ( filegroup_id, append, description, enabled, format, group_ref, min_digits, name, name_suffix & 168 166 , output_freq, output_level, par_access, split_freq, split_freq_format, sync_freq, type ) 169 167 170 168 IMPLICIT NONE 171 169 TYPE(txios(filegroup)) :: filegroup_hdl … … 188 186 TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: sync_freq 189 187 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type 190 188 191 189 CALL xios(get_filegroup_handle)(filegroup_id,filegroup_hdl) 192 190 CALL xios(get_filegroup_attr_hdl_) & 193 191 ( filegroup_hdl, append, description, enabled, format, group_ref, min_digits, name, name_suffix & 194 192 , output_freq, output_level, par_access, split_freq, split_freq_format, sync_freq, type ) 195 193 196 194 END SUBROUTINE xios(get_filegroup_attr) 197 195 198 196 SUBROUTINE xios(get_filegroup_attr_hdl) & 199 197 ( filegroup_hdl, append, description, enabled, format, group_ref, min_digits, name, name_suffix & 200 198 , output_freq, output_level, par_access, split_freq, split_freq_format, sync_freq, type ) 201 199 202 200 IMPLICIT NONE 203 201 TYPE(txios(filegroup)) , INTENT(IN) :: filegroup_hdl … … 219 217 TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: sync_freq 220 218 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type 221 219 222 220 CALL xios(get_filegroup_attr_hdl_) & 223 221 ( filegroup_hdl, append, description, enabled, format, group_ref, min_digits, name, name_suffix & 224 222 , output_freq, output_level, par_access, split_freq, split_freq_format, sync_freq, type ) 225 223 226 224 END SUBROUTINE xios(get_filegroup_attr_hdl) 227 225 228 226 SUBROUTINE xios(get_filegroup_attr_hdl_) & 229 227 ( filegroup_hdl, append_, description_, enabled_, format_, group_ref_, min_digits_, name_, name_suffix_ & 230 228 , output_freq_, output_level_, par_access_, split_freq_, split_freq_format_, sync_freq_, type_ & 231 229 ) 232 230 233 231 IMPLICIT NONE 234 232 TYPE(txios(filegroup)) , INTENT(IN) :: filegroup_hdl … … 250 248 TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: sync_freq_ 251 249 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type_ 252 250 253 251 IF (PRESENT(append_)) THEN 254 252 CALL cxios_get_filegroup_append(filegroup_hdl%daddr, append__tmp) 255 append_ =append__tmp256 ENDIF 257 253 append_ = append__tmp 254 ENDIF 255 258 256 IF (PRESENT(description_)) THEN 259 257 CALL cxios_get_filegroup_description(filegroup_hdl%daddr, description_, len(description_)) 260 258 ENDIF 261 259 262 260 IF (PRESENT(enabled_)) THEN 263 261 CALL cxios_get_filegroup_enabled(filegroup_hdl%daddr, enabled__tmp) 264 enabled_ =enabled__tmp265 ENDIF 266 262 enabled_ = enabled__tmp 263 ENDIF 264 267 265 IF (PRESENT(format_)) THEN 268 266 CALL cxios_get_filegroup_format(filegroup_hdl%daddr, format_, len(format_)) 269 267 ENDIF 270 268 271 269 IF (PRESENT(group_ref_)) THEN 272 270 CALL cxios_get_filegroup_group_ref(filegroup_hdl%daddr, group_ref_, len(group_ref_)) 273 271 ENDIF 274 272 275 273 IF (PRESENT(min_digits_)) THEN 276 274 CALL cxios_get_filegroup_min_digits(filegroup_hdl%daddr, min_digits_) 277 275 ENDIF 278 276 279 277 IF (PRESENT(name_)) THEN 280 278 CALL cxios_get_filegroup_name(filegroup_hdl%daddr, name_, len(name_)) 281 279 ENDIF 282 280 283 281 IF (PRESENT(name_suffix_)) THEN 284 282 CALL cxios_get_filegroup_name_suffix(filegroup_hdl%daddr, name_suffix_, len(name_suffix_)) 285 283 ENDIF 286 284 287 285 IF (PRESENT(output_freq_)) THEN 288 286 CALL cxios_get_filegroup_output_freq(filegroup_hdl%daddr, output_freq_) 289 287 ENDIF 290 288 291 289 IF (PRESENT(output_level_)) THEN 292 290 CALL cxios_get_filegroup_output_level(filegroup_hdl%daddr, output_level_) 293 291 ENDIF 294 292 295 293 IF (PRESENT(par_access_)) THEN 296 294 CALL cxios_get_filegroup_par_access(filegroup_hdl%daddr, par_access_, len(par_access_)) 297 295 ENDIF 298 296 299 297 IF (PRESENT(split_freq_)) THEN 300 298 CALL cxios_get_filegroup_split_freq(filegroup_hdl%daddr, split_freq_) 301 299 ENDIF 302 300 303 301 IF (PRESENT(split_freq_format_)) THEN 304 302 CALL cxios_get_filegroup_split_freq_format(filegroup_hdl%daddr, split_freq_format_, len(split_freq_format_)) 305 303 ENDIF 306 304 307 305 IF (PRESENT(sync_freq_)) THEN 308 306 CALL cxios_get_filegroup_sync_freq(filegroup_hdl%daddr, sync_freq_) 309 307 ENDIF 310 308 311 309 IF (PRESENT(type_)) THEN 312 310 CALL cxios_get_filegroup_type(filegroup_hdl%daddr, type_, len(type_)) 313 311 ENDIF 314 315 316 312 317 313 END SUBROUTINE xios(get_filegroup_attr_hdl_) 318 314 319 315 SUBROUTINE xios(is_defined_filegroup_attr) & 320 316 ( filegroup_id, append, description, enabled, format, group_ref, min_digits, name, name_suffix & 321 317 , output_freq, output_level, par_access, split_freq, split_freq_format, sync_freq, type ) 322 318 323 319 IMPLICIT NONE 324 320 TYPE(txios(filegroup)) :: filegroup_hdl … … 354 350 LOGICAL, OPTIONAL, INTENT(OUT) :: type 355 351 LOGICAL(KIND=C_BOOL) :: type_tmp 356 352 357 353 CALL xios(get_filegroup_handle)(filegroup_id,filegroup_hdl) 358 354 CALL xios(is_defined_filegroup_attr_hdl_) & 359 355 ( filegroup_hdl, append, description, enabled, format, group_ref, min_digits, name, name_suffix & 360 356 , output_freq, output_level, par_access, split_freq, split_freq_format, sync_freq, type ) 361 357 362 358 END SUBROUTINE xios(is_defined_filegroup_attr) 363 359 364 360 SUBROUTINE xios(is_defined_filegroup_attr_hdl) & 365 361 ( filegroup_hdl, append, description, enabled, format, group_ref, min_digits, name, name_suffix & 366 362 , output_freq, output_level, par_access, split_freq, split_freq_format, sync_freq, type ) 367 363 368 364 IMPLICIT NONE 369 365 TYPE(txios(filegroup)) , INTENT(IN) :: filegroup_hdl … … 398 394 LOGICAL, OPTIONAL, INTENT(OUT) :: type 399 395 LOGICAL(KIND=C_BOOL) :: type_tmp 400 396 401 397 CALL xios(is_defined_filegroup_attr_hdl_) & 402 398 ( filegroup_hdl, append, description, enabled, format, group_ref, min_digits, name, name_suffix & 403 399 , output_freq, output_level, par_access, split_freq, split_freq_format, sync_freq, type ) 404 400 405 401 END SUBROUTINE xios(is_defined_filegroup_attr_hdl) 406 402 407 403 SUBROUTINE xios(is_defined_filegroup_attr_hdl_) & 408 404 ( filegroup_hdl, append_, description_, enabled_, format_, group_ref_, min_digits_, name_, name_suffix_ & 409 405 , output_freq_, output_level_, par_access_, split_freq_, split_freq_format_, sync_freq_, type_ & 410 406 ) 411 407 412 408 IMPLICIT NONE 413 409 TYPE(txios(filegroup)) , INTENT(IN) :: filegroup_hdl … … 442 438 LOGICAL, OPTIONAL, INTENT(OUT) :: type_ 443 439 LOGICAL(KIND=C_BOOL) :: type__tmp 444 440 445 441 IF (PRESENT(append_)) THEN 446 append__tmp =cxios_is_defined_filegroup_append(filegroup_hdl%daddr)447 append_ =append__tmp448 ENDIF 449 442 append__tmp = cxios_is_defined_filegroup_append(filegroup_hdl%daddr) 443 append_ = append__tmp 444 ENDIF 445 450 446 IF (PRESENT(description_)) THEN 451 description__tmp =cxios_is_defined_filegroup_description(filegroup_hdl%daddr)452 description_ =description__tmp453 ENDIF 454 447 description__tmp = cxios_is_defined_filegroup_description(filegroup_hdl%daddr) 448 description_ = description__tmp 449 ENDIF 450 455 451 IF (PRESENT(enabled_)) THEN 456 enabled__tmp =cxios_is_defined_filegroup_enabled(filegroup_hdl%daddr)457 enabled_ =enabled__tmp458 ENDIF 459 452 enabled__tmp = cxios_is_defined_filegroup_enabled(filegroup_hdl%daddr) 453 enabled_ = enabled__tmp 454 ENDIF 455 460 456 IF (PRESENT(format_)) THEN 461 format__tmp =cxios_is_defined_filegroup_format(filegroup_hdl%daddr)462 format_ =format__tmp463 ENDIF 464 457 format__tmp = cxios_is_defined_filegroup_format(filegroup_hdl%daddr) 458 format_ = format__tmp 459 ENDIF 460 465 461 IF (PRESENT(group_ref_)) THEN 466 group_ref__tmp =cxios_is_defined_filegroup_group_ref(filegroup_hdl%daddr)467 group_ref_ =group_ref__tmp468 ENDIF 469 462 group_ref__tmp = cxios_is_defined_filegroup_group_ref(filegroup_hdl%daddr) 463 group_ref_ = group_ref__tmp 464 ENDIF 465 470 466 IF (PRESENT(min_digits_)) THEN 471 min_digits__tmp =cxios_is_defined_filegroup_min_digits(filegroup_hdl%daddr)472 min_digits_ =min_digits__tmp473 ENDIF 474 467 min_digits__tmp = cxios_is_defined_filegroup_min_digits(filegroup_hdl%daddr) 468 min_digits_ = min_digits__tmp 469 ENDIF 470 475 471 IF (PRESENT(name_)) THEN 476 name__tmp =cxios_is_defined_filegroup_name(filegroup_hdl%daddr)477 name_ =name__tmp478 ENDIF 479 472 name__tmp = cxios_is_defined_filegroup_name(filegroup_hdl%daddr) 473 name_ = name__tmp 474 ENDIF 475 480 476 IF (PRESENT(name_suffix_)) THEN 481 name_suffix__tmp =cxios_is_defined_filegroup_name_suffix(filegroup_hdl%daddr)482 name_suffix_ =name_suffix__tmp483 ENDIF 484 477 name_suffix__tmp = cxios_is_defined_filegroup_name_suffix(filegroup_hdl%daddr) 478 name_suffix_ = name_suffix__tmp 479 ENDIF 480 485 481 IF (PRESENT(output_freq_)) THEN 486 output_freq__tmp =cxios_is_defined_filegroup_output_freq(filegroup_hdl%daddr)487 output_freq_ =output_freq__tmp488 ENDIF 489 482 output_freq__tmp = cxios_is_defined_filegroup_output_freq(filegroup_hdl%daddr) 483 output_freq_ = output_freq__tmp 484 ENDIF 485 490 486 IF (PRESENT(output_level_)) THEN 491 output_level__tmp =cxios_is_defined_filegroup_output_level(filegroup_hdl%daddr)492 output_level_ =output_level__tmp493 ENDIF 494 487 output_level__tmp = cxios_is_defined_filegroup_output_level(filegroup_hdl%daddr) 488 output_level_ = output_level__tmp 489 ENDIF 490 495 491 IF (PRESENT(par_access_)) THEN 496 par_access__tmp =cxios_is_defined_filegroup_par_access(filegroup_hdl%daddr)497 par_access_ =par_access__tmp498 ENDIF 499 492 par_access__tmp = cxios_is_defined_filegroup_par_access(filegroup_hdl%daddr) 493 par_access_ = par_access__tmp 494 ENDIF 495 500 496 IF (PRESENT(split_freq_)) THEN 501 split_freq__tmp =cxios_is_defined_filegroup_split_freq(filegroup_hdl%daddr)502 split_freq_ =split_freq__tmp503 ENDIF 504 497 split_freq__tmp = cxios_is_defined_filegroup_split_freq(filegroup_hdl%daddr) 498 split_freq_ = split_freq__tmp 499 ENDIF 500 505 501 IF (PRESENT(split_freq_format_)) THEN 506 split_freq_format__tmp =cxios_is_defined_filegroup_split_freq_format(filegroup_hdl%daddr)507 split_freq_format_ =split_freq_format__tmp508 ENDIF 509 502 split_freq_format__tmp = cxios_is_defined_filegroup_split_freq_format(filegroup_hdl%daddr) 503 split_freq_format_ = split_freq_format__tmp 504 ENDIF 505 510 506 IF (PRESENT(sync_freq_)) THEN 511 sync_freq__tmp =cxios_is_defined_filegroup_sync_freq(filegroup_hdl%daddr)512 sync_freq_ =sync_freq__tmp513 ENDIF 514 507 sync_freq__tmp = cxios_is_defined_filegroup_sync_freq(filegroup_hdl%daddr) 508 sync_freq_ = sync_freq__tmp 509 ENDIF 510 515 511 IF (PRESENT(type_)) THEN 516 type__tmp=cxios_is_defined_filegroup_type(filegroup_hdl%daddr) 517 type_=type__tmp 518 ENDIF 519 520 521 512 type__tmp = cxios_is_defined_filegroup_type(filegroup_hdl%daddr) 513 type_ = type__tmp 514 ENDIF 515 522 516 END SUBROUTINE xios(is_defined_filegroup_attr_hdl_) 523 517 524 518 END MODULE ifilegroup_attr -
XIOS/trunk/src/interface/fortran_attr/igrid_attr.F90
r575 r581 8 8 USE igrid 9 9 USE grid_interface_attr 10 10 11 11 CONTAINS 12 12 13 13 SUBROUTINE xios(set_grid_attr) & 14 14 ( grid_id, axis_domain_order, description, mask1, mask2, mask3, name ) 15 15 16 16 IMPLICIT NONE 17 17 TYPE(txios(grid)) :: grid_hdl … … 27 27 LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask3_tmp(:,:,:) 28 28 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name 29 29 30 30 CALL xios(get_grid_handle)(grid_id,grid_hdl) 31 31 CALL xios(set_grid_attr_hdl_) & 32 32 ( grid_hdl, axis_domain_order, description, mask1, mask2, mask3, name ) 33 33 34 34 END SUBROUTINE xios(set_grid_attr) 35 35 36 36 SUBROUTINE xios(set_grid_attr_hdl) & 37 37 ( grid_hdl, axis_domain_order, description, mask1, mask2, mask3, name ) 38 38 39 39 IMPLICIT NONE 40 40 TYPE(txios(grid)) , INTENT(IN) :: grid_hdl … … 49 49 LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask3_tmp(:,:,:) 50 50 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name 51 51 52 52 CALL xios(set_grid_attr_hdl_) & 53 53 ( grid_hdl, axis_domain_order, description, mask1, mask2, mask3, name ) 54 54 55 55 END SUBROUTINE xios(set_grid_attr_hdl) 56 56 57 57 SUBROUTINE xios(set_grid_attr_hdl_) & 58 58 ( grid_hdl, axis_domain_order_, description_, mask1_, mask2_, mask3_, name_ ) 59 59 60 60 IMPLICIT NONE 61 61 TYPE(txios(grid)) , INTENT(IN) :: grid_hdl … … 70 70 LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask3__tmp(:,:,:) 71 71 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_ 72 72 73 73 IF (PRESENT(axis_domain_order_)) THEN 74 74 ALLOCATE(axis_domain_order__tmp(size(axis_domain_order_,1))) 75 axis_domain_order__tmp =axis_domain_order_76 CALL cxios_set_grid_axis_domain_order(grid_hdl%daddr, axis_domain_order__tmp, size(axis_domain_order_,1))77 ENDIF 78 75 axis_domain_order__tmp = axis_domain_order_ 76 CALL cxios_set_grid_axis_domain_order(grid_hdl%daddr, axis_domain_order__tmp, size(axis_domain_order_,1)) 77 ENDIF 78 79 79 IF (PRESENT(description_)) THEN 80 80 CALL cxios_set_grid_description(grid_hdl%daddr, description_, len(description_)) 81 81 ENDIF 82 82 83 83 IF (PRESENT(mask1_)) THEN 84 84 ALLOCATE(mask1__tmp(size(mask1_,1))) 85 mask1__tmp =mask1_86 CALL cxios_set_grid_mask1(grid_hdl%daddr, mask1__tmp, size(mask1_,1))87 ENDIF 88 85 mask1__tmp = mask1_ 86 CALL cxios_set_grid_mask1(grid_hdl%daddr, mask1__tmp, size(mask1_,1)) 87 ENDIF 88 89 89 IF (PRESENT(mask2_)) THEN 90 ALLOCATE(mask2__tmp(size(mask2_,1), size(mask2_,2)))91 mask2__tmp =mask2_92 CALL cxios_set_grid_mask2(grid_hdl%daddr, mask2__tmp, size(mask2_,1),size(mask2_,2))93 ENDIF 94 90 ALLOCATE(mask2__tmp(size(mask2_,1), size(mask2_,2))) 91 mask2__tmp = mask2_ 92 CALL cxios_set_grid_mask2(grid_hdl%daddr, mask2__tmp, size(mask2_,1), size(mask2_,2)) 93 ENDIF 94 95 95 IF (PRESENT(mask3_)) THEN 96 ALLOCATE(mask3__tmp(size(mask3_,1), size(mask3_,2),size(mask3_,3)))97 mask3__tmp =mask3_98 CALL cxios_set_grid_mask3(grid_hdl%daddr, mask3__tmp, size(mask3_,1),size(mask3_,2),size(mask3_,3))99 ENDIF 100 96 ALLOCATE(mask3__tmp(size(mask3_,1), size(mask3_,2), size(mask3_,3))) 97 mask3__tmp = mask3_ 98 CALL cxios_set_grid_mask3(grid_hdl%daddr, mask3__tmp, size(mask3_,1), size(mask3_,2), size(mask3_,3)) 99 ENDIF 100 101 101 IF (PRESENT(name_)) THEN 102 102 CALL cxios_set_grid_name(grid_hdl%daddr, name_, len(name_)) 103 103 ENDIF 104 105 106 104 107 105 END SUBROUTINE xios(set_grid_attr_hdl_) 108 106 109 107 SUBROUTINE xios(get_grid_attr) & 110 108 ( grid_id, axis_domain_order, description, mask1, mask2, mask3, name ) 111 109 112 110 IMPLICIT NONE 113 111 TYPE(txios(grid)) :: grid_hdl … … 123 121 LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask3_tmp(:,:,:) 124 122 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name 125 123 126 124 CALL xios(get_grid_handle)(grid_id,grid_hdl) 127 125 CALL xios(get_grid_attr_hdl_) & 128 126 ( grid_hdl, axis_domain_order, description, mask1, mask2, mask3, name ) 129 127 130 128 END SUBROUTINE xios(get_grid_attr) 131 129 132 130 SUBROUTINE xios(get_grid_attr_hdl) & 133 131 ( grid_hdl, axis_domain_order, description, mask1, mask2, mask3, name ) 134 132 135 133 IMPLICIT NONE 136 134 TYPE(txios(grid)) , INTENT(IN) :: grid_hdl … … 145 143 LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask3_tmp(:,:,:) 146 144 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name 147 145 148 146 CALL xios(get_grid_attr_hdl_) & 149 147 ( grid_hdl, axis_domain_order, description, mask1, mask2, mask3, name ) 150 148 151 149 END SUBROUTINE xios(get_grid_attr_hdl) 152 150 153 151 SUBROUTINE xios(get_grid_attr_hdl_) & 154 152 ( grid_hdl, axis_domain_order_, description_, mask1_, mask2_, mask3_, name_ ) 155 153 156 154 IMPLICIT NONE 157 155 TYPE(txios(grid)) , INTENT(IN) :: grid_hdl … … 166 164 LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask3__tmp(:,:,:) 167 165 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_ 168 166 169 167 IF (PRESENT(axis_domain_order_)) THEN 170 168 ALLOCATE(axis_domain_order__tmp(size(axis_domain_order_,1))) 171 CALL cxios_get_grid_axis_domain_order(grid_hdl%daddr, axis_domain_order__tmp, size(axis_domain_order_,1))172 axis_domain_order_ =axis_domain_order__tmp173 ENDIF 174 169 CALL cxios_get_grid_axis_domain_order(grid_hdl%daddr, axis_domain_order__tmp, size(axis_domain_order_,1)) 170 axis_domain_order_ = axis_domain_order__tmp 171 ENDIF 172 175 173 IF (PRESENT(description_)) THEN 176 174 CALL cxios_get_grid_description(grid_hdl%daddr, description_, len(description_)) 177 175 ENDIF 178 176 179 177 IF (PRESENT(mask1_)) THEN 180 178 ALLOCATE(mask1__tmp(size(mask1_,1))) 181 CALL cxios_get_grid_mask1(grid_hdl%daddr, mask1__tmp, size(mask1_,1))182 mask1_ =mask1__tmp183 ENDIF 184 179 CALL cxios_get_grid_mask1(grid_hdl%daddr, mask1__tmp, size(mask1_,1)) 180 mask1_ = mask1__tmp 181 ENDIF 182 185 183 IF (PRESENT(mask2_)) THEN 186 ALLOCATE(mask2__tmp(size(mask2_,1), size(mask2_,2)))187 CALL cxios_get_grid_mask2(grid_hdl%daddr, mask2__tmp, size(mask2_,1),size(mask2_,2))188 mask2_ =mask2__tmp189 ENDIF 190 184 ALLOCATE(mask2__tmp(size(mask2_,1), size(mask2_,2))) 185 CALL cxios_get_grid_mask2(grid_hdl%daddr, mask2__tmp, size(mask2_,1), size(mask2_,2)) 186 mask2_ = mask2__tmp 187 ENDIF 188 191 189 IF (PRESENT(mask3_)) THEN 192 ALLOCATE(mask3__tmp(size(mask3_,1), size(mask3_,2),size(mask3_,3)))193 CALL cxios_get_grid_mask3(grid_hdl%daddr, mask3__tmp, size(mask3_,1),size(mask3_,2),size(mask3_,3))194 mask3_ =mask3__tmp195 ENDIF 196 190 ALLOCATE(mask3__tmp(size(mask3_,1), size(mask3_,2), size(mask3_,3))) 191 CALL cxios_get_grid_mask3(grid_hdl%daddr, mask3__tmp, size(mask3_,1), size(mask3_,2), size(mask3_,3)) 192 mask3_ = mask3__tmp 193 ENDIF 194 197 195 IF (PRESENT(name_)) THEN 198 196 CALL cxios_get_grid_name(grid_hdl%daddr, name_, len(name_)) 199 197 ENDIF 200 201 202 198 203 199 END SUBROUTINE xios(get_grid_attr_hdl_) 204 200 205 201 SUBROUTINE xios(is_defined_grid_attr) & 206 202 ( grid_id, axis_domain_order, description, mask1, mask2, mask3, name ) 207 203 208 204 IMPLICIT NONE 209 205 TYPE(txios(grid)) :: grid_hdl … … 221 217 LOGICAL, OPTIONAL, INTENT(OUT) :: name 222 218 LOGICAL(KIND=C_BOOL) :: name_tmp 223 219 224 220 CALL xios(get_grid_handle)(grid_id,grid_hdl) 225 221 CALL xios(is_defined_grid_attr_hdl_) & 226 222 ( grid_hdl, axis_domain_order, description, mask1, mask2, mask3, name ) 227 223 228 224 END SUBROUTINE xios(is_defined_grid_attr) 229 225 230 226 SUBROUTINE xios(is_defined_grid_attr_hdl) & 231 227 ( grid_hdl, axis_domain_order, description, mask1, mask2, mask3, name ) 232 228 233 229 IMPLICIT NONE 234 230 TYPE(txios(grid)) , INTENT(IN) :: grid_hdl … … 245 241 LOGICAL, OPTIONAL, INTENT(OUT) :: name 246 242 LOGICAL(KIND=C_BOOL) :: name_tmp 247 243 248 244 CALL xios(is_defined_grid_attr_hdl_) & 249 245 ( grid_hdl, axis_domain_order, description, mask1, mask2, mask3, name ) 250 246 251 247 END SUBROUTINE xios(is_defined_grid_attr_hdl) 252 248 253 249 SUBROUTINE xios(is_defined_grid_attr_hdl_) & 254 250 ( grid_hdl, axis_domain_order_, description_, mask1_, mask2_, mask3_, name_ ) 255 251 256 252 IMPLICIT NONE 257 253 TYPE(txios(grid)) , INTENT(IN) :: grid_hdl … … 268 264 LOGICAL, OPTIONAL, INTENT(OUT) :: name_ 269 265 LOGICAL(KIND=C_BOOL) :: name__tmp 270 266 271 267 IF (PRESENT(axis_domain_order_)) THEN 272 axis_domain_order__tmp =cxios_is_defined_grid_axis_domain_order(grid_hdl%daddr)273 axis_domain_order_ =axis_domain_order__tmp274 ENDIF 275 268 axis_domain_order__tmp = cxios_is_defined_grid_axis_domain_order(grid_hdl%daddr) 269 axis_domain_order_ = axis_domain_order__tmp 270 ENDIF 271 276 272 IF (PRESENT(description_)) THEN 277 description__tmp =cxios_is_defined_grid_description(grid_hdl%daddr)278 description_ =description__tmp279 ENDIF 280 273 description__tmp = cxios_is_defined_grid_description(grid_hdl%daddr) 274 description_ = description__tmp 275 ENDIF 276 281 277 IF (PRESENT(mask1_)) THEN 282 mask1__tmp =cxios_is_defined_grid_mask1(grid_hdl%daddr)283 mask1_ =mask1__tmp284 ENDIF 285 278 mask1__tmp = cxios_is_defined_grid_mask1(grid_hdl%daddr) 279 mask1_ = mask1__tmp 280 ENDIF 281 286 282 IF (PRESENT(mask2_)) THEN 287 mask2__tmp =cxios_is_defined_grid_mask2(grid_hdl%daddr)288 mask2_ =mask2__tmp289 ENDIF 290 283 mask2__tmp = cxios_is_defined_grid_mask2(grid_hdl%daddr) 284 mask2_ = mask2__tmp 285 ENDIF 286 291 287 IF (PRESENT(mask3_)) THEN 292 mask3__tmp =cxios_is_defined_grid_mask3(grid_hdl%daddr)293 mask3_ =mask3__tmp294 ENDIF 295 288 mask3__tmp = cxios_is_defined_grid_mask3(grid_hdl%daddr) 289 mask3_ = mask3__tmp 290 ENDIF 291 296 292 IF (PRESENT(name_)) THEN 297 name__tmp=cxios_is_defined_grid_name(grid_hdl%daddr) 298 name_=name__tmp 299 ENDIF 300 301 302 293 name__tmp = cxios_is_defined_grid_name(grid_hdl%daddr) 294 name_ = name__tmp 295 ENDIF 296 303 297 END SUBROUTINE xios(is_defined_grid_attr_hdl_) 304 298 305 299 END MODULE igrid_attr -
XIOS/trunk/src/interface/fortran_attr/igridgroup_attr.F90
r575 r581 8 8 USE igrid 9 9 USE gridgroup_interface_attr 10 10 11 11 CONTAINS 12 12 13 13 SUBROUTINE xios(set_gridgroup_attr) & 14 14 ( gridgroup_id, axis_domain_order, description, group_ref, mask1, mask2, mask3, name ) 15 15 16 16 IMPLICIT NONE 17 17 TYPE(txios(gridgroup)) :: gridgroup_hdl … … 28 28 LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask3_tmp(:,:,:) 29 29 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name 30 30 31 31 CALL xios(get_gridgroup_handle)(gridgroup_id,gridgroup_hdl) 32 32 CALL xios(set_gridgroup_attr_hdl_) & 33 33 ( gridgroup_hdl, axis_domain_order, description, group_ref, mask1, mask2, mask3, name ) 34 34 35 35 END SUBROUTINE xios(set_gridgroup_attr) 36 36 37 37 SUBROUTINE xios(set_gridgroup_attr_hdl) & 38 38 ( gridgroup_hdl, axis_domain_order, description, group_ref, mask1, mask2, mask3, name ) 39 39 40 40 IMPLICIT NONE 41 41 TYPE(txios(gridgroup)) , INTENT(IN) :: gridgroup_hdl … … 51 51 LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask3_tmp(:,:,:) 52 52 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name 53 53 54 54 CALL xios(set_gridgroup_attr_hdl_) & 55 55 ( gridgroup_hdl, axis_domain_order, description, group_ref, mask1, mask2, mask3, name ) 56 56 57 57 END SUBROUTINE xios(set_gridgroup_attr_hdl) 58 58 59 59 SUBROUTINE xios(set_gridgroup_attr_hdl_) & 60 60 ( gridgroup_hdl, axis_domain_order_, description_, group_ref_, mask1_, mask2_, mask3_, name_ & 61 61 ) 62 62 63 63 IMPLICIT NONE 64 64 TYPE(txios(gridgroup)) , INTENT(IN) :: gridgroup_hdl … … 74 74 LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask3__tmp(:,:,:) 75 75 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_ 76 76 77 77 IF (PRESENT(axis_domain_order_)) THEN 78 78 ALLOCATE(axis_domain_order__tmp(size(axis_domain_order_,1))) 79 axis_domain_order__tmp =axis_domain_order_80 CALL cxios_set_gridgroup_axis_domain_order(gridgroup_hdl%daddr, axis_domain_order__tmp, size(axis_domain_order_,1))81 ENDIF 82 79 axis_domain_order__tmp = axis_domain_order_ 80 CALL cxios_set_gridgroup_axis_domain_order(gridgroup_hdl%daddr, axis_domain_order__tmp, size(axis_domain_order_,1)) 81 ENDIF 82 83 83 IF (PRESENT(description_)) THEN 84 84 CALL cxios_set_gridgroup_description(gridgroup_hdl%daddr, description_, len(description_)) 85 85 ENDIF 86 86 87 87 IF (PRESENT(group_ref_)) THEN 88 88 CALL cxios_set_gridgroup_group_ref(gridgroup_hdl%daddr, group_ref_, len(group_ref_)) 89 89 ENDIF 90 90 91 91 IF (PRESENT(mask1_)) THEN 92 92 ALLOCATE(mask1__tmp(size(mask1_,1))) 93 mask1__tmp =mask1_94 CALL cxios_set_gridgroup_mask1(gridgroup_hdl%daddr, mask1__tmp, size(mask1_,1))95 ENDIF 96 93 mask1__tmp = mask1_ 94 CALL cxios_set_gridgroup_mask1(gridgroup_hdl%daddr, mask1__tmp, size(mask1_,1)) 95 ENDIF 96 97 97 IF (PRESENT(mask2_)) THEN 98 ALLOCATE(mask2__tmp(size(mask2_,1), size(mask2_,2)))99 mask2__tmp =mask2_100 CALL cxios_set_gridgroup_mask2(gridgroup_hdl%daddr, mask2__tmp, size(mask2_,1),size(mask2_,2))101 ENDIF 102 98 ALLOCATE(mask2__tmp(size(mask2_,1), size(mask2_,2))) 99 mask2__tmp = mask2_ 100 CALL cxios_set_gridgroup_mask2(gridgroup_hdl%daddr, mask2__tmp, size(mask2_,1), size(mask2_,2)) 101 ENDIF 102 103 103 IF (PRESENT(mask3_)) THEN 104 ALLOCATE(mask3__tmp(size(mask3_,1), size(mask3_,2),size(mask3_,3)))105 mask3__tmp =mask3_106 CALL cxios_set_gridgroup_mask3(gridgroup_hdl%daddr, mask3__tmp, size(mask3_,1),size(mask3_,2),size(mask3_,3))107 ENDIF 108 104 ALLOCATE(mask3__tmp(size(mask3_,1), size(mask3_,2), size(mask3_,3))) 105 mask3__tmp = mask3_ 106 CALL cxios_set_gridgroup_mask3(gridgroup_hdl%daddr, mask3__tmp, size(mask3_,1), size(mask3_,2), size(mask3_,3)) 107 ENDIF 108 109 109 IF (PRESENT(name_)) THEN 110 110 CALL cxios_set_gridgroup_name(gridgroup_hdl%daddr, name_, len(name_)) 111 111 ENDIF 112 113 114 112 115 113 END SUBROUTINE xios(set_gridgroup_attr_hdl_) 116 114 117 115 SUBROUTINE xios(get_gridgroup_attr) & 118 116 ( gridgroup_id, axis_domain_order, description, group_ref, mask1, mask2, mask3, name ) 119 117 120 118 IMPLICIT NONE 121 119 TYPE(txios(gridgroup)) :: gridgroup_hdl … … 132 130 LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask3_tmp(:,:,:) 133 131 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name 134 132 135 133 CALL xios(get_gridgroup_handle)(gridgroup_id,gridgroup_hdl) 136 134 CALL xios(get_gridgroup_attr_hdl_) & 137 135 ( gridgroup_hdl, axis_domain_order, description, group_ref, mask1, mask2, mask3, name ) 138 136 139 137 END SUBROUTINE xios(get_gridgroup_attr) 140 138 141 139 SUBROUTINE xios(get_gridgroup_attr_hdl) & 142 140 ( gridgroup_hdl, axis_domain_order, description, group_ref, mask1, mask2, mask3, name ) 143 141 144 142 IMPLICIT NONE 145 143 TYPE(txios(gridgroup)) , INTENT(IN) :: gridgroup_hdl … … 155 153 LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask3_tmp(:,:,:) 156 154 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name 157 155 158 156 CALL xios(get_gridgroup_attr_hdl_) & 159 157 ( gridgroup_hdl, axis_domain_order, description, group_ref, mask1, mask2, mask3, name ) 160 158 161 159 END SUBROUTINE xios(get_gridgroup_attr_hdl) 162 160 163 161 SUBROUTINE xios(get_gridgroup_attr_hdl_) & 164 162 ( gridgroup_hdl, axis_domain_order_, description_, group_ref_, mask1_, mask2_, mask3_, name_ & 165 163 ) 166 164 167 165 IMPLICIT NONE 168 166 TYPE(txios(gridgroup)) , INTENT(IN) :: gridgroup_hdl … … 178 176 LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask3__tmp(:,:,:) 179 177 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_ 180 178 181 179 IF (PRESENT(axis_domain_order_)) THEN 182 180 ALLOCATE(axis_domain_order__tmp(size(axis_domain_order_,1))) 183 CALL cxios_get_gridgroup_axis_domain_order(gridgroup_hdl%daddr, axis_domain_order__tmp, size(axis_domain_order_,1))184 axis_domain_order_ =axis_domain_order__tmp185 ENDIF 186 181 CALL cxios_get_gridgroup_axis_domain_order(gridgroup_hdl%daddr, axis_domain_order__tmp, size(axis_domain_order_,1)) 182 axis_domain_order_ = axis_domain_order__tmp 183 ENDIF 184 187 185 IF (PRESENT(description_)) THEN 188 186 CALL cxios_get_gridgroup_description(gridgroup_hdl%daddr, description_, len(description_)) 189 187 ENDIF 190 188 191 189 IF (PRESENT(group_ref_)) THEN 192 190 CALL cxios_get_gridgroup_group_ref(gridgroup_hdl%daddr, group_ref_, len(group_ref_)) 193 191 ENDIF 194 192 195 193 IF (PRESENT(mask1_)) THEN 196 194 ALLOCATE(mask1__tmp(size(mask1_,1))) 197 CALL cxios_get_gridgroup_mask1(gridgroup_hdl%daddr, mask1__tmp, size(mask1_,1))198 mask1_ =mask1__tmp199 ENDIF 200 195 CALL cxios_get_gridgroup_mask1(gridgroup_hdl%daddr, mask1__tmp, size(mask1_,1)) 196 mask1_ = mask1__tmp 197 ENDIF 198 201 199 IF (PRESENT(mask2_)) THEN 202 ALLOCATE(mask2__tmp(size(mask2_,1), size(mask2_,2)))203 CALL cxios_get_gridgroup_mask2(gridgroup_hdl%daddr, mask2__tmp, size(mask2_,1),size(mask2_,2))204 mask2_ =mask2__tmp205 ENDIF 206 200 ALLOCATE(mask2__tmp(size(mask2_,1), size(mask2_,2))) 201 CALL cxios_get_gridgroup_mask2(gridgroup_hdl%daddr, mask2__tmp, size(mask2_,1), size(mask2_,2)) 202 mask2_ = mask2__tmp 203 ENDIF 204 207 205 IF (PRESENT(mask3_)) THEN 208 ALLOCATE(mask3__tmp(size(mask3_,1), size(mask3_,2),size(mask3_,3)))209 CALL cxios_get_gridgroup_mask3(gridgroup_hdl%daddr, mask3__tmp, size(mask3_,1),size(mask3_,2),size(mask3_,3))210 mask3_ =mask3__tmp211 ENDIF 212 206 ALLOCATE(mask3__tmp(size(mask3_,1), size(mask3_,2), size(mask3_,3))) 207 CALL cxios_get_gridgroup_mask3(gridgroup_hdl%daddr, mask3__tmp, size(mask3_,1), size(mask3_,2), size(mask3_,3)) 208 mask3_ = mask3__tmp 209 ENDIF 210 213 211 IF (PRESENT(name_)) THEN 214 212 CALL cxios_get_gridgroup_name(gridgroup_hdl%daddr, name_, len(name_)) 215 213 ENDIF 216 217 218 214 219 215 END SUBROUTINE xios(get_gridgroup_attr_hdl_) 220 216 221 217 SUBROUTINE xios(is_defined_gridgroup_attr) & 222 218 ( gridgroup_id, axis_domain_order, description, group_ref, mask1, mask2, mask3, name ) 223 219 224 220 IMPLICIT NONE 225 221 TYPE(txios(gridgroup)) :: gridgroup_hdl … … 239 235 LOGICAL, OPTIONAL, INTENT(OUT) :: name 240 236 LOGICAL(KIND=C_BOOL) :: name_tmp 241 237 242 238 CALL xios(get_gridgroup_handle)(gridgroup_id,gridgroup_hdl) 243 239 CALL xios(is_defined_gridgroup_attr_hdl_) & 244 240 ( gridgroup_hdl, axis_domain_order, description, group_ref, mask1, mask2, mask3, name ) 245 241 246 242 END SUBROUTINE xios(is_defined_gridgroup_attr) 247 243 248 244 SUBROUTINE xios(is_defined_gridgroup_attr_hdl) & 249 245 ( gridgroup_hdl, axis_domain_order, description, group_ref, mask1, mask2, mask3, name ) 250 246 251 247 IMPLICIT NONE 252 248 TYPE(txios(gridgroup)) , INTENT(IN) :: gridgroup_hdl … … 265 261 LOGICAL, OPTIONAL, INTENT(OUT) :: name 266 262 LOGICAL(KIND=C_BOOL) :: name_tmp 267 263 268 264 CALL xios(is_defined_gridgroup_attr_hdl_) & 269 265 ( gridgroup_hdl, axis_domain_order, description, group_ref, mask1, mask2, mask3, name ) 270 266 271 267 END SUBROUTINE xios(is_defined_gridgroup_attr_hdl) 272 268 273 269 SUBROUTINE xios(is_defined_gridgroup_attr_hdl_) & 274 270 ( gridgroup_hdl, axis_domain_order_, description_, group_ref_, mask1_, mask2_, mask3_, name_ & 275 271 ) 276 272 277 273 IMPLICIT NONE 278 274 TYPE(txios(gridgroup)) , INTENT(IN) :: gridgroup_hdl … … 291 287 LOGICAL, OPTIONAL, INTENT(OUT) :: name_ 292 288 LOGICAL(KIND=C_BOOL) :: name__tmp 293 289 294 290 IF (PRESENT(axis_domain_order_)) THEN 295 axis_domain_order__tmp =cxios_is_defined_gridgroup_axis_domain_order(gridgroup_hdl%daddr)296 axis_domain_order_ =axis_domain_order__tmp297 ENDIF 298 291 axis_domain_order__tmp = cxios_is_defined_gridgroup_axis_domain_order(gridgroup_hdl%daddr) 292 axis_domain_order_ = axis_domain_order__tmp 293 ENDIF 294 299 295 IF (PRESENT(description_)) THEN 300 description__tmp =cxios_is_defined_gridgroup_description(gridgroup_hdl%daddr)301 description_ =description__tmp302 ENDIF 303 296 description__tmp = cxios_is_defined_gridgroup_description(gridgroup_hdl%daddr) 297 description_ = description__tmp 298 ENDIF 299 304 300 IF (PRESENT(group_ref_)) THEN 305 group_ref__tmp =cxios_is_defined_gridgroup_group_ref(gridgroup_hdl%daddr)306 group_ref_ =group_ref__tmp307 ENDIF 308 301 group_ref__tmp = cxios_is_defined_gridgroup_group_ref(gridgroup_hdl%daddr) 302 group_ref_ = group_ref__tmp 303 ENDIF 304 309 305 IF (PRESENT(mask1_)) THEN 310 mask1__tmp =cxios_is_defined_gridgroup_mask1(gridgroup_hdl%daddr)311 mask1_ =mask1__tmp312 ENDIF 313 306 mask1__tmp = cxios_is_defined_gridgroup_mask1(gridgroup_hdl%daddr) 307 mask1_ = mask1__tmp 308 ENDIF 309 314 310 IF (PRESENT(mask2_)) THEN 315 mask2__tmp =cxios_is_defined_gridgroup_mask2(gridgroup_hdl%daddr)316 mask2_ =mask2__tmp317 ENDIF 318 311 mask2__tmp = cxios_is_defined_gridgroup_mask2(gridgroup_hdl%daddr) 312 mask2_ = mask2__tmp 313 ENDIF 314 319 315 IF (PRESENT(mask3_)) THEN 320 mask3__tmp =cxios_is_defined_gridgroup_mask3(gridgroup_hdl%daddr)321 mask3_ =mask3__tmp322 ENDIF 323 316 mask3__tmp = cxios_is_defined_gridgroup_mask3(gridgroup_hdl%daddr) 317 mask3_ = mask3__tmp 318 ENDIF 319 324 320 IF (PRESENT(name_)) THEN 325 name__tmp=cxios_is_defined_gridgroup_name(gridgroup_hdl%daddr) 326 name_=name__tmp 327 ENDIF 328 329 330 321 name__tmp = cxios_is_defined_gridgroup_name(gridgroup_hdl%daddr) 322 name_ = name__tmp 323 ENDIF 324 331 325 END SUBROUTINE xios(is_defined_gridgroup_attr_hdl_) 332 326 333 327 END MODULE igridgroup_attr -
XIOS/trunk/src/interface/fortran_attr/ivariable_attr.F90
r501 r581 8 8 USE ivariable 9 9 USE variable_interface_attr 10 10 11 11 CONTAINS 12 12 13 13 SUBROUTINE xios(set_variable_attr) & 14 14 ( variable_id, name, type ) 15 15 16 16 IMPLICIT NONE 17 17 TYPE(txios(variable)) :: variable_hdl … … 19 19 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name 20 20 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type 21 21 22 22 CALL xios(get_variable_handle)(variable_id,variable_hdl) 23 23 CALL xios(set_variable_attr_hdl_) & 24 24 ( variable_hdl, name, type ) 25 25 26 26 END SUBROUTINE xios(set_variable_attr) 27 27 28 28 SUBROUTINE xios(set_variable_attr_hdl) & 29 29 ( variable_hdl, name, type ) 30 30 31 31 IMPLICIT NONE 32 32 TYPE(txios(variable)) , INTENT(IN) :: variable_hdl 33 33 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name 34 34 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type 35 35 36 36 CALL xios(set_variable_attr_hdl_) & 37 37 ( variable_hdl, name, type ) 38 38 39 39 END SUBROUTINE xios(set_variable_attr_hdl) 40 40 41 41 SUBROUTINE xios(set_variable_attr_hdl_) & 42 42 ( variable_hdl, name_, type_ ) 43 43 44 44 IMPLICIT NONE 45 45 TYPE(txios(variable)) , INTENT(IN) :: variable_hdl 46 46 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_ 47 47 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type_ 48 48 49 49 IF (PRESENT(name_)) THEN 50 50 CALL cxios_set_variable_name(variable_hdl%daddr, name_, len(name_)) 51 51 ENDIF 52 52 53 53 IF (PRESENT(type_)) THEN 54 54 CALL cxios_set_variable_type(variable_hdl%daddr, type_, len(type_)) 55 55 ENDIF 56 57 58 56 59 57 END SUBROUTINE xios(set_variable_attr_hdl_) 60 58 61 59 SUBROUTINE xios(get_variable_attr) & 62 60 ( variable_id, name, type ) 63 61 64 62 IMPLICIT NONE 65 63 TYPE(txios(variable)) :: variable_hdl … … 67 65 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name 68 66 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type 69 67 70 68 CALL xios(get_variable_handle)(variable_id,variable_hdl) 71 69 CALL xios(get_variable_attr_hdl_) & 72 70 ( variable_hdl, name, type ) 73 71 74 72 END SUBROUTINE xios(get_variable_attr) 75 73 76 74 SUBROUTINE xios(get_variable_attr_hdl) & 77 75 ( variable_hdl, name, type ) 78 76 79 77 IMPLICIT NONE 80 78 TYPE(txios(variable)) , INTENT(IN) :: variable_hdl 81 79 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name 82 80 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type 83 81 84 82 CALL xios(get_variable_attr_hdl_) & 85 83 ( variable_hdl, name, type ) 86 84 87 85 END SUBROUTINE xios(get_variable_attr_hdl) 88 86 89 87 SUBROUTINE xios(get_variable_attr_hdl_) & 90 88 ( variable_hdl, name_, type_ ) 91 89 92 90 IMPLICIT NONE 93 91 TYPE(txios(variable)) , INTENT(IN) :: variable_hdl 94 92 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_ 95 93 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type_ 96 94 97 95 IF (PRESENT(name_)) THEN 98 96 CALL cxios_get_variable_name(variable_hdl%daddr, name_, len(name_)) 99 97 ENDIF 100 98 101 99 IF (PRESENT(type_)) THEN 102 100 CALL cxios_get_variable_type(variable_hdl%daddr, type_, len(type_)) 103 101 ENDIF 104 105 106 102 107 103 END SUBROUTINE xios(get_variable_attr_hdl_) 108 104 109 105 SUBROUTINE xios(is_defined_variable_attr) & 110 106 ( variable_id, name, type ) 111 107 112 108 IMPLICIT NONE 113 109 TYPE(txios(variable)) :: variable_hdl … … 117 113 LOGICAL, OPTIONAL, INTENT(OUT) :: type 118 114 LOGICAL(KIND=C_BOOL) :: type_tmp 119 115 120 116 CALL xios(get_variable_handle)(variable_id,variable_hdl) 121 117 CALL xios(is_defined_variable_attr_hdl_) & 122 118 ( variable_hdl, name, type ) 123 119 124 120 END SUBROUTINE xios(is_defined_variable_attr) 125 121 126 122 SUBROUTINE xios(is_defined_variable_attr_hdl) & 127 123 ( variable_hdl, name, type ) 128 124 129 125 IMPLICIT NONE 130 126 TYPE(txios(variable)) , INTENT(IN) :: variable_hdl … … 133 129 LOGICAL, OPTIONAL, INTENT(OUT) :: type 134 130 LOGICAL(KIND=C_BOOL) :: type_tmp 135 131 136 132 CALL xios(is_defined_variable_attr_hdl_) & 137 133 ( variable_hdl, name, type ) 138 134 139 135 END SUBROUTINE xios(is_defined_variable_attr_hdl) 140 136 141 137 SUBROUTINE xios(is_defined_variable_attr_hdl_) & 142 138 ( variable_hdl, name_, type_ ) 143 139 144 140 IMPLICIT NONE 145 141 TYPE(txios(variable)) , INTENT(IN) :: variable_hdl … … 148 144 LOGICAL, OPTIONAL, INTENT(OUT) :: type_ 149 145 LOGICAL(KIND=C_BOOL) :: type__tmp 150 146 151 147 IF (PRESENT(name_)) THEN 152 name__tmp =cxios_is_defined_variable_name(variable_hdl%daddr)153 name_ =name__tmp148 name__tmp = cxios_is_defined_variable_name(variable_hdl%daddr) 149 name_ = name__tmp 154 150 ENDIF 155 151 156 152 IF (PRESENT(type_)) THEN 157 type__tmp =cxios_is_defined_variable_type(variable_hdl%daddr)158 type_ =type__tmp153 type__tmp = cxios_is_defined_variable_type(variable_hdl%daddr) 154 type_ = type__tmp 159 155 ENDIF 160 161 162 156 163 157 END SUBROUTINE xios(is_defined_variable_attr_hdl_) 164 158 165 159 END MODULE ivariable_attr -
XIOS/trunk/src/interface/fortran_attr/ivariablegroup_attr.F90
r501 r581 8 8 USE ivariable 9 9 USE variablegroup_interface_attr 10 10 11 11 CONTAINS 12 12 13 13 SUBROUTINE xios(set_variablegroup_attr) & 14 14 ( variablegroup_id, group_ref, name, type ) 15 15 16 16 IMPLICIT NONE 17 17 TYPE(txios(variablegroup)) :: variablegroup_hdl … … 20 20 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name 21 21 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type 22 22 23 23 CALL xios(get_variablegroup_handle)(variablegroup_id,variablegroup_hdl) 24 24 CALL xios(set_variablegroup_attr_hdl_) & 25 25 ( variablegroup_hdl, group_ref, name, type ) 26 26 27 27 END SUBROUTINE xios(set_variablegroup_attr) 28 28 29 29 SUBROUTINE xios(set_variablegroup_attr_hdl) & 30 30 ( variablegroup_hdl, group_ref, name, type ) 31 31 32 32 IMPLICIT NONE 33 33 TYPE(txios(variablegroup)) , INTENT(IN) :: variablegroup_hdl … … 35 35 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name 36 36 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type 37 37 38 38 CALL xios(set_variablegroup_attr_hdl_) & 39 39 ( variablegroup_hdl, group_ref, name, type ) 40 40 41 41 END SUBROUTINE xios(set_variablegroup_attr_hdl) 42 42 43 43 SUBROUTINE xios(set_variablegroup_attr_hdl_) & 44 44 ( variablegroup_hdl, group_ref_, name_, type_ ) 45 45 46 46 IMPLICIT NONE 47 47 TYPE(txios(variablegroup)) , INTENT(IN) :: variablegroup_hdl … … 49 49 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_ 50 50 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type_ 51 51 52 52 IF (PRESENT(group_ref_)) THEN 53 53 CALL cxios_set_variablegroup_group_ref(variablegroup_hdl%daddr, group_ref_, len(group_ref_)) 54 54 ENDIF 55 55 56 56 IF (PRESENT(name_)) THEN 57 57 CALL cxios_set_variablegroup_name(variablegroup_hdl%daddr, name_, len(name_)) 58 58 ENDIF 59 59 60 60 IF (PRESENT(type_)) THEN 61 61 CALL cxios_set_variablegroup_type(variablegroup_hdl%daddr, type_, len(type_)) 62 62 ENDIF 63 64 65 63 66 64 END SUBROUTINE xios(set_variablegroup_attr_hdl_) 67 65 68 66 SUBROUTINE xios(get_variablegroup_attr) & 69 67 ( variablegroup_id, group_ref, name, type ) 70 68 71 69 IMPLICIT NONE 72 70 TYPE(txios(variablegroup)) :: variablegroup_hdl … … 75 73 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name 76 74 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type 77 75 78 76 CALL xios(get_variablegroup_handle)(variablegroup_id,variablegroup_hdl) 79 77 CALL xios(get_variablegroup_attr_hdl_) & 80 78 ( variablegroup_hdl, group_ref, name, type ) 81 79 82 80 END SUBROUTINE xios(get_variablegroup_attr) 83 81 84 82 SUBROUTINE xios(get_variablegroup_attr_hdl) & 85 83 ( variablegroup_hdl, group_ref, name, type ) 86 84 87 85 IMPLICIT NONE 88 86 TYPE(txios(variablegroup)) , INTENT(IN) :: variablegroup_hdl … … 90 88 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name 91 89 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type 92 90 93 91 CALL xios(get_variablegroup_attr_hdl_) & 94 92 ( variablegroup_hdl, group_ref, name, type ) 95 93 96 94 END SUBROUTINE xios(get_variablegroup_attr_hdl) 97 95 98 96 SUBROUTINE xios(get_variablegroup_attr_hdl_) & 99 97 ( variablegroup_hdl, group_ref_, name_, type_ ) 100 98 101 99 IMPLICIT NONE 102 100 TYPE(txios(variablegroup)) , INTENT(IN) :: variablegroup_hdl … … 104 102 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_ 105 103 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type_ 106 104 107 105 IF (PRESENT(group_ref_)) THEN 108 106 CALL cxios_get_variablegroup_group_ref(variablegroup_hdl%daddr, group_ref_, len(group_ref_)) 109 107 ENDIF 110 108 111 109 IF (PRESENT(name_)) THEN 112 110 CALL cxios_get_variablegroup_name(variablegroup_hdl%daddr, name_, len(name_)) 113 111 ENDIF 114 112 115 113 IF (PRESENT(type_)) THEN 116 114 CALL cxios_get_variablegroup_type(variablegroup_hdl%daddr, type_, len(type_)) 117 115 ENDIF 118 119 120 116 121 117 END SUBROUTINE xios(get_variablegroup_attr_hdl_) 122 118 123 119 SUBROUTINE xios(is_defined_variablegroup_attr) & 124 120 ( variablegroup_id, group_ref, name, type ) 125 121 126 122 IMPLICIT NONE 127 123 TYPE(txios(variablegroup)) :: variablegroup_hdl … … 133 129 LOGICAL, OPTIONAL, INTENT(OUT) :: type 134 130 LOGICAL(KIND=C_BOOL) :: type_tmp 135 131 136 132 CALL xios(get_variablegroup_handle)(variablegroup_id,variablegroup_hdl) 137 133 CALL xios(is_defined_variablegroup_attr_hdl_) & 138 134 ( variablegroup_hdl, group_ref, name, type ) 139 135 140 136 END SUBROUTINE xios(is_defined_variablegroup_attr) 141 137 142 138 SUBROUTINE xios(is_defined_variablegroup_attr_hdl) & 143 139 ( variablegroup_hdl, group_ref, name, type ) 144 140 145 141 IMPLICIT NONE 146 142 TYPE(txios(variablegroup)) , INTENT(IN) :: variablegroup_hdl … … 151 147 LOGICAL, OPTIONAL, INTENT(OUT) :: type 152 148 LOGICAL(KIND=C_BOOL) :: type_tmp 153 149 154 150 CALL xios(is_defined_variablegroup_attr_hdl_) & 155 151 ( variablegroup_hdl, group_ref, name, type ) 156 152 157 153 END SUBROUTINE xios(is_defined_variablegroup_attr_hdl) 158 154 159 155 SUBROUTINE xios(is_defined_variablegroup_attr_hdl_) & 160 156 ( variablegroup_hdl, group_ref_, name_, type_ ) 161 157 162 158 IMPLICIT NONE 163 159 TYPE(txios(variablegroup)) , INTENT(IN) :: variablegroup_hdl … … 168 164 LOGICAL, OPTIONAL, INTENT(OUT) :: type_ 169 165 LOGICAL(KIND=C_BOOL) :: type__tmp 170 166 171 167 IF (PRESENT(group_ref_)) THEN 172 group_ref__tmp =cxios_is_defined_variablegroup_group_ref(variablegroup_hdl%daddr)173 group_ref_ =group_ref__tmp168 group_ref__tmp = cxios_is_defined_variablegroup_group_ref(variablegroup_hdl%daddr) 169 group_ref_ = group_ref__tmp 174 170 ENDIF 175 171 176 172 IF (PRESENT(name_)) THEN 177 name__tmp =cxios_is_defined_variablegroup_name(variablegroup_hdl%daddr)178 name_ =name__tmp173 name__tmp = cxios_is_defined_variablegroup_name(variablegroup_hdl%daddr) 174 name_ = name__tmp 179 175 ENDIF 180 176 181 177 IF (PRESENT(type_)) THEN 182 type__tmp =cxios_is_defined_variablegroup_type(variablegroup_hdl%daddr)183 type_ =type__tmp178 type__tmp = cxios_is_defined_variablegroup_type(variablegroup_hdl%daddr) 179 type_ = type__tmp 184 180 ENDIF 185 186 187 181 188 182 END SUBROUTINE xios(is_defined_variablegroup_attr_hdl_) 189 183 190 184 END MODULE ivariablegroup_attr -
XIOS/trunk/src/interface/fortran_attr/variable_interface_attr.F90
r532 r581 6 6 MODULE variable_interface_attr 7 7 USE, INTRINSIC :: ISO_C_BINDING 8 9 INTERFACE ! Do not call directly / interface FORTRAN 2003 <-> C9910 11 8 9 INTERFACE 10 ! Do not call directly / interface FORTRAN 2003 <-> C99 11 12 12 SUBROUTINE cxios_set_variable_name(variable_hdl, name, name_size) BIND(C) 13 13 USE ISO_C_BINDING … … 16 16 INTEGER (kind = C_INT) , VALUE :: name_size 17 17 END SUBROUTINE cxios_set_variable_name 18 18 19 19 SUBROUTINE cxios_get_variable_name(variable_hdl, name, name_size) BIND(C) 20 20 USE ISO_C_BINDING … … 23 23 INTEGER (kind = C_INT) , VALUE :: name_size 24 24 END SUBROUTINE cxios_get_variable_name 25 26 FUNCTION cxios_is_defined_variable_name(variable_hdl 25 26 FUNCTION cxios_is_defined_variable_name(variable_hdl) BIND(C) 27 27 USE ISO_C_BINDING 28 28 LOGICAL(kind=C_BOOL) :: cxios_is_defined_variable_name 29 29 INTEGER (kind = C_INTPTR_T), VALUE :: variable_hdl 30 30 END FUNCTION cxios_is_defined_variable_name 31 32 31 32 33 33 SUBROUTINE cxios_set_variable_type(variable_hdl, type, type_size) BIND(C) 34 34 USE ISO_C_BINDING … … 37 37 INTEGER (kind = C_INT) , VALUE :: type_size 38 38 END SUBROUTINE cxios_set_variable_type 39 39 40 40 SUBROUTINE cxios_get_variable_type(variable_hdl, type, type_size) BIND(C) 41 41 USE ISO_C_BINDING … … 44 44 INTEGER (kind = C_INT) , VALUE :: type_size 45 45 END SUBROUTINE cxios_get_variable_type 46 47 FUNCTION cxios_is_defined_variable_type(variable_hdl 46 47 FUNCTION cxios_is_defined_variable_type(variable_hdl) BIND(C) 48 48 USE ISO_C_BINDING 49 49 LOGICAL(kind=C_BOOL) :: cxios_is_defined_variable_type 50 50 INTEGER (kind = C_INTPTR_T), VALUE :: variable_hdl 51 51 END FUNCTION cxios_is_defined_variable_type 52 53 54 END INTERFACE 55 52 53 END INTERFACE 54 56 55 END MODULE variable_interface_attr -
XIOS/trunk/src/interface/fortran_attr/variablegroup_interface_attr.F90
r532 r581 6 6 MODULE variablegroup_interface_attr 7 7 USE, INTRINSIC :: ISO_C_BINDING 8 9 INTERFACE ! Do not call directly / interface FORTRAN 2003 <-> C9910 11 8 9 INTERFACE 10 ! Do not call directly / interface FORTRAN 2003 <-> C99 11 12 12 SUBROUTINE cxios_set_variablegroup_group_ref(variablegroup_hdl, group_ref, group_ref_size) BIND(C) 13 13 USE ISO_C_BINDING … … 16 16 INTEGER (kind = C_INT) , VALUE :: group_ref_size 17 17 END SUBROUTINE cxios_set_variablegroup_group_ref 18 18 19 19 SUBROUTINE cxios_get_variablegroup_group_ref(variablegroup_hdl, group_ref, group_ref_size) BIND(C) 20 20 USE ISO_C_BINDING … … 23 23 INTEGER (kind = C_INT) , VALUE :: group_ref_size 24 24 END SUBROUTINE cxios_get_variablegroup_group_ref 25 26 FUNCTION cxios_is_defined_variablegroup_group_ref(variablegroup_hdl 25 26 FUNCTION cxios_is_defined_variablegroup_group_ref(variablegroup_hdl) BIND(C) 27 27 USE ISO_C_BINDING 28 28 LOGICAL(kind=C_BOOL) :: cxios_is_defined_variablegroup_group_ref 29 29 INTEGER (kind = C_INTPTR_T), VALUE :: variablegroup_hdl 30 30 END FUNCTION cxios_is_defined_variablegroup_group_ref 31 32 31 32 33 33 SUBROUTINE cxios_set_variablegroup_name(variablegroup_hdl, name, name_size) BIND(C) 34 34 USE ISO_C_BINDING … … 37 37 INTEGER (kind = C_INT) , VALUE :: name_size 38 38 END SUBROUTINE cxios_set_variablegroup_name 39 39 40 40 SUBROUTINE cxios_get_variablegroup_name(variablegroup_hdl, name, name_size) BIND(C) 41 41 USE ISO_C_BINDING … … 44 44 INTEGER (kind = C_INT) , VALUE :: name_size 45 45 END SUBROUTINE cxios_get_variablegroup_name 46 47 FUNCTION cxios_is_defined_variablegroup_name(variablegroup_hdl 46 47 FUNCTION cxios_is_defined_variablegroup_name(variablegroup_hdl) BIND(C) 48 48 USE ISO_C_BINDING 49 49 LOGICAL(kind=C_BOOL) :: cxios_is_defined_variablegroup_name 50 50 INTEGER (kind = C_INTPTR_T), VALUE :: variablegroup_hdl 51 51 END FUNCTION cxios_is_defined_variablegroup_name 52 53 52 53 54 54 SUBROUTINE cxios_set_variablegroup_type(variablegroup_hdl, type, type_size) BIND(C) 55 55 USE ISO_C_BINDING … … 58 58 INTEGER (kind = C_INT) , VALUE :: type_size 59 59 END SUBROUTINE cxios_set_variablegroup_type 60 60 61 61 SUBROUTINE cxios_get_variablegroup_type(variablegroup_hdl, type, type_size) BIND(C) 62 62 USE ISO_C_BINDING … … 65 65 INTEGER (kind = C_INT) , VALUE :: type_size 66 66 END SUBROUTINE cxios_get_variablegroup_type 67 68 FUNCTION cxios_is_defined_variablegroup_type(variablegroup_hdl 67 68 FUNCTION cxios_is_defined_variablegroup_type(variablegroup_hdl) BIND(C) 69 69 USE ISO_C_BINDING 70 70 LOGICAL(kind=C_BOOL) :: cxios_is_defined_variablegroup_type 71 71 INTEGER (kind = C_INTPTR_T), VALUE :: variablegroup_hdl 72 72 END FUNCTION cxios_is_defined_variablegroup_type 73 74 75 END INTERFACE 76 73 74 END INTERFACE 75 77 76 END MODULE variablegroup_interface_attr
Note: See TracChangeset
for help on using the changeset viewer.