Ignore:
Timestamp:
04/23/21 15:00:35 (3 years ago)
Author:
oabramkina
Message:

Merging branch dev_oa with tiling into trunk

Location:
XIOS/trunk/src/interface/fortran_attr
Files:
4 edited

Legend:

Unmodified
Added
Removed

  • XIOS/trunk/src/interface/fortran_attr/domain_interface_attr.F90

    r1626 r2131  
    744744 
    745745 
     746    SUBROUTINE cxios_set_domain_ntiles(domain_hdl, ntiles) BIND(C) 
     747      USE ISO_C_BINDING 
     748      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
     749      INTEGER (KIND=C_INT)      , VALUE :: ntiles 
     750    END SUBROUTINE cxios_set_domain_ntiles 
     751 
     752    SUBROUTINE cxios_get_domain_ntiles(domain_hdl, ntiles) BIND(C) 
     753      USE ISO_C_BINDING 
     754      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
     755      INTEGER (KIND=C_INT)             :: ntiles 
     756    END SUBROUTINE cxios_get_domain_ntiles 
     757 
     758    FUNCTION cxios_is_defined_domain_ntiles(domain_hdl) BIND(C) 
     759      USE ISO_C_BINDING 
     760      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_ntiles 
     761      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
     762    END FUNCTION cxios_is_defined_domain_ntiles 
     763 
     764 
    746765    SUBROUTINE cxios_set_domain_nvertex(domain_hdl, nvertex) BIND(C) 
    747766      USE ISO_C_BINDING 
    … …  
    822841 
    823842 
     843    SUBROUTINE cxios_set_domain_tile_data_ibegin(domain_hdl, tile_data_ibegin, extent) BIND(C) 
     844      USE ISO_C_BINDING 
     845      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl 
     846      INTEGER (KIND=C_INT)     , DIMENSION(*) :: tile_data_ibegin 
     847      INTEGER (kind = C_INT), DIMENSION(*)     :: extent 
     848    END SUBROUTINE cxios_set_domain_tile_data_ibegin 
     849 
     850    SUBROUTINE cxios_get_domain_tile_data_ibegin(domain_hdl, tile_data_ibegin, extent) BIND(C) 
     851      USE ISO_C_BINDING 
     852      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl 
     853      INTEGER (KIND=C_INT)     , DIMENSION(*) :: tile_data_ibegin 
     854      INTEGER (kind = C_INT), DIMENSION(*)     :: extent 
     855    END SUBROUTINE cxios_get_domain_tile_data_ibegin 
     856 
     857    FUNCTION cxios_is_defined_domain_tile_data_ibegin(domain_hdl) BIND(C) 
     858      USE ISO_C_BINDING 
     859      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_tile_data_ibegin 
     860      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
     861    END FUNCTION cxios_is_defined_domain_tile_data_ibegin 
     862 
     863 
     864    SUBROUTINE cxios_set_domain_tile_data_jbegin(domain_hdl, tile_data_jbegin, extent) BIND(C) 
     865      USE ISO_C_BINDING 
     866      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl 
     867      INTEGER (KIND=C_INT)     , DIMENSION(*) :: tile_data_jbegin 
     868      INTEGER (kind = C_INT), DIMENSION(*)     :: extent 
     869    END SUBROUTINE cxios_set_domain_tile_data_jbegin 
     870 
     871    SUBROUTINE cxios_get_domain_tile_data_jbegin(domain_hdl, tile_data_jbegin, extent) BIND(C) 
     872      USE ISO_C_BINDING 
     873      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl 
     874      INTEGER (KIND=C_INT)     , DIMENSION(*) :: tile_data_jbegin 
     875      INTEGER (kind = C_INT), DIMENSION(*)     :: extent 
     876    END SUBROUTINE cxios_get_domain_tile_data_jbegin 
     877 
     878    FUNCTION cxios_is_defined_domain_tile_data_jbegin(domain_hdl) BIND(C) 
     879      USE ISO_C_BINDING 
     880      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_tile_data_jbegin 
     881      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
     882    END FUNCTION cxios_is_defined_domain_tile_data_jbegin 
     883 
     884 
     885    SUBROUTINE cxios_set_domain_tile_data_ni(domain_hdl, tile_data_ni, extent) BIND(C) 
     886      USE ISO_C_BINDING 
     887      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl 
     888      INTEGER (KIND=C_INT)     , DIMENSION(*) :: tile_data_ni 
     889      INTEGER (kind = C_INT), DIMENSION(*)     :: extent 
     890    END SUBROUTINE cxios_set_domain_tile_data_ni 
     891 
     892    SUBROUTINE cxios_get_domain_tile_data_ni(domain_hdl, tile_data_ni, extent) BIND(C) 
     893      USE ISO_C_BINDING 
     894      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl 
     895      INTEGER (KIND=C_INT)     , DIMENSION(*) :: tile_data_ni 
     896      INTEGER (kind = C_INT), DIMENSION(*)     :: extent 
     897    END SUBROUTINE cxios_get_domain_tile_data_ni 
     898 
     899    FUNCTION cxios_is_defined_domain_tile_data_ni(domain_hdl) BIND(C) 
     900      USE ISO_C_BINDING 
     901      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_tile_data_ni 
     902      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
     903    END FUNCTION cxios_is_defined_domain_tile_data_ni 
     904 
     905 
     906    SUBROUTINE cxios_set_domain_tile_data_nj(domain_hdl, tile_data_nj, extent) BIND(C) 
     907      USE ISO_C_BINDING 
     908      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl 
     909      INTEGER (KIND=C_INT)     , DIMENSION(*) :: tile_data_nj 
     910      INTEGER (kind = C_INT), DIMENSION(*)     :: extent 
     911    END SUBROUTINE cxios_set_domain_tile_data_nj 
     912 
     913    SUBROUTINE cxios_get_domain_tile_data_nj(domain_hdl, tile_data_nj, extent) BIND(C) 
     914      USE ISO_C_BINDING 
     915      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl 
     916      INTEGER (KIND=C_INT)     , DIMENSION(*) :: tile_data_nj 
     917      INTEGER (kind = C_INT), DIMENSION(*)     :: extent 
     918    END SUBROUTINE cxios_get_domain_tile_data_nj 
     919 
     920    FUNCTION cxios_is_defined_domain_tile_data_nj(domain_hdl) BIND(C) 
     921      USE ISO_C_BINDING 
     922      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_tile_data_nj 
     923      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
     924    END FUNCTION cxios_is_defined_domain_tile_data_nj 
     925 
     926 
     927    SUBROUTINE cxios_set_domain_tile_ibegin(domain_hdl, tile_ibegin, extent) BIND(C) 
     928      USE ISO_C_BINDING 
     929      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl 
     930      INTEGER (KIND=C_INT)     , DIMENSION(*) :: tile_ibegin 
     931      INTEGER (kind = C_INT), DIMENSION(*)     :: extent 
     932    END SUBROUTINE cxios_set_domain_tile_ibegin 
     933 
     934    SUBROUTINE cxios_get_domain_tile_ibegin(domain_hdl, tile_ibegin, extent) BIND(C) 
     935      USE ISO_C_BINDING 
     936      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl 
     937      INTEGER (KIND=C_INT)     , DIMENSION(*) :: tile_ibegin 
     938      INTEGER (kind = C_INT), DIMENSION(*)     :: extent 
     939    END SUBROUTINE cxios_get_domain_tile_ibegin 
     940 
     941    FUNCTION cxios_is_defined_domain_tile_ibegin(domain_hdl) BIND(C) 
     942      USE ISO_C_BINDING 
     943      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_tile_ibegin 
     944      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
     945    END FUNCTION cxios_is_defined_domain_tile_ibegin 
     946 
     947 
     948    SUBROUTINE cxios_set_domain_tile_jbegin(domain_hdl, tile_jbegin, extent) BIND(C) 
     949      USE ISO_C_BINDING 
     950      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl 
     951      INTEGER (KIND=C_INT)     , DIMENSION(*) :: tile_jbegin 
     952      INTEGER (kind = C_INT), DIMENSION(*)     :: extent 
     953    END SUBROUTINE cxios_set_domain_tile_jbegin 
     954 
     955    SUBROUTINE cxios_get_domain_tile_jbegin(domain_hdl, tile_jbegin, extent) BIND(C) 
     956      USE ISO_C_BINDING 
     957      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl 
     958      INTEGER (KIND=C_INT)     , DIMENSION(*) :: tile_jbegin 
     959      INTEGER (kind = C_INT), DIMENSION(*)     :: extent 
     960    END SUBROUTINE cxios_get_domain_tile_jbegin 
     961 
     962    FUNCTION cxios_is_defined_domain_tile_jbegin(domain_hdl) BIND(C) 
     963      USE ISO_C_BINDING 
     964      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_tile_jbegin 
     965      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
     966    END FUNCTION cxios_is_defined_domain_tile_jbegin 
     967 
     968 
     969    SUBROUTINE cxios_set_domain_tile_ni(domain_hdl, tile_ni, extent) BIND(C) 
     970      USE ISO_C_BINDING 
     971      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl 
     972      INTEGER (KIND=C_INT)     , DIMENSION(*) :: tile_ni 
     973      INTEGER (kind = C_INT), DIMENSION(*)     :: extent 
     974    END SUBROUTINE cxios_set_domain_tile_ni 
     975 
     976    SUBROUTINE cxios_get_domain_tile_ni(domain_hdl, tile_ni, extent) BIND(C) 
     977      USE ISO_C_BINDING 
     978      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl 
     979      INTEGER (KIND=C_INT)     , DIMENSION(*) :: tile_ni 
     980      INTEGER (kind = C_INT), DIMENSION(*)     :: extent 
     981    END SUBROUTINE cxios_get_domain_tile_ni 
     982 
     983    FUNCTION cxios_is_defined_domain_tile_ni(domain_hdl) BIND(C) 
     984      USE ISO_C_BINDING 
     985      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_tile_ni 
     986      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
     987    END FUNCTION cxios_is_defined_domain_tile_ni 
     988 
     989 
     990    SUBROUTINE cxios_set_domain_tile_nj(domain_hdl, tile_nj, extent) BIND(C) 
     991      USE ISO_C_BINDING 
     992      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl 
     993      INTEGER (KIND=C_INT)     , DIMENSION(*) :: tile_nj 
     994      INTEGER (kind = C_INT), DIMENSION(*)     :: extent 
     995    END SUBROUTINE cxios_set_domain_tile_nj 
     996 
     997    SUBROUTINE cxios_get_domain_tile_nj(domain_hdl, tile_nj, extent) BIND(C) 
     998      USE ISO_C_BINDING 
     999      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl 
     1000      INTEGER (KIND=C_INT)     , DIMENSION(*) :: tile_nj 
     1001      INTEGER (kind = C_INT), DIMENSION(*)     :: extent 
     1002    END SUBROUTINE cxios_get_domain_tile_nj 
     1003 
     1004    FUNCTION cxios_is_defined_domain_tile_nj(domain_hdl) BIND(C) 
     1005      USE ISO_C_BINDING 
     1006      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_tile_nj 
     1007      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
     1008    END FUNCTION cxios_is_defined_domain_tile_nj 
     1009 
     1010 
    8241011    SUBROUTINE cxios_set_domain_type(domain_hdl, type, type_size) BIND(C) 
    8251012      USE ISO_C_BINDING 

  • XIOS/trunk/src/interface/fortran_attr/domaingroup_interface_attr.F90

    r1626 r2131  
    765765 
    766766 
     767    SUBROUTINE cxios_set_domaingroup_ntiles(domaingroup_hdl, ntiles) BIND(C) 
     768      USE ISO_C_BINDING 
     769      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 
     770      INTEGER (KIND=C_INT)      , VALUE :: ntiles 
     771    END SUBROUTINE cxios_set_domaingroup_ntiles 
     772 
     773    SUBROUTINE cxios_get_domaingroup_ntiles(domaingroup_hdl, ntiles) BIND(C) 
     774      USE ISO_C_BINDING 
     775      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 
     776      INTEGER (KIND=C_INT)             :: ntiles 
     777    END SUBROUTINE cxios_get_domaingroup_ntiles 
     778 
     779    FUNCTION cxios_is_defined_domaingroup_ntiles(domaingroup_hdl) BIND(C) 
     780      USE ISO_C_BINDING 
     781      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_ntiles 
     782      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 
     783    END FUNCTION cxios_is_defined_domaingroup_ntiles 
     784 
     785 
    767786    SUBROUTINE cxios_set_domaingroup_nvertex(domaingroup_hdl, nvertex) BIND(C) 
    768787      USE ISO_C_BINDING 
    … …  
    843862 
    844863 
     864    SUBROUTINE cxios_set_domaingroup_tile_data_ibegin(domaingroup_hdl, tile_data_ibegin, extent) BIND(C) 
     865      USE ISO_C_BINDING 
     866      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl 
     867      INTEGER (KIND=C_INT)     , DIMENSION(*) :: tile_data_ibegin 
     868      INTEGER (kind = C_INT), DIMENSION(*)     :: extent 
     869    END SUBROUTINE cxios_set_domaingroup_tile_data_ibegin 
     870 
     871    SUBROUTINE cxios_get_domaingroup_tile_data_ibegin(domaingroup_hdl, tile_data_ibegin, extent) BIND(C) 
     872      USE ISO_C_BINDING 
     873      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl 
     874      INTEGER (KIND=C_INT)     , DIMENSION(*) :: tile_data_ibegin 
     875      INTEGER (kind = C_INT), DIMENSION(*)     :: extent 
     876    END SUBROUTINE cxios_get_domaingroup_tile_data_ibegin 
     877 
     878    FUNCTION cxios_is_defined_domaingroup_tile_data_ibegin(domaingroup_hdl) BIND(C) 
     879      USE ISO_C_BINDING 
     880      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_tile_data_ibegin 
     881      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 
     882    END FUNCTION cxios_is_defined_domaingroup_tile_data_ibegin 
     883 
     884 
     885    SUBROUTINE cxios_set_domaingroup_tile_data_jbegin(domaingroup_hdl, tile_data_jbegin, extent) BIND(C) 
     886      USE ISO_C_BINDING 
     887      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl 
     888      INTEGER (KIND=C_INT)     , DIMENSION(*) :: tile_data_jbegin 
     889      INTEGER (kind = C_INT), DIMENSION(*)     :: extent 
     890    END SUBROUTINE cxios_set_domaingroup_tile_data_jbegin 
     891 
     892    SUBROUTINE cxios_get_domaingroup_tile_data_jbegin(domaingroup_hdl, tile_data_jbegin, extent) BIND(C) 
     893      USE ISO_C_BINDING 
     894      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl 
     895      INTEGER (KIND=C_INT)     , DIMENSION(*) :: tile_data_jbegin 
     896      INTEGER (kind = C_INT), DIMENSION(*)     :: extent 
     897    END SUBROUTINE cxios_get_domaingroup_tile_data_jbegin 
     898 
     899    FUNCTION cxios_is_defined_domaingroup_tile_data_jbegin(domaingroup_hdl) BIND(C) 
     900      USE ISO_C_BINDING 
     901      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_tile_data_jbegin 
     902      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 
     903    END FUNCTION cxios_is_defined_domaingroup_tile_data_jbegin 
     904 
     905 
     906    SUBROUTINE cxios_set_domaingroup_tile_data_ni(domaingroup_hdl, tile_data_ni, extent) BIND(C) 
     907      USE ISO_C_BINDING 
     908      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl 
     909      INTEGER (KIND=C_INT)     , DIMENSION(*) :: tile_data_ni 
     910      INTEGER (kind = C_INT), DIMENSION(*)     :: extent 
     911    END SUBROUTINE cxios_set_domaingroup_tile_data_ni 
     912 
     913    SUBROUTINE cxios_get_domaingroup_tile_data_ni(domaingroup_hdl, tile_data_ni, extent) BIND(C) 
     914      USE ISO_C_BINDING 
     915      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl 
     916      INTEGER (KIND=C_INT)     , DIMENSION(*) :: tile_data_ni 
     917      INTEGER (kind = C_INT), DIMENSION(*)     :: extent 
     918    END SUBROUTINE cxios_get_domaingroup_tile_data_ni 
     919 
     920    FUNCTION cxios_is_defined_domaingroup_tile_data_ni(domaingroup_hdl) BIND(C) 
     921      USE ISO_C_BINDING 
     922      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_tile_data_ni 
     923      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 
     924    END FUNCTION cxios_is_defined_domaingroup_tile_data_ni 
     925 
     926 
     927    SUBROUTINE cxios_set_domaingroup_tile_data_nj(domaingroup_hdl, tile_data_nj, extent) BIND(C) 
     928      USE ISO_C_BINDING 
     929      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl 
     930      INTEGER (KIND=C_INT)     , DIMENSION(*) :: tile_data_nj 
     931      INTEGER (kind = C_INT), DIMENSION(*)     :: extent 
     932    END SUBROUTINE cxios_set_domaingroup_tile_data_nj 
     933 
     934    SUBROUTINE cxios_get_domaingroup_tile_data_nj(domaingroup_hdl, tile_data_nj, extent) BIND(C) 
     935      USE ISO_C_BINDING 
     936      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl 
     937      INTEGER (KIND=C_INT)     , DIMENSION(*) :: tile_data_nj 
     938      INTEGER (kind = C_INT), DIMENSION(*)     :: extent 
     939    END SUBROUTINE cxios_get_domaingroup_tile_data_nj 
     940 
     941    FUNCTION cxios_is_defined_domaingroup_tile_data_nj(domaingroup_hdl) BIND(C) 
     942      USE ISO_C_BINDING 
     943      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_tile_data_nj 
     944      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 
     945    END FUNCTION cxios_is_defined_domaingroup_tile_data_nj 
     946 
     947 
     948    SUBROUTINE cxios_set_domaingroup_tile_ibegin(domaingroup_hdl, tile_ibegin, extent) BIND(C) 
     949      USE ISO_C_BINDING 
     950      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl 
     951      INTEGER (KIND=C_INT)     , DIMENSION(*) :: tile_ibegin 
     952      INTEGER (kind = C_INT), DIMENSION(*)     :: extent 
     953    END SUBROUTINE cxios_set_domaingroup_tile_ibegin 
     954 
     955    SUBROUTINE cxios_get_domaingroup_tile_ibegin(domaingroup_hdl, tile_ibegin, extent) BIND(C) 
     956      USE ISO_C_BINDING 
     957      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl 
     958      INTEGER (KIND=C_INT)     , DIMENSION(*) :: tile_ibegin 
     959      INTEGER (kind = C_INT), DIMENSION(*)     :: extent 
     960    END SUBROUTINE cxios_get_domaingroup_tile_ibegin 
     961 
     962    FUNCTION cxios_is_defined_domaingroup_tile_ibegin(domaingroup_hdl) BIND(C) 
     963      USE ISO_C_BINDING 
     964      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_tile_ibegin 
     965      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 
     966    END FUNCTION cxios_is_defined_domaingroup_tile_ibegin 
     967 
     968 
     969    SUBROUTINE cxios_set_domaingroup_tile_jbegin(domaingroup_hdl, tile_jbegin, extent) BIND(C) 
     970      USE ISO_C_BINDING 
     971      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl 
     972      INTEGER (KIND=C_INT)     , DIMENSION(*) :: tile_jbegin 
     973      INTEGER (kind = C_INT), DIMENSION(*)     :: extent 
     974    END SUBROUTINE cxios_set_domaingroup_tile_jbegin 
     975 
     976    SUBROUTINE cxios_get_domaingroup_tile_jbegin(domaingroup_hdl, tile_jbegin, extent) BIND(C) 
     977      USE ISO_C_BINDING 
     978      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl 
     979      INTEGER (KIND=C_INT)     , DIMENSION(*) :: tile_jbegin 
     980      INTEGER (kind = C_INT), DIMENSION(*)     :: extent 
     981    END SUBROUTINE cxios_get_domaingroup_tile_jbegin 
     982 
     983    FUNCTION cxios_is_defined_domaingroup_tile_jbegin(domaingroup_hdl) BIND(C) 
     984      USE ISO_C_BINDING 
     985      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_tile_jbegin 
     986      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 
     987    END FUNCTION cxios_is_defined_domaingroup_tile_jbegin 
     988 
     989 
     990    SUBROUTINE cxios_set_domaingroup_tile_ni(domaingroup_hdl, tile_ni, extent) BIND(C) 
     991      USE ISO_C_BINDING 
     992      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl 
     993      INTEGER (KIND=C_INT)     , DIMENSION(*) :: tile_ni 
     994      INTEGER (kind = C_INT), DIMENSION(*)     :: extent 
     995    END SUBROUTINE cxios_set_domaingroup_tile_ni 
     996 
     997    SUBROUTINE cxios_get_domaingroup_tile_ni(domaingroup_hdl, tile_ni, extent) BIND(C) 
     998      USE ISO_C_BINDING 
     999      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl 
     1000      INTEGER (KIND=C_INT)     , DIMENSION(*) :: tile_ni 
     1001      INTEGER (kind = C_INT), DIMENSION(*)     :: extent 
     1002    END SUBROUTINE cxios_get_domaingroup_tile_ni 
     1003 
     1004    FUNCTION cxios_is_defined_domaingroup_tile_ni(domaingroup_hdl) BIND(C) 
     1005      USE ISO_C_BINDING 
     1006      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_tile_ni 
     1007      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 
     1008    END FUNCTION cxios_is_defined_domaingroup_tile_ni 
     1009 
     1010 
     1011    SUBROUTINE cxios_set_domaingroup_tile_nj(domaingroup_hdl, tile_nj, extent) BIND(C) 
     1012      USE ISO_C_BINDING 
     1013      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl 
     1014      INTEGER (KIND=C_INT)     , DIMENSION(*) :: tile_nj 
     1015      INTEGER (kind = C_INT), DIMENSION(*)     :: extent 
     1016    END SUBROUTINE cxios_set_domaingroup_tile_nj 
     1017 
     1018    SUBROUTINE cxios_get_domaingroup_tile_nj(domaingroup_hdl, tile_nj, extent) BIND(C) 
     1019      USE ISO_C_BINDING 
     1020      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl 
     1021      INTEGER (KIND=C_INT)     , DIMENSION(*) :: tile_nj 
     1022      INTEGER (kind = C_INT), DIMENSION(*)     :: extent 
     1023    END SUBROUTINE cxios_get_domaingroup_tile_nj 
     1024 
     1025    FUNCTION cxios_is_defined_domaingroup_tile_nj(domaingroup_hdl) BIND(C) 
     1026      USE ISO_C_BINDING 
     1027      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_tile_nj 
     1028      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 
     1029    END FUNCTION cxios_is_defined_domaingroup_tile_nj 
     1030 
     1031 
    8451032    SUBROUTINE cxios_set_domaingroup_type(domaingroup_hdl, type, type_size) BIND(C) 
    8461033      USE ISO_C_BINDING 

  • XIOS/trunk/src/interface/fortran_attr/idomain_attr.F90

    r1626 r2131  
    1616    , data_nj, dim_i_name, dim_j_name, domain_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d  & 
    1717    , latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo  & 
    18     , nj, nj_glo, nvertex, prec, radius, standard_name, type ) 
     18    , nj, nj_glo, ntiles, nvertex, prec, radius, standard_name, tile_data_ibegin, tile_data_jbegin  & 
     19    , tile_data_ni, tile_data_nj, tile_ibegin, tile_jbegin, tile_ni, tile_nj, type ) 
    1920 
    2021    IMPLICIT NONE 
    … …  
    5960      INTEGER  , OPTIONAL, INTENT(IN) :: nj 
    6061      INTEGER  , OPTIONAL, INTENT(IN) :: nj_glo 
     62      INTEGER  , OPTIONAL, INTENT(IN) :: ntiles 
    6163      INTEGER  , OPTIONAL, INTENT(IN) :: nvertex 
    6264      INTEGER  , OPTIONAL, INTENT(IN) :: prec 
    6365      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: radius 
    6466      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name 
     67      INTEGER  , OPTIONAL, INTENT(IN) :: tile_data_ibegin(:) 
     68      INTEGER  , OPTIONAL, INTENT(IN) :: tile_data_jbegin(:) 
     69      INTEGER  , OPTIONAL, INTENT(IN) :: tile_data_ni(:) 
     70      INTEGER  , OPTIONAL, INTENT(IN) :: tile_data_nj(:) 
     71      INTEGER  , OPTIONAL, INTENT(IN) :: tile_ibegin(:) 
     72      INTEGER  , OPTIONAL, INTENT(IN) :: tile_jbegin(:) 
     73      INTEGER  , OPTIONAL, INTENT(IN) :: tile_ni(:) 
     74      INTEGER  , OPTIONAL, INTENT(IN) :: tile_nj(:) 
    6575      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type 
    6676 
    … …  
    7282      , data_nj, dim_i_name, dim_j_name, domain_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d  & 
    7383      , latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo  & 
    74       , nj, nj_glo, nvertex, prec, radius, standard_name, type ) 
     84      , nj, nj_glo, ntiles, nvertex, prec, radius, standard_name, tile_data_ibegin, tile_data_jbegin  & 
     85      , tile_data_ni, tile_data_nj, tile_ibegin, tile_jbegin, tile_ni, tile_nj, type ) 
    7586 
    7687  END SUBROUTINE xios(set_domain_attr) 
    … …  
    8192    , data_nj, dim_i_name, dim_j_name, domain_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d  & 
    8293    , latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo  & 
    83     , nj, nj_glo, nvertex, prec, radius, standard_name, type ) 
     94    , nj, nj_glo, ntiles, nvertex, prec, radius, standard_name, tile_data_ibegin, tile_data_jbegin  & 
     95    , tile_data_ni, tile_data_nj, tile_ibegin, tile_jbegin, tile_ni, tile_nj, type ) 
    8496 
    8597    IMPLICIT NONE 
    … …  
    123135      INTEGER  , OPTIONAL, INTENT(IN) :: nj 
    124136      INTEGER  , OPTIONAL, INTENT(IN) :: nj_glo 
     137      INTEGER  , OPTIONAL, INTENT(IN) :: ntiles 
    125138      INTEGER  , OPTIONAL, INTENT(IN) :: nvertex 
    126139      INTEGER  , OPTIONAL, INTENT(IN) :: prec 
    127140      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: radius 
    128141      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name 
     142      INTEGER  , OPTIONAL, INTENT(IN) :: tile_data_ibegin(:) 
     143      INTEGER  , OPTIONAL, INTENT(IN) :: tile_data_jbegin(:) 
     144      INTEGER  , OPTIONAL, INTENT(IN) :: tile_data_ni(:) 
     145      INTEGER  , OPTIONAL, INTENT(IN) :: tile_data_nj(:) 
     146      INTEGER  , OPTIONAL, INTENT(IN) :: tile_ibegin(:) 
     147      INTEGER  , OPTIONAL, INTENT(IN) :: tile_jbegin(:) 
     148      INTEGER  , OPTIONAL, INTENT(IN) :: tile_ni(:) 
     149      INTEGER  , OPTIONAL, INTENT(IN) :: tile_nj(:) 
    129150      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type 
    130151 
    … …  
    134155      , data_nj, dim_i_name, dim_j_name, domain_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d  & 
    135156      , latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo  & 
    136       , nj, nj_glo, nvertex, prec, radius, standard_name, type ) 
     157      , nj, nj_glo, ntiles, nvertex, prec, radius, standard_name, tile_data_ibegin, tile_data_jbegin  & 
     158      , tile_data_ni, tile_data_nj, tile_ibegin, tile_jbegin, tile_ni, tile_nj, type ) 
    137159 
    138160  END SUBROUTINE xios(set_domain_attr_hdl) 
    … …  
    143165    , data_ni_, data_nj_, dim_i_name_, dim_j_name_, domain_ref_, i_index_, ibegin_, j_index_, jbegin_  & 
    144166    , lat_name_, latvalue_1d_, latvalue_2d_, lon_name_, long_name_, lonvalue_1d_, lonvalue_2d_, mask_1d_  & 
    145     , mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, nvertex_, prec_, radius_, standard_name_, type_  & 
    146      ) 
     167    , mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, ntiles_, nvertex_, prec_, radius_, standard_name_  & 
     168    , tile_data_ibegin_, tile_data_jbegin_, tile_data_ni_, tile_data_nj_, tile_ibegin_, tile_jbegin_  & 
     169    , tile_ni_, tile_nj_, type_ ) 
    147170 
    148171    IMPLICIT NONE 
    … …  
    186209      INTEGER  , OPTIONAL, INTENT(IN) :: nj_ 
    187210      INTEGER  , OPTIONAL, INTENT(IN) :: nj_glo_ 
     211      INTEGER  , OPTIONAL, INTENT(IN) :: ntiles_ 
    188212      INTEGER  , OPTIONAL, INTENT(IN) :: nvertex_ 
    189213      INTEGER  , OPTIONAL, INTENT(IN) :: prec_ 
    190214      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: radius_ 
    191215      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name_ 
     216      INTEGER  , OPTIONAL, INTENT(IN) :: tile_data_ibegin_(:) 
     217      INTEGER  , OPTIONAL, INTENT(IN) :: tile_data_jbegin_(:) 
     218      INTEGER  , OPTIONAL, INTENT(IN) :: tile_data_ni_(:) 
     219      INTEGER  , OPTIONAL, INTENT(IN) :: tile_data_nj_(:) 
     220      INTEGER  , OPTIONAL, INTENT(IN) :: tile_ibegin_(:) 
     221      INTEGER  , OPTIONAL, INTENT(IN) :: tile_jbegin_(:) 
     222      INTEGER  , OPTIONAL, INTENT(IN) :: tile_ni_(:) 
     223      INTEGER  , OPTIONAL, INTENT(IN) :: tile_nj_(:) 
    192224      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type_ 
    193225 
    … …  
    376408      ENDIF 
    377409 
     410      IF (PRESENT(ntiles_)) THEN 
     411        CALL cxios_set_domain_ntiles & 
     412      (domain_hdl%daddr, ntiles_) 
     413      ENDIF 
     414 
    378415      IF (PRESENT(nvertex_)) THEN 
    379416        CALL cxios_set_domain_nvertex & 
    … …  
    394431        CALL cxios_set_domain_standard_name & 
    395432      (domain_hdl%daddr, standard_name_, len(standard_name_)) 
     433      ENDIF 
     434 
     435      IF (PRESENT(tile_data_ibegin_)) THEN 
     436        CALL cxios_set_domain_tile_data_ibegin & 
     437      (domain_hdl%daddr, tile_data_ibegin_, SHAPE(tile_data_ibegin_)) 
     438      ENDIF 
     439 
     440      IF (PRESENT(tile_data_jbegin_)) THEN 
     441        CALL cxios_set_domain_tile_data_jbegin & 
     442      (domain_hdl%daddr, tile_data_jbegin_, SHAPE(tile_data_jbegin_)) 
     443      ENDIF 
     444 
     445      IF (PRESENT(tile_data_ni_)) THEN 
     446        CALL cxios_set_domain_tile_data_ni & 
     447      (domain_hdl%daddr, tile_data_ni_, SHAPE(tile_data_ni_)) 
     448      ENDIF 
     449 
     450      IF (PRESENT(tile_data_nj_)) THEN 
     451        CALL cxios_set_domain_tile_data_nj & 
     452      (domain_hdl%daddr, tile_data_nj_, SHAPE(tile_data_nj_)) 
     453      ENDIF 
     454 
     455      IF (PRESENT(tile_ibegin_)) THEN 
     456        CALL cxios_set_domain_tile_ibegin & 
     457      (domain_hdl%daddr, tile_ibegin_, SHAPE(tile_ibegin_)) 
     458      ENDIF 
     459 
     460      IF (PRESENT(tile_jbegin_)) THEN 
     461        CALL cxios_set_domain_tile_jbegin & 
     462      (domain_hdl%daddr, tile_jbegin_, SHAPE(tile_jbegin_)) 
     463      ENDIF 
     464 
     465      IF (PRESENT(tile_ni_)) THEN 
     466        CALL cxios_set_domain_tile_ni & 
     467      (domain_hdl%daddr, tile_ni_, SHAPE(tile_ni_)) 
     468      ENDIF 
     469 
     470      IF (PRESENT(tile_nj_)) THEN 
     471        CALL cxios_set_domain_tile_nj & 
     472      (domain_hdl%daddr, tile_nj_, SHAPE(tile_nj_)) 
    396473      ENDIF 
    397474 
    … …  
    408485    , data_nj, dim_i_name, dim_j_name, domain_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d  & 
    409486    , latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo  & 
    410     , nj, nj_glo, nvertex, prec, radius, standard_name, type ) 
     487    , nj, nj_glo, ntiles, nvertex, prec, radius, standard_name, tile_data_ibegin, tile_data_jbegin  & 
     488    , tile_data_ni, tile_data_nj, tile_ibegin, tile_jbegin, tile_ni, tile_nj, type ) 
    411489 
    412490    IMPLICIT NONE 
    … …  
    451529      INTEGER  , OPTIONAL, INTENT(OUT) :: nj 
    452530      INTEGER  , OPTIONAL, INTENT(OUT) :: nj_glo 
     531      INTEGER  , OPTIONAL, INTENT(OUT) :: ntiles 
    453532      INTEGER  , OPTIONAL, INTENT(OUT) :: nvertex 
    454533      INTEGER  , OPTIONAL, INTENT(OUT) :: prec 
    455534      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: radius 
    456535      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name 
     536      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_data_ibegin(:) 
     537      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_data_jbegin(:) 
     538      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_data_ni(:) 
     539      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_data_nj(:) 
     540      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_ibegin(:) 
     541      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_jbegin(:) 
     542      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_ni(:) 
     543      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_nj(:) 
    457544      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type 
    458545 
    … …  
    464551      , data_nj, dim_i_name, dim_j_name, domain_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d  & 
    465552      , latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo  & 
    466       , nj, nj_glo, nvertex, prec, radius, standard_name, type ) 
     553      , nj, nj_glo, ntiles, nvertex, prec, radius, standard_name, tile_data_ibegin, tile_data_jbegin  & 
     554      , tile_data_ni, tile_data_nj, tile_ibegin, tile_jbegin, tile_ni, tile_nj, type ) 
    467555 
    468556  END SUBROUTINE xios(get_domain_attr) 
    … …  
    473561    , data_nj, dim_i_name, dim_j_name, domain_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d  & 
    474562    , latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo  & 
    475     , nj, nj_glo, nvertex, prec, radius, standard_name, type ) 
     563    , nj, nj_glo, ntiles, nvertex, prec, radius, standard_name, tile_data_ibegin, tile_data_jbegin  & 
     564    , tile_data_ni, tile_data_nj, tile_ibegin, tile_jbegin, tile_ni, tile_nj, type ) 
    476565 
    477566    IMPLICIT NONE 
    … …  
    515604      INTEGER  , OPTIONAL, INTENT(OUT) :: nj 
    516605      INTEGER  , OPTIONAL, INTENT(OUT) :: nj_glo 
     606      INTEGER  , OPTIONAL, INTENT(OUT) :: ntiles 
    517607      INTEGER  , OPTIONAL, INTENT(OUT) :: nvertex 
    518608      INTEGER  , OPTIONAL, INTENT(OUT) :: prec 
    519609      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: radius 
    520610      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name 
     611      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_data_ibegin(:) 
     612      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_data_jbegin(:) 
     613      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_data_ni(:) 
     614      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_data_nj(:) 
     615      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_ibegin(:) 
     616      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_jbegin(:) 
     617      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_ni(:) 
     618      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_nj(:) 
    521619      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type 
    522620 
    … …  
    526624      , data_nj, dim_i_name, dim_j_name, domain_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d  & 
    527625      , latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo  & 
    528       , nj, nj_glo, nvertex, prec, radius, standard_name, type ) 
     626      , nj, nj_glo, ntiles, nvertex, prec, radius, standard_name, tile_data_ibegin, tile_data_jbegin  & 
     627      , tile_data_ni, tile_data_nj, tile_ibegin, tile_jbegin, tile_ni, tile_nj, type ) 
    529628 
    530629  END SUBROUTINE xios(get_domain_attr_hdl) 
    … …  
    535634    , data_ni_, data_nj_, dim_i_name_, dim_j_name_, domain_ref_, i_index_, ibegin_, j_index_, jbegin_  & 
    536635    , lat_name_, latvalue_1d_, latvalue_2d_, lon_name_, long_name_, lonvalue_1d_, lonvalue_2d_, mask_1d_  & 
    537     , mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, nvertex_, prec_, radius_, standard_name_, type_  & 
    538      ) 
     636    , mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, ntiles_, nvertex_, prec_, radius_, standard_name_  & 
     637    , tile_data_ibegin_, tile_data_jbegin_, tile_data_ni_, tile_data_nj_, tile_ibegin_, tile_jbegin_  & 
     638    , tile_ni_, tile_nj_, type_ ) 
    539639 
    540640    IMPLICIT NONE 
    … …  
    578678      INTEGER  , OPTIONAL, INTENT(OUT) :: nj_ 
    579679      INTEGER  , OPTIONAL, INTENT(OUT) :: nj_glo_ 
     680      INTEGER  , OPTIONAL, INTENT(OUT) :: ntiles_ 
    580681      INTEGER  , OPTIONAL, INTENT(OUT) :: nvertex_ 
    581682      INTEGER  , OPTIONAL, INTENT(OUT) :: prec_ 
    582683      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: radius_ 
    583684      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name_ 
     685      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_data_ibegin_(:) 
     686      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_data_jbegin_(:) 
     687      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_data_ni_(:) 
     688      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_data_nj_(:) 
     689      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_ibegin_(:) 
     690      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_jbegin_(:) 
     691      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_ni_(:) 
     692      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_nj_(:) 
    584693      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type_ 
    585694 
    … …  
    768877      ENDIF 
    769878 
     879      IF (PRESENT(ntiles_)) THEN 
     880        CALL cxios_get_domain_ntiles & 
     881      (domain_hdl%daddr, ntiles_) 
     882      ENDIF 
     883 
    770884      IF (PRESENT(nvertex_)) THEN 
    771885        CALL cxios_get_domain_nvertex & 
    … …  
    786900        CALL cxios_get_domain_standard_name & 
    787901      (domain_hdl%daddr, standard_name_, len(standard_name_)) 
     902      ENDIF 
     903 
     904      IF (PRESENT(tile_data_ibegin_)) THEN 
     905        CALL cxios_get_domain_tile_data_ibegin & 
     906      (domain_hdl%daddr, tile_data_ibegin_, SHAPE(tile_data_ibegin_)) 
     907      ENDIF 
     908 
     909      IF (PRESENT(tile_data_jbegin_)) THEN 
     910        CALL cxios_get_domain_tile_data_jbegin & 
     911      (domain_hdl%daddr, tile_data_jbegin_, SHAPE(tile_data_jbegin_)) 
     912      ENDIF 
     913 
     914      IF (PRESENT(tile_data_ni_)) THEN 
     915        CALL cxios_get_domain_tile_data_ni & 
     916      (domain_hdl%daddr, tile_data_ni_, SHAPE(tile_data_ni_)) 
     917      ENDIF 
     918 
     919      IF (PRESENT(tile_data_nj_)) THEN 
     920        CALL cxios_get_domain_tile_data_nj & 
     921      (domain_hdl%daddr, tile_data_nj_, SHAPE(tile_data_nj_)) 
     922      ENDIF 
     923 
     924      IF (PRESENT(tile_ibegin_)) THEN 
     925        CALL cxios_get_domain_tile_ibegin & 
     926      (domain_hdl%daddr, tile_ibegin_, SHAPE(tile_ibegin_)) 
     927      ENDIF 
     928 
     929      IF (PRESENT(tile_jbegin_)) THEN 
     930        CALL cxios_get_domain_tile_jbegin & 
     931      (domain_hdl%daddr, tile_jbegin_, SHAPE(tile_jbegin_)) 
     932      ENDIF 
     933 
     934      IF (PRESENT(tile_ni_)) THEN 
     935        CALL cxios_get_domain_tile_ni & 
     936      (domain_hdl%daddr, tile_ni_, SHAPE(tile_ni_)) 
     937      ENDIF 
     938 
     939      IF (PRESENT(tile_nj_)) THEN 
     940        CALL cxios_get_domain_tile_nj & 
     941      (domain_hdl%daddr, tile_nj_, SHAPE(tile_nj_)) 
    788942      ENDIF 
    789943 
    … …  
    800954    , data_nj, dim_i_name, dim_j_name, domain_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d  & 
    801955    , latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo  & 
    802     , nj, nj_glo, nvertex, prec, radius, standard_name, type ) 
     956    , nj, nj_glo, ntiles, nvertex, prec, radius, standard_name, tile_data_ibegin, tile_data_jbegin  & 
     957    , tile_data_ni, tile_data_nj, tile_ibegin, tile_jbegin, tile_ni, tile_nj, type ) 
    803958 
    804959    IMPLICIT NONE 
    … …  
    8771032      LOGICAL, OPTIONAL, INTENT(OUT) :: nj_glo 
    8781033      LOGICAL(KIND=C_BOOL) :: nj_glo_tmp 
     1034      LOGICAL, OPTIONAL, INTENT(OUT) :: ntiles 
     1035      LOGICAL(KIND=C_BOOL) :: ntiles_tmp 
    8791036      LOGICAL, OPTIONAL, INTENT(OUT) :: nvertex 
    8801037      LOGICAL(KIND=C_BOOL) :: nvertex_tmp 
    … …  
    8851042      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name 
    8861043      LOGICAL(KIND=C_BOOL) :: standard_name_tmp 
     1044      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_data_ibegin 
     1045      LOGICAL(KIND=C_BOOL) :: tile_data_ibegin_tmp 
     1046      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_data_jbegin 
     1047      LOGICAL(KIND=C_BOOL) :: tile_data_jbegin_tmp 
     1048      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_data_ni 
     1049      LOGICAL(KIND=C_BOOL) :: tile_data_ni_tmp 
     1050      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_data_nj 
     1051      LOGICAL(KIND=C_BOOL) :: tile_data_nj_tmp 
     1052      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_ibegin 
     1053      LOGICAL(KIND=C_BOOL) :: tile_ibegin_tmp 
     1054      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_jbegin 
     1055      LOGICAL(KIND=C_BOOL) :: tile_jbegin_tmp 
     1056      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_ni 
     1057      LOGICAL(KIND=C_BOOL) :: tile_ni_tmp 
     1058      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_nj 
     1059      LOGICAL(KIND=C_BOOL) :: tile_nj_tmp 
    8871060      LOGICAL, OPTIONAL, INTENT(OUT) :: type 
    8881061      LOGICAL(KIND=C_BOOL) :: type_tmp 
    … …  
    8951068      , data_nj, dim_i_name, dim_j_name, domain_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d  & 
    8961069      , latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo  & 
    897       , nj, nj_glo, nvertex, prec, radius, standard_name, type ) 
     1070      , nj, nj_glo, ntiles, nvertex, prec, radius, standard_name, tile_data_ibegin, tile_data_jbegin  & 
     1071      , tile_data_ni, tile_data_nj, tile_ibegin, tile_jbegin, tile_ni, tile_nj, type ) 
    8981072 
    8991073  END SUBROUTINE xios(is_defined_domain_attr) 
    … …  
    9041078    , data_nj, dim_i_name, dim_j_name, domain_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d  & 
    9051079    , latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo  & 
    906     , nj, nj_glo, nvertex, prec, radius, standard_name, type ) 
     1080    , nj, nj_glo, ntiles, nvertex, prec, radius, standard_name, tile_data_ibegin, tile_data_jbegin  & 
     1081    , tile_data_ni, tile_data_nj, tile_ibegin, tile_jbegin, tile_ni, tile_nj, type ) 
    9071082 
    9081083    IMPLICIT NONE 
    … …  
    9801155      LOGICAL, OPTIONAL, INTENT(OUT) :: nj_glo 
    9811156      LOGICAL(KIND=C_BOOL) :: nj_glo_tmp 
     1157      LOGICAL, OPTIONAL, INTENT(OUT) :: ntiles 
     1158      LOGICAL(KIND=C_BOOL) :: ntiles_tmp 
    9821159      LOGICAL, OPTIONAL, INTENT(OUT) :: nvertex 
    9831160      LOGICAL(KIND=C_BOOL) :: nvertex_tmp 
    … …  
    9881165      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name 
    9891166      LOGICAL(KIND=C_BOOL) :: standard_name_tmp 
     1167      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_data_ibegin 
     1168      LOGICAL(KIND=C_BOOL) :: tile_data_ibegin_tmp 
     1169      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_data_jbegin 
     1170      LOGICAL(KIND=C_BOOL) :: tile_data_jbegin_tmp 
     1171      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_data_ni 
     1172      LOGICAL(KIND=C_BOOL) :: tile_data_ni_tmp 
     1173      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_data_nj 
     1174      LOGICAL(KIND=C_BOOL) :: tile_data_nj_tmp 
     1175      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_ibegin 
     1176      LOGICAL(KIND=C_BOOL) :: tile_ibegin_tmp 
     1177      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_jbegin 
     1178      LOGICAL(KIND=C_BOOL) :: tile_jbegin_tmp 
     1179      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_ni 
     1180      LOGICAL(KIND=C_BOOL) :: tile_ni_tmp 
     1181      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_nj 
     1182      LOGICAL(KIND=C_BOOL) :: tile_nj_tmp 
    9901183      LOGICAL, OPTIONAL, INTENT(OUT) :: type 
    9911184      LOGICAL(KIND=C_BOOL) :: type_tmp 
    … …  
    9961189      , data_nj, dim_i_name, dim_j_name, domain_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d  & 
    9971190      , latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo  & 
    998       , nj, nj_glo, nvertex, prec, radius, standard_name, type ) 
     1191      , nj, nj_glo, ntiles, nvertex, prec, radius, standard_name, tile_data_ibegin, tile_data_jbegin  & 
     1192      , tile_data_ni, tile_data_nj, tile_ibegin, tile_jbegin, tile_ni, tile_nj, type ) 
    9991193 
    10001194  END SUBROUTINE xios(is_defined_domain_attr_hdl) 
    … …  
    10051199    , data_ni_, data_nj_, dim_i_name_, dim_j_name_, domain_ref_, i_index_, ibegin_, j_index_, jbegin_  & 
    10061200    , lat_name_, latvalue_1d_, latvalue_2d_, lon_name_, long_name_, lonvalue_1d_, lonvalue_2d_, mask_1d_  & 
    1007     , mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, nvertex_, prec_, radius_, standard_name_, type_  & 
    1008      ) 
     1201    , mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, ntiles_, nvertex_, prec_, radius_, standard_name_  & 
     1202    , tile_data_ibegin_, tile_data_jbegin_, tile_data_ni_, tile_data_nj_, tile_ibegin_, tile_jbegin_  & 
     1203    , tile_ni_, tile_nj_, type_ ) 
    10091204 
    10101205    IMPLICIT NONE 
    … …  
    10821277      LOGICAL, OPTIONAL, INTENT(OUT) :: nj_glo_ 
    10831278      LOGICAL(KIND=C_BOOL) :: nj_glo__tmp 
     1279      LOGICAL, OPTIONAL, INTENT(OUT) :: ntiles_ 
     1280      LOGICAL(KIND=C_BOOL) :: ntiles__tmp 
    10841281      LOGICAL, OPTIONAL, INTENT(OUT) :: nvertex_ 
    10851282      LOGICAL(KIND=C_BOOL) :: nvertex__tmp 
    … …  
    10901287      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name_ 
    10911288      LOGICAL(KIND=C_BOOL) :: standard_name__tmp 
     1289      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_data_ibegin_ 
     1290      LOGICAL(KIND=C_BOOL) :: tile_data_ibegin__tmp 
     1291      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_data_jbegin_ 
     1292      LOGICAL(KIND=C_BOOL) :: tile_data_jbegin__tmp 
     1293      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_data_ni_ 
     1294      LOGICAL(KIND=C_BOOL) :: tile_data_ni__tmp 
     1295      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_data_nj_ 
     1296      LOGICAL(KIND=C_BOOL) :: tile_data_nj__tmp 
     1297      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_ibegin_ 
     1298      LOGICAL(KIND=C_BOOL) :: tile_ibegin__tmp 
     1299      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_jbegin_ 
     1300      LOGICAL(KIND=C_BOOL) :: tile_jbegin__tmp 
     1301      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_ni_ 
     1302      LOGICAL(KIND=C_BOOL) :: tile_ni__tmp 
     1303      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_nj_ 
     1304      LOGICAL(KIND=C_BOOL) :: tile_nj__tmp 
    10921305      LOGICAL, OPTIONAL, INTENT(OUT) :: type_ 
    10931306      LOGICAL(KIND=C_BOOL) :: type__tmp 
    … …  
    13091522      ENDIF 
    13101523 
     1524      IF (PRESENT(ntiles_)) THEN 
     1525        ntiles__tmp = cxios_is_defined_domain_ntiles & 
     1526      (domain_hdl%daddr) 
     1527        ntiles_ = ntiles__tmp 
     1528      ENDIF 
     1529 
    13111530      IF (PRESENT(nvertex_)) THEN 
    13121531        nvertex__tmp = cxios_is_defined_domain_nvertex & 
    … …  
    13331552      ENDIF 
    13341553 
     1554      IF (PRESENT(tile_data_ibegin_)) THEN 
     1555        tile_data_ibegin__tmp = cxios_is_defined_domain_tile_data_ibegin & 
     1556      (domain_hdl%daddr) 
     1557        tile_data_ibegin_ = tile_data_ibegin__tmp 
     1558      ENDIF 
     1559 
     1560      IF (PRESENT(tile_data_jbegin_)) THEN 
     1561        tile_data_jbegin__tmp = cxios_is_defined_domain_tile_data_jbegin & 
     1562      (domain_hdl%daddr) 
     1563        tile_data_jbegin_ = tile_data_jbegin__tmp 
     1564      ENDIF 
     1565 
     1566      IF (PRESENT(tile_data_ni_)) THEN 
     1567        tile_data_ni__tmp = cxios_is_defined_domain_tile_data_ni & 
     1568      (domain_hdl%daddr) 
     1569        tile_data_ni_ = tile_data_ni__tmp 
     1570      ENDIF 
     1571 
     1572      IF (PRESENT(tile_data_nj_)) THEN 
     1573        tile_data_nj__tmp = cxios_is_defined_domain_tile_data_nj & 
     1574      (domain_hdl%daddr) 
     1575        tile_data_nj_ = tile_data_nj__tmp 
     1576      ENDIF 
     1577 
     1578      IF (PRESENT(tile_ibegin_)) THEN 
     1579        tile_ibegin__tmp = cxios_is_defined_domain_tile_ibegin & 
     1580      (domain_hdl%daddr) 
     1581        tile_ibegin_ = tile_ibegin__tmp 
     1582      ENDIF 
     1583 
     1584      IF (PRESENT(tile_jbegin_)) THEN 
     1585        tile_jbegin__tmp = cxios_is_defined_domain_tile_jbegin & 
     1586      (domain_hdl%daddr) 
     1587        tile_jbegin_ = tile_jbegin__tmp 
     1588      ENDIF 
     1589 
     1590      IF (PRESENT(tile_ni_)) THEN 
     1591        tile_ni__tmp = cxios_is_defined_domain_tile_ni & 
     1592      (domain_hdl%daddr) 
     1593        tile_ni_ = tile_ni__tmp 
     1594      ENDIF 
     1595 
     1596      IF (PRESENT(tile_nj_)) THEN 
     1597        tile_nj__tmp = cxios_is_defined_domain_tile_nj & 
     1598      (domain_hdl%daddr) 
     1599        tile_nj_ = tile_nj__tmp 
     1600      ENDIF 
     1601 
    13351602      IF (PRESENT(type_)) THEN 
    13361603        type__tmp = cxios_is_defined_domain_type & 

  • XIOS/trunk/src/interface/fortran_attr/idomaingroup_attr.F90

    r1626 r2131  
    1616    , data_nj, dim_i_name, dim_j_name, domain_ref, group_ref, i_index, ibegin, j_index, jbegin, lat_name  & 
    1717    , 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, radius, standard_name, type ) 
     18    , name, ni, ni_glo, nj, nj_glo, ntiles, nvertex, prec, radius, standard_name, tile_data_ibegin  & 
     19    , tile_data_jbegin, tile_data_ni, tile_data_nj, tile_ibegin, tile_jbegin, tile_ni, tile_nj, type  & 
     20     ) 
    1921 
    2022    IMPLICIT NONE 
    … …  
    6062      INTEGER  , OPTIONAL, INTENT(IN) :: nj 
    6163      INTEGER  , OPTIONAL, INTENT(IN) :: nj_glo 
     64      INTEGER  , OPTIONAL, INTENT(IN) :: ntiles 
    6265      INTEGER  , OPTIONAL, INTENT(IN) :: nvertex 
    6366      INTEGER  , OPTIONAL, INTENT(IN) :: prec 
    6467      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: radius 
    6568      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name 
     69      INTEGER  , OPTIONAL, INTENT(IN) :: tile_data_ibegin(:) 
     70      INTEGER  , OPTIONAL, INTENT(IN) :: tile_data_jbegin(:) 
     71      INTEGER  , OPTIONAL, INTENT(IN) :: tile_data_ni(:) 
     72      INTEGER  , OPTIONAL, INTENT(IN) :: tile_data_nj(:) 
     73      INTEGER  , OPTIONAL, INTENT(IN) :: tile_ibegin(:) 
     74      INTEGER  , OPTIONAL, INTENT(IN) :: tile_jbegin(:) 
     75      INTEGER  , OPTIONAL, INTENT(IN) :: tile_ni(:) 
     76      INTEGER  , OPTIONAL, INTENT(IN) :: tile_nj(:) 
    6677      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type 
    6778 
    … …  
    7384      , data_nj, dim_i_name, dim_j_name, domain_ref, group_ref, i_index, ibegin, j_index, jbegin, lat_name  & 
    7485      , latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d  & 
    75       , name, ni, ni_glo, nj, nj_glo, nvertex, prec, radius, standard_name, type ) 
     86      , name, ni, ni_glo, nj, nj_glo, ntiles, nvertex, prec, radius, standard_name, tile_data_ibegin  & 
     87      , tile_data_jbegin, tile_data_ni, tile_data_nj, tile_ibegin, tile_jbegin, tile_ni, tile_nj, type  & 
     88       ) 
    7689 
    7790  END SUBROUTINE xios(set_domaingroup_attr) 
    … …  
    8295    , data_nj, dim_i_name, dim_j_name, domain_ref, group_ref, i_index, ibegin, j_index, jbegin, lat_name  & 
    8396    , latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d  & 
    84     , name, ni, ni_glo, nj, nj_glo, nvertex, prec, radius, standard_name, type ) 
     97    , name, ni, ni_glo, nj, nj_glo, ntiles, nvertex, prec, radius, standard_name, tile_data_ibegin  & 
     98    , tile_data_jbegin, tile_data_ni, tile_data_nj, tile_ibegin, tile_jbegin, tile_ni, tile_nj, type  & 
     99     ) 
    85100 
    86101    IMPLICIT NONE 
    … …  
    125140      INTEGER  , OPTIONAL, INTENT(IN) :: nj 
    126141      INTEGER  , OPTIONAL, INTENT(IN) :: nj_glo 
     142      INTEGER  , OPTIONAL, INTENT(IN) :: ntiles 
    127143      INTEGER  , OPTIONAL, INTENT(IN) :: nvertex 
    128144      INTEGER  , OPTIONAL, INTENT(IN) :: prec 
    129145      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: radius 
    130146      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name 
     147      INTEGER  , OPTIONAL, INTENT(IN) :: tile_data_ibegin(:) 
     148      INTEGER  , OPTIONAL, INTENT(IN) :: tile_data_jbegin(:) 
     149      INTEGER  , OPTIONAL, INTENT(IN) :: tile_data_ni(:) 
     150      INTEGER  , OPTIONAL, INTENT(IN) :: tile_data_nj(:) 
     151      INTEGER  , OPTIONAL, INTENT(IN) :: tile_ibegin(:) 
     152      INTEGER  , OPTIONAL, INTENT(IN) :: tile_jbegin(:) 
     153      INTEGER  , OPTIONAL, INTENT(IN) :: tile_ni(:) 
     154      INTEGER  , OPTIONAL, INTENT(IN) :: tile_nj(:) 
    131155      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type 
    132156 
    … …  
    136160      , data_nj, dim_i_name, dim_j_name, domain_ref, group_ref, i_index, ibegin, j_index, jbegin, lat_name  & 
    137161      , latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d  & 
    138       , name, ni, ni_glo, nj, nj_glo, nvertex, prec, radius, standard_name, type ) 
     162      , name, ni, ni_glo, nj, nj_glo, ntiles, nvertex, prec, radius, standard_name, tile_data_ibegin  & 
     163      , tile_data_jbegin, tile_data_ni, tile_data_nj, tile_ibegin, tile_jbegin, tile_ni, tile_nj, type  & 
     164       ) 
    139165 
    140166  END SUBROUTINE xios(set_domaingroup_attr_hdl) 
    … …  
    145171    , data_ni_, data_nj_, dim_i_name_, dim_j_name_, domain_ref_, group_ref_, i_index_, ibegin_, j_index_  & 
    146172    , jbegin_, lat_name_, latvalue_1d_, latvalue_2d_, lon_name_, long_name_, lonvalue_1d_, lonvalue_2d_  & 
    147     , mask_1d_, mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, nvertex_, prec_, radius_, standard_name_  & 
    148     , type_ ) 
     173    , mask_1d_, mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, ntiles_, nvertex_, prec_, radius_, standard_name_  & 
     174    , tile_data_ibegin_, tile_data_jbegin_, tile_data_ni_, tile_data_nj_, tile_ibegin_, tile_jbegin_  & 
     175    , tile_ni_, tile_nj_, type_ ) 
    149176 
    150177    IMPLICIT NONE 
    … …  
    189216      INTEGER  , OPTIONAL, INTENT(IN) :: nj_ 
    190217      INTEGER  , OPTIONAL, INTENT(IN) :: nj_glo_ 
     218      INTEGER  , OPTIONAL, INTENT(IN) :: ntiles_ 
    191219      INTEGER  , OPTIONAL, INTENT(IN) :: nvertex_ 
    192220      INTEGER  , OPTIONAL, INTENT(IN) :: prec_ 
    193221      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: radius_ 
    194222      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name_ 
     223      INTEGER  , OPTIONAL, INTENT(IN) :: tile_data_ibegin_(:) 
     224      INTEGER  , OPTIONAL, INTENT(IN) :: tile_data_jbegin_(:) 
     225      INTEGER  , OPTIONAL, INTENT(IN) :: tile_data_ni_(:) 
     226      INTEGER  , OPTIONAL, INTENT(IN) :: tile_data_nj_(:) 
     227      INTEGER  , OPTIONAL, INTENT(IN) :: tile_ibegin_(:) 
     228      INTEGER  , OPTIONAL, INTENT(IN) :: tile_jbegin_(:) 
     229      INTEGER  , OPTIONAL, INTENT(IN) :: tile_ni_(:) 
     230      INTEGER  , OPTIONAL, INTENT(IN) :: tile_nj_(:) 
    195231      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type_ 
    196232 
    … …  
    384420      ENDIF 
    385421 
     422      IF (PRESENT(ntiles_)) THEN 
     423        CALL cxios_set_domaingroup_ntiles & 
     424      (domaingroup_hdl%daddr, ntiles_) 
     425      ENDIF 
     426 
    386427      IF (PRESENT(nvertex_)) THEN 
    387428        CALL cxios_set_domaingroup_nvertex & 
    … …  
    402443        CALL cxios_set_domaingroup_standard_name & 
    403444      (domaingroup_hdl%daddr, standard_name_, len(standard_name_)) 
     445      ENDIF 
     446 
     447      IF (PRESENT(tile_data_ibegin_)) THEN 
     448        CALL cxios_set_domaingroup_tile_data_ibegin & 
     449      (domaingroup_hdl%daddr, tile_data_ibegin_, SHAPE(tile_data_ibegin_)) 
     450      ENDIF 
     451 
     452      IF (PRESENT(tile_data_jbegin_)) THEN 
     453        CALL cxios_set_domaingroup_tile_data_jbegin & 
     454      (domaingroup_hdl%daddr, tile_data_jbegin_, SHAPE(tile_data_jbegin_)) 
     455      ENDIF 
     456 
     457      IF (PRESENT(tile_data_ni_)) THEN 
     458        CALL cxios_set_domaingroup_tile_data_ni & 
     459      (domaingroup_hdl%daddr, tile_data_ni_, SHAPE(tile_data_ni_)) 
     460      ENDIF 
     461 
     462      IF (PRESENT(tile_data_nj_)) THEN 
     463        CALL cxios_set_domaingroup_tile_data_nj & 
     464      (domaingroup_hdl%daddr, tile_data_nj_, SHAPE(tile_data_nj_)) 
     465      ENDIF 
     466 
     467      IF (PRESENT(tile_ibegin_)) THEN 
     468        CALL cxios_set_domaingroup_tile_ibegin & 
     469      (domaingroup_hdl%daddr, tile_ibegin_, SHAPE(tile_ibegin_)) 
     470      ENDIF 
     471 
     472      IF (PRESENT(tile_jbegin_)) THEN 
     473        CALL cxios_set_domaingroup_tile_jbegin & 
     474      (domaingroup_hdl%daddr, tile_jbegin_, SHAPE(tile_jbegin_)) 
     475      ENDIF 
     476 
     477      IF (PRESENT(tile_ni_)) THEN 
     478        CALL cxios_set_domaingroup_tile_ni & 
     479      (domaingroup_hdl%daddr, tile_ni_, SHAPE(tile_ni_)) 
     480      ENDIF 
     481 
     482      IF (PRESENT(tile_nj_)) THEN 
     483        CALL cxios_set_domaingroup_tile_nj & 
     484      (domaingroup_hdl%daddr, tile_nj_, SHAPE(tile_nj_)) 
    404485      ENDIF 
    405486 
    … …  
    416497    , data_nj, dim_i_name, dim_j_name, domain_ref, group_ref, i_index, ibegin, j_index, jbegin, lat_name  & 
    417498    , latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d  & 
    418     , name, ni, ni_glo, nj, nj_glo, nvertex, prec, radius, standard_name, type ) 
     499    , name, ni, ni_glo, nj, nj_glo, ntiles, nvertex, prec, radius, standard_name, tile_data_ibegin  & 
     500    , tile_data_jbegin, tile_data_ni, tile_data_nj, tile_ibegin, tile_jbegin, tile_ni, tile_nj, type  & 
     501     ) 
    419502 
    420503    IMPLICIT NONE 
    … …  
    460543      INTEGER  , OPTIONAL, INTENT(OUT) :: nj 
    461544      INTEGER  , OPTIONAL, INTENT(OUT) :: nj_glo 
     545      INTEGER  , OPTIONAL, INTENT(OUT) :: ntiles 
    462546      INTEGER  , OPTIONAL, INTENT(OUT) :: nvertex 
    463547      INTEGER  , OPTIONAL, INTENT(OUT) :: prec 
    464548      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: radius 
    465549      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name 
     550      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_data_ibegin(:) 
     551      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_data_jbegin(:) 
     552      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_data_ni(:) 
     553      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_data_nj(:) 
     554      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_ibegin(:) 
     555      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_jbegin(:) 
     556      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_ni(:) 
     557      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_nj(:) 
    466558      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type 
    467559 
    … …  
    473565      , data_nj, dim_i_name, dim_j_name, domain_ref, group_ref, i_index, ibegin, j_index, jbegin, lat_name  & 
    474566      , 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, radius, standard_name, type ) 
     567      , name, ni, ni_glo, nj, nj_glo, ntiles, nvertex, prec, radius, standard_name, tile_data_ibegin  & 
     568      , tile_data_jbegin, tile_data_ni, tile_data_nj, tile_ibegin, tile_jbegin, tile_ni, tile_nj, type  & 
     569       ) 
    476570 
    477571  END SUBROUTINE xios(get_domaingroup_attr) 
    … …  
    482576    , data_nj, dim_i_name, dim_j_name, domain_ref, group_ref, i_index, ibegin, j_index, jbegin, lat_name  & 
    483577    , latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d  & 
    484     , name, ni, ni_glo, nj, nj_glo, nvertex, prec, radius, standard_name, type ) 
     578    , name, ni, ni_glo, nj, nj_glo, ntiles, nvertex, prec, radius, standard_name, tile_data_ibegin  & 
     579    , tile_data_jbegin, tile_data_ni, tile_data_nj, tile_ibegin, tile_jbegin, tile_ni, tile_nj, type  & 
     580     ) 
    485581 
    486582    IMPLICIT NONE 
    … …  
    525621      INTEGER  , OPTIONAL, INTENT(OUT) :: nj 
    526622      INTEGER  , OPTIONAL, INTENT(OUT) :: nj_glo 
     623      INTEGER  , OPTIONAL, INTENT(OUT) :: ntiles 
    527624      INTEGER  , OPTIONAL, INTENT(OUT) :: nvertex 
    528625      INTEGER  , OPTIONAL, INTENT(OUT) :: prec 
    529626      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: radius 
    530627      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name 
     628      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_data_ibegin(:) 
     629      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_data_jbegin(:) 
     630      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_data_ni(:) 
     631      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_data_nj(:) 
     632      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_ibegin(:) 
     633      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_jbegin(:) 
     634      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_ni(:) 
     635      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_nj(:) 
    531636      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type 
    532637 
    … …  
    536641      , data_nj, dim_i_name, dim_j_name, domain_ref, group_ref, i_index, ibegin, j_index, jbegin, lat_name  & 
    537642      , latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d  & 
    538       , name, ni, ni_glo, nj, nj_glo, nvertex, prec, radius, standard_name, type ) 
     643      , name, ni, ni_glo, nj, nj_glo, ntiles, nvertex, prec, radius, standard_name, tile_data_ibegin  & 
     644      , tile_data_jbegin, tile_data_ni, tile_data_nj, tile_ibegin, tile_jbegin, tile_ni, tile_nj, type  & 
     645       ) 
    539646 
    540647  END SUBROUTINE xios(get_domaingroup_attr_hdl) 
    … …  
    545652    , data_ni_, data_nj_, dim_i_name_, dim_j_name_, domain_ref_, group_ref_, i_index_, ibegin_, j_index_  & 
    546653    , jbegin_, lat_name_, latvalue_1d_, latvalue_2d_, lon_name_, long_name_, lonvalue_1d_, lonvalue_2d_  & 
    547     , mask_1d_, mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, nvertex_, prec_, radius_, standard_name_  & 
    548     , type_ ) 
     654    , mask_1d_, mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, ntiles_, nvertex_, prec_, radius_, standard_name_  & 
     655    , tile_data_ibegin_, tile_data_jbegin_, tile_data_ni_, tile_data_nj_, tile_ibegin_, tile_jbegin_  & 
     656    , tile_ni_, tile_nj_, type_ ) 
    549657 
    550658    IMPLICIT NONE 
    … …  
    589697      INTEGER  , OPTIONAL, INTENT(OUT) :: nj_ 
    590698      INTEGER  , OPTIONAL, INTENT(OUT) :: nj_glo_ 
     699      INTEGER  , OPTIONAL, INTENT(OUT) :: ntiles_ 
    591700      INTEGER  , OPTIONAL, INTENT(OUT) :: nvertex_ 
    592701      INTEGER  , OPTIONAL, INTENT(OUT) :: prec_ 
    593702      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: radius_ 
    594703      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name_ 
     704      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_data_ibegin_(:) 
     705      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_data_jbegin_(:) 
     706      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_data_ni_(:) 
     707      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_data_nj_(:) 
     708      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_ibegin_(:) 
     709      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_jbegin_(:) 
     710      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_ni_(:) 
     711      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_nj_(:) 
    595712      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type_ 
    596713 
    … …  
    784901      ENDIF 
    785902 
     903      IF (PRESENT(ntiles_)) THEN 
     904        CALL cxios_get_domaingroup_ntiles & 
     905      (domaingroup_hdl%daddr, ntiles_) 
     906      ENDIF 
     907 
    786908      IF (PRESENT(nvertex_)) THEN 
    787909        CALL cxios_get_domaingroup_nvertex & 
    … …  
    802924        CALL cxios_get_domaingroup_standard_name & 
    803925      (domaingroup_hdl%daddr, standard_name_, len(standard_name_)) 
     926      ENDIF 
     927 
     928      IF (PRESENT(tile_data_ibegin_)) THEN 
     929        CALL cxios_get_domaingroup_tile_data_ibegin & 
     930      (domaingroup_hdl%daddr, tile_data_ibegin_, SHAPE(tile_data_ibegin_)) 
     931      ENDIF 
     932 
     933      IF (PRESENT(tile_data_jbegin_)) THEN 
     934        CALL cxios_get_domaingroup_tile_data_jbegin & 
     935      (domaingroup_hdl%daddr, tile_data_jbegin_, SHAPE(tile_data_jbegin_)) 
     936      ENDIF 
     937 
     938      IF (PRESENT(tile_data_ni_)) THEN 
     939        CALL cxios_get_domaingroup_tile_data_ni & 
     940      (domaingroup_hdl%daddr, tile_data_ni_, SHAPE(tile_data_ni_)) 
     941      ENDIF 
     942 
     943      IF (PRESENT(tile_data_nj_)) THEN 
     944        CALL cxios_get_domaingroup_tile_data_nj & 
     945      (domaingroup_hdl%daddr, tile_data_nj_, SHAPE(tile_data_nj_)) 
     946      ENDIF 
     947 
     948      IF (PRESENT(tile_ibegin_)) THEN 
     949        CALL cxios_get_domaingroup_tile_ibegin & 
     950      (domaingroup_hdl%daddr, tile_ibegin_, SHAPE(tile_ibegin_)) 
     951      ENDIF 
     952 
     953      IF (PRESENT(tile_jbegin_)) THEN 
     954        CALL cxios_get_domaingroup_tile_jbegin & 
     955      (domaingroup_hdl%daddr, tile_jbegin_, SHAPE(tile_jbegin_)) 
     956      ENDIF 
     957 
     958      IF (PRESENT(tile_ni_)) THEN 
     959        CALL cxios_get_domaingroup_tile_ni & 
     960      (domaingroup_hdl%daddr, tile_ni_, SHAPE(tile_ni_)) 
     961      ENDIF 
     962 
     963      IF (PRESENT(tile_nj_)) THEN 
     964        CALL cxios_get_domaingroup_tile_nj & 
     965      (domaingroup_hdl%daddr, tile_nj_, SHAPE(tile_nj_)) 
    804966      ENDIF 
    805967 
    … …  
    816978    , data_nj, dim_i_name, dim_j_name, domain_ref, group_ref, i_index, ibegin, j_index, jbegin, lat_name  & 
    817979    , latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d  & 
    818     , name, ni, ni_glo, nj, nj_glo, nvertex, prec, radius, standard_name, type ) 
     980    , name, ni, ni_glo, nj, nj_glo, ntiles, nvertex, prec, radius, standard_name, tile_data_ibegin  & 
     981    , tile_data_jbegin, tile_data_ni, tile_data_nj, tile_ibegin, tile_jbegin, tile_ni, tile_nj, type  & 
     982     ) 
    819983 
    820984    IMPLICIT NONE 
    … …  
    8951059      LOGICAL, OPTIONAL, INTENT(OUT) :: nj_glo 
    8961060      LOGICAL(KIND=C_BOOL) :: nj_glo_tmp 
     1061      LOGICAL, OPTIONAL, INTENT(OUT) :: ntiles 
     1062      LOGICAL(KIND=C_BOOL) :: ntiles_tmp 
    8971063      LOGICAL, OPTIONAL, INTENT(OUT) :: nvertex 
    8981064      LOGICAL(KIND=C_BOOL) :: nvertex_tmp 
    … …  
    9031069      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name 
    9041070      LOGICAL(KIND=C_BOOL) :: standard_name_tmp 
     1071      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_data_ibegin 
     1072      LOGICAL(KIND=C_BOOL) :: tile_data_ibegin_tmp 
     1073      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_data_jbegin 
     1074      LOGICAL(KIND=C_BOOL) :: tile_data_jbegin_tmp 
     1075      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_data_ni 
     1076      LOGICAL(KIND=C_BOOL) :: tile_data_ni_tmp 
     1077      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_data_nj 
     1078      LOGICAL(KIND=C_BOOL) :: tile_data_nj_tmp 
     1079      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_ibegin 
     1080      LOGICAL(KIND=C_BOOL) :: tile_ibegin_tmp 
     1081      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_jbegin 
     1082      LOGICAL(KIND=C_BOOL) :: tile_jbegin_tmp 
     1083      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_ni 
     1084      LOGICAL(KIND=C_BOOL) :: tile_ni_tmp 
     1085      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_nj 
     1086      LOGICAL(KIND=C_BOOL) :: tile_nj_tmp 
    9051087      LOGICAL, OPTIONAL, INTENT(OUT) :: type 
    9061088      LOGICAL(KIND=C_BOOL) :: type_tmp 
    … …  
    9131095      , data_nj, dim_i_name, dim_j_name, domain_ref, group_ref, i_index, ibegin, j_index, jbegin, lat_name  & 
    9141096      , latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d  & 
    915       , name, ni, ni_glo, nj, nj_glo, nvertex, prec, radius, standard_name, type ) 
     1097      , name, ni, ni_glo, nj, nj_glo, ntiles, nvertex, prec, radius, standard_name, tile_data_ibegin  & 
     1098      , tile_data_jbegin, tile_data_ni, tile_data_nj, tile_ibegin, tile_jbegin, tile_ni, tile_nj, type  & 
     1099       ) 
    9161100 
    9171101  END SUBROUTINE xios(is_defined_domaingroup_attr) 
    … …  
    9221106    , data_nj, dim_i_name, dim_j_name, domain_ref, group_ref, i_index, ibegin, j_index, jbegin, lat_name  & 
    9231107    , latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d  & 
    924     , name, ni, ni_glo, nj, nj_glo, nvertex, prec, radius, standard_name, type ) 
     1108    , name, ni, ni_glo, nj, nj_glo, ntiles, nvertex, prec, radius, standard_name, tile_data_ibegin  & 
     1109    , tile_data_jbegin, tile_data_ni, tile_data_nj, tile_ibegin, tile_jbegin, tile_ni, tile_nj, type  & 
     1110     ) 
    9251111 
    9261112    IMPLICIT NONE 
    … …  
    10001186      LOGICAL, OPTIONAL, INTENT(OUT) :: nj_glo 
    10011187      LOGICAL(KIND=C_BOOL) :: nj_glo_tmp 
     1188      LOGICAL, OPTIONAL, INTENT(OUT) :: ntiles 
     1189      LOGICAL(KIND=C_BOOL) :: ntiles_tmp 
    10021190      LOGICAL, OPTIONAL, INTENT(OUT) :: nvertex 
    10031191      LOGICAL(KIND=C_BOOL) :: nvertex_tmp 
    … …  
    10081196      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name 
    10091197      LOGICAL(KIND=C_BOOL) :: standard_name_tmp 
     1198      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_data_ibegin 
     1199      LOGICAL(KIND=C_BOOL) :: tile_data_ibegin_tmp 
     1200      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_data_jbegin 
     1201      LOGICAL(KIND=C_BOOL) :: tile_data_jbegin_tmp 
     1202      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_data_ni 
     1203      LOGICAL(KIND=C_BOOL) :: tile_data_ni_tmp 
     1204      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_data_nj 
     1205      LOGICAL(KIND=C_BOOL) :: tile_data_nj_tmp 
     1206      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_ibegin 
     1207      LOGICAL(KIND=C_BOOL) :: tile_ibegin_tmp 
     1208      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_jbegin 
     1209      LOGICAL(KIND=C_BOOL) :: tile_jbegin_tmp 
     1210      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_ni 
     1211      LOGICAL(KIND=C_BOOL) :: tile_ni_tmp 
     1212      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_nj 
     1213      LOGICAL(KIND=C_BOOL) :: tile_nj_tmp 
    10101214      LOGICAL, OPTIONAL, INTENT(OUT) :: type 
    10111215      LOGICAL(KIND=C_BOOL) :: type_tmp 
    … …  
    10161220      , data_nj, dim_i_name, dim_j_name, domain_ref, group_ref, i_index, ibegin, j_index, jbegin, lat_name  & 
    10171221      , latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d  & 
    1018       , name, ni, ni_glo, nj, nj_glo, nvertex, prec, radius, standard_name, type ) 
     1222      , name, ni, ni_glo, nj, nj_glo, ntiles, nvertex, prec, radius, standard_name, tile_data_ibegin  & 
     1223      , tile_data_jbegin, tile_data_ni, tile_data_nj, tile_ibegin, tile_jbegin, tile_ni, tile_nj, type  & 
     1224       ) 
    10191225 
    10201226  END SUBROUTINE xios(is_defined_domaingroup_attr_hdl) 
    … …  
    10251231    , data_ni_, data_nj_, dim_i_name_, dim_j_name_, domain_ref_, group_ref_, i_index_, ibegin_, j_index_  & 
    10261232    , jbegin_, lat_name_, latvalue_1d_, latvalue_2d_, lon_name_, long_name_, lonvalue_1d_, lonvalue_2d_  & 
    1027     , mask_1d_, mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, nvertex_, prec_, radius_, standard_name_  & 
    1028     , type_ ) 
     1233    , mask_1d_, mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, ntiles_, nvertex_, prec_, radius_, standard_name_  & 
     1234    , tile_data_ibegin_, tile_data_jbegin_, tile_data_ni_, tile_data_nj_, tile_ibegin_, tile_jbegin_  & 
     1235    , tile_ni_, tile_nj_, type_ ) 
    10291236 
    10301237    IMPLICIT NONE 
    … …  
    11041311      LOGICAL, OPTIONAL, INTENT(OUT) :: nj_glo_ 
    11051312      LOGICAL(KIND=C_BOOL) :: nj_glo__tmp 
     1313      LOGICAL, OPTIONAL, INTENT(OUT) :: ntiles_ 
     1314      LOGICAL(KIND=C_BOOL) :: ntiles__tmp 
    11061315      LOGICAL, OPTIONAL, INTENT(OUT) :: nvertex_ 
    11071316      LOGICAL(KIND=C_BOOL) :: nvertex__tmp 
    … …  
    11121321      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name_ 
    11131322      LOGICAL(KIND=C_BOOL) :: standard_name__tmp 
     1323      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_data_ibegin_ 
     1324      LOGICAL(KIND=C_BOOL) :: tile_data_ibegin__tmp 
     1325      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_data_jbegin_ 
     1326      LOGICAL(KIND=C_BOOL) :: tile_data_jbegin__tmp 
     1327      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_data_ni_ 
     1328      LOGICAL(KIND=C_BOOL) :: tile_data_ni__tmp 
     1329      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_data_nj_ 
     1330      LOGICAL(KIND=C_BOOL) :: tile_data_nj__tmp 
     1331      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_ibegin_ 
     1332      LOGICAL(KIND=C_BOOL) :: tile_ibegin__tmp 
     1333      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_jbegin_ 
     1334      LOGICAL(KIND=C_BOOL) :: tile_jbegin__tmp 
     1335      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_ni_ 
     1336      LOGICAL(KIND=C_BOOL) :: tile_ni__tmp 
     1337      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_nj_ 
     1338      LOGICAL(KIND=C_BOOL) :: tile_nj__tmp 
    11141339      LOGICAL, OPTIONAL, INTENT(OUT) :: type_ 
    11151340      LOGICAL(KIND=C_BOOL) :: type__tmp 
    … …  
    13371562      ENDIF 
    13381563 
     1564      IF (PRESENT(ntiles_)) THEN 
     1565        ntiles__tmp = cxios_is_defined_domaingroup_ntiles & 
     1566      (domaingroup_hdl%daddr) 
     1567        ntiles_ = ntiles__tmp 
     1568      ENDIF 
     1569 
    13391570      IF (PRESENT(nvertex_)) THEN 
    13401571        nvertex__tmp = cxios_is_defined_domaingroup_nvertex & 
    … …  
    13611592      ENDIF 
    13621593 
     1594      IF (PRESENT(tile_data_ibegin_)) THEN 
     1595        tile_data_ibegin__tmp = cxios_is_defined_domaingroup_tile_data_ibegin & 
     1596      (domaingroup_hdl%daddr) 
     1597        tile_data_ibegin_ = tile_data_ibegin__tmp 
     1598      ENDIF 
     1599 
     1600      IF (PRESENT(tile_data_jbegin_)) THEN 
     1601        tile_data_jbegin__tmp = cxios_is_defined_domaingroup_tile_data_jbegin & 
     1602      (domaingroup_hdl%daddr) 
     1603        tile_data_jbegin_ = tile_data_jbegin__tmp 
     1604      ENDIF 
     1605 
     1606      IF (PRESENT(tile_data_ni_)) THEN 
     1607        tile_data_ni__tmp = cxios_is_defined_domaingroup_tile_data_ni & 
     1608      (domaingroup_hdl%daddr) 
     1609        tile_data_ni_ = tile_data_ni__tmp 
     1610      ENDIF 
     1611 
     1612      IF (PRESENT(tile_data_nj_)) THEN 
     1613        tile_data_nj__tmp = cxios_is_defined_domaingroup_tile_data_nj & 
     1614      (domaingroup_hdl%daddr) 
     1615        tile_data_nj_ = tile_data_nj__tmp 
     1616      ENDIF 
     1617 
     1618      IF (PRESENT(tile_ibegin_)) THEN 
     1619        tile_ibegin__tmp = cxios_is_defined_domaingroup_tile_ibegin & 
     1620      (domaingroup_hdl%daddr) 
     1621        tile_ibegin_ = tile_ibegin__tmp 
     1622      ENDIF 
     1623 
     1624      IF (PRESENT(tile_jbegin_)) THEN 
     1625        tile_jbegin__tmp = cxios_is_defined_domaingroup_tile_jbegin & 
     1626      (domaingroup_hdl%daddr) 
     1627        tile_jbegin_ = tile_jbegin__tmp 
     1628      ENDIF 
     1629 
     1630      IF (PRESENT(tile_ni_)) THEN 
     1631        tile_ni__tmp = cxios_is_defined_domaingroup_tile_ni & 
     1632      (domaingroup_hdl%daddr) 
     1633        tile_ni_ = tile_ni__tmp 
     1634      ENDIF 
     1635 
     1636      IF (PRESENT(tile_nj_)) THEN 
     1637        tile_nj__tmp = cxios_is_defined_domaingroup_tile_nj & 
     1638      (domaingroup_hdl%daddr) 
     1639        tile_nj_ = tile_nj__tmp 
     1640      ENDIF 
     1641 
    13631642      IF (PRESENT(type_)) THEN 
    13641643        type__tmp = cxios_is_defined_domaingroup_type & 
Note: See TracChangeset for help on using the changeset viewer.