Changeset 1626 for XIOS/trunk/src/interface/fortran_attr/idomain_attr.F90
- Timestamp:
- 12/17/18 10:19:12 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/trunk/src/interface/fortran_attr/idomain_attr.F90
r1492 r1626 16 16 , data_nj, dim_i_name, dim_j_name, domain_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d & 17 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 , nj, nj_glo, nvertex, prec, radius, standard_name, type ) 19 19 20 20 IMPLICIT NONE … … 61 61 INTEGER , OPTIONAL, INTENT(IN) :: nvertex 62 62 INTEGER , OPTIONAL, INTENT(IN) :: prec 63 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: radius 63 64 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name 64 65 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type … … 71 72 , data_nj, dim_i_name, dim_j_name, domain_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d & 72 73 , 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 )74 , nj, nj_glo, nvertex, prec, radius, standard_name, type ) 74 75 75 76 END SUBROUTINE xios(set_domain_attr) … … 80 81 , data_nj, dim_i_name, dim_j_name, domain_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d & 81 82 , 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 )83 , nj, nj_glo, nvertex, prec, radius, standard_name, type ) 83 84 84 85 IMPLICIT NONE … … 124 125 INTEGER , OPTIONAL, INTENT(IN) :: nvertex 125 126 INTEGER , OPTIONAL, INTENT(IN) :: prec 127 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: radius 126 128 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name 127 129 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type … … 132 134 , data_nj, dim_i_name, dim_j_name, domain_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d & 133 135 , 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 )136 , nj, nj_glo, nvertex, prec, radius, standard_name, type ) 135 137 136 138 END SUBROUTINE xios(set_domain_attr_hdl) … … 141 143 , data_ni_, data_nj_, dim_i_name_, dim_j_name_, domain_ref_, i_index_, ibegin_, j_index_, jbegin_ & 142 144 , 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_ ) 145 , mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, nvertex_, prec_, radius_, standard_name_, type_ & 146 ) 144 147 145 148 IMPLICIT NONE … … 185 188 INTEGER , OPTIONAL, INTENT(IN) :: nvertex_ 186 189 INTEGER , OPTIONAL, INTENT(IN) :: prec_ 190 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: radius_ 187 191 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name_ 188 192 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type_ … … 382 386 ENDIF 383 387 388 IF (PRESENT(radius_)) THEN 389 CALL cxios_set_domain_radius & 390 (domain_hdl%daddr, radius_) 391 ENDIF 392 384 393 IF (PRESENT(standard_name_)) THEN 385 394 CALL cxios_set_domain_standard_name & … … 399 408 , data_nj, dim_i_name, dim_j_name, domain_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d & 400 409 , 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 )410 , nj, nj_glo, nvertex, prec, radius, standard_name, type ) 402 411 403 412 IMPLICIT NONE … … 444 453 INTEGER , OPTIONAL, INTENT(OUT) :: nvertex 445 454 INTEGER , OPTIONAL, INTENT(OUT) :: prec 455 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: radius 446 456 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name 447 457 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type … … 454 464 , data_nj, dim_i_name, dim_j_name, domain_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d & 455 465 , 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 )466 , nj, nj_glo, nvertex, prec, radius, standard_name, type ) 457 467 458 468 END SUBROUTINE xios(get_domain_attr) … … 463 473 , data_nj, dim_i_name, dim_j_name, domain_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d & 464 474 , 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 )475 , nj, nj_glo, nvertex, prec, radius, standard_name, type ) 466 476 467 477 IMPLICIT NONE … … 507 517 INTEGER , OPTIONAL, INTENT(OUT) :: nvertex 508 518 INTEGER , OPTIONAL, INTENT(OUT) :: prec 519 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: radius 509 520 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name 510 521 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type … … 515 526 , data_nj, dim_i_name, dim_j_name, domain_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d & 516 527 , 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 )528 , nj, nj_glo, nvertex, prec, radius, standard_name, type ) 518 529 519 530 END SUBROUTINE xios(get_domain_attr_hdl) … … 524 535 , data_ni_, data_nj_, dim_i_name_, dim_j_name_, domain_ref_, i_index_, ibegin_, j_index_, jbegin_ & 525 536 , 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_ ) 537 , mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, nvertex_, prec_, radius_, standard_name_, type_ & 538 ) 527 539 528 540 IMPLICIT NONE … … 568 580 INTEGER , OPTIONAL, INTENT(OUT) :: nvertex_ 569 581 INTEGER , OPTIONAL, INTENT(OUT) :: prec_ 582 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: radius_ 570 583 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name_ 571 584 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type_ … … 765 778 ENDIF 766 779 780 IF (PRESENT(radius_)) THEN 781 CALL cxios_get_domain_radius & 782 (domain_hdl%daddr, radius_) 783 ENDIF 784 767 785 IF (PRESENT(standard_name_)) THEN 768 786 CALL cxios_get_domain_standard_name & … … 782 800 , data_nj, dim_i_name, dim_j_name, domain_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d & 783 801 , 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 )802 , nj, nj_glo, nvertex, prec, radius, standard_name, type ) 785 803 786 804 IMPLICIT NONE … … 863 881 LOGICAL, OPTIONAL, INTENT(OUT) :: prec 864 882 LOGICAL(KIND=C_BOOL) :: prec_tmp 883 LOGICAL, OPTIONAL, INTENT(OUT) :: radius 884 LOGICAL(KIND=C_BOOL) :: radius_tmp 865 885 LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name 866 886 LOGICAL(KIND=C_BOOL) :: standard_name_tmp … … 875 895 , data_nj, dim_i_name, dim_j_name, domain_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d & 876 896 , 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 )897 , nj, nj_glo, nvertex, prec, radius, standard_name, type ) 878 898 879 899 END SUBROUTINE xios(is_defined_domain_attr) … … 884 904 , data_nj, dim_i_name, dim_j_name, domain_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d & 885 905 , 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 )906 , nj, nj_glo, nvertex, prec, radius, standard_name, type ) 887 907 888 908 IMPLICIT NONE … … 964 984 LOGICAL, OPTIONAL, INTENT(OUT) :: prec 965 985 LOGICAL(KIND=C_BOOL) :: prec_tmp 986 LOGICAL, OPTIONAL, INTENT(OUT) :: radius 987 LOGICAL(KIND=C_BOOL) :: radius_tmp 966 988 LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name 967 989 LOGICAL(KIND=C_BOOL) :: standard_name_tmp … … 974 996 , data_nj, dim_i_name, dim_j_name, domain_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d & 975 997 , 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 )998 , nj, nj_glo, nvertex, prec, radius, standard_name, type ) 977 999 978 1000 END SUBROUTINE xios(is_defined_domain_attr_hdl) … … 983 1005 , data_ni_, data_nj_, dim_i_name_, dim_j_name_, domain_ref_, i_index_, ibegin_, j_index_, jbegin_ & 984 1006 , 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_ ) 1007 , mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, nvertex_, prec_, radius_, standard_name_, type_ & 1008 ) 986 1009 987 1010 IMPLICIT NONE … … 1063 1086 LOGICAL, OPTIONAL, INTENT(OUT) :: prec_ 1064 1087 LOGICAL(KIND=C_BOOL) :: prec__tmp 1088 LOGICAL, OPTIONAL, INTENT(OUT) :: radius_ 1089 LOGICAL(KIND=C_BOOL) :: radius__tmp 1065 1090 LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name_ 1066 1091 LOGICAL(KIND=C_BOOL) :: standard_name__tmp … … 1296 1321 ENDIF 1297 1322 1323 IF (PRESENT(radius_)) THEN 1324 radius__tmp = cxios_is_defined_domain_radius & 1325 (domain_hdl%daddr) 1326 radius_ = radius__tmp 1327 ENDIF 1328 1298 1329 IF (PRESENT(standard_name_)) THEN 1299 1330 standard_name__tmp = cxios_is_defined_domain_standard_name &
Note: See TracChangeset
for help on using the changeset viewer.
