Ignore:
Timestamp:
01/29/14 11:49:29 (10 years ago)
Author:
ymipsl
Message:

Add functionnalities for reduced gaussian grid support.

YM

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r449 r467  
    1313  SUBROUTINE xios(set_domaingroup_attr)  & 
    1414    ( domaingroup_id, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index  & 
    15     , data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, group_ref, ibegin, iend, jbegin  & 
    16     , jend, latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name  & 
    17     , type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc, zoom_ni, zoom_ni_loc, zoom_nj  & 
    18     , zoom_nj_loc ) 
     15    , data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, group_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 ) 
    1919     
    2020    IMPLICIT NONE 
    … …  
    3333      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_group_ref 
    3434      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref 
     35      INTEGER  , OPTIONAL, INTENT(IN) :: i_index(:,:) 
    3536      INTEGER  , OPTIONAL, INTENT(IN) :: ibegin 
    3637      INTEGER  , OPTIONAL, INTENT(IN) :: iend 
     38      INTEGER  , OPTIONAL, INTENT(IN) :: j_index(:,:) 
    3739      INTEGER  , OPTIONAL, INTENT(IN) :: jbegin 
    3840      INTEGER  , OPTIONAL, INTENT(IN) :: jend 
    … …  
    6264      CALL xios(set_domaingroup_attr_hdl_)   & 
    6365      ( domaingroup_hdl, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index  & 
    64       , data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, group_ref, ibegin, iend, jbegin  & 
    65       , jend, latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name  & 
    66       , type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc, zoom_ni, zoom_ni_loc, zoom_nj  & 
    67       , zoom_nj_loc ) 
     66      , data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, group_ref, i_index, ibegin  & 
     67      , iend, j_index, jbegin, jend, latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo  & 
     68      , nvertex, standard_name, type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc, zoom_ni  & 
     69      , zoom_ni_loc, zoom_nj, zoom_nj_loc ) 
    6870     
    6971  END SUBROUTINE xios(set_domaingroup_attr) 
    … …  
    7173  SUBROUTINE xios(set_domaingroup_attr_hdl)  & 
    7274    ( domaingroup_hdl, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index  & 
    73     , data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, group_ref, ibegin, iend, jbegin  & 
    74     , jend, latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name  & 
    75     , type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc, zoom_ni, zoom_ni_loc, zoom_nj  & 
    76     , zoom_nj_loc ) 
     75    , data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, group_ref, i_index, ibegin  & 
     76    , iend, j_index, jbegin, jend, latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo  & 
     77    , nvertex, standard_name, type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc, zoom_ni  & 
     78    , zoom_ni_loc, zoom_nj, zoom_nj_loc ) 
    7779     
    7880    IMPLICIT NONE 
    … …  
    9092      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_group_ref 
    9193      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref 
     94      INTEGER  , OPTIONAL, INTENT(IN) :: i_index(:,:) 
    9295      INTEGER  , OPTIONAL, INTENT(IN) :: ibegin 
    9396      INTEGER  , OPTIONAL, INTENT(IN) :: iend 
     97      INTEGER  , OPTIONAL, INTENT(IN) :: j_index(:,:) 
    9498      INTEGER  , OPTIONAL, INTENT(IN) :: jbegin 
    9599      INTEGER  , OPTIONAL, INTENT(IN) :: jend 
    … …  
    118122      CALL xios(set_domaingroup_attr_hdl_)  & 
    119123      ( domaingroup_hdl, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index  & 
    120       , data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, group_ref, ibegin, iend, jbegin  & 
    121       , jend, latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name  & 
    122       , type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc, zoom_ni, zoom_ni_loc, zoom_nj  & 
    123       , zoom_nj_loc ) 
     124      , data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, group_ref, i_index, ibegin  & 
     125      , iend, j_index, jbegin, jend, latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo  & 
     126      , nvertex, standard_name, type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc, zoom_ni  & 
     127      , zoom_ni_loc, zoom_nj, zoom_nj_loc ) 
    124128     
    125129  END SUBROUTINE xios(set_domaingroup_attr_hdl) 
    … …  
    127131  SUBROUTINE xios(set_domaingroup_attr_hdl_)   & 
    128132    ( domaingroup_hdl, bounds_lat_, bounds_lon_, data_dim_, data_i_index_, data_ibegin_, data_j_index_  & 
    129     , data_jbegin_, data_n_index_, data_ni_, data_nj_, domain_group_ref_, group_ref_, ibegin_, iend_  & 
    130     , jbegin_, jend_, latvalue_, long_name_, lonvalue_, mask_, name_, ni_, ni_glo_, nj_, nj_glo_  & 
    131     , nvertex_, standard_name_, type_, zoom_ibegin_, zoom_ibegin_loc_, zoom_jbegin_, zoom_jbegin_loc_  & 
    132     , zoom_ni_, zoom_ni_loc_, zoom_nj_, zoom_nj_loc_ ) 
     133    , data_jbegin_, data_n_index_, data_ni_, data_nj_, domain_group_ref_, group_ref_, i_index_, ibegin_  & 
     134    , iend_, j_index_, jbegin_, jend_, latvalue_, long_name_, lonvalue_, mask_, name_, ni_, ni_glo_  & 
     135    , nj_, nj_glo_, nvertex_, standard_name_, type_, zoom_ibegin_, zoom_ibegin_loc_, zoom_jbegin_  & 
     136    , zoom_jbegin_loc_, zoom_ni_, zoom_ni_loc_, zoom_nj_, zoom_nj_loc_ ) 
    133137     
    134138    IMPLICIT NONE 
    … …  
    146150      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_group_ref_ 
    147151      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref_ 
     152      INTEGER  , OPTIONAL, INTENT(IN) :: i_index_(:,:) 
    148153      INTEGER  , OPTIONAL, INTENT(IN) :: ibegin_ 
    149154      INTEGER  , OPTIONAL, INTENT(IN) :: iend_ 
     155      INTEGER  , OPTIONAL, INTENT(IN) :: j_index_(:,:) 
    150156      INTEGER  , OPTIONAL, INTENT(IN) :: jbegin_ 
    151157      INTEGER  , OPTIONAL, INTENT(IN) :: jend_ 
    … …  
    220226      ENDIF 
    221227       
     228      IF (PRESENT(i_index_)) THEN 
     229        CALL cxios_set_domaingroup_i_index(domaingroup_hdl%daddr, i_index_,size(i_index_,1),size(i_index_,2)) 
     230      ENDIF 
     231       
    222232      IF (PRESENT(ibegin_)) THEN 
    223233        CALL cxios_set_domaingroup_ibegin(domaingroup_hdl%daddr, ibegin_) 
    … …  
    226236      IF (PRESENT(iend_)) THEN 
    227237        CALL cxios_set_domaingroup_iend(domaingroup_hdl%daddr, iend_) 
     238      ENDIF 
     239       
     240      IF (PRESENT(j_index_)) THEN 
     241        CALL cxios_set_domaingroup_j_index(domaingroup_hdl%daddr, j_index_,size(j_index_,1),size(j_index_,2)) 
    228242      ENDIF 
    229243       
    … …  
    324338  SUBROUTINE xios(get_domaingroup_attr)  & 
    325339    ( domaingroup_id, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index  & 
    326     , data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, group_ref, ibegin, iend, jbegin  & 
    327     , jend, latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name  & 
    328     , type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc, zoom_ni, zoom_ni_loc, zoom_nj  & 
    329     , zoom_nj_loc ) 
     340    , data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, group_ref, i_index, ibegin  & 
     341    , iend, j_index, jbegin, jend, latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo  & 
     342    , nvertex, standard_name, type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc, zoom_ni  & 
     343    , zoom_ni_loc, zoom_nj, zoom_nj_loc ) 
    330344     
    331345    IMPLICIT NONE 
    … …  
    344358      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_group_ref 
    345359      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref 
     360      INTEGER  , OPTIONAL, INTENT(OUT) :: i_index(:,:) 
    346361      INTEGER  , OPTIONAL, INTENT(OUT) :: ibegin 
    347362      INTEGER  , OPTIONAL, INTENT(OUT) :: iend 
     363      INTEGER  , OPTIONAL, INTENT(OUT) :: j_index(:,:) 
    348364      INTEGER  , OPTIONAL, INTENT(OUT) :: jbegin 
    349365      INTEGER  , OPTIONAL, INTENT(OUT) :: jend 
    … …  
    373389      CALL xios(get_domaingroup_attr_hdl_)   & 
    374390      ( domaingroup_hdl, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index  & 
    375       , data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, group_ref, ibegin, iend, jbegin  & 
    376       , jend, latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name  & 
    377       , type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc, zoom_ni, zoom_ni_loc, zoom_nj  & 
    378       , zoom_nj_loc ) 
     391      , data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, group_ref, i_index, ibegin  & 
     392      , iend, j_index, jbegin, jend, latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo  & 
     393      , nvertex, standard_name, type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc, zoom_ni  & 
     394      , zoom_ni_loc, zoom_nj, zoom_nj_loc ) 
    379395     
    380396  END SUBROUTINE xios(get_domaingroup_attr) 
    … …  
    382398  SUBROUTINE xios(get_domaingroup_attr_hdl)  & 
    383399    ( domaingroup_hdl, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index  & 
    384     , data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, group_ref, ibegin, iend, jbegin  & 
    385     , jend, latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name  & 
    386     , type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc, zoom_ni, zoom_ni_loc, zoom_nj  & 
    387     , zoom_nj_loc ) 
     400    , data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, group_ref, i_index, ibegin  & 
     401    , iend, j_index, jbegin, jend, latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo  & 
     402    , nvertex, standard_name, type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc, zoom_ni  & 
     403    , zoom_ni_loc, zoom_nj, zoom_nj_loc ) 
    388404     
    389405    IMPLICIT NONE 
    … …  
    401417      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_group_ref 
    402418      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref 
     419      INTEGER  , OPTIONAL, INTENT(OUT) :: i_index(:,:) 
    403420      INTEGER  , OPTIONAL, INTENT(OUT) :: ibegin 
    404421      INTEGER  , OPTIONAL, INTENT(OUT) :: iend 
     422      INTEGER  , OPTIONAL, INTENT(OUT) :: j_index(:,:) 
    405423      INTEGER  , OPTIONAL, INTENT(OUT) :: jbegin 
    406424      INTEGER  , OPTIONAL, INTENT(OUT) :: jend 
    … …  
    429447      CALL xios(get_domaingroup_attr_hdl_)  & 
    430448      ( domaingroup_hdl, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index  & 
    431       , data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, group_ref, ibegin, iend, jbegin  & 
    432       , jend, latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name  & 
    433       , type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc, zoom_ni, zoom_ni_loc, zoom_nj  & 
    434       , zoom_nj_loc ) 
     449      , data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, group_ref, i_index, ibegin  & 
     450      , iend, j_index, jbegin, jend, latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo  & 
     451      , nvertex, standard_name, type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc, zoom_ni  & 
     452      , zoom_ni_loc, zoom_nj, zoom_nj_loc ) 
    435453     
    436454  END SUBROUTINE xios(get_domaingroup_attr_hdl) 
    … …  
    438456  SUBROUTINE xios(get_domaingroup_attr_hdl_)   & 
    439457    ( domaingroup_hdl, bounds_lat_, bounds_lon_, data_dim_, data_i_index_, data_ibegin_, data_j_index_  & 
    440     , data_jbegin_, data_n_index_, data_ni_, data_nj_, domain_group_ref_, group_ref_, ibegin_, iend_  & 
    441     , jbegin_, jend_, latvalue_, long_name_, lonvalue_, mask_, name_, ni_, ni_glo_, nj_, nj_glo_  & 
    442     , nvertex_, standard_name_, type_, zoom_ibegin_, zoom_ibegin_loc_, zoom_jbegin_, zoom_jbegin_loc_  & 
    443     , zoom_ni_, zoom_ni_loc_, zoom_nj_, zoom_nj_loc_ ) 
     458    , data_jbegin_, data_n_index_, data_ni_, data_nj_, domain_group_ref_, group_ref_, i_index_, ibegin_  & 
     459    , iend_, j_index_, jbegin_, jend_, latvalue_, long_name_, lonvalue_, mask_, name_, ni_, ni_glo_  & 
     460    , nj_, nj_glo_, nvertex_, standard_name_, type_, zoom_ibegin_, zoom_ibegin_loc_, zoom_jbegin_  & 
     461    , zoom_jbegin_loc_, zoom_ni_, zoom_ni_loc_, zoom_nj_, zoom_nj_loc_ ) 
    444462     
    445463    IMPLICIT NONE 
    … …  
    457475      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_group_ref_ 
    458476      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref_ 
     477      INTEGER  , OPTIONAL, INTENT(OUT) :: i_index_(:,:) 
    459478      INTEGER  , OPTIONAL, INTENT(OUT) :: ibegin_ 
    460479      INTEGER  , OPTIONAL, INTENT(OUT) :: iend_ 
     480      INTEGER  , OPTIONAL, INTENT(OUT) :: j_index_(:,:) 
    461481      INTEGER  , OPTIONAL, INTENT(OUT) :: jbegin_ 
    462482      INTEGER  , OPTIONAL, INTENT(OUT) :: jend_ 
    … …  
    531551      ENDIF 
    532552       
     553      IF (PRESENT(i_index_)) THEN 
     554        CALL cxios_get_domaingroup_i_index(domaingroup_hdl%daddr, i_index_,size(i_index_,1),size(i_index_,2)) 
     555      ENDIF 
     556       
    533557      IF (PRESENT(ibegin_)) THEN 
    534558        CALL cxios_get_domaingroup_ibegin(domaingroup_hdl%daddr, ibegin_) 
    … …  
    537561      IF (PRESENT(iend_)) THEN 
    538562        CALL cxios_get_domaingroup_iend(domaingroup_hdl%daddr, iend_) 
     563      ENDIF 
     564       
     565      IF (PRESENT(j_index_)) THEN 
     566        CALL cxios_get_domaingroup_j_index(domaingroup_hdl%daddr, j_index_,size(j_index_,1),size(j_index_,2)) 
    539567      ENDIF 
    540568       
    … …  
    635663  SUBROUTINE xios(is_defined_domaingroup_attr)  & 
    636664    ( domaingroup_id, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index  & 
    637     , data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, group_ref, ibegin, iend, jbegin  & 
    638     , jend, latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name  & 
    639     , type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc, zoom_ni, zoom_ni_loc, zoom_nj  & 
    640     , zoom_nj_loc ) 
     665    , data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, group_ref, i_index, ibegin  & 
     666    , iend, j_index, jbegin, jend, latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo  & 
     667    , nvertex, standard_name, type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc, zoom_ni  & 
     668    , zoom_ni_loc, zoom_nj, zoom_nj_loc ) 
    641669     
    642670    IMPLICIT NONE 
    … …  
    667695      LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref 
    668696      LOGICAL(KIND=C_BOOL) :: group_ref_tmp 
     697      LOGICAL, OPTIONAL, INTENT(OUT) :: i_index 
     698      LOGICAL(KIND=C_BOOL) :: i_index_tmp 
    669699      LOGICAL, OPTIONAL, INTENT(OUT) :: ibegin 
    670700      LOGICAL(KIND=C_BOOL) :: ibegin_tmp 
    671701      LOGICAL, OPTIONAL, INTENT(OUT) :: iend 
    672702      LOGICAL(KIND=C_BOOL) :: iend_tmp 
     703      LOGICAL, OPTIONAL, INTENT(OUT) :: j_index 
     704      LOGICAL(KIND=C_BOOL) :: j_index_tmp 
    673705      LOGICAL, OPTIONAL, INTENT(OUT) :: jbegin 
    674706      LOGICAL(KIND=C_BOOL) :: jbegin_tmp 
    … …  
    719751      CALL xios(is_defined_domaingroup_attr_hdl_)   & 
    720752      ( domaingroup_hdl, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index  & 
    721       , data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, group_ref, ibegin, iend, jbegin  & 
    722       , jend, latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name  & 
    723       , type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc, zoom_ni, zoom_ni_loc, zoom_nj  & 
    724       , zoom_nj_loc ) 
     753      , data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, group_ref, i_index, ibegin  & 
     754      , iend, j_index, jbegin, jend, latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo  & 
     755      , nvertex, standard_name, type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc, zoom_ni  & 
     756      , zoom_ni_loc, zoom_nj, zoom_nj_loc ) 
    725757     
    726758  END SUBROUTINE xios(is_defined_domaingroup_attr) 
    … …  
    728760  SUBROUTINE xios(is_defined_domaingroup_attr_hdl)  & 
    729761    ( domaingroup_hdl, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index  & 
    730     , data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, group_ref, ibegin, iend, jbegin  & 
    731     , jend, latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name  & 
    732     , type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc, zoom_ni, zoom_ni_loc, zoom_nj  & 
    733     , zoom_nj_loc ) 
     762    , data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, group_ref, i_index, ibegin  & 
     763    , iend, j_index, jbegin, jend, latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo  & 
     764    , nvertex, standard_name, type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc, zoom_ni  & 
     765    , zoom_ni_loc, zoom_nj, zoom_nj_loc ) 
    734766     
    735767    IMPLICIT NONE 
    … …  
    759791      LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref 
    760792      LOGICAL(KIND=C_BOOL) :: group_ref_tmp 
     793      LOGICAL, OPTIONAL, INTENT(OUT) :: i_index 
     794      LOGICAL(KIND=C_BOOL) :: i_index_tmp 
    761795      LOGICAL, OPTIONAL, INTENT(OUT) :: ibegin 
    762796      LOGICAL(KIND=C_BOOL) :: ibegin_tmp 
    763797      LOGICAL, OPTIONAL, INTENT(OUT) :: iend 
    764798      LOGICAL(KIND=C_BOOL) :: iend_tmp 
     799      LOGICAL, OPTIONAL, INTENT(OUT) :: j_index 
     800      LOGICAL(KIND=C_BOOL) :: j_index_tmp 
    765801      LOGICAL, OPTIONAL, INTENT(OUT) :: jbegin 
    766802      LOGICAL(KIND=C_BOOL) :: jbegin_tmp 
    … …  
    810846      CALL xios(is_defined_domaingroup_attr_hdl_)  & 
    811847      ( domaingroup_hdl, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index  & 
    812       , data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, group_ref, ibegin, iend, jbegin  & 
    813       , jend, latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name  & 
    814       , type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc, zoom_ni, zoom_ni_loc, zoom_nj  & 
    815       , zoom_nj_loc ) 
     848      , data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, group_ref, i_index, ibegin  & 
     849      , iend, j_index, jbegin, jend, latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo  & 
     850      , nvertex, standard_name, type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc, zoom_ni  & 
     851      , zoom_ni_loc, zoom_nj, zoom_nj_loc ) 
    816852     
    817853  END SUBROUTINE xios(is_defined_domaingroup_attr_hdl) 
    … …  
    819855  SUBROUTINE xios(is_defined_domaingroup_attr_hdl_)   & 
    820856    ( domaingroup_hdl, bounds_lat_, bounds_lon_, data_dim_, data_i_index_, data_ibegin_, data_j_index_  & 
    821     , data_jbegin_, data_n_index_, data_ni_, data_nj_, domain_group_ref_, group_ref_, ibegin_, iend_  & 
    822     , jbegin_, jend_, latvalue_, long_name_, lonvalue_, mask_, name_, ni_, ni_glo_, nj_, nj_glo_  & 
    823     , nvertex_, standard_name_, type_, zoom_ibegin_, zoom_ibegin_loc_, zoom_jbegin_, zoom_jbegin_loc_  & 
    824     , zoom_ni_, zoom_ni_loc_, zoom_nj_, zoom_nj_loc_ ) 
     857    , data_jbegin_, data_n_index_, data_ni_, data_nj_, domain_group_ref_, group_ref_, i_index_, ibegin_  & 
     858    , iend_, j_index_, jbegin_, jend_, latvalue_, long_name_, lonvalue_, mask_, name_, ni_, ni_glo_  & 
     859    , nj_, nj_glo_, nvertex_, standard_name_, type_, zoom_ibegin_, zoom_ibegin_loc_, zoom_jbegin_  & 
     860    , zoom_jbegin_loc_, zoom_ni_, zoom_ni_loc_, zoom_nj_, zoom_nj_loc_ ) 
    825861     
    826862    IMPLICIT NONE 
    … …  
    850886      LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref_ 
    851887      LOGICAL(KIND=C_BOOL) :: group_ref__tmp 
     888      LOGICAL, OPTIONAL, INTENT(OUT) :: i_index_ 
     889      LOGICAL(KIND=C_BOOL) :: i_index__tmp 
    852890      LOGICAL, OPTIONAL, INTENT(OUT) :: ibegin_ 
    853891      LOGICAL(KIND=C_BOOL) :: ibegin__tmp 
    854892      LOGICAL, OPTIONAL, INTENT(OUT) :: iend_ 
    855893      LOGICAL(KIND=C_BOOL) :: iend__tmp 
     894      LOGICAL, OPTIONAL, INTENT(OUT) :: j_index_ 
     895      LOGICAL(KIND=C_BOOL) :: j_index__tmp 
    856896      LOGICAL, OPTIONAL, INTENT(OUT) :: jbegin_ 
    857897      LOGICAL(KIND=C_BOOL) :: jbegin__tmp 
    … …  
    959999      ENDIF 
    9601000       
     1001      IF (PRESENT(i_index_)) THEN 
     1002        i_index__tmp=cxios_is_defined_domaingroup_i_index(domaingroup_hdl%daddr) 
     1003        i_index_=i_index__tmp 
     1004      ENDIF 
     1005       
    9611006      IF (PRESENT(ibegin_)) THEN 
    9621007        ibegin__tmp=cxios_is_defined_domaingroup_ibegin(domaingroup_hdl%daddr) 
    … …  
    9691014      ENDIF 
    9701015       
     1016      IF (PRESENT(j_index_)) THEN 
     1017        j_index__tmp=cxios_is_defined_domaingroup_j_index(domaingroup_hdl%daddr) 
     1018        j_index_=j_index__tmp 
     1019      ENDIF 
     1020       
    9711021      IF (PRESENT(jbegin_)) THEN 
    9721022        jbegin__tmp=cxios_is_defined_domaingroup_jbegin(domaingroup_hdl%daddr) 
Note: See TracChangeset for help on using the changeset viewer.