Ignore:
Timestamp:
07/28/15 13:37:07 (9 years ago)
Author:
mhnguyen
Message:

Making changes in domain to make sure unstructed grid work with new method of index distribution

+) Change the way define i_index and j_index of a domain
+) Remove some redundant attributes of domain
+) Adjust the way to calculate index distribution on server side

Test
+) Make some minor change to test_unstruct_complete to work with new XIOS
+) On Curie
+) All test pass and correct

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r611 r657  
    1414    ( domain_id, area, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index  & 
    1515    , data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, domain_ref, i_index, ibegin  & 
    16     , iend, j_index, jbegin, jend, latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo  & 
    17     , nvertex, standard_name, type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc, zoom_ni  & 
    18     , zoom_ni_loc, zoom_nj, zoom_nj_loc ) 
     16    , j_index, jbegin, latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo, nvertex  & 
     17    , standard_name, type ) 
    1918 
    2019    IMPLICIT NONE 
    … …  
    3433      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_group_ref 
    3534      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref 
    36       INTEGER  , OPTIONAL, INTENT(IN) :: i_index(:,:) 
     35      INTEGER  , OPTIONAL, INTENT(IN) :: i_index(:) 
    3736      INTEGER  , OPTIONAL, INTENT(IN) :: ibegin 
    38       INTEGER  , OPTIONAL, INTENT(IN) :: iend 
    39       INTEGER  , OPTIONAL, INTENT(IN) :: j_index(:,:) 
     37      INTEGER  , OPTIONAL, INTENT(IN) :: j_index(:) 
    4038      INTEGER  , OPTIONAL, INTENT(IN) :: jbegin 
    41       INTEGER  , OPTIONAL, INTENT(IN) :: jend 
    4239      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: latvalue(:) 
    4340      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name 
    … …  
    5350      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name 
    5451      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type 
    55       INTEGER  , OPTIONAL, INTENT(IN) :: zoom_ibegin 
    56       INTEGER  , OPTIONAL, INTENT(IN) :: zoom_ibegin_loc 
    57       INTEGER  , OPTIONAL, INTENT(IN) :: zoom_jbegin 
    58       INTEGER  , OPTIONAL, INTENT(IN) :: zoom_jbegin_loc 
    59       INTEGER  , OPTIONAL, INTENT(IN) :: zoom_ni 
    60       INTEGER  , OPTIONAL, INTENT(IN) :: zoom_ni_loc 
    61       INTEGER  , OPTIONAL, INTENT(IN) :: zoom_nj 
    62       INTEGER  , OPTIONAL, INTENT(IN) :: zoom_nj_loc 
    6352 
    6453      CALL xios(get_domain_handle)(domain_id,domain_hdl) 
    … …  
    6655      ( domain_hdl, area, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index  & 
    6756      , data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, domain_ref, i_index, ibegin  & 
    68       , iend, j_index, jbegin, jend, latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo  & 
    69       , nvertex, standard_name, type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc, zoom_ni  & 
    70       , zoom_ni_loc, zoom_nj, zoom_nj_loc ) 
     57      , j_index, jbegin, latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo, nvertex  & 
     58      , standard_name, type ) 
    7159 
    7260  END SUBROUTINE xios(set_domain_attr) 
    … …  
    7563    ( domain_hdl, area, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index  & 
    7664    , data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, domain_ref, i_index, ibegin  & 
    77     , iend, j_index, jbegin, jend, latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo  & 
    78     , nvertex, standard_name, type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc, zoom_ni  & 
    79     , zoom_ni_loc, zoom_nj, zoom_nj_loc ) 
     65    , j_index, jbegin, latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo, nvertex  & 
     66    , standard_name, type ) 
    8067 
    8168    IMPLICIT NONE 
    … …  
    9481      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_group_ref 
    9582      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref 
    96       INTEGER  , OPTIONAL, INTENT(IN) :: i_index(:,:) 
     83      INTEGER  , OPTIONAL, INTENT(IN) :: i_index(:) 
    9784      INTEGER  , OPTIONAL, INTENT(IN) :: ibegin 
    98       INTEGER  , OPTIONAL, INTENT(IN) :: iend 
    99       INTEGER  , OPTIONAL, INTENT(IN) :: j_index(:,:) 
     85      INTEGER  , OPTIONAL, INTENT(IN) :: j_index(:) 
    10086      INTEGER  , OPTIONAL, INTENT(IN) :: jbegin 
    101       INTEGER  , OPTIONAL, INTENT(IN) :: jend 
    10287      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: latvalue(:) 
    10388      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name 
    … …  
    11398      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name 
    11499      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type 
    115       INTEGER  , OPTIONAL, INTENT(IN) :: zoom_ibegin 
    116       INTEGER  , OPTIONAL, INTENT(IN) :: zoom_ibegin_loc 
    117       INTEGER  , OPTIONAL, INTENT(IN) :: zoom_jbegin 
    118       INTEGER  , OPTIONAL, INTENT(IN) :: zoom_jbegin_loc 
    119       INTEGER  , OPTIONAL, INTENT(IN) :: zoom_ni 
    120       INTEGER  , OPTIONAL, INTENT(IN) :: zoom_ni_loc 
    121       INTEGER  , OPTIONAL, INTENT(IN) :: zoom_nj 
    122       INTEGER  , OPTIONAL, INTENT(IN) :: zoom_nj_loc 
    123100 
    124101      CALL xios(set_domain_attr_hdl_)  & 
    125102      ( domain_hdl, area, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index  & 
    126103      , data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, domain_ref, i_index, ibegin  & 
    127       , iend, j_index, jbegin, jend, latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo  & 
    128       , nvertex, standard_name, type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc, zoom_ni  & 
    129       , zoom_ni_loc, zoom_nj, zoom_nj_loc ) 
     104      , j_index, jbegin, latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo, nvertex  & 
     105      , standard_name, type ) 
    130106 
    131107  END SUBROUTINE xios(set_domain_attr_hdl) 
    … …  
    134110    ( domain_hdl, area_, bounds_lat_, bounds_lon_, data_dim_, data_i_index_, data_ibegin_, data_j_index_  & 
    135111    , data_jbegin_, data_n_index_, data_ni_, data_nj_, domain_group_ref_, domain_ref_, i_index_  & 
    136     , ibegin_, iend_, j_index_, jbegin_, jend_, latvalue_, long_name_, lonvalue_, mask_, name_, ni_  & 
    137     , ni_glo_, nj_, nj_glo_, nvertex_, standard_name_, type_, zoom_ibegin_, zoom_ibegin_loc_, zoom_jbegin_  & 
    138     , zoom_jbegin_loc_, zoom_ni_, zoom_ni_loc_, zoom_nj_, zoom_nj_loc_ ) 
     112    , ibegin_, j_index_, jbegin_, latvalue_, long_name_, lonvalue_, mask_, name_, ni_, ni_glo_, nj_  & 
     113    , nj_glo_, nvertex_, standard_name_, type_ ) 
    139114 
    140115    IMPLICIT NONE 
    … …  
    153128      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_group_ref_ 
    154129      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref_ 
    155       INTEGER  , OPTIONAL, INTENT(IN) :: i_index_(:,:) 
     130      INTEGER  , OPTIONAL, INTENT(IN) :: i_index_(:) 
    156131      INTEGER  , OPTIONAL, INTENT(IN) :: ibegin_ 
    157       INTEGER  , OPTIONAL, INTENT(IN) :: iend_ 
    158       INTEGER  , OPTIONAL, INTENT(IN) :: j_index_(:,:) 
     132      INTEGER  , OPTIONAL, INTENT(IN) :: j_index_(:) 
    159133      INTEGER  , OPTIONAL, INTENT(IN) :: jbegin_ 
    160       INTEGER  , OPTIONAL, INTENT(IN) :: jend_ 
    161134      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: latvalue_(:) 
    162135      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name_ 
    … …  
    172145      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name_ 
    173146      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type_ 
    174       INTEGER  , OPTIONAL, INTENT(IN) :: zoom_ibegin_ 
    175       INTEGER  , OPTIONAL, INTENT(IN) :: zoom_ibegin_loc_ 
    176       INTEGER  , OPTIONAL, INTENT(IN) :: zoom_jbegin_ 
    177       INTEGER  , OPTIONAL, INTENT(IN) :: zoom_jbegin_loc_ 
    178       INTEGER  , OPTIONAL, INTENT(IN) :: zoom_ni_ 
    179       INTEGER  , OPTIONAL, INTENT(IN) :: zoom_ni_loc_ 
    180       INTEGER  , OPTIONAL, INTENT(IN) :: zoom_nj_ 
    181       INTEGER  , OPTIONAL, INTENT(IN) :: zoom_nj_loc_ 
    182147 
    183148      IF (PRESENT(area_)) THEN 
    … …  
    234199 
    235200      IF (PRESENT(i_index_)) THEN 
    236         CALL cxios_set_domain_i_index(domain_hdl%daddr, i_index_, size(i_index_,1), size(i_index_,2)) 
     201        CALL cxios_set_domain_i_index(domain_hdl%daddr, i_index_, size(i_index_,1)) 
    237202      ENDIF 
    238203 
    … …  
    241206      ENDIF 
    242207 
    243       IF (PRESENT(iend_)) THEN 
    244         CALL cxios_set_domain_iend(domain_hdl%daddr, iend_) 
    245       ENDIF 
    246  
    247208      IF (PRESENT(j_index_)) THEN 
    248         CALL cxios_set_domain_j_index(domain_hdl%daddr, j_index_, size(j_index_,1), size(j_index_,2)) 
     209        CALL cxios_set_domain_j_index(domain_hdl%daddr, j_index_, size(j_index_,1)) 
    249210      ENDIF 
    250211 
    251212      IF (PRESENT(jbegin_)) THEN 
    252213        CALL cxios_set_domain_jbegin(domain_hdl%daddr, jbegin_) 
    253       ENDIF 
    254  
    255       IF (PRESENT(jend_)) THEN 
    256         CALL cxios_set_domain_jend(domain_hdl%daddr, jend_) 
    257214      ENDIF 
    258215 
    … …  
    307264      ENDIF 
    308265 
    309       IF (PRESENT(zoom_ibegin_)) THEN 
    310         CALL cxios_set_domain_zoom_ibegin(domain_hdl%daddr, zoom_ibegin_) 
    311       ENDIF 
    312  
    313       IF (PRESENT(zoom_ibegin_loc_)) THEN 
    314         CALL cxios_set_domain_zoom_ibegin_loc(domain_hdl%daddr, zoom_ibegin_loc_) 
    315       ENDIF 
    316  
    317       IF (PRESENT(zoom_jbegin_)) THEN 
    318         CALL cxios_set_domain_zoom_jbegin(domain_hdl%daddr, zoom_jbegin_) 
    319       ENDIF 
    320  
    321       IF (PRESENT(zoom_jbegin_loc_)) THEN 
    322         CALL cxios_set_domain_zoom_jbegin_loc(domain_hdl%daddr, zoom_jbegin_loc_) 
    323       ENDIF 
    324  
    325       IF (PRESENT(zoom_ni_)) THEN 
    326         CALL cxios_set_domain_zoom_ni(domain_hdl%daddr, zoom_ni_) 
    327       ENDIF 
    328  
    329       IF (PRESENT(zoom_ni_loc_)) THEN 
    330         CALL cxios_set_domain_zoom_ni_loc(domain_hdl%daddr, zoom_ni_loc_) 
    331       ENDIF 
    332  
    333       IF (PRESENT(zoom_nj_)) THEN 
    334         CALL cxios_set_domain_zoom_nj(domain_hdl%daddr, zoom_nj_) 
    335       ENDIF 
    336  
    337       IF (PRESENT(zoom_nj_loc_)) THEN 
    338         CALL cxios_set_domain_zoom_nj_loc(domain_hdl%daddr, zoom_nj_loc_) 
    339       ENDIF 
    340  
    341266  END SUBROUTINE xios(set_domain_attr_hdl_) 
    342267 
    … …  
    344269    ( domain_id, area, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index  & 
    345270    , data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, domain_ref, i_index, ibegin  & 
    346     , iend, j_index, jbegin, jend, latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo  & 
    347     , nvertex, standard_name, type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc, zoom_ni  & 
    348     , zoom_ni_loc, zoom_nj, zoom_nj_loc ) 
     271    , j_index, jbegin, latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo, nvertex  & 
     272    , standard_name, type ) 
    349273 
    350274    IMPLICIT NONE 
    … …  
    364288      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_group_ref 
    365289      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref 
    366       INTEGER  , OPTIONAL, INTENT(OUT) :: i_index(:,:) 
     290      INTEGER  , OPTIONAL, INTENT(OUT) :: i_index(:) 
    367291      INTEGER  , OPTIONAL, INTENT(OUT) :: ibegin 
    368       INTEGER  , OPTIONAL, INTENT(OUT) :: iend 
    369       INTEGER  , OPTIONAL, INTENT(OUT) :: j_index(:,:) 
     292      INTEGER  , OPTIONAL, INTENT(OUT) :: j_index(:) 
    370293      INTEGER  , OPTIONAL, INTENT(OUT) :: jbegin 
    371       INTEGER  , OPTIONAL, INTENT(OUT) :: jend 
    372294      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: latvalue(:) 
    373295      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name 
    … …  
    383305      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name 
    384306      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type 
    385       INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_ibegin 
    386       INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_ibegin_loc 
    387       INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_jbegin 
    388       INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_jbegin_loc 
    389       INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_ni 
    390       INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_ni_loc 
    391       INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_nj 
    392       INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_nj_loc 
    393307 
    394308      CALL xios(get_domain_handle)(domain_id,domain_hdl) 
    … …  
    396310      ( domain_hdl, area, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index  & 
    397311      , data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, domain_ref, i_index, ibegin  & 
    398       , iend, j_index, jbegin, jend, latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo  & 
    399       , nvertex, standard_name, type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc, zoom_ni  & 
    400       , zoom_ni_loc, zoom_nj, zoom_nj_loc ) 
     312      , j_index, jbegin, latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo, nvertex  & 
     313      , standard_name, type ) 
    401314 
    402315  END SUBROUTINE xios(get_domain_attr) 
    … …  
    405318    ( domain_hdl, area, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index  & 
    406319    , data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, domain_ref, i_index, ibegin  & 
    407     , iend, j_index, jbegin, jend, latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo  & 
    408     , nvertex, standard_name, type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc, zoom_ni  & 
    409     , zoom_ni_loc, zoom_nj, zoom_nj_loc ) 
     320    , j_index, jbegin, latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo, nvertex  & 
     321    , standard_name, type ) 
    410322 
    411323    IMPLICIT NONE 
    … …  
    424336      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_group_ref 
    425337      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref 
    426       INTEGER  , OPTIONAL, INTENT(OUT) :: i_index(:,:) 
     338      INTEGER  , OPTIONAL, INTENT(OUT) :: i_index(:) 
    427339      INTEGER  , OPTIONAL, INTENT(OUT) :: ibegin 
    428       INTEGER  , OPTIONAL, INTENT(OUT) :: iend 
    429       INTEGER  , OPTIONAL, INTENT(OUT) :: j_index(:,:) 
     340      INTEGER  , OPTIONAL, INTENT(OUT) :: j_index(:) 
    430341      INTEGER  , OPTIONAL, INTENT(OUT) :: jbegin 
    431       INTEGER  , OPTIONAL, INTENT(OUT) :: jend 
    432342      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: latvalue(:) 
    433343      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name 
    … …  
    443353      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name 
    444354      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type 
    445       INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_ibegin 
    446       INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_ibegin_loc 
    447       INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_jbegin 
    448       INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_jbegin_loc 
    449       INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_ni 
    450       INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_ni_loc 
    451       INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_nj 
    452       INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_nj_loc 
    453355 
    454356      CALL xios(get_domain_attr_hdl_)  & 
    455357      ( domain_hdl, area, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index  & 
    456358      , data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, domain_ref, i_index, ibegin  & 
    457       , iend, j_index, jbegin, jend, latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo  & 
    458       , nvertex, standard_name, type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc, zoom_ni  & 
    459       , zoom_ni_loc, zoom_nj, zoom_nj_loc ) 
     359      , j_index, jbegin, latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo, nvertex  & 
     360      , standard_name, type ) 
    460361 
    461362  END SUBROUTINE xios(get_domain_attr_hdl) 
    … …  
    464365    ( domain_hdl, area_, bounds_lat_, bounds_lon_, data_dim_, data_i_index_, data_ibegin_, data_j_index_  & 
    465366    , data_jbegin_, data_n_index_, data_ni_, data_nj_, domain_group_ref_, domain_ref_, i_index_  & 
    466     , ibegin_, iend_, j_index_, jbegin_, jend_, latvalue_, long_name_, lonvalue_, mask_, name_, ni_  & 
    467     , ni_glo_, nj_, nj_glo_, nvertex_, standard_name_, type_, zoom_ibegin_, zoom_ibegin_loc_, zoom_jbegin_  & 
    468     , zoom_jbegin_loc_, zoom_ni_, zoom_ni_loc_, zoom_nj_, zoom_nj_loc_ ) 
     367    , ibegin_, j_index_, jbegin_, latvalue_, long_name_, lonvalue_, mask_, name_, ni_, ni_glo_, nj_  & 
     368    , nj_glo_, nvertex_, standard_name_, type_ ) 
    469369 
    470370    IMPLICIT NONE 
    … …  
    483383      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_group_ref_ 
    484384      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref_ 
    485       INTEGER  , OPTIONAL, INTENT(OUT) :: i_index_(:,:) 
     385      INTEGER  , OPTIONAL, INTENT(OUT) :: i_index_(:) 
    486386      INTEGER  , OPTIONAL, INTENT(OUT) :: ibegin_ 
    487       INTEGER  , OPTIONAL, INTENT(OUT) :: iend_ 
    488       INTEGER  , OPTIONAL, INTENT(OUT) :: j_index_(:,:) 
     387      INTEGER  , OPTIONAL, INTENT(OUT) :: j_index_(:) 
    489388      INTEGER  , OPTIONAL, INTENT(OUT) :: jbegin_ 
    490       INTEGER  , OPTIONAL, INTENT(OUT) :: jend_ 
    491389      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: latvalue_(:) 
    492390      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name_ 
    … …  
    502400      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name_ 
    503401      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type_ 
    504       INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_ibegin_ 
    505       INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_ibegin_loc_ 
    506       INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_jbegin_ 
    507       INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_jbegin_loc_ 
    508       INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_ni_ 
    509       INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_ni_loc_ 
    510       INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_nj_ 
    511       INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_nj_loc_ 
    512402 
    513403      IF (PRESENT(area_)) THEN 
    … …  
    564454 
    565455      IF (PRESENT(i_index_)) THEN 
    566         CALL cxios_get_domain_i_index(domain_hdl%daddr, i_index_, size(i_index_,1), size(i_index_,2)) 
     456        CALL cxios_get_domain_i_index(domain_hdl%daddr, i_index_, size(i_index_,1)) 
    567457      ENDIF 
    568458 
    … …  
    571461      ENDIF 
    572462 
    573       IF (PRESENT(iend_)) THEN 
    574         CALL cxios_get_domain_iend(domain_hdl%daddr, iend_) 
    575       ENDIF 
    576  
    577463      IF (PRESENT(j_index_)) THEN 
    578         CALL cxios_get_domain_j_index(domain_hdl%daddr, j_index_, size(j_index_,1), size(j_index_,2)) 
     464        CALL cxios_get_domain_j_index(domain_hdl%daddr, j_index_, size(j_index_,1)) 
    579465      ENDIF 
    580466 
    581467      IF (PRESENT(jbegin_)) THEN 
    582468        CALL cxios_get_domain_jbegin(domain_hdl%daddr, jbegin_) 
    583       ENDIF 
    584  
    585       IF (PRESENT(jend_)) THEN 
    586         CALL cxios_get_domain_jend(domain_hdl%daddr, jend_) 
    587469      ENDIF 
    588470 
    … …  
    637519      ENDIF 
    638520 
    639       IF (PRESENT(zoom_ibegin_)) THEN 
    640         CALL cxios_get_domain_zoom_ibegin(domain_hdl%daddr, zoom_ibegin_) 
    641       ENDIF 
    642  
    643       IF (PRESENT(zoom_ibegin_loc_)) THEN 
    644         CALL cxios_get_domain_zoom_ibegin_loc(domain_hdl%daddr, zoom_ibegin_loc_) 
    645       ENDIF 
    646  
    647       IF (PRESENT(zoom_jbegin_)) THEN 
    648         CALL cxios_get_domain_zoom_jbegin(domain_hdl%daddr, zoom_jbegin_) 
    649       ENDIF 
    650  
    651       IF (PRESENT(zoom_jbegin_loc_)) THEN 
    652         CALL cxios_get_domain_zoom_jbegin_loc(domain_hdl%daddr, zoom_jbegin_loc_) 
    653       ENDIF 
    654  
    655       IF (PRESENT(zoom_ni_)) THEN 
    656         CALL cxios_get_domain_zoom_ni(domain_hdl%daddr, zoom_ni_) 
    657       ENDIF 
    658  
    659       IF (PRESENT(zoom_ni_loc_)) THEN 
    660         CALL cxios_get_domain_zoom_ni_loc(domain_hdl%daddr, zoom_ni_loc_) 
    661       ENDIF 
    662  
    663       IF (PRESENT(zoom_nj_)) THEN 
    664         CALL cxios_get_domain_zoom_nj(domain_hdl%daddr, zoom_nj_) 
    665       ENDIF 
    666  
    667       IF (PRESENT(zoom_nj_loc_)) THEN 
    668         CALL cxios_get_domain_zoom_nj_loc(domain_hdl%daddr, zoom_nj_loc_) 
    669       ENDIF 
    670  
    671521  END SUBROUTINE xios(get_domain_attr_hdl_) 
    672522 
    … …  
    674524    ( domain_id, area, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index  & 
    675525    , data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, domain_ref, i_index, ibegin  & 
    676     , iend, j_index, jbegin, jend, latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo  & 
    677     , nvertex, standard_name, type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc, zoom_ni  & 
    678     , zoom_ni_loc, zoom_nj, zoom_nj_loc ) 
     526    , j_index, jbegin, latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo, nvertex  & 
     527    , standard_name, type ) 
    679528 
    680529    IMPLICIT NONE 
    … …  
    711560      LOGICAL, OPTIONAL, INTENT(OUT) :: ibegin 
    712561      LOGICAL(KIND=C_BOOL) :: ibegin_tmp 
    713       LOGICAL, OPTIONAL, INTENT(OUT) :: iend 
    714       LOGICAL(KIND=C_BOOL) :: iend_tmp 
    715562      LOGICAL, OPTIONAL, INTENT(OUT) :: j_index 
    716563      LOGICAL(KIND=C_BOOL) :: j_index_tmp 
    717564      LOGICAL, OPTIONAL, INTENT(OUT) :: jbegin 
    718565      LOGICAL(KIND=C_BOOL) :: jbegin_tmp 
    719       LOGICAL, OPTIONAL, INTENT(OUT) :: jend 
    720       LOGICAL(KIND=C_BOOL) :: jend_tmp 
    721566      LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue 
    722567      LOGICAL(KIND=C_BOOL) :: latvalue_tmp 
    … …  
    743588      LOGICAL, OPTIONAL, INTENT(OUT) :: type 
    744589      LOGICAL(KIND=C_BOOL) :: type_tmp 
    745       LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ibegin 
    746       LOGICAL(KIND=C_BOOL) :: zoom_ibegin_tmp 
    747       LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ibegin_loc 
    748       LOGICAL(KIND=C_BOOL) :: zoom_ibegin_loc_tmp 
    749       LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_jbegin 
    750       LOGICAL(KIND=C_BOOL) :: zoom_jbegin_tmp 
    751       LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_jbegin_loc 
    752       LOGICAL(KIND=C_BOOL) :: zoom_jbegin_loc_tmp 
    753       LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ni 
    754       LOGICAL(KIND=C_BOOL) :: zoom_ni_tmp 
    755       LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ni_loc 
    756       LOGICAL(KIND=C_BOOL) :: zoom_ni_loc_tmp 
    757       LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_nj 
    758       LOGICAL(KIND=C_BOOL) :: zoom_nj_tmp 
    759       LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_nj_loc 
    760       LOGICAL(KIND=C_BOOL) :: zoom_nj_loc_tmp 
    761590 
    762591      CALL xios(get_domain_handle)(domain_id,domain_hdl) 
    … …  
    764593      ( domain_hdl, area, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index  & 
    765594      , data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, domain_ref, i_index, ibegin  & 
    766       , iend, j_index, jbegin, jend, latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo  & 
    767       , nvertex, standard_name, type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc, zoom_ni  & 
    768       , zoom_ni_loc, zoom_nj, zoom_nj_loc ) 
     595      , j_index, jbegin, latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo, nvertex  & 
     596      , standard_name, type ) 
    769597 
    770598  END SUBROUTINE xios(is_defined_domain_attr) 
    … …  
    773601    ( domain_hdl, area, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index  & 
    774602    , data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, domain_ref, i_index, ibegin  & 
    775     , iend, j_index, jbegin, jend, latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo  & 
    776     , nvertex, standard_name, type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc, zoom_ni  & 
    777     , zoom_ni_loc, zoom_nj, zoom_nj_loc ) 
     603    , j_index, jbegin, latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo, nvertex  & 
     604    , standard_name, type ) 
    778605 
    779606    IMPLICIT NONE 
    … …  
    809636      LOGICAL, OPTIONAL, INTENT(OUT) :: ibegin 
    810637      LOGICAL(KIND=C_BOOL) :: ibegin_tmp 
    811       LOGICAL, OPTIONAL, INTENT(OUT) :: iend 
    812       LOGICAL(KIND=C_BOOL) :: iend_tmp 
    813638      LOGICAL, OPTIONAL, INTENT(OUT) :: j_index 
    814639      LOGICAL(KIND=C_BOOL) :: j_index_tmp 
    815640      LOGICAL, OPTIONAL, INTENT(OUT) :: jbegin 
    816641      LOGICAL(KIND=C_BOOL) :: jbegin_tmp 
    817       LOGICAL, OPTIONAL, INTENT(OUT) :: jend 
    818       LOGICAL(KIND=C_BOOL) :: jend_tmp 
    819642      LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue 
    820643      LOGICAL(KIND=C_BOOL) :: latvalue_tmp 
    … …  
    841664      LOGICAL, OPTIONAL, INTENT(OUT) :: type 
    842665      LOGICAL(KIND=C_BOOL) :: type_tmp 
    843       LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ibegin 
    844       LOGICAL(KIND=C_BOOL) :: zoom_ibegin_tmp 
    845       LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ibegin_loc 
    846       LOGICAL(KIND=C_BOOL) :: zoom_ibegin_loc_tmp 
    847       LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_jbegin 
    848       LOGICAL(KIND=C_BOOL) :: zoom_jbegin_tmp 
    849       LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_jbegin_loc 
    850       LOGICAL(KIND=C_BOOL) :: zoom_jbegin_loc_tmp 
    851       LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ni 
    852       LOGICAL(KIND=C_BOOL) :: zoom_ni_tmp 
    853       LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ni_loc 
    854       LOGICAL(KIND=C_BOOL) :: zoom_ni_loc_tmp 
    855       LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_nj 
    856       LOGICAL(KIND=C_BOOL) :: zoom_nj_tmp 
    857       LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_nj_loc 
    858       LOGICAL(KIND=C_BOOL) :: zoom_nj_loc_tmp 
    859666 
    860667      CALL xios(is_defined_domain_attr_hdl_)  & 
    861668      ( domain_hdl, area, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index  & 
    862669      , data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, domain_ref, i_index, ibegin  & 
    863       , iend, j_index, jbegin, jend, latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo  & 
    864       , nvertex, standard_name, type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc, zoom_ni  & 
    865       , zoom_ni_loc, zoom_nj, zoom_nj_loc ) 
     670      , j_index, jbegin, latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo, nvertex  & 
     671      , standard_name, type ) 
    866672 
    867673  END SUBROUTINE xios(is_defined_domain_attr_hdl) 
    … …  
    870676    ( domain_hdl, area_, bounds_lat_, bounds_lon_, data_dim_, data_i_index_, data_ibegin_, data_j_index_  & 
    871677    , data_jbegin_, data_n_index_, data_ni_, data_nj_, domain_group_ref_, domain_ref_, i_index_  & 
    872     , ibegin_, iend_, j_index_, jbegin_, jend_, latvalue_, long_name_, lonvalue_, mask_, name_, ni_  & 
    873     , ni_glo_, nj_, nj_glo_, nvertex_, standard_name_, type_, zoom_ibegin_, zoom_ibegin_loc_, zoom_jbegin_  & 
    874     , zoom_jbegin_loc_, zoom_ni_, zoom_ni_loc_, zoom_nj_, zoom_nj_loc_ ) 
     678    , ibegin_, j_index_, jbegin_, latvalue_, long_name_, lonvalue_, mask_, name_, ni_, ni_glo_, nj_  & 
     679    , nj_glo_, nvertex_, standard_name_, type_ ) 
    875680 
    876681    IMPLICIT NONE 
    … …  
    906711      LOGICAL, OPTIONAL, INTENT(OUT) :: ibegin_ 
    907712      LOGICAL(KIND=C_BOOL) :: ibegin__tmp 
    908       LOGICAL, OPTIONAL, INTENT(OUT) :: iend_ 
    909       LOGICAL(KIND=C_BOOL) :: iend__tmp 
    910713      LOGICAL, OPTIONAL, INTENT(OUT) :: j_index_ 
    911714      LOGICAL(KIND=C_BOOL) :: j_index__tmp 
    912715      LOGICAL, OPTIONAL, INTENT(OUT) :: jbegin_ 
    913716      LOGICAL(KIND=C_BOOL) :: jbegin__tmp 
    914       LOGICAL, OPTIONAL, INTENT(OUT) :: jend_ 
    915       LOGICAL(KIND=C_BOOL) :: jend__tmp 
    916717      LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue_ 
    917718      LOGICAL(KIND=C_BOOL) :: latvalue__tmp 
    … …  
    938739      LOGICAL, OPTIONAL, INTENT(OUT) :: type_ 
    939740      LOGICAL(KIND=C_BOOL) :: type__tmp 
    940       LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ibegin_ 
    941       LOGICAL(KIND=C_BOOL) :: zoom_ibegin__tmp 
    942       LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ibegin_loc_ 
    943       LOGICAL(KIND=C_BOOL) :: zoom_ibegin_loc__tmp 
    944       LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_jbegin_ 
    945       LOGICAL(KIND=C_BOOL) :: zoom_jbegin__tmp 
    946       LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_jbegin_loc_ 
    947       LOGICAL(KIND=C_BOOL) :: zoom_jbegin_loc__tmp 
    948       LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ni_ 
    949       LOGICAL(KIND=C_BOOL) :: zoom_ni__tmp 
    950       LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ni_loc_ 
    951       LOGICAL(KIND=C_BOOL) :: zoom_ni_loc__tmp 
    952       LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_nj_ 
    953       LOGICAL(KIND=C_BOOL) :: zoom_nj__tmp 
    954       LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_nj_loc_ 
    955       LOGICAL(KIND=C_BOOL) :: zoom_nj_loc__tmp 
    956741 
    957742      IF (PRESENT(area_)) THEN 
    … …  
    1030815      ENDIF 
    1031816 
    1032       IF (PRESENT(iend_)) THEN 
    1033         iend__tmp = cxios_is_defined_domain_iend(domain_hdl%daddr) 
    1034         iend_ = iend__tmp 
    1035       ENDIF 
    1036  
    1037817      IF (PRESENT(j_index_)) THEN 
    1038818        j_index__tmp = cxios_is_defined_domain_j_index(domain_hdl%daddr) 
    … …  
    1045825      ENDIF 
    1046826 
    1047       IF (PRESENT(jend_)) THEN 
    1048         jend__tmp = cxios_is_defined_domain_jend(domain_hdl%daddr) 
    1049         jend_ = jend__tmp 
    1050       ENDIF 
    1051  
    1052827      IF (PRESENT(latvalue_)) THEN 
    1053828        latvalue__tmp = cxios_is_defined_domain_latvalue(domain_hdl%daddr) 
    … …  
    1110885      ENDIF 
    1111886 
    1112       IF (PRESENT(zoom_ibegin_)) THEN 
    1113         zoom_ibegin__tmp = cxios_is_defined_domain_zoom_ibegin(domain_hdl%daddr) 
    1114         zoom_ibegin_ = zoom_ibegin__tmp 
    1115       ENDIF 
    1116  
    1117       IF (PRESENT(zoom_ibegin_loc_)) THEN 
    1118         zoom_ibegin_loc__tmp = cxios_is_defined_domain_zoom_ibegin_loc(domain_hdl%daddr) 
    1119         zoom_ibegin_loc_ = zoom_ibegin_loc__tmp 
    1120       ENDIF 
    1121  
    1122       IF (PRESENT(zoom_jbegin_)) THEN 
    1123         zoom_jbegin__tmp = cxios_is_defined_domain_zoom_jbegin(domain_hdl%daddr) 
    1124         zoom_jbegin_ = zoom_jbegin__tmp 
    1125       ENDIF 
    1126  
    1127       IF (PRESENT(zoom_jbegin_loc_)) THEN 
    1128         zoom_jbegin_loc__tmp = cxios_is_defined_domain_zoom_jbegin_loc(domain_hdl%daddr) 
    1129         zoom_jbegin_loc_ = zoom_jbegin_loc__tmp 
    1130       ENDIF 
    1131  
    1132       IF (PRESENT(zoom_ni_)) THEN 
    1133         zoom_ni__tmp = cxios_is_defined_domain_zoom_ni(domain_hdl%daddr) 
    1134         zoom_ni_ = zoom_ni__tmp 
    1135       ENDIF 
    1136  
    1137       IF (PRESENT(zoom_ni_loc_)) THEN 
    1138         zoom_ni_loc__tmp = cxios_is_defined_domain_zoom_ni_loc(domain_hdl%daddr) 
    1139         zoom_ni_loc_ = zoom_ni_loc__tmp 
    1140       ENDIF 
    1141  
    1142       IF (PRESENT(zoom_nj_)) THEN 
    1143         zoom_nj__tmp = cxios_is_defined_domain_zoom_nj(domain_hdl%daddr) 
    1144         zoom_nj_ = zoom_nj__tmp 
    1145       ENDIF 
    1146  
    1147       IF (PRESENT(zoom_nj_loc_)) THEN 
    1148         zoom_nj_loc__tmp = cxios_is_defined_domain_zoom_nj_loc(domain_hdl%daddr) 
    1149         zoom_nj_loc_ = zoom_nj_loc__tmp 
    1150       ENDIF 
    1151  
    1152887  END SUBROUTINE xios(is_defined_domain_attr_hdl_) 
    1153888 
Note: See TracChangeset for help on using the changeset viewer.