- Timestamp:
- 12/17/18 10:19:12 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/trunk/src/interface/fortran_attr/idomaingroup_attr.F90
r1492 r1626 16 16 , data_nj, dim_i_name, dim_j_name, domain_ref, group_ref, i_index, ibegin, j_index, jbegin, lat_name & 17 17 , latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d & 18 , name, ni, ni_glo, nj, nj_glo, nvertex, prec, standard_name, type )18 , name, ni, ni_glo, nj, nj_glo, nvertex, prec, radius, standard_name, type ) 19 19 20 20 IMPLICIT NONE … … 62 62 INTEGER , OPTIONAL, INTENT(IN) :: nvertex 63 63 INTEGER , OPTIONAL, INTENT(IN) :: prec 64 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: radius 64 65 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name 65 66 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type … … 72 73 , data_nj, dim_i_name, dim_j_name, domain_ref, group_ref, i_index, ibegin, j_index, jbegin, lat_name & 73 74 , latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d & 74 , name, ni, ni_glo, nj, nj_glo, nvertex, prec, standard_name, type )75 , name, ni, ni_glo, nj, nj_glo, nvertex, prec, radius, standard_name, type ) 75 76 76 77 END SUBROUTINE xios(set_domaingroup_attr) … … 81 82 , data_nj, dim_i_name, dim_j_name, domain_ref, group_ref, i_index, ibegin, j_index, jbegin, lat_name & 82 83 , latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d & 83 , name, ni, ni_glo, nj, nj_glo, nvertex, prec, standard_name, type )84 , name, ni, ni_glo, nj, nj_glo, nvertex, prec, radius, standard_name, type ) 84 85 85 86 IMPLICIT NONE … … 126 127 INTEGER , OPTIONAL, INTENT(IN) :: nvertex 127 128 INTEGER , OPTIONAL, INTENT(IN) :: prec 129 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: radius 128 130 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name 129 131 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type … … 134 136 , data_nj, dim_i_name, dim_j_name, domain_ref, group_ref, i_index, ibegin, j_index, jbegin, lat_name & 135 137 , latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d & 136 , name, ni, ni_glo, nj, nj_glo, nvertex, prec, standard_name, type )138 , name, ni, ni_glo, nj, nj_glo, nvertex, prec, radius, standard_name, type ) 137 139 138 140 END SUBROUTINE xios(set_domaingroup_attr_hdl) … … 143 145 , data_ni_, data_nj_, dim_i_name_, dim_j_name_, domain_ref_, group_ref_, i_index_, ibegin_, j_index_ & 144 146 , jbegin_, lat_name_, latvalue_1d_, latvalue_2d_, lon_name_, long_name_, lonvalue_1d_, lonvalue_2d_ & 145 , mask_1d_, mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, nvertex_, prec_, standard_name_, type_ &146 )147 , mask_1d_, mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, nvertex_, prec_, radius_, standard_name_ & 148 , type_ ) 147 149 148 150 IMPLICIT NONE … … 189 191 INTEGER , OPTIONAL, INTENT(IN) :: nvertex_ 190 192 INTEGER , OPTIONAL, INTENT(IN) :: prec_ 193 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: radius_ 191 194 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name_ 192 195 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type_ … … 391 394 ENDIF 392 395 396 IF (PRESENT(radius_)) THEN 397 CALL cxios_set_domaingroup_radius & 398 (domaingroup_hdl%daddr, radius_) 399 ENDIF 400 393 401 IF (PRESENT(standard_name_)) THEN 394 402 CALL cxios_set_domaingroup_standard_name & … … 408 416 , data_nj, dim_i_name, dim_j_name, domain_ref, group_ref, i_index, ibegin, j_index, jbegin, lat_name & 409 417 , latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d & 410 , name, ni, ni_glo, nj, nj_glo, nvertex, prec, standard_name, type )418 , name, ni, ni_glo, nj, nj_glo, nvertex, prec, radius, standard_name, type ) 411 419 412 420 IMPLICIT NONE … … 454 462 INTEGER , OPTIONAL, INTENT(OUT) :: nvertex 455 463 INTEGER , OPTIONAL, INTENT(OUT) :: prec 464 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: radius 456 465 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name 457 466 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type … … 464 473 , data_nj, dim_i_name, dim_j_name, domain_ref, group_ref, i_index, ibegin, j_index, jbegin, lat_name & 465 474 , latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d & 466 , name, ni, ni_glo, nj, nj_glo, nvertex, prec, standard_name, type )475 , name, ni, ni_glo, nj, nj_glo, nvertex, prec, radius, standard_name, type ) 467 476 468 477 END SUBROUTINE xios(get_domaingroup_attr) … … 473 482 , data_nj, dim_i_name, dim_j_name, domain_ref, group_ref, i_index, ibegin, j_index, jbegin, lat_name & 474 483 , latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d & 475 , name, ni, ni_glo, nj, nj_glo, nvertex, prec, standard_name, type )484 , name, ni, ni_glo, nj, nj_glo, nvertex, prec, radius, standard_name, type ) 476 485 477 486 IMPLICIT NONE … … 518 527 INTEGER , OPTIONAL, INTENT(OUT) :: nvertex 519 528 INTEGER , OPTIONAL, INTENT(OUT) :: prec 529 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: radius 520 530 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name 521 531 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type … … 526 536 , data_nj, dim_i_name, dim_j_name, domain_ref, group_ref, i_index, ibegin, j_index, jbegin, lat_name & 527 537 , latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d & 528 , name, ni, ni_glo, nj, nj_glo, nvertex, prec, standard_name, type )538 , name, ni, ni_glo, nj, nj_glo, nvertex, prec, radius, standard_name, type ) 529 539 530 540 END SUBROUTINE xios(get_domaingroup_attr_hdl) … … 535 545 , data_ni_, data_nj_, dim_i_name_, dim_j_name_, domain_ref_, group_ref_, i_index_, ibegin_, j_index_ & 536 546 , jbegin_, lat_name_, latvalue_1d_, latvalue_2d_, lon_name_, long_name_, lonvalue_1d_, lonvalue_2d_ & 537 , mask_1d_, mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, nvertex_, prec_, standard_name_, type_ &538 )547 , mask_1d_, mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, nvertex_, prec_, radius_, standard_name_ & 548 , type_ ) 539 549 540 550 IMPLICIT NONE … … 581 591 INTEGER , OPTIONAL, INTENT(OUT) :: nvertex_ 582 592 INTEGER , OPTIONAL, INTENT(OUT) :: prec_ 593 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: radius_ 583 594 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name_ 584 595 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type_ … … 783 794 ENDIF 784 795 796 IF (PRESENT(radius_)) THEN 797 CALL cxios_get_domaingroup_radius & 798 (domaingroup_hdl%daddr, radius_) 799 ENDIF 800 785 801 IF (PRESENT(standard_name_)) THEN 786 802 CALL cxios_get_domaingroup_standard_name & … … 800 816 , data_nj, dim_i_name, dim_j_name, domain_ref, group_ref, i_index, ibegin, j_index, jbegin, lat_name & 801 817 , latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d & 802 , name, ni, ni_glo, nj, nj_glo, nvertex, prec, standard_name, type )818 , name, ni, ni_glo, nj, nj_glo, nvertex, prec, radius, standard_name, type ) 803 819 804 820 IMPLICIT NONE … … 883 899 LOGICAL, OPTIONAL, INTENT(OUT) :: prec 884 900 LOGICAL(KIND=C_BOOL) :: prec_tmp 901 LOGICAL, OPTIONAL, INTENT(OUT) :: radius 902 LOGICAL(KIND=C_BOOL) :: radius_tmp 885 903 LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name 886 904 LOGICAL(KIND=C_BOOL) :: standard_name_tmp … … 895 913 , data_nj, dim_i_name, dim_j_name, domain_ref, group_ref, i_index, ibegin, j_index, jbegin, lat_name & 896 914 , latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d & 897 , name, ni, ni_glo, nj, nj_glo, nvertex, prec, standard_name, type )915 , name, ni, ni_glo, nj, nj_glo, nvertex, prec, radius, standard_name, type ) 898 916 899 917 END SUBROUTINE xios(is_defined_domaingroup_attr) … … 904 922 , data_nj, dim_i_name, dim_j_name, domain_ref, group_ref, i_index, ibegin, j_index, jbegin, lat_name & 905 923 , latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d & 906 , name, ni, ni_glo, nj, nj_glo, nvertex, prec, standard_name, type )924 , name, ni, ni_glo, nj, nj_glo, nvertex, prec, radius, standard_name, type ) 907 925 908 926 IMPLICIT NONE … … 986 1004 LOGICAL, OPTIONAL, INTENT(OUT) :: prec 987 1005 LOGICAL(KIND=C_BOOL) :: prec_tmp 1006 LOGICAL, OPTIONAL, INTENT(OUT) :: radius 1007 LOGICAL(KIND=C_BOOL) :: radius_tmp 988 1008 LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name 989 1009 LOGICAL(KIND=C_BOOL) :: standard_name_tmp … … 996 1016 , data_nj, dim_i_name, dim_j_name, domain_ref, group_ref, i_index, ibegin, j_index, jbegin, lat_name & 997 1017 , latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d & 998 , name, ni, ni_glo, nj, nj_glo, nvertex, prec, standard_name, type )1018 , name, ni, ni_glo, nj, nj_glo, nvertex, prec, radius, standard_name, type ) 999 1019 1000 1020 END SUBROUTINE xios(is_defined_domaingroup_attr_hdl) … … 1005 1025 , data_ni_, data_nj_, dim_i_name_, dim_j_name_, domain_ref_, group_ref_, i_index_, ibegin_, j_index_ & 1006 1026 , jbegin_, lat_name_, latvalue_1d_, latvalue_2d_, lon_name_, long_name_, lonvalue_1d_, lonvalue_2d_ & 1007 , mask_1d_, mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, nvertex_, prec_, standard_name_, type_ &1008 )1027 , mask_1d_, mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, nvertex_, prec_, radius_, standard_name_ & 1028 , type_ ) 1009 1029 1010 1030 IMPLICIT NONE … … 1088 1108 LOGICAL, OPTIONAL, INTENT(OUT) :: prec_ 1089 1109 LOGICAL(KIND=C_BOOL) :: prec__tmp 1110 LOGICAL, OPTIONAL, INTENT(OUT) :: radius_ 1111 LOGICAL(KIND=C_BOOL) :: radius__tmp 1090 1112 LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name_ 1091 1113 LOGICAL(KIND=C_BOOL) :: standard_name__tmp … … 1327 1349 ENDIF 1328 1350 1351 IF (PRESENT(radius_)) THEN 1352 radius__tmp = cxios_is_defined_domaingroup_radius & 1353 (domaingroup_hdl%daddr) 1354 radius_ = radius__tmp 1355 ENDIF 1356 1329 1357 IF (PRESENT(standard_name_)) THEN 1330 1358 standard_name__tmp = cxios_is_defined_domaingroup_standard_name &
Note: See TracChangeset
for help on using the changeset viewer.