Changeset 781
- Timestamp:
- 11/04/15 17:05:07 (8 years ago)
- Location:
- XIOS/trunk/src
- Files:
-
- 7 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/trunk/src/config/domain_attribute.conf
r687 r781 3 3 DECLARE_ATTRIBUTE(StdString , standard_name) 4 4 DECLARE_ATTRIBUTE(StdString , long_name) 5 6 /* Spécifique */7 DECLARE_ATTRIBUTE(StdString , domain_group_ref)8 5 9 6 /* GLOBAL */ -
XIOS/trunk/src/interface/c_attr/icdomain_attr.cpp
r712 r781 308 308 309 309 310 void cxios_set_domain_domain_group_ref(domain_Ptr domain_hdl, const char * domain_group_ref, int domain_group_ref_size)311 {312 std::string domain_group_ref_str;313 if (!cstr2string(domain_group_ref, domain_group_ref_size, domain_group_ref_str)) return;314 CTimer::get("XIOS").resume();315 domain_hdl->domain_group_ref.setValue(domain_group_ref_str);316 CTimer::get("XIOS").suspend();317 }318 319 void cxios_get_domain_domain_group_ref(domain_Ptr domain_hdl, char * domain_group_ref, int domain_group_ref_size)320 {321 CTimer::get("XIOS").resume();322 if (!string_copy(domain_hdl->domain_group_ref.getInheritedValue(), domain_group_ref, domain_group_ref_size))323 ERROR("void cxios_get_domain_domain_group_ref(domain_Ptr domain_hdl, char * domain_group_ref, int domain_group_ref_size)", << "Input string is too short");324 CTimer::get("XIOS").suspend();325 }326 327 bool cxios_is_defined_domain_domain_group_ref(domain_Ptr domain_hdl)328 {329 CTimer::get("XIOS").resume();330 bool isDefined = domain_hdl->domain_group_ref.hasInheritedValue();331 CTimer::get("XIOS").suspend();332 return isDefined;333 }334 335 336 310 void cxios_set_domain_domain_ref(domain_Ptr domain_hdl, const char * domain_ref, int domain_ref_size) 337 311 { -
XIOS/trunk/src/interface/c_attr/icdomaingroup_attr.cpp
r690 r781 308 308 309 309 310 void cxios_set_domaingroup_domain_group_ref(domaingroup_Ptr domaingroup_hdl, const char * domain_group_ref, int domain_group_ref_size)311 {312 std::string domain_group_ref_str;313 if (!cstr2string(domain_group_ref, domain_group_ref_size, domain_group_ref_str)) return;314 CTimer::get("XIOS").resume();315 domaingroup_hdl->domain_group_ref.setValue(domain_group_ref_str);316 CTimer::get("XIOS").suspend();317 }318 319 void cxios_get_domaingroup_domain_group_ref(domaingroup_Ptr domaingroup_hdl, char * domain_group_ref, int domain_group_ref_size)320 {321 CTimer::get("XIOS").resume();322 if (!string_copy(domaingroup_hdl->domain_group_ref.getInheritedValue(), domain_group_ref, domain_group_ref_size))323 ERROR("void cxios_get_domaingroup_domain_group_ref(domaingroup_Ptr domaingroup_hdl, char * domain_group_ref, int domain_group_ref_size)", << "Input string is too short");324 CTimer::get("XIOS").suspend();325 }326 327 bool cxios_is_defined_domaingroup_domain_group_ref(domaingroup_Ptr domaingroup_hdl)328 {329 CTimer::get("XIOS").resume();330 bool isDefined = domaingroup_hdl->domain_group_ref.hasInheritedValue();331 CTimer::get("XIOS").suspend();332 return isDefined;333 }334 335 336 310 void cxios_set_domaingroup_domain_ref(domaingroup_Ptr domaingroup_hdl, const char * domain_ref, int domain_ref_size) 337 311 { -
XIOS/trunk/src/interface/fortran_attr/domain_interface_attr.F90
r712 r781 252 252 253 253 254 SUBROUTINE cxios_set_domain_domain_group_ref(domain_hdl, domain_group_ref, domain_group_ref_size) BIND(C)255 USE ISO_C_BINDING256 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl257 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: domain_group_ref258 INTEGER (kind = C_INT) , VALUE :: domain_group_ref_size259 END SUBROUTINE cxios_set_domain_domain_group_ref260 261 SUBROUTINE cxios_get_domain_domain_group_ref(domain_hdl, domain_group_ref, domain_group_ref_size) BIND(C)262 USE ISO_C_BINDING263 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl264 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: domain_group_ref265 INTEGER (kind = C_INT) , VALUE :: domain_group_ref_size266 END SUBROUTINE cxios_get_domain_domain_group_ref267 268 FUNCTION cxios_is_defined_domain_domain_group_ref(domain_hdl) BIND(C)269 USE ISO_C_BINDING270 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_domain_group_ref271 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl272 END FUNCTION cxios_is_defined_domain_domain_group_ref273 274 275 254 SUBROUTINE cxios_set_domain_domain_ref(domain_hdl, domain_ref, domain_ref_size) BIND(C) 276 255 USE ISO_C_BINDING -
XIOS/trunk/src/interface/fortran_attr/domaingroup_interface_attr.F90
r690 r781 252 252 253 253 254 SUBROUTINE cxios_set_domaingroup_domain_group_ref(domaingroup_hdl, domain_group_ref, domain_group_ref_size) BIND(C)255 USE ISO_C_BINDING256 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl257 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: domain_group_ref258 INTEGER (kind = C_INT) , VALUE :: domain_group_ref_size259 END SUBROUTINE cxios_set_domaingroup_domain_group_ref260 261 SUBROUTINE cxios_get_domaingroup_domain_group_ref(domaingroup_hdl, domain_group_ref, domain_group_ref_size) BIND(C)262 USE ISO_C_BINDING263 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl264 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: domain_group_ref265 INTEGER (kind = C_INT) , VALUE :: domain_group_ref_size266 END SUBROUTINE cxios_get_domaingroup_domain_group_ref267 268 FUNCTION cxios_is_defined_domaingroup_domain_group_ref(domaingroup_hdl) BIND(C)269 USE ISO_C_BINDING270 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_domain_group_ref271 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl272 END FUNCTION cxios_is_defined_domaingroup_domain_group_ref273 274 275 254 SUBROUTINE cxios_set_domaingroup_domain_ref(domaingroup_hdl, domain_ref, domain_ref_size) BIND(C) 276 255 USE ISO_C_BINDING -
XIOS/trunk/src/interface/fortran_attr/idomain_attr.F90
r690 r781 13 13 SUBROUTINE xios(set_domain_attr) & 14 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_ group_ref, domain_ref, domain_src&16 , i _index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d &17 , mask_ 1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type )15 , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, domain_src, i_index & 16 , ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d, mask_1d & 17 , mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type ) 18 18 19 19 IMPLICIT NONE … … 32 32 INTEGER , OPTIONAL, INTENT(IN) :: data_ni 33 33 INTEGER , OPTIONAL, INTENT(IN) :: data_nj 34 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_group_ref35 34 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref 36 35 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_src … … 60 59 CALL xios(set_domain_attr_hdl_) & 61 60 ( 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_ group_ref, domain_ref, domain_src&63 , i _index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d &64 , mask_ 1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type )61 , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, domain_src, i_index & 62 , ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d, mask_1d & 63 , mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type ) 65 64 66 65 END SUBROUTINE xios(set_domain_attr) … … 68 67 SUBROUTINE xios(set_domain_attr_hdl) & 69 68 ( 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_ group_ref, domain_ref, domain_src&71 , i _index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d &72 , mask_ 1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type )69 , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, domain_src, i_index & 70 , ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d, mask_1d & 71 , mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type ) 73 72 74 73 IMPLICIT NONE … … 86 85 INTEGER , OPTIONAL, INTENT(IN) :: data_ni 87 86 INTEGER , OPTIONAL, INTENT(IN) :: data_nj 88 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_group_ref89 87 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref 90 88 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_src … … 113 111 CALL xios(set_domain_attr_hdl_) & 114 112 ( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim, data_i_index & 115 , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ group_ref, domain_ref, domain_src&116 , i _index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d &117 , mask_ 1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type )113 , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, domain_src, i_index & 114 , ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d, mask_1d & 115 , mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type ) 118 116 119 117 END SUBROUTINE xios(set_domain_attr_hdl) … … 121 119 SUBROUTINE xios(set_domain_attr_hdl_) & 122 120 ( domain_hdl, area_, bounds_lat_1d_, bounds_lat_2d_, bounds_lon_1d_, bounds_lon_2d_, data_dim_ & 123 , data_i_index_, data_ibegin_, data_j_index_, data_jbegin_, data_ni_, data_nj_, domain_ group_ref_ &124 , domain_ ref_, domain_src_, i_index_, ibegin_, j_index_, jbegin_, latvalue_1d_, latvalue_2d_ &125 , lon g_name_, lonvalue_1d_, lonvalue_2d_, mask_1d_, mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_ &126 , nvertex_,standard_name_, type_ )121 , data_i_index_, data_ibegin_, data_j_index_, data_jbegin_, data_ni_, data_nj_, domain_ref_ & 122 , domain_src_, i_index_, ibegin_, j_index_, jbegin_, latvalue_1d_, latvalue_2d_, long_name_ & 123 , lonvalue_1d_, lonvalue_2d_, mask_1d_, mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, nvertex_ & 124 , standard_name_, type_ ) 127 125 128 126 IMPLICIT NONE … … 140 138 INTEGER , OPTIONAL, INTENT(IN) :: data_ni_ 141 139 INTEGER , OPTIONAL, INTENT(IN) :: data_nj_ 142 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_group_ref_143 140 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref_ 144 141 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_src_ … … 213 210 ENDIF 214 211 215 IF (PRESENT(domain_group_ref_)) THEN216 CALL cxios_set_domain_domain_group_ref(domain_hdl%daddr, domain_group_ref_, len(domain_group_ref_))217 ENDIF218 219 212 IF (PRESENT(domain_ref_)) THEN 220 213 CALL cxios_set_domain_domain_ref(domain_hdl%daddr, domain_ref_, len(domain_ref_)) … … 309 302 SUBROUTINE xios(get_domain_attr) & 310 303 ( domain_id, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim, data_i_index & 311 , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ group_ref, domain_ref, domain_src&312 , i _index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d &313 , mask_ 1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type )304 , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, domain_src, i_index & 305 , ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d, mask_1d & 306 , mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type ) 314 307 315 308 IMPLICIT NONE … … 328 321 INTEGER , OPTIONAL, INTENT(OUT) :: data_ni 329 322 INTEGER , OPTIONAL, INTENT(OUT) :: data_nj 330 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_group_ref331 323 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref 332 324 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_src … … 356 348 CALL xios(get_domain_attr_hdl_) & 357 349 ( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim, data_i_index & 358 , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ group_ref, domain_ref, domain_src&359 , i _index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d &360 , mask_ 1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type )350 , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, domain_src, i_index & 351 , ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d, mask_1d & 352 , mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type ) 361 353 362 354 END SUBROUTINE xios(get_domain_attr) … … 364 356 SUBROUTINE xios(get_domain_attr_hdl) & 365 357 ( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim, data_i_index & 366 , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ group_ref, domain_ref, domain_src&367 , i _index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d &368 , mask_ 1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type )358 , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, domain_src, i_index & 359 , ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d, mask_1d & 360 , mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type ) 369 361 370 362 IMPLICIT NONE … … 382 374 INTEGER , OPTIONAL, INTENT(OUT) :: data_ni 383 375 INTEGER , OPTIONAL, INTENT(OUT) :: data_nj 384 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_group_ref385 376 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref 386 377 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_src … … 409 400 CALL xios(get_domain_attr_hdl_) & 410 401 ( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim, data_i_index & 411 , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ group_ref, domain_ref, domain_src&412 , i _index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d &413 , mask_ 1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type )402 , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, domain_src, i_index & 403 , ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d, mask_1d & 404 , mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type ) 414 405 415 406 END SUBROUTINE xios(get_domain_attr_hdl) … … 417 408 SUBROUTINE xios(get_domain_attr_hdl_) & 418 409 ( domain_hdl, area_, bounds_lat_1d_, bounds_lat_2d_, bounds_lon_1d_, bounds_lon_2d_, data_dim_ & 419 , data_i_index_, data_ibegin_, data_j_index_, data_jbegin_, data_ni_, data_nj_, domain_ group_ref_ &420 , domain_ ref_, domain_src_, i_index_, ibegin_, j_index_, jbegin_, latvalue_1d_, latvalue_2d_ &421 , lon g_name_, lonvalue_1d_, lonvalue_2d_, mask_1d_, mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_ &422 , nvertex_,standard_name_, type_ )410 , data_i_index_, data_ibegin_, data_j_index_, data_jbegin_, data_ni_, data_nj_, domain_ref_ & 411 , domain_src_, i_index_, ibegin_, j_index_, jbegin_, latvalue_1d_, latvalue_2d_, long_name_ & 412 , lonvalue_1d_, lonvalue_2d_, mask_1d_, mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, nvertex_ & 413 , standard_name_, type_ ) 423 414 424 415 IMPLICIT NONE … … 436 427 INTEGER , OPTIONAL, INTENT(OUT) :: data_ni_ 437 428 INTEGER , OPTIONAL, INTENT(OUT) :: data_nj_ 438 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_group_ref_439 429 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref_ 440 430 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_src_ … … 509 499 ENDIF 510 500 511 IF (PRESENT(domain_group_ref_)) THEN512 CALL cxios_get_domain_domain_group_ref(domain_hdl%daddr, domain_group_ref_, len(domain_group_ref_))513 ENDIF514 515 501 IF (PRESENT(domain_ref_)) THEN 516 502 CALL cxios_get_domain_domain_ref(domain_hdl%daddr, domain_ref_, len(domain_ref_)) … … 605 591 SUBROUTINE xios(is_defined_domain_attr) & 606 592 ( domain_id, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim, data_i_index & 607 , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ group_ref, domain_ref, domain_src&608 , i _index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d &609 , mask_ 1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type )593 , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, domain_src, i_index & 594 , ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d, mask_1d & 595 , mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type ) 610 596 611 597 IMPLICIT NONE … … 636 622 LOGICAL, OPTIONAL, INTENT(OUT) :: data_nj 637 623 LOGICAL(KIND=C_BOOL) :: data_nj_tmp 638 LOGICAL, OPTIONAL, INTENT(OUT) :: domain_group_ref639 LOGICAL(KIND=C_BOOL) :: domain_group_ref_tmp640 624 LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref 641 625 LOGICAL(KIND=C_BOOL) :: domain_ref_tmp … … 684 668 CALL xios(is_defined_domain_attr_hdl_) & 685 669 ( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim, data_i_index & 686 , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ group_ref, domain_ref, domain_src&687 , i _index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d &688 , mask_ 1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type )670 , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, domain_src, i_index & 671 , ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d, mask_1d & 672 , mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type ) 689 673 690 674 END SUBROUTINE xios(is_defined_domain_attr) … … 692 676 SUBROUTINE xios(is_defined_domain_attr_hdl) & 693 677 ( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim, data_i_index & 694 , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ group_ref, domain_ref, domain_src&695 , i _index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d &696 , mask_ 1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type )678 , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, domain_src, i_index & 679 , ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d, mask_1d & 680 , mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type ) 697 681 698 682 IMPLICIT NONE … … 722 706 LOGICAL, OPTIONAL, INTENT(OUT) :: data_nj 723 707 LOGICAL(KIND=C_BOOL) :: data_nj_tmp 724 LOGICAL, OPTIONAL, INTENT(OUT) :: domain_group_ref725 LOGICAL(KIND=C_BOOL) :: domain_group_ref_tmp726 708 LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref 727 709 LOGICAL(KIND=C_BOOL) :: domain_ref_tmp … … 769 751 CALL xios(is_defined_domain_attr_hdl_) & 770 752 ( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim, data_i_index & 771 , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ group_ref, domain_ref, domain_src&772 , i _index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d &773 , mask_ 1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type )753 , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, domain_src, i_index & 754 , ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d, mask_1d & 755 , mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type ) 774 756 775 757 END SUBROUTINE xios(is_defined_domain_attr_hdl) … … 777 759 SUBROUTINE xios(is_defined_domain_attr_hdl_) & 778 760 ( domain_hdl, area_, bounds_lat_1d_, bounds_lat_2d_, bounds_lon_1d_, bounds_lon_2d_, data_dim_ & 779 , data_i_index_, data_ibegin_, data_j_index_, data_jbegin_, data_ni_, data_nj_, domain_ group_ref_ &780 , domain_ ref_, domain_src_, i_index_, ibegin_, j_index_, jbegin_, latvalue_1d_, latvalue_2d_ &781 , lon g_name_, lonvalue_1d_, lonvalue_2d_, mask_1d_, mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_ &782 , nvertex_,standard_name_, type_ )761 , data_i_index_, data_ibegin_, data_j_index_, data_jbegin_, data_ni_, data_nj_, domain_ref_ & 762 , domain_src_, i_index_, ibegin_, j_index_, jbegin_, latvalue_1d_, latvalue_2d_, long_name_ & 763 , lonvalue_1d_, lonvalue_2d_, mask_1d_, mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, nvertex_ & 764 , standard_name_, type_ ) 783 765 784 766 IMPLICIT NONE … … 808 790 LOGICAL, OPTIONAL, INTENT(OUT) :: data_nj_ 809 791 LOGICAL(KIND=C_BOOL) :: data_nj__tmp 810 LOGICAL, OPTIONAL, INTENT(OUT) :: domain_group_ref_811 LOGICAL(KIND=C_BOOL) :: domain_group_ref__tmp812 792 LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref_ 813 793 LOGICAL(KIND=C_BOOL) :: domain_ref__tmp … … 913 893 ENDIF 914 894 915 IF (PRESENT(domain_group_ref_)) THEN916 domain_group_ref__tmp = cxios_is_defined_domain_domain_group_ref(domain_hdl%daddr)917 domain_group_ref_ = domain_group_ref__tmp918 ENDIF919 920 895 IF (PRESENT(domain_ref_)) THEN 921 896 domain_ref__tmp = cxios_is_defined_domain_domain_ref(domain_hdl%daddr) -
XIOS/trunk/src/interface/fortran_attr/idomaingroup_attr.F90
r690 r781 13 13 SUBROUTINE xios(set_domaingroup_attr) & 14 14 ( domaingroup_id, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim & 15 , data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ group_ref, domain_ref&16 , domain_src, group_ref, i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name&17 , lonvalue_ 1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name &18 , type)15 , data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, domain_src & 16 , group_ref, i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d & 17 , lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type & 18 ) 19 19 20 20 IMPLICIT NONE … … 33 33 INTEGER , OPTIONAL, INTENT(IN) :: data_ni 34 34 INTEGER , OPTIONAL, INTENT(IN) :: data_nj 35 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_group_ref36 35 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref 37 36 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_src … … 62 61 CALL xios(set_domaingroup_attr_hdl_) & 63 62 ( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim & 64 , data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ group_ref, domain_ref&65 , domain_src, group_ref, i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name&66 , lonvalue_ 1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name &67 , type)63 , data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, domain_src & 64 , group_ref, i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d & 65 , lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type & 66 ) 68 67 69 68 END SUBROUTINE xios(set_domaingroup_attr) … … 71 70 SUBROUTINE xios(set_domaingroup_attr_hdl) & 72 71 ( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim & 73 , data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ group_ref, domain_ref&74 , domain_src, group_ref, i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name&75 , lonvalue_ 1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name &76 , type)72 , data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, domain_src & 73 , group_ref, i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d & 74 , lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type & 75 ) 77 76 78 77 IMPLICIT NONE … … 90 89 INTEGER , OPTIONAL, INTENT(IN) :: data_ni 91 90 INTEGER , OPTIONAL, INTENT(IN) :: data_nj 92 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_group_ref93 91 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref 94 92 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_src … … 118 116 CALL xios(set_domaingroup_attr_hdl_) & 119 117 ( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim & 120 , data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ group_ref, domain_ref&121 , domain_src, group_ref, i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name&122 , lonvalue_ 1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name &123 , type)118 , data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, domain_src & 119 , group_ref, i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d & 120 , lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type & 121 ) 124 122 125 123 END SUBROUTINE xios(set_domaingroup_attr_hdl) … … 127 125 SUBROUTINE xios(set_domaingroup_attr_hdl_) & 128 126 ( domaingroup_hdl, area_, bounds_lat_1d_, bounds_lat_2d_, bounds_lon_1d_, bounds_lon_2d_, data_dim_ & 129 , data_i_index_, data_ibegin_, data_j_index_, data_jbegin_, data_ni_, data_nj_, domain_ group_ref_ &130 , domain_ ref_, domain_src_, group_ref_, i_index_, ibegin_, j_index_, jbegin_, latvalue_1d_, latvalue_2d_ &127 , data_i_index_, data_ibegin_, data_j_index_, data_jbegin_, data_ni_, data_nj_, domain_ref_ & 128 , domain_src_, group_ref_, i_index_, ibegin_, j_index_, jbegin_, latvalue_1d_, latvalue_2d_ & 131 129 , long_name_, lonvalue_1d_, lonvalue_2d_, mask_1d_, mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_ & 132 130 , nvertex_, standard_name_, type_ ) … … 146 144 INTEGER , OPTIONAL, INTENT(IN) :: data_ni_ 147 145 INTEGER , OPTIONAL, INTENT(IN) :: data_nj_ 148 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_group_ref_149 146 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref_ 150 147 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_src_ … … 220 217 ENDIF 221 218 222 IF (PRESENT(domain_group_ref_)) THEN223 CALL cxios_set_domaingroup_domain_group_ref(domaingroup_hdl%daddr, domain_group_ref_, len(domain_group_ref_))224 ENDIF225 226 219 IF (PRESENT(domain_ref_)) THEN 227 220 CALL cxios_set_domaingroup_domain_ref(domaingroup_hdl%daddr, domain_ref_, len(domain_ref_)) … … 320 313 SUBROUTINE xios(get_domaingroup_attr) & 321 314 ( domaingroup_id, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim & 322 , data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ group_ref, domain_ref&323 , domain_src, group_ref, i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name&324 , lonvalue_ 1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name &325 , type)315 , data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, domain_src & 316 , group_ref, i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d & 317 , lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type & 318 ) 326 319 327 320 IMPLICIT NONE … … 340 333 INTEGER , OPTIONAL, INTENT(OUT) :: data_ni 341 334 INTEGER , OPTIONAL, INTENT(OUT) :: data_nj 342 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_group_ref343 335 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref 344 336 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_src … … 369 361 CALL xios(get_domaingroup_attr_hdl_) & 370 362 ( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim & 371 , data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ group_ref, domain_ref&372 , domain_src, group_ref, i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name&373 , lonvalue_ 1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name &374 , type)363 , data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, domain_src & 364 , group_ref, i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d & 365 , lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type & 366 ) 375 367 376 368 END SUBROUTINE xios(get_domaingroup_attr) … … 378 370 SUBROUTINE xios(get_domaingroup_attr_hdl) & 379 371 ( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim & 380 , data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ group_ref, domain_ref&381 , domain_src, group_ref, i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name&382 , lonvalue_ 1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name &383 , type)372 , data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, domain_src & 373 , group_ref, i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d & 374 , lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type & 375 ) 384 376 385 377 IMPLICIT NONE … … 397 389 INTEGER , OPTIONAL, INTENT(OUT) :: data_ni 398 390 INTEGER , OPTIONAL, INTENT(OUT) :: data_nj 399 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_group_ref400 391 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref 401 392 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_src … … 425 416 CALL xios(get_domaingroup_attr_hdl_) & 426 417 ( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim & 427 , data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ group_ref, domain_ref&428 , domain_src, group_ref, i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name&429 , lonvalue_ 1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name &430 , type)418 , data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, domain_src & 419 , group_ref, i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d & 420 , lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type & 421 ) 431 422 432 423 END SUBROUTINE xios(get_domaingroup_attr_hdl) … … 434 425 SUBROUTINE xios(get_domaingroup_attr_hdl_) & 435 426 ( domaingroup_hdl, area_, bounds_lat_1d_, bounds_lat_2d_, bounds_lon_1d_, bounds_lon_2d_, data_dim_ & 436 , data_i_index_, data_ibegin_, data_j_index_, data_jbegin_, data_ni_, data_nj_, domain_ group_ref_ &437 , domain_ ref_, domain_src_, group_ref_, i_index_, ibegin_, j_index_, jbegin_, latvalue_1d_, latvalue_2d_ &427 , data_i_index_, data_ibegin_, data_j_index_, data_jbegin_, data_ni_, data_nj_, domain_ref_ & 428 , domain_src_, group_ref_, i_index_, ibegin_, j_index_, jbegin_, latvalue_1d_, latvalue_2d_ & 438 429 , long_name_, lonvalue_1d_, lonvalue_2d_, mask_1d_, mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_ & 439 430 , nvertex_, standard_name_, type_ ) … … 453 444 INTEGER , OPTIONAL, INTENT(OUT) :: data_ni_ 454 445 INTEGER , OPTIONAL, INTENT(OUT) :: data_nj_ 455 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_group_ref_456 446 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref_ 457 447 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_src_ … … 527 517 ENDIF 528 518 529 IF (PRESENT(domain_group_ref_)) THEN530 CALL cxios_get_domaingroup_domain_group_ref(domaingroup_hdl%daddr, domain_group_ref_, len(domain_group_ref_))531 ENDIF532 533 519 IF (PRESENT(domain_ref_)) THEN 534 520 CALL cxios_get_domaingroup_domain_ref(domaingroup_hdl%daddr, domain_ref_, len(domain_ref_)) … … 627 613 SUBROUTINE xios(is_defined_domaingroup_attr) & 628 614 ( domaingroup_id, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim & 629 , data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ group_ref, domain_ref&630 , domain_src, group_ref, i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name&631 , lonvalue_ 1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name &632 , type)615 , data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, domain_src & 616 , group_ref, i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d & 617 , lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type & 618 ) 633 619 634 620 IMPLICIT NONE … … 659 645 LOGICAL, OPTIONAL, INTENT(OUT) :: data_nj 660 646 LOGICAL(KIND=C_BOOL) :: data_nj_tmp 661 LOGICAL, OPTIONAL, INTENT(OUT) :: domain_group_ref662 LOGICAL(KIND=C_BOOL) :: domain_group_ref_tmp663 647 LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref 664 648 LOGICAL(KIND=C_BOOL) :: domain_ref_tmp … … 709 693 CALL xios(is_defined_domaingroup_attr_hdl_) & 710 694 ( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim & 711 , data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ group_ref, domain_ref&712 , domain_src, group_ref, i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name&713 , lonvalue_ 1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name &714 , type)695 , data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, domain_src & 696 , group_ref, i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d & 697 , lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type & 698 ) 715 699 716 700 END SUBROUTINE xios(is_defined_domaingroup_attr) … … 718 702 SUBROUTINE xios(is_defined_domaingroup_attr_hdl) & 719 703 ( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim & 720 , data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ group_ref, domain_ref&721 , domain_src, group_ref, i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name&722 , lonvalue_ 1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name &723 , type)704 , data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, domain_src & 705 , group_ref, i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d & 706 , lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type & 707 ) 724 708 725 709 IMPLICIT NONE … … 749 733 LOGICAL, OPTIONAL, INTENT(OUT) :: data_nj 750 734 LOGICAL(KIND=C_BOOL) :: data_nj_tmp 751 LOGICAL, OPTIONAL, INTENT(OUT) :: domain_group_ref752 LOGICAL(KIND=C_BOOL) :: domain_group_ref_tmp753 735 LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref 754 736 LOGICAL(KIND=C_BOOL) :: domain_ref_tmp … … 798 780 CALL xios(is_defined_domaingroup_attr_hdl_) & 799 781 ( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim & 800 , data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ group_ref, domain_ref&801 , domain_src, group_ref, i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name&802 , lonvalue_ 1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name &803 , type)782 , data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, domain_src & 783 , group_ref, i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d & 784 , lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type & 785 ) 804 786 805 787 END SUBROUTINE xios(is_defined_domaingroup_attr_hdl) … … 807 789 SUBROUTINE xios(is_defined_domaingroup_attr_hdl_) & 808 790 ( domaingroup_hdl, area_, bounds_lat_1d_, bounds_lat_2d_, bounds_lon_1d_, bounds_lon_2d_, data_dim_ & 809 , data_i_index_, data_ibegin_, data_j_index_, data_jbegin_, data_ni_, data_nj_, domain_ group_ref_ &810 , domain_ ref_, domain_src_, group_ref_, i_index_, ibegin_, j_index_, jbegin_, latvalue_1d_, latvalue_2d_ &791 , data_i_index_, data_ibegin_, data_j_index_, data_jbegin_, data_ni_, data_nj_, domain_ref_ & 792 , domain_src_, group_ref_, i_index_, ibegin_, j_index_, jbegin_, latvalue_1d_, latvalue_2d_ & 811 793 , long_name_, lonvalue_1d_, lonvalue_2d_, mask_1d_, mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_ & 812 794 , nvertex_, standard_name_, type_ ) … … 838 820 LOGICAL, OPTIONAL, INTENT(OUT) :: data_nj_ 839 821 LOGICAL(KIND=C_BOOL) :: data_nj__tmp 840 LOGICAL, OPTIONAL, INTENT(OUT) :: domain_group_ref_841 LOGICAL(KIND=C_BOOL) :: domain_group_ref__tmp842 822 LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref_ 843 823 LOGICAL(KIND=C_BOOL) :: domain_ref__tmp … … 945 925 ENDIF 946 926 947 IF (PRESENT(domain_group_ref_)) THEN948 domain_group_ref__tmp = cxios_is_defined_domaingroup_domain_group_ref(domaingroup_hdl%daddr)949 domain_group_ref_ = domain_group_ref__tmp950 ENDIF951 952 927 IF (PRESENT(domain_ref_)) THEN 953 928 domain_ref__tmp = cxios_is_defined_domaingroup_domain_ref(domaingroup_hdl%daddr)
Note: See TracChangeset
for help on using the changeset viewer.