Ignore:
Timestamp:
10/08/20 10:53:18 (4 years ago)
Author:
oabramkina
Message:

Adding tile attributes.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • XIOS/dev/dev_oa/src/interface/fortran_attr/idomain_attr.F90

    r1626 r1952  
    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_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_ibegin(:) 
     70      INTEGER  , OPTIONAL, INTENT(IN) :: tile_jbegin(:) 
     71      INTEGER  , OPTIONAL, INTENT(IN) :: tile_ni(:) 
     72      INTEGER  , OPTIONAL, INTENT(IN) :: tile_nj(:) 
    6573      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type 
    6674 
    … …  
    7280      , data_nj, dim_i_name, dim_j_name, domain_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d  & 
    7381      , 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 ) 
     82      , nj, nj_glo, ntiles, nvertex, prec, radius, standard_name, tile_data_ibegin, tile_data_jbegin  & 
     83      , tile_ibegin, tile_jbegin, tile_ni, tile_nj, type ) 
    7584 
    7685  END SUBROUTINE xios(set_domain_attr) 
    … …  
    8190    , data_nj, dim_i_name, dim_j_name, domain_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d  & 
    8291    , 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 ) 
     92    , nj, nj_glo, ntiles, nvertex, prec, radius, standard_name, tile_data_ibegin, tile_data_jbegin  & 
     93    , tile_ibegin, tile_jbegin, tile_ni, tile_nj, type ) 
    8494 
    8595    IMPLICIT NONE 
    … …  
    123133      INTEGER  , OPTIONAL, INTENT(IN) :: nj 
    124134      INTEGER  , OPTIONAL, INTENT(IN) :: nj_glo 
     135      INTEGER  , OPTIONAL, INTENT(IN) :: ntiles 
    125136      INTEGER  , OPTIONAL, INTENT(IN) :: nvertex 
    126137      INTEGER  , OPTIONAL, INTENT(IN) :: prec 
    127138      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: radius 
    128139      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name 
     140      INTEGER  , OPTIONAL, INTENT(IN) :: tile_data_ibegin(:) 
     141      INTEGER  , OPTIONAL, INTENT(IN) :: tile_data_jbegin(:) 
     142      INTEGER  , OPTIONAL, INTENT(IN) :: tile_ibegin(:) 
     143      INTEGER  , OPTIONAL, INTENT(IN) :: tile_jbegin(:) 
     144      INTEGER  , OPTIONAL, INTENT(IN) :: tile_ni(:) 
     145      INTEGER  , OPTIONAL, INTENT(IN) :: tile_nj(:) 
    129146      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type 
    130147 
    … …  
    134151      , data_nj, dim_i_name, dim_j_name, domain_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d  & 
    135152      , 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 ) 
     153      , nj, nj_glo, ntiles, nvertex, prec, radius, standard_name, tile_data_ibegin, tile_data_jbegin  & 
     154      , tile_ibegin, tile_jbegin, tile_ni, tile_nj, type ) 
    137155 
    138156  END SUBROUTINE xios(set_domain_attr_hdl) 
    … …  
    143161    , data_ni_, data_nj_, dim_i_name_, dim_j_name_, domain_ref_, i_index_, ibegin_, j_index_, jbegin_  & 
    144162    , 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_  & 
     163    , mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, ntiles_, nvertex_, prec_, radius_, standard_name_  & 
     164    , tile_data_ibegin_, tile_data_jbegin_, tile_ibegin_, tile_jbegin_, tile_ni_, tile_nj_, type_  & 
    146165     ) 
    147166 
    … …  
    186205      INTEGER  , OPTIONAL, INTENT(IN) :: nj_ 
    187206      INTEGER  , OPTIONAL, INTENT(IN) :: nj_glo_ 
     207      INTEGER  , OPTIONAL, INTENT(IN) :: ntiles_ 
    188208      INTEGER  , OPTIONAL, INTENT(IN) :: nvertex_ 
    189209      INTEGER  , OPTIONAL, INTENT(IN) :: prec_ 
    190210      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: radius_ 
    191211      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name_ 
     212      INTEGER  , OPTIONAL, INTENT(IN) :: tile_data_ibegin_(:) 
     213      INTEGER  , OPTIONAL, INTENT(IN) :: tile_data_jbegin_(:) 
     214      INTEGER  , OPTIONAL, INTENT(IN) :: tile_ibegin_(:) 
     215      INTEGER  , OPTIONAL, INTENT(IN) :: tile_jbegin_(:) 
     216      INTEGER  , OPTIONAL, INTENT(IN) :: tile_ni_(:) 
     217      INTEGER  , OPTIONAL, INTENT(IN) :: tile_nj_(:) 
    192218      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type_ 
    193219 
    … …  
    376402      ENDIF 
    377403 
     404      IF (PRESENT(ntiles_)) THEN 
     405        CALL cxios_set_domain_ntiles & 
     406      (domain_hdl%daddr, ntiles_) 
     407      ENDIF 
     408 
    378409      IF (PRESENT(nvertex_)) THEN 
    379410        CALL cxios_set_domain_nvertex & 
    … …  
    394425        CALL cxios_set_domain_standard_name & 
    395426      (domain_hdl%daddr, standard_name_, len(standard_name_)) 
     427      ENDIF 
     428 
     429      IF (PRESENT(tile_data_ibegin_)) THEN 
     430        CALL cxios_set_domain_tile_data_ibegin & 
     431      (domain_hdl%daddr, tile_data_ibegin_, SHAPE(tile_data_ibegin_)) 
     432      ENDIF 
     433 
     434      IF (PRESENT(tile_data_jbegin_)) THEN 
     435        CALL cxios_set_domain_tile_data_jbegin & 
     436      (domain_hdl%daddr, tile_data_jbegin_, SHAPE(tile_data_jbegin_)) 
     437      ENDIF 
     438 
     439      IF (PRESENT(tile_ibegin_)) THEN 
     440        CALL cxios_set_domain_tile_ibegin & 
     441      (domain_hdl%daddr, tile_ibegin_, SHAPE(tile_ibegin_)) 
     442      ENDIF 
     443 
     444      IF (PRESENT(tile_jbegin_)) THEN 
     445        CALL cxios_set_domain_tile_jbegin & 
     446      (domain_hdl%daddr, tile_jbegin_, SHAPE(tile_jbegin_)) 
     447      ENDIF 
     448 
     449      IF (PRESENT(tile_ni_)) THEN 
     450        CALL cxios_set_domain_tile_ni & 
     451      (domain_hdl%daddr, tile_ni_, SHAPE(tile_ni_)) 
     452      ENDIF 
     453 
     454      IF (PRESENT(tile_nj_)) THEN 
     455        CALL cxios_set_domain_tile_nj & 
     456      (domain_hdl%daddr, tile_nj_, SHAPE(tile_nj_)) 
    396457      ENDIF 
    397458 
    … …  
    408469    , data_nj, dim_i_name, dim_j_name, domain_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d  & 
    409470    , 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 ) 
     471    , nj, nj_glo, ntiles, nvertex, prec, radius, standard_name, tile_data_ibegin, tile_data_jbegin  & 
     472    , tile_ibegin, tile_jbegin, tile_ni, tile_nj, type ) 
    411473 
    412474    IMPLICIT NONE 
    … …  
    451513      INTEGER  , OPTIONAL, INTENT(OUT) :: nj 
    452514      INTEGER  , OPTIONAL, INTENT(OUT) :: nj_glo 
     515      INTEGER  , OPTIONAL, INTENT(OUT) :: ntiles 
    453516      INTEGER  , OPTIONAL, INTENT(OUT) :: nvertex 
    454517      INTEGER  , OPTIONAL, INTENT(OUT) :: prec 
    455518      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: radius 
    456519      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name 
     520      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_data_ibegin(:) 
     521      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_data_jbegin(:) 
     522      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_ibegin(:) 
     523      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_jbegin(:) 
     524      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_ni(:) 
     525      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_nj(:) 
    457526      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type 
    458527 
    … …  
    464533      , data_nj, dim_i_name, dim_j_name, domain_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d  & 
    465534      , 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 ) 
     535      , nj, nj_glo, ntiles, nvertex, prec, radius, standard_name, tile_data_ibegin, tile_data_jbegin  & 
     536      , tile_ibegin, tile_jbegin, tile_ni, tile_nj, type ) 
    467537 
    468538  END SUBROUTINE xios(get_domain_attr) 
    … …  
    473543    , data_nj, dim_i_name, dim_j_name, domain_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d  & 
    474544    , 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 ) 
     545    , nj, nj_glo, ntiles, nvertex, prec, radius, standard_name, tile_data_ibegin, tile_data_jbegin  & 
     546    , tile_ibegin, tile_jbegin, tile_ni, tile_nj, type ) 
    476547 
    477548    IMPLICIT NONE 
    … …  
    515586      INTEGER  , OPTIONAL, INTENT(OUT) :: nj 
    516587      INTEGER  , OPTIONAL, INTENT(OUT) :: nj_glo 
     588      INTEGER  , OPTIONAL, INTENT(OUT) :: ntiles 
    517589      INTEGER  , OPTIONAL, INTENT(OUT) :: nvertex 
    518590      INTEGER  , OPTIONAL, INTENT(OUT) :: prec 
    519591      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: radius 
    520592      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name 
     593      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_data_ibegin(:) 
     594      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_data_jbegin(:) 
     595      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_ibegin(:) 
     596      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_jbegin(:) 
     597      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_ni(:) 
     598      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_nj(:) 
    521599      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type 
    522600 
    … …  
    526604      , data_nj, dim_i_name, dim_j_name, domain_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d  & 
    527605      , 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 ) 
     606      , nj, nj_glo, ntiles, nvertex, prec, radius, standard_name, tile_data_ibegin, tile_data_jbegin  & 
     607      , tile_ibegin, tile_jbegin, tile_ni, tile_nj, type ) 
    529608 
    530609  END SUBROUTINE xios(get_domain_attr_hdl) 
    … …  
    535614    , data_ni_, data_nj_, dim_i_name_, dim_j_name_, domain_ref_, i_index_, ibegin_, j_index_, jbegin_  & 
    536615    , 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_  & 
     616    , mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, ntiles_, nvertex_, prec_, radius_, standard_name_  & 
     617    , tile_data_ibegin_, tile_data_jbegin_, tile_ibegin_, tile_jbegin_, tile_ni_, tile_nj_, type_  & 
    538618     ) 
    539619 
    … …  
    578658      INTEGER  , OPTIONAL, INTENT(OUT) :: nj_ 
    579659      INTEGER  , OPTIONAL, INTENT(OUT) :: nj_glo_ 
     660      INTEGER  , OPTIONAL, INTENT(OUT) :: ntiles_ 
    580661      INTEGER  , OPTIONAL, INTENT(OUT) :: nvertex_ 
    581662      INTEGER  , OPTIONAL, INTENT(OUT) :: prec_ 
    582663      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: radius_ 
    583664      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name_ 
     665      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_data_ibegin_(:) 
     666      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_data_jbegin_(:) 
     667      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_ibegin_(:) 
     668      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_jbegin_(:) 
     669      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_ni_(:) 
     670      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_nj_(:) 
    584671      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type_ 
    585672 
    … …  
    768855      ENDIF 
    769856 
     857      IF (PRESENT(ntiles_)) THEN 
     858        CALL cxios_get_domain_ntiles & 
     859      (domain_hdl%daddr, ntiles_) 
     860      ENDIF 
     861 
    770862      IF (PRESENT(nvertex_)) THEN 
    771863        CALL cxios_get_domain_nvertex & 
    … …  
    786878        CALL cxios_get_domain_standard_name & 
    787879      (domain_hdl%daddr, standard_name_, len(standard_name_)) 
     880      ENDIF 
     881 
     882      IF (PRESENT(tile_data_ibegin_)) THEN 
     883        CALL cxios_get_domain_tile_data_ibegin & 
     884      (domain_hdl%daddr, tile_data_ibegin_, SHAPE(tile_data_ibegin_)) 
     885      ENDIF 
     886 
     887      IF (PRESENT(tile_data_jbegin_)) THEN 
     888        CALL cxios_get_domain_tile_data_jbegin & 
     889      (domain_hdl%daddr, tile_data_jbegin_, SHAPE(tile_data_jbegin_)) 
     890      ENDIF 
     891 
     892      IF (PRESENT(tile_ibegin_)) THEN 
     893        CALL cxios_get_domain_tile_ibegin & 
     894      (domain_hdl%daddr, tile_ibegin_, SHAPE(tile_ibegin_)) 
     895      ENDIF 
     896 
     897      IF (PRESENT(tile_jbegin_)) THEN 
     898        CALL cxios_get_domain_tile_jbegin & 
     899      (domain_hdl%daddr, tile_jbegin_, SHAPE(tile_jbegin_)) 
     900      ENDIF 
     901 
     902      IF (PRESENT(tile_ni_)) THEN 
     903        CALL cxios_get_domain_tile_ni & 
     904      (domain_hdl%daddr, tile_ni_, SHAPE(tile_ni_)) 
     905      ENDIF 
     906 
     907      IF (PRESENT(tile_nj_)) THEN 
     908        CALL cxios_get_domain_tile_nj & 
     909      (domain_hdl%daddr, tile_nj_, SHAPE(tile_nj_)) 
    788910      ENDIF 
    789911 
    … …  
    800922    , data_nj, dim_i_name, dim_j_name, domain_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d  & 
    801923    , 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 ) 
     924    , nj, nj_glo, ntiles, nvertex, prec, radius, standard_name, tile_data_ibegin, tile_data_jbegin  & 
     925    , tile_ibegin, tile_jbegin, tile_ni, tile_nj, type ) 
    803926 
    804927    IMPLICIT NONE 
    … …  
    8771000      LOGICAL, OPTIONAL, INTENT(OUT) :: nj_glo 
    8781001      LOGICAL(KIND=C_BOOL) :: nj_glo_tmp 
     1002      LOGICAL, OPTIONAL, INTENT(OUT) :: ntiles 
     1003      LOGICAL(KIND=C_BOOL) :: ntiles_tmp 
    8791004      LOGICAL, OPTIONAL, INTENT(OUT) :: nvertex 
    8801005      LOGICAL(KIND=C_BOOL) :: nvertex_tmp 
    … …  
    8851010      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name 
    8861011      LOGICAL(KIND=C_BOOL) :: standard_name_tmp 
     1012      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_data_ibegin 
     1013      LOGICAL(KIND=C_BOOL) :: tile_data_ibegin_tmp 
     1014      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_data_jbegin 
     1015      LOGICAL(KIND=C_BOOL) :: tile_data_jbegin_tmp 
     1016      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_ibegin 
     1017      LOGICAL(KIND=C_BOOL) :: tile_ibegin_tmp 
     1018      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_jbegin 
     1019      LOGICAL(KIND=C_BOOL) :: tile_jbegin_tmp 
     1020      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_ni 
     1021      LOGICAL(KIND=C_BOOL) :: tile_ni_tmp 
     1022      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_nj 
     1023      LOGICAL(KIND=C_BOOL) :: tile_nj_tmp 
    8871024      LOGICAL, OPTIONAL, INTENT(OUT) :: type 
    8881025      LOGICAL(KIND=C_BOOL) :: type_tmp 
    … …  
    8951032      , data_nj, dim_i_name, dim_j_name, domain_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d  & 
    8961033      , 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 ) 
     1034      , nj, nj_glo, ntiles, nvertex, prec, radius, standard_name, tile_data_ibegin, tile_data_jbegin  & 
     1035      , tile_ibegin, tile_jbegin, tile_ni, tile_nj, type ) 
    8981036 
    8991037  END SUBROUTINE xios(is_defined_domain_attr) 
    … …  
    9041042    , data_nj, dim_i_name, dim_j_name, domain_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d  & 
    9051043    , 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 ) 
     1044    , nj, nj_glo, ntiles, nvertex, prec, radius, standard_name, tile_data_ibegin, tile_data_jbegin  & 
     1045    , tile_ibegin, tile_jbegin, tile_ni, tile_nj, type ) 
    9071046 
    9081047    IMPLICIT NONE 
    … …  
    9801119      LOGICAL, OPTIONAL, INTENT(OUT) :: nj_glo 
    9811120      LOGICAL(KIND=C_BOOL) :: nj_glo_tmp 
     1121      LOGICAL, OPTIONAL, INTENT(OUT) :: ntiles 
     1122      LOGICAL(KIND=C_BOOL) :: ntiles_tmp 
    9821123      LOGICAL, OPTIONAL, INTENT(OUT) :: nvertex 
    9831124      LOGICAL(KIND=C_BOOL) :: nvertex_tmp 
    … …  
    9881129      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name 
    9891130      LOGICAL(KIND=C_BOOL) :: standard_name_tmp 
     1131      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_data_ibegin 
     1132      LOGICAL(KIND=C_BOOL) :: tile_data_ibegin_tmp 
     1133      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_data_jbegin 
     1134      LOGICAL(KIND=C_BOOL) :: tile_data_jbegin_tmp 
     1135      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_ibegin 
     1136      LOGICAL(KIND=C_BOOL) :: tile_ibegin_tmp 
     1137      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_jbegin 
     1138      LOGICAL(KIND=C_BOOL) :: tile_jbegin_tmp 
     1139      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_ni 
     1140      LOGICAL(KIND=C_BOOL) :: tile_ni_tmp 
     1141      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_nj 
     1142      LOGICAL(KIND=C_BOOL) :: tile_nj_tmp 
    9901143      LOGICAL, OPTIONAL, INTENT(OUT) :: type 
    9911144      LOGICAL(KIND=C_BOOL) :: type_tmp 
    … …  
    9961149      , data_nj, dim_i_name, dim_j_name, domain_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d  & 
    9971150      , 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 ) 
     1151      , nj, nj_glo, ntiles, nvertex, prec, radius, standard_name, tile_data_ibegin, tile_data_jbegin  & 
     1152      , tile_ibegin, tile_jbegin, tile_ni, tile_nj, type ) 
    9991153 
    10001154  END SUBROUTINE xios(is_defined_domain_attr_hdl) 
    … …  
    10051159    , data_ni_, data_nj_, dim_i_name_, dim_j_name_, domain_ref_, i_index_, ibegin_, j_index_, jbegin_  & 
    10061160    , 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_  & 
     1161    , mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, ntiles_, nvertex_, prec_, radius_, standard_name_  & 
     1162    , tile_data_ibegin_, tile_data_jbegin_, tile_ibegin_, tile_jbegin_, tile_ni_, tile_nj_, type_  & 
    10081163     ) 
    10091164 
    … …  
    10821237      LOGICAL, OPTIONAL, INTENT(OUT) :: nj_glo_ 
    10831238      LOGICAL(KIND=C_BOOL) :: nj_glo__tmp 
     1239      LOGICAL, OPTIONAL, INTENT(OUT) :: ntiles_ 
     1240      LOGICAL(KIND=C_BOOL) :: ntiles__tmp 
    10841241      LOGICAL, OPTIONAL, INTENT(OUT) :: nvertex_ 
    10851242      LOGICAL(KIND=C_BOOL) :: nvertex__tmp 
    … …  
    10901247      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name_ 
    10911248      LOGICAL(KIND=C_BOOL) :: standard_name__tmp 
     1249      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_data_ibegin_ 
     1250      LOGICAL(KIND=C_BOOL) :: tile_data_ibegin__tmp 
     1251      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_data_jbegin_ 
     1252      LOGICAL(KIND=C_BOOL) :: tile_data_jbegin__tmp 
     1253      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_ibegin_ 
     1254      LOGICAL(KIND=C_BOOL) :: tile_ibegin__tmp 
     1255      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_jbegin_ 
     1256      LOGICAL(KIND=C_BOOL) :: tile_jbegin__tmp 
     1257      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_ni_ 
     1258      LOGICAL(KIND=C_BOOL) :: tile_ni__tmp 
     1259      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_nj_ 
     1260      LOGICAL(KIND=C_BOOL) :: tile_nj__tmp 
    10921261      LOGICAL, OPTIONAL, INTENT(OUT) :: type_ 
    10931262      LOGICAL(KIND=C_BOOL) :: type__tmp 
    … …  
    13091478      ENDIF 
    13101479 
     1480      IF (PRESENT(ntiles_)) THEN 
     1481        ntiles__tmp = cxios_is_defined_domain_ntiles & 
     1482      (domain_hdl%daddr) 
     1483        ntiles_ = ntiles__tmp 
     1484      ENDIF 
     1485 
    13111486      IF (PRESENT(nvertex_)) THEN 
    13121487        nvertex__tmp = cxios_is_defined_domain_nvertex & 
    … …  
    13331508      ENDIF 
    13341509 
     1510      IF (PRESENT(tile_data_ibegin_)) THEN 
     1511        tile_data_ibegin__tmp = cxios_is_defined_domain_tile_data_ibegin & 
     1512      (domain_hdl%daddr) 
     1513        tile_data_ibegin_ = tile_data_ibegin__tmp 
     1514      ENDIF 
     1515 
     1516      IF (PRESENT(tile_data_jbegin_)) THEN 
     1517        tile_data_jbegin__tmp = cxios_is_defined_domain_tile_data_jbegin & 
     1518      (domain_hdl%daddr) 
     1519        tile_data_jbegin_ = tile_data_jbegin__tmp 
     1520      ENDIF 
     1521 
     1522      IF (PRESENT(tile_ibegin_)) THEN 
     1523        tile_ibegin__tmp = cxios_is_defined_domain_tile_ibegin & 
     1524      (domain_hdl%daddr) 
     1525        tile_ibegin_ = tile_ibegin__tmp 
     1526      ENDIF 
     1527 
     1528      IF (PRESENT(tile_jbegin_)) THEN 
     1529        tile_jbegin__tmp = cxios_is_defined_domain_tile_jbegin & 
     1530      (domain_hdl%daddr) 
     1531        tile_jbegin_ = tile_jbegin__tmp 
     1532      ENDIF 
     1533 
     1534      IF (PRESENT(tile_ni_)) THEN 
     1535        tile_ni__tmp = cxios_is_defined_domain_tile_ni & 
     1536      (domain_hdl%daddr) 
     1537        tile_ni_ = tile_ni__tmp 
     1538      ENDIF 
     1539 
     1540      IF (PRESENT(tile_nj_)) THEN 
     1541        tile_nj__tmp = cxios_is_defined_domain_tile_nj & 
     1542      (domain_hdl%daddr) 
     1543        tile_nj_ = tile_nj__tmp 
     1544      ENDIF 
     1545 
    13351546      IF (PRESENT(type_)) THEN 
    13361547        type__tmp = cxios_is_defined_domain_type & 
Note: See TracChangeset for help on using the changeset viewer.