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

Merging branch dev_oa with tiling into trunk

File:
1 edited

Legend:

Unmodified
Added
Removed

  • 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.