- Timestamp:
- 06/18/18 20:32:55 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/dev/branch_openmp/src/interface/fortran_attr/idomain_attr.F90
r1052 r1545 12 12 13 13 SUBROUTINE xios(set_domain_attr) & 14 ( domain_id, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim, data_i_index & 15 , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, i_index, ibegin, j_index & 16 , jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name & 17 , ni, ni_glo, nj, nj_glo, nvertex, prec, standard_name, type ) 14 ( domain_id, area, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d, bounds_lon_2d & 15 , bounds_lon_name, comment, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni & 16 , data_nj, dim_i_name, dim_j_name, domain_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d & 17 , latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo & 18 , nj, nj_glo, nvertex, prec, standard_name, type ) 18 19 19 20 IMPLICIT NONE … … 23 24 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_1d(:,:) 24 25 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_2d(:,:,:) 26 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: bounds_lat_name 25 27 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon_1d(:,:) 26 28 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon_2d(:,:,:) 29 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: bounds_lon_name 30 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment 27 31 INTEGER , OPTIONAL, INTENT(IN) :: data_dim 28 32 INTEGER , OPTIONAL, INTENT(IN) :: data_i_index(:) … … 32 36 INTEGER , OPTIONAL, INTENT(IN) :: data_ni 33 37 INTEGER , OPTIONAL, INTENT(IN) :: data_nj 38 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: dim_i_name 39 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: dim_j_name 34 40 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref 35 41 INTEGER , OPTIONAL, INTENT(IN) :: i_index(:) … … 37 43 INTEGER , OPTIONAL, INTENT(IN) :: j_index(:) 38 44 INTEGER , OPTIONAL, INTENT(IN) :: jbegin 45 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: lat_name 39 46 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: latvalue_1d(:) 40 47 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: latvalue_2d(:,:) 48 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: lon_name 41 49 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name 42 50 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lonvalue_1d(:) … … 59 67 (domain_id,domain_hdl) 60 68 CALL xios(set_domain_attr_hdl_) & 61 ( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim, data_i_index & 62 , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, i_index, ibegin, j_index & 63 , jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name & 64 , ni, ni_glo, nj, nj_glo, nvertex, prec, standard_name, type ) 69 ( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d, bounds_lon_2d & 70 , bounds_lon_name, comment, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni & 71 , data_nj, dim_i_name, dim_j_name, domain_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d & 72 , latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo & 73 , nj, nj_glo, nvertex, prec, standard_name, type ) 65 74 66 75 END SUBROUTINE xios(set_domain_attr) 67 76 68 77 SUBROUTINE xios(set_domain_attr_hdl) & 69 ( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim, data_i_index & 70 , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, i_index, ibegin, j_index & 71 , jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name & 72 , ni, ni_glo, nj, nj_glo, nvertex, prec, standard_name, type ) 78 ( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d, bounds_lon_2d & 79 , bounds_lon_name, comment, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni & 80 , data_nj, dim_i_name, dim_j_name, domain_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d & 81 , latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo & 82 , nj, nj_glo, nvertex, prec, standard_name, type ) 73 83 74 84 IMPLICIT NONE … … 77 87 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_1d(:,:) 78 88 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_2d(:,:,:) 89 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: bounds_lat_name 79 90 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon_1d(:,:) 80 91 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon_2d(:,:,:) 92 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: bounds_lon_name 93 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment 81 94 INTEGER , OPTIONAL, INTENT(IN) :: data_dim 82 95 INTEGER , OPTIONAL, INTENT(IN) :: data_i_index(:) … … 86 99 INTEGER , OPTIONAL, INTENT(IN) :: data_ni 87 100 INTEGER , OPTIONAL, INTENT(IN) :: data_nj 101 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: dim_i_name 102 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: dim_j_name 88 103 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref 89 104 INTEGER , OPTIONAL, INTENT(IN) :: i_index(:) … … 91 106 INTEGER , OPTIONAL, INTENT(IN) :: j_index(:) 92 107 INTEGER , OPTIONAL, INTENT(IN) :: jbegin 108 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: lat_name 93 109 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: latvalue_1d(:) 94 110 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: latvalue_2d(:,:) 111 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: lon_name 95 112 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name 96 113 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lonvalue_1d(:) … … 111 128 112 129 CALL xios(set_domain_attr_hdl_) & 113 ( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim, data_i_index & 114 , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, i_index, ibegin, j_index & 115 , jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name & 116 , ni, ni_glo, nj, nj_glo, nvertex, prec, standard_name, type ) 130 ( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d, bounds_lon_2d & 131 , bounds_lon_name, comment, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni & 132 , data_nj, dim_i_name, dim_j_name, domain_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d & 133 , latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo & 134 , nj, nj_glo, nvertex, prec, standard_name, type ) 117 135 118 136 END SUBROUTINE xios(set_domain_attr_hdl) 119 137 120 138 SUBROUTINE xios(set_domain_attr_hdl_) & 121 ( domain_hdl, area_, bounds_lat_1d_, bounds_lat_2d_, bounds_l on_1d_, bounds_lon_2d_, data_dim_ &122 , data_i_index_, data_ibegin_, data_j_index_, data_jbegin_, data_ni_, data_nj_, domain_ref_ &123 , i_index_, ibegin_, j_index_, jbegin_, latvalue_1d_, latvalue_2d_, long_name_, lonvalue_1d_ &124 , l onvalue_2d_, mask_1d_, mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, nvertex_, prec_, standard_name_ &125 , type_ )139 ( domain_hdl, area_, bounds_lat_1d_, bounds_lat_2d_, bounds_lat_name_, bounds_lon_1d_, bounds_lon_2d_ & 140 , bounds_lon_name_, comment_, data_dim_, data_i_index_, data_ibegin_, data_j_index_, data_jbegin_ & 141 , data_ni_, data_nj_, dim_i_name_, dim_j_name_, domain_ref_, i_index_, ibegin_, j_index_, jbegin_ & 142 , lat_name_, latvalue_1d_, latvalue_2d_, lon_name_, long_name_, lonvalue_1d_, lonvalue_2d_, mask_1d_ & 143 , mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, nvertex_, prec_, standard_name_, type_ ) 126 144 127 145 IMPLICIT NONE … … 130 148 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_1d_(:,:) 131 149 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_2d_(:,:,:) 150 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: bounds_lat_name_ 132 151 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon_1d_(:,:) 133 152 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon_2d_(:,:,:) 153 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: bounds_lon_name_ 154 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment_ 134 155 INTEGER , OPTIONAL, INTENT(IN) :: data_dim_ 135 156 INTEGER , OPTIONAL, INTENT(IN) :: data_i_index_(:) … … 139 160 INTEGER , OPTIONAL, INTENT(IN) :: data_ni_ 140 161 INTEGER , OPTIONAL, INTENT(IN) :: data_nj_ 162 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: dim_i_name_ 163 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: dim_j_name_ 141 164 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref_ 142 165 INTEGER , OPTIONAL, INTENT(IN) :: i_index_(:) … … 144 167 INTEGER , OPTIONAL, INTENT(IN) :: j_index_(:) 145 168 INTEGER , OPTIONAL, INTENT(IN) :: jbegin_ 169 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: lat_name_ 146 170 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: latvalue_1d_(:) 147 171 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: latvalue_2d_(:,:) 172 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: lon_name_ 148 173 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name_ 149 174 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lonvalue_1d_(:) … … 178 203 ENDIF 179 204 205 IF (PRESENT(bounds_lat_name_)) THEN 206 CALL cxios_set_domain_bounds_lat_name & 207 (domain_hdl%daddr, bounds_lat_name_, len(bounds_lat_name_)) 208 ENDIF 209 180 210 IF (PRESENT(bounds_lon_1d_)) THEN 181 211 CALL cxios_set_domain_bounds_lon_1d & … … 188 218 ENDIF 189 219 220 IF (PRESENT(bounds_lon_name_)) THEN 221 CALL cxios_set_domain_bounds_lon_name & 222 (domain_hdl%daddr, bounds_lon_name_, len(bounds_lon_name_)) 223 ENDIF 224 225 IF (PRESENT(comment_)) THEN 226 CALL cxios_set_domain_comment & 227 (domain_hdl%daddr, comment_, len(comment_)) 228 ENDIF 229 190 230 IF (PRESENT(data_dim_)) THEN 191 231 CALL cxios_set_domain_data_dim & … … 223 263 ENDIF 224 264 265 IF (PRESENT(dim_i_name_)) THEN 266 CALL cxios_set_domain_dim_i_name & 267 (domain_hdl%daddr, dim_i_name_, len(dim_i_name_)) 268 ENDIF 269 270 IF (PRESENT(dim_j_name_)) THEN 271 CALL cxios_set_domain_dim_j_name & 272 (domain_hdl%daddr, dim_j_name_, len(dim_j_name_)) 273 ENDIF 274 225 275 IF (PRESENT(domain_ref_)) THEN 226 276 CALL cxios_set_domain_domain_ref & … … 248 298 ENDIF 249 299 300 IF (PRESENT(lat_name_)) THEN 301 CALL cxios_set_domain_lat_name & 302 (domain_hdl%daddr, lat_name_, len(lat_name_)) 303 ENDIF 304 250 305 IF (PRESENT(latvalue_1d_)) THEN 251 306 CALL cxios_set_domain_latvalue_1d & … … 256 311 CALL cxios_set_domain_latvalue_2d & 257 312 (domain_hdl%daddr, latvalue_2d_, SHAPE(latvalue_2d_)) 313 ENDIF 314 315 IF (PRESENT(lon_name_)) THEN 316 CALL cxios_set_domain_lon_name & 317 (domain_hdl%daddr, lon_name_, len(lon_name_)) 258 318 ENDIF 259 319 … … 335 395 336 396 SUBROUTINE xios(get_domain_attr) & 337 ( domain_id, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim, data_i_index & 338 , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, i_index, ibegin, j_index & 339 , jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name & 340 , ni, ni_glo, nj, nj_glo, nvertex, prec, standard_name, type ) 397 ( domain_id, area, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d, bounds_lon_2d & 398 , bounds_lon_name, comment, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni & 399 , data_nj, dim_i_name, dim_j_name, domain_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d & 400 , latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo & 401 , nj, nj_glo, nvertex, prec, standard_name, type ) 341 402 342 403 IMPLICIT NONE … … 346 407 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_1d(:,:) 347 408 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_2d(:,:,:) 409 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: bounds_lat_name 348 410 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon_1d(:,:) 349 411 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon_2d(:,:,:) 412 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: bounds_lon_name 413 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment 350 414 INTEGER , OPTIONAL, INTENT(OUT) :: data_dim 351 415 INTEGER , OPTIONAL, INTENT(OUT) :: data_i_index(:) … … 355 419 INTEGER , OPTIONAL, INTENT(OUT) :: data_ni 356 420 INTEGER , OPTIONAL, INTENT(OUT) :: data_nj 421 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: dim_i_name 422 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: dim_j_name 357 423 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref 358 424 INTEGER , OPTIONAL, INTENT(OUT) :: i_index(:) … … 360 426 INTEGER , OPTIONAL, INTENT(OUT) :: j_index(:) 361 427 INTEGER , OPTIONAL, INTENT(OUT) :: jbegin 428 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: lat_name 362 429 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: latvalue_1d(:) 363 430 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: latvalue_2d(:,:) 431 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: lon_name 364 432 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name 365 433 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lonvalue_1d(:) … … 382 450 (domain_id,domain_hdl) 383 451 CALL xios(get_domain_attr_hdl_) & 384 ( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim, data_i_index & 385 , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, i_index, ibegin, j_index & 386 , jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name & 387 , ni, ni_glo, nj, nj_glo, nvertex, prec, standard_name, type ) 452 ( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d, bounds_lon_2d & 453 , bounds_lon_name, comment, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni & 454 , data_nj, dim_i_name, dim_j_name, domain_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d & 455 , latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo & 456 , nj, nj_glo, nvertex, prec, standard_name, type ) 388 457 389 458 END SUBROUTINE xios(get_domain_attr) 390 459 391 460 SUBROUTINE xios(get_domain_attr_hdl) & 392 ( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim, data_i_index & 393 , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, i_index, ibegin, j_index & 394 , jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name & 395 , ni, ni_glo, nj, nj_glo, nvertex, prec, standard_name, type ) 461 ( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d, bounds_lon_2d & 462 , bounds_lon_name, comment, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni & 463 , data_nj, dim_i_name, dim_j_name, domain_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d & 464 , latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo & 465 , nj, nj_glo, nvertex, prec, standard_name, type ) 396 466 397 467 IMPLICIT NONE … … 400 470 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_1d(:,:) 401 471 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_2d(:,:,:) 472 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: bounds_lat_name 402 473 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon_1d(:,:) 403 474 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon_2d(:,:,:) 475 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: bounds_lon_name 476 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment 404 477 INTEGER , OPTIONAL, INTENT(OUT) :: data_dim 405 478 INTEGER , OPTIONAL, INTENT(OUT) :: data_i_index(:) … … 409 482 INTEGER , OPTIONAL, INTENT(OUT) :: data_ni 410 483 INTEGER , OPTIONAL, INTENT(OUT) :: data_nj 484 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: dim_i_name 485 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: dim_j_name 411 486 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref 412 487 INTEGER , OPTIONAL, INTENT(OUT) :: i_index(:) … … 414 489 INTEGER , OPTIONAL, INTENT(OUT) :: j_index(:) 415 490 INTEGER , OPTIONAL, INTENT(OUT) :: jbegin 491 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: lat_name 416 492 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: latvalue_1d(:) 417 493 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: latvalue_2d(:,:) 494 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: lon_name 418 495 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name 419 496 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lonvalue_1d(:) … … 434 511 435 512 CALL xios(get_domain_attr_hdl_) & 436 ( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim, data_i_index & 437 , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, i_index, ibegin, j_index & 438 , jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name & 439 , ni, ni_glo, nj, nj_glo, nvertex, prec, standard_name, type ) 513 ( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d, bounds_lon_2d & 514 , bounds_lon_name, comment, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni & 515 , data_nj, dim_i_name, dim_j_name, domain_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d & 516 , latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo & 517 , nj, nj_glo, nvertex, prec, standard_name, type ) 440 518 441 519 END SUBROUTINE xios(get_domain_attr_hdl) 442 520 443 521 SUBROUTINE xios(get_domain_attr_hdl_) & 444 ( domain_hdl, area_, bounds_lat_1d_, bounds_lat_2d_, bounds_l on_1d_, bounds_lon_2d_, data_dim_ &445 , data_i_index_, data_ibegin_, data_j_index_, data_jbegin_, data_ni_, data_nj_, domain_ref_ &446 , i_index_, ibegin_, j_index_, jbegin_, latvalue_1d_, latvalue_2d_, long_name_, lonvalue_1d_ &447 , l onvalue_2d_, mask_1d_, mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, nvertex_, prec_, standard_name_ &448 , type_ )522 ( domain_hdl, area_, bounds_lat_1d_, bounds_lat_2d_, bounds_lat_name_, bounds_lon_1d_, bounds_lon_2d_ & 523 , bounds_lon_name_, comment_, data_dim_, data_i_index_, data_ibegin_, data_j_index_, data_jbegin_ & 524 , data_ni_, data_nj_, dim_i_name_, dim_j_name_, domain_ref_, i_index_, ibegin_, j_index_, jbegin_ & 525 , lat_name_, latvalue_1d_, latvalue_2d_, lon_name_, long_name_, lonvalue_1d_, lonvalue_2d_, mask_1d_ & 526 , mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, nvertex_, prec_, standard_name_, type_ ) 449 527 450 528 IMPLICIT NONE … … 453 531 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_1d_(:,:) 454 532 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_2d_(:,:,:) 533 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: bounds_lat_name_ 455 534 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon_1d_(:,:) 456 535 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon_2d_(:,:,:) 536 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: bounds_lon_name_ 537 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment_ 457 538 INTEGER , OPTIONAL, INTENT(OUT) :: data_dim_ 458 539 INTEGER , OPTIONAL, INTENT(OUT) :: data_i_index_(:) … … 462 543 INTEGER , OPTIONAL, INTENT(OUT) :: data_ni_ 463 544 INTEGER , OPTIONAL, INTENT(OUT) :: data_nj_ 545 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: dim_i_name_ 546 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: dim_j_name_ 464 547 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref_ 465 548 INTEGER , OPTIONAL, INTENT(OUT) :: i_index_(:) … … 467 550 INTEGER , OPTIONAL, INTENT(OUT) :: j_index_(:) 468 551 INTEGER , OPTIONAL, INTENT(OUT) :: jbegin_ 552 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: lat_name_ 469 553 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: latvalue_1d_(:) 470 554 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: latvalue_2d_(:,:) 555 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: lon_name_ 471 556 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name_ 472 557 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lonvalue_1d_(:) … … 501 586 ENDIF 502 587 588 IF (PRESENT(bounds_lat_name_)) THEN 589 CALL cxios_get_domain_bounds_lat_name & 590 (domain_hdl%daddr, bounds_lat_name_, len(bounds_lat_name_)) 591 ENDIF 592 503 593 IF (PRESENT(bounds_lon_1d_)) THEN 504 594 CALL cxios_get_domain_bounds_lon_1d & … … 511 601 ENDIF 512 602 603 IF (PRESENT(bounds_lon_name_)) THEN 604 CALL cxios_get_domain_bounds_lon_name & 605 (domain_hdl%daddr, bounds_lon_name_, len(bounds_lon_name_)) 606 ENDIF 607 608 IF (PRESENT(comment_)) THEN 609 CALL cxios_get_domain_comment & 610 (domain_hdl%daddr, comment_, len(comment_)) 611 ENDIF 612 513 613 IF (PRESENT(data_dim_)) THEN 514 614 CALL cxios_get_domain_data_dim & … … 546 646 ENDIF 547 647 648 IF (PRESENT(dim_i_name_)) THEN 649 CALL cxios_get_domain_dim_i_name & 650 (domain_hdl%daddr, dim_i_name_, len(dim_i_name_)) 651 ENDIF 652 653 IF (PRESENT(dim_j_name_)) THEN 654 CALL cxios_get_domain_dim_j_name & 655 (domain_hdl%daddr, dim_j_name_, len(dim_j_name_)) 656 ENDIF 657 548 658 IF (PRESENT(domain_ref_)) THEN 549 659 CALL cxios_get_domain_domain_ref & … … 571 681 ENDIF 572 682 683 IF (PRESENT(lat_name_)) THEN 684 CALL cxios_get_domain_lat_name & 685 (domain_hdl%daddr, lat_name_, len(lat_name_)) 686 ENDIF 687 573 688 IF (PRESENT(latvalue_1d_)) THEN 574 689 CALL cxios_get_domain_latvalue_1d & … … 579 694 CALL cxios_get_domain_latvalue_2d & 580 695 (domain_hdl%daddr, latvalue_2d_, SHAPE(latvalue_2d_)) 696 ENDIF 697 698 IF (PRESENT(lon_name_)) THEN 699 CALL cxios_get_domain_lon_name & 700 (domain_hdl%daddr, lon_name_, len(lon_name_)) 581 701 ENDIF 582 702 … … 658 778 659 779 SUBROUTINE xios(is_defined_domain_attr) & 660 ( domain_id, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim, data_i_index & 661 , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, i_index, ibegin, j_index & 662 , jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name & 663 , ni, ni_glo, nj, nj_glo, nvertex, prec, standard_name, type ) 780 ( domain_id, area, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d, bounds_lon_2d & 781 , bounds_lon_name, comment, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni & 782 , data_nj, dim_i_name, dim_j_name, domain_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d & 783 , latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo & 784 , nj, nj_glo, nvertex, prec, standard_name, type ) 664 785 665 786 IMPLICIT NONE … … 672 793 LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_2d 673 794 LOGICAL(KIND=C_BOOL) :: bounds_lat_2d_tmp 795 LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_name 796 LOGICAL(KIND=C_BOOL) :: bounds_lat_name_tmp 674 797 LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_1d 675 798 LOGICAL(KIND=C_BOOL) :: bounds_lon_1d_tmp 676 799 LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_2d 677 800 LOGICAL(KIND=C_BOOL) :: bounds_lon_2d_tmp 801 LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_name 802 LOGICAL(KIND=C_BOOL) :: bounds_lon_name_tmp 803 LOGICAL, OPTIONAL, INTENT(OUT) :: comment 804 LOGICAL(KIND=C_BOOL) :: comment_tmp 678 805 LOGICAL, OPTIONAL, INTENT(OUT) :: data_dim 679 806 LOGICAL(KIND=C_BOOL) :: data_dim_tmp … … 690 817 LOGICAL, OPTIONAL, INTENT(OUT) :: data_nj 691 818 LOGICAL(KIND=C_BOOL) :: data_nj_tmp 819 LOGICAL, OPTIONAL, INTENT(OUT) :: dim_i_name 820 LOGICAL(KIND=C_BOOL) :: dim_i_name_tmp 821 LOGICAL, OPTIONAL, INTENT(OUT) :: dim_j_name 822 LOGICAL(KIND=C_BOOL) :: dim_j_name_tmp 692 823 LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref 693 824 LOGICAL(KIND=C_BOOL) :: domain_ref_tmp … … 700 831 LOGICAL, OPTIONAL, INTENT(OUT) :: jbegin 701 832 LOGICAL(KIND=C_BOOL) :: jbegin_tmp 833 LOGICAL, OPTIONAL, INTENT(OUT) :: lat_name 834 LOGICAL(KIND=C_BOOL) :: lat_name_tmp 702 835 LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue_1d 703 836 LOGICAL(KIND=C_BOOL) :: latvalue_1d_tmp 704 837 LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue_2d 705 838 LOGICAL(KIND=C_BOOL) :: latvalue_2d_tmp 839 LOGICAL, OPTIONAL, INTENT(OUT) :: lon_name 840 LOGICAL(KIND=C_BOOL) :: lon_name_tmp 706 841 LOGICAL, OPTIONAL, INTENT(OUT) :: long_name 707 842 LOGICAL(KIND=C_BOOL) :: long_name_tmp … … 736 871 (domain_id,domain_hdl) 737 872 CALL xios(is_defined_domain_attr_hdl_) & 738 ( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim, data_i_index & 739 , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, i_index, ibegin, j_index & 740 , jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name & 741 , ni, ni_glo, nj, nj_glo, nvertex, prec, standard_name, type ) 873 ( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d, bounds_lon_2d & 874 , bounds_lon_name, comment, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni & 875 , data_nj, dim_i_name, dim_j_name, domain_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d & 876 , latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo & 877 , nj, nj_glo, nvertex, prec, standard_name, type ) 742 878 743 879 END SUBROUTINE xios(is_defined_domain_attr) 744 880 745 881 SUBROUTINE xios(is_defined_domain_attr_hdl) & 746 ( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim, data_i_index & 747 , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, i_index, ibegin, j_index & 748 , jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name & 749 , ni, ni_glo, nj, nj_glo, nvertex, prec, standard_name, type ) 882 ( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d, bounds_lon_2d & 883 , bounds_lon_name, comment, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni & 884 , data_nj, dim_i_name, dim_j_name, domain_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d & 885 , latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo & 886 , nj, nj_glo, nvertex, prec, standard_name, type ) 750 887 751 888 IMPLICIT NONE … … 757 894 LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_2d 758 895 LOGICAL(KIND=C_BOOL) :: bounds_lat_2d_tmp 896 LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_name 897 LOGICAL(KIND=C_BOOL) :: bounds_lat_name_tmp 759 898 LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_1d 760 899 LOGICAL(KIND=C_BOOL) :: bounds_lon_1d_tmp 761 900 LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_2d 762 901 LOGICAL(KIND=C_BOOL) :: bounds_lon_2d_tmp 902 LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_name 903 LOGICAL(KIND=C_BOOL) :: bounds_lon_name_tmp 904 LOGICAL, OPTIONAL, INTENT(OUT) :: comment 905 LOGICAL(KIND=C_BOOL) :: comment_tmp 763 906 LOGICAL, OPTIONAL, INTENT(OUT) :: data_dim 764 907 LOGICAL(KIND=C_BOOL) :: data_dim_tmp … … 775 918 LOGICAL, OPTIONAL, INTENT(OUT) :: data_nj 776 919 LOGICAL(KIND=C_BOOL) :: data_nj_tmp 920 LOGICAL, OPTIONAL, INTENT(OUT) :: dim_i_name 921 LOGICAL(KIND=C_BOOL) :: dim_i_name_tmp 922 LOGICAL, OPTIONAL, INTENT(OUT) :: dim_j_name 923 LOGICAL(KIND=C_BOOL) :: dim_j_name_tmp 777 924 LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref 778 925 LOGICAL(KIND=C_BOOL) :: domain_ref_tmp … … 785 932 LOGICAL, OPTIONAL, INTENT(OUT) :: jbegin 786 933 LOGICAL(KIND=C_BOOL) :: jbegin_tmp 934 LOGICAL, OPTIONAL, INTENT(OUT) :: lat_name 935 LOGICAL(KIND=C_BOOL) :: lat_name_tmp 787 936 LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue_1d 788 937 LOGICAL(KIND=C_BOOL) :: latvalue_1d_tmp 789 938 LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue_2d 790 939 LOGICAL(KIND=C_BOOL) :: latvalue_2d_tmp 940 LOGICAL, OPTIONAL, INTENT(OUT) :: lon_name 941 LOGICAL(KIND=C_BOOL) :: lon_name_tmp 791 942 LOGICAL, OPTIONAL, INTENT(OUT) :: long_name 792 943 LOGICAL(KIND=C_BOOL) :: long_name_tmp … … 819 970 820 971 CALL xios(is_defined_domain_attr_hdl_) & 821 ( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim, data_i_index & 822 , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, i_index, ibegin, j_index & 823 , jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name & 824 , ni, ni_glo, nj, nj_glo, nvertex, prec, standard_name, type ) 972 ( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d, bounds_lon_2d & 973 , bounds_lon_name, comment, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni & 974 , data_nj, dim_i_name, dim_j_name, domain_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d & 975 , latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo & 976 , nj, nj_glo, nvertex, prec, standard_name, type ) 825 977 826 978 END SUBROUTINE xios(is_defined_domain_attr_hdl) 827 979 828 980 SUBROUTINE xios(is_defined_domain_attr_hdl_) & 829 ( domain_hdl, area_, bounds_lat_1d_, bounds_lat_2d_, bounds_l on_1d_, bounds_lon_2d_, data_dim_ &830 , data_i_index_, data_ibegin_, data_j_index_, data_jbegin_, data_ni_, data_nj_, domain_ref_ &831 , i_index_, ibegin_, j_index_, jbegin_, latvalue_1d_, latvalue_2d_, long_name_, lonvalue_1d_ &832 , l onvalue_2d_, mask_1d_, mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, nvertex_, prec_, standard_name_ &833 , type_ )981 ( domain_hdl, area_, bounds_lat_1d_, bounds_lat_2d_, bounds_lat_name_, bounds_lon_1d_, bounds_lon_2d_ & 982 , bounds_lon_name_, comment_, data_dim_, data_i_index_, data_ibegin_, data_j_index_, data_jbegin_ & 983 , data_ni_, data_nj_, dim_i_name_, dim_j_name_, domain_ref_, i_index_, ibegin_, j_index_, jbegin_ & 984 , lat_name_, latvalue_1d_, latvalue_2d_, lon_name_, long_name_, lonvalue_1d_, lonvalue_2d_, mask_1d_ & 985 , mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, nvertex_, prec_, standard_name_, type_ ) 834 986 835 987 IMPLICIT NONE … … 841 993 LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_2d_ 842 994 LOGICAL(KIND=C_BOOL) :: bounds_lat_2d__tmp 995 LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_name_ 996 LOGICAL(KIND=C_BOOL) :: bounds_lat_name__tmp 843 997 LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_1d_ 844 998 LOGICAL(KIND=C_BOOL) :: bounds_lon_1d__tmp 845 999 LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_2d_ 846 1000 LOGICAL(KIND=C_BOOL) :: bounds_lon_2d__tmp 1001 LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_name_ 1002 LOGICAL(KIND=C_BOOL) :: bounds_lon_name__tmp 1003 LOGICAL, OPTIONAL, INTENT(OUT) :: comment_ 1004 LOGICAL(KIND=C_BOOL) :: comment__tmp 847 1005 LOGICAL, OPTIONAL, INTENT(OUT) :: data_dim_ 848 1006 LOGICAL(KIND=C_BOOL) :: data_dim__tmp … … 859 1017 LOGICAL, OPTIONAL, INTENT(OUT) :: data_nj_ 860 1018 LOGICAL(KIND=C_BOOL) :: data_nj__tmp 1019 LOGICAL, OPTIONAL, INTENT(OUT) :: dim_i_name_ 1020 LOGICAL(KIND=C_BOOL) :: dim_i_name__tmp 1021 LOGICAL, OPTIONAL, INTENT(OUT) :: dim_j_name_ 1022 LOGICAL(KIND=C_BOOL) :: dim_j_name__tmp 861 1023 LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref_ 862 1024 LOGICAL(KIND=C_BOOL) :: domain_ref__tmp … … 869 1031 LOGICAL, OPTIONAL, INTENT(OUT) :: jbegin_ 870 1032 LOGICAL(KIND=C_BOOL) :: jbegin__tmp 1033 LOGICAL, OPTIONAL, INTENT(OUT) :: lat_name_ 1034 LOGICAL(KIND=C_BOOL) :: lat_name__tmp 871 1035 LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue_1d_ 872 1036 LOGICAL(KIND=C_BOOL) :: latvalue_1d__tmp 873 1037 LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue_2d_ 874 1038 LOGICAL(KIND=C_BOOL) :: latvalue_2d__tmp 1039 LOGICAL, OPTIONAL, INTENT(OUT) :: lon_name_ 1040 LOGICAL(KIND=C_BOOL) :: lon_name__tmp 875 1041 LOGICAL, OPTIONAL, INTENT(OUT) :: long_name_ 876 1042 LOGICAL(KIND=C_BOOL) :: long_name__tmp … … 920 1086 ENDIF 921 1087 1088 IF (PRESENT(bounds_lat_name_)) THEN 1089 bounds_lat_name__tmp = cxios_is_defined_domain_bounds_lat_name & 1090 (domain_hdl%daddr) 1091 bounds_lat_name_ = bounds_lat_name__tmp 1092 ENDIF 1093 922 1094 IF (PRESENT(bounds_lon_1d_)) THEN 923 1095 bounds_lon_1d__tmp = cxios_is_defined_domain_bounds_lon_1d & … … 932 1104 ENDIF 933 1105 1106 IF (PRESENT(bounds_lon_name_)) THEN 1107 bounds_lon_name__tmp = cxios_is_defined_domain_bounds_lon_name & 1108 (domain_hdl%daddr) 1109 bounds_lon_name_ = bounds_lon_name__tmp 1110 ENDIF 1111 1112 IF (PRESENT(comment_)) THEN 1113 comment__tmp = cxios_is_defined_domain_comment & 1114 (domain_hdl%daddr) 1115 comment_ = comment__tmp 1116 ENDIF 1117 934 1118 IF (PRESENT(data_dim_)) THEN 935 1119 data_dim__tmp = cxios_is_defined_domain_data_dim & … … 974 1158 ENDIF 975 1159 1160 IF (PRESENT(dim_i_name_)) THEN 1161 dim_i_name__tmp = cxios_is_defined_domain_dim_i_name & 1162 (domain_hdl%daddr) 1163 dim_i_name_ = dim_i_name__tmp 1164 ENDIF 1165 1166 IF (PRESENT(dim_j_name_)) THEN 1167 dim_j_name__tmp = cxios_is_defined_domain_dim_j_name & 1168 (domain_hdl%daddr) 1169 dim_j_name_ = dim_j_name__tmp 1170 ENDIF 1171 976 1172 IF (PRESENT(domain_ref_)) THEN 977 1173 domain_ref__tmp = cxios_is_defined_domain_domain_ref & … … 1004 1200 ENDIF 1005 1201 1202 IF (PRESENT(lat_name_)) THEN 1203 lat_name__tmp = cxios_is_defined_domain_lat_name & 1204 (domain_hdl%daddr) 1205 lat_name_ = lat_name__tmp 1206 ENDIF 1207 1006 1208 IF (PRESENT(latvalue_1d_)) THEN 1007 1209 latvalue_1d__tmp = cxios_is_defined_domain_latvalue_1d & … … 1016 1218 ENDIF 1017 1219 1220 IF (PRESENT(lon_name_)) THEN 1221 lon_name__tmp = cxios_is_defined_domain_lon_name & 1222 (domain_hdl%daddr) 1223 lon_name_ = lon_name__tmp 1224 ENDIF 1225 1018 1226 IF (PRESENT(long_name_)) THEN 1019 1227 long_name__tmp = cxios_is_defined_domain_long_name &
Note: See TracChangeset
for help on using the changeset viewer.