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

Add functionnalities for reduced gaussian grid support.

YM

Location:
XIOS/trunk/src/interface
Files:
6 edited

Legend:

Unmodified
Added
Removed

  • XIOS/trunk/src/interface/c_attr/icdomain_attr.cpp

    r449 r467  
    280280   
    281281   
     282  void cxios_set_domain_i_index(domain_Ptr domain_hdl, int* i_index, int extent1, int extent2) 
     283  { 
     284    CTimer::get("XIOS").resume(); 
     285    CArray<int,2> tmp(i_index,shape(extent1,extent2),neverDeleteData) ; 
     286    domain_hdl->i_index.reference(tmp.copy()); 
     287    domain_hdl->sendAttributToServer(domain_hdl->i_index); 
     288     CTimer::get("XIOS").suspend(); 
     289  } 
     290   
     291  void cxios_get_domain_i_index(domain_Ptr domain_hdl, int* i_index, int extent1, int extent2) 
     292  { 
     293    CTimer::get("XIOS").resume(); 
     294    CArray<int,2> tmp(i_index,shape(extent1,extent2),neverDeleteData) ; 
     295    tmp=domain_hdl->i_index.getInheritedValue() ; 
     296     CTimer::get("XIOS").suspend(); 
     297  } 
     298   
     299  bool cxios_is_defined_domain_i_index(domain_Ptr domain_hdl ) 
     300  { 
     301     CTimer::get("XIOS").resume(); 
     302    return domain_hdl->i_index.hasInheritedValue(); 
     303     CTimer::get("XIOS").suspend(); 
     304  } 
     305   
     306   
     307   
    282308  void cxios_set_domain_ibegin(domain_Ptr domain_hdl, int ibegin) 
    283309  { 
    … …  
    319345     CTimer::get("XIOS").resume(); 
    320346    return domain_hdl->iend.hasInheritedValue(); 
     347     CTimer::get("XIOS").suspend(); 
     348  } 
     349   
     350   
     351   
     352  void cxios_set_domain_j_index(domain_Ptr domain_hdl, int* j_index, int extent1, int extent2) 
     353  { 
     354    CTimer::get("XIOS").resume(); 
     355    CArray<int,2> tmp(j_index,shape(extent1,extent2),neverDeleteData) ; 
     356    domain_hdl->j_index.reference(tmp.copy()); 
     357    domain_hdl->sendAttributToServer(domain_hdl->j_index); 
     358     CTimer::get("XIOS").suspend(); 
     359  } 
     360   
     361  void cxios_get_domain_j_index(domain_Ptr domain_hdl, int* j_index, int extent1, int extent2) 
     362  { 
     363    CTimer::get("XIOS").resume(); 
     364    CArray<int,2> tmp(j_index,shape(extent1,extent2),neverDeleteData) ; 
     365    tmp=domain_hdl->j_index.getInheritedValue() ; 
     366     CTimer::get("XIOS").suspend(); 
     367  } 
     368   
     369  bool cxios_is_defined_domain_j_index(domain_Ptr domain_hdl ) 
     370  { 
     371     CTimer::get("XIOS").resume(); 
     372    return domain_hdl->j_index.hasInheritedValue(); 
    321373     CTimer::get("XIOS").suspend(); 
    322374  } 

  • XIOS/trunk/src/interface/c_attr/icdomaingroup_attr.cpp

    r449 r467  
    307307   
    308308   
     309  void cxios_set_domaingroup_i_index(domaingroup_Ptr domaingroup_hdl, int* i_index, int extent1, int extent2) 
     310  { 
     311    CTimer::get("XIOS").resume(); 
     312    CArray<int,2> tmp(i_index,shape(extent1,extent2),neverDeleteData) ; 
     313    domaingroup_hdl->i_index.reference(tmp.copy()); 
     314    domaingroup_hdl->sendAttributToServer(domaingroup_hdl->i_index); 
     315     CTimer::get("XIOS").suspend(); 
     316  } 
     317   
     318  void cxios_get_domaingroup_i_index(domaingroup_Ptr domaingroup_hdl, int* i_index, int extent1, int extent2) 
     319  { 
     320    CTimer::get("XIOS").resume(); 
     321    CArray<int,2> tmp(i_index,shape(extent1,extent2),neverDeleteData) ; 
     322    tmp=domaingroup_hdl->i_index.getInheritedValue() ; 
     323     CTimer::get("XIOS").suspend(); 
     324  } 
     325   
     326  bool cxios_is_defined_domaingroup_i_index(domaingroup_Ptr domaingroup_hdl ) 
     327  { 
     328     CTimer::get("XIOS").resume(); 
     329    return domaingroup_hdl->i_index.hasInheritedValue(); 
     330     CTimer::get("XIOS").suspend(); 
     331  } 
     332   
     333   
     334   
    309335  void cxios_set_domaingroup_ibegin(domaingroup_Ptr domaingroup_hdl, int ibegin) 
    310336  { 
    … …  
    346372     CTimer::get("XIOS").resume(); 
    347373    return domaingroup_hdl->iend.hasInheritedValue(); 
     374     CTimer::get("XIOS").suspend(); 
     375  } 
     376   
     377   
     378   
     379  void cxios_set_domaingroup_j_index(domaingroup_Ptr domaingroup_hdl, int* j_index, int extent1, int extent2) 
     380  { 
     381    CTimer::get("XIOS").resume(); 
     382    CArray<int,2> tmp(j_index,shape(extent1,extent2),neverDeleteData) ; 
     383    domaingroup_hdl->j_index.reference(tmp.copy()); 
     384    domaingroup_hdl->sendAttributToServer(domaingroup_hdl->j_index); 
     385     CTimer::get("XIOS").suspend(); 
     386  } 
     387   
     388  void cxios_get_domaingroup_j_index(domaingroup_Ptr domaingroup_hdl, int* j_index, int extent1, int extent2) 
     389  { 
     390    CTimer::get("XIOS").resume(); 
     391    CArray<int,2> tmp(j_index,shape(extent1,extent2),neverDeleteData) ; 
     392    tmp=domaingroup_hdl->j_index.getInheritedValue() ; 
     393     CTimer::get("XIOS").suspend(); 
     394  } 
     395   
     396  bool cxios_is_defined_domaingroup_j_index(domaingroup_Ptr domaingroup_hdl ) 
     397  { 
     398     CTimer::get("XIOS").resume(); 
     399    return domaingroup_hdl->j_index.hasInheritedValue(); 
    348400     CTimer::get("XIOS").suspend(); 
    349401  } 

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

    r449 r467  
    232232     
    233233     
     234    SUBROUTINE cxios_set_domain_i_index(domain_hdl, i_index, extent1, extent2) BIND(C) 
     235      USE ISO_C_BINDING 
     236      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl 
     237      INTEGER (KIND=C_INT)     , DIMENSION(*) :: i_index 
     238      INTEGER (kind = C_INT), VALUE  :: extent1 
     239      INTEGER (kind = C_INT), VALUE  :: extent2 
     240    END SUBROUTINE cxios_set_domain_i_index 
     241     
     242    SUBROUTINE cxios_get_domain_i_index(domain_hdl, i_index, extent1, extent2) BIND(C) 
     243      USE ISO_C_BINDING 
     244      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl 
     245      INTEGER (KIND=C_INT)     , DIMENSION(*) :: i_index 
     246      INTEGER (kind = C_INT), VALUE  :: extent1 
     247      INTEGER (kind = C_INT), VALUE  :: extent2 
     248    END SUBROUTINE cxios_get_domain_i_index 
     249     
     250    FUNCTION cxios_is_defined_domain_i_index(domain_hdl ) BIND(C) 
     251      USE ISO_C_BINDING 
     252      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_i_index 
     253      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
     254    END FUNCTION cxios_is_defined_domain_i_index 
     255     
     256     
    234257    SUBROUTINE cxios_set_domain_ibegin(domain_hdl, ibegin) BIND(C) 
    235258      USE ISO_C_BINDING 
    … …  
    268291      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
    269292    END FUNCTION cxios_is_defined_domain_iend 
     293     
     294     
     295    SUBROUTINE cxios_set_domain_j_index(domain_hdl, j_index, extent1, extent2) BIND(C) 
     296      USE ISO_C_BINDING 
     297      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl 
     298      INTEGER (KIND=C_INT)     , DIMENSION(*) :: j_index 
     299      INTEGER (kind = C_INT), VALUE  :: extent1 
     300      INTEGER (kind = C_INT), VALUE  :: extent2 
     301    END SUBROUTINE cxios_set_domain_j_index 
     302     
     303    SUBROUTINE cxios_get_domain_j_index(domain_hdl, j_index, extent1, extent2) BIND(C) 
     304      USE ISO_C_BINDING 
     305      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl 
     306      INTEGER (KIND=C_INT)     , DIMENSION(*) :: j_index 
     307      INTEGER (kind = C_INT), VALUE  :: extent1 
     308      INTEGER (kind = C_INT), VALUE  :: extent2 
     309    END SUBROUTINE cxios_get_domain_j_index 
     310     
     311    FUNCTION cxios_is_defined_domain_j_index(domain_hdl ) BIND(C) 
     312      USE ISO_C_BINDING 
     313      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_j_index 
     314      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
     315    END FUNCTION cxios_is_defined_domain_j_index 
    270316     
    271317     

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

    r449 r467  
    253253     
    254254     
     255    SUBROUTINE cxios_set_domaingroup_i_index(domaingroup_hdl, i_index, extent1, extent2) BIND(C) 
     256      USE ISO_C_BINDING 
     257      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl 
     258      INTEGER (KIND=C_INT)     , DIMENSION(*) :: i_index 
     259      INTEGER (kind = C_INT), VALUE  :: extent1 
     260      INTEGER (kind = C_INT), VALUE  :: extent2 
     261    END SUBROUTINE cxios_set_domaingroup_i_index 
     262     
     263    SUBROUTINE cxios_get_domaingroup_i_index(domaingroup_hdl, i_index, extent1, extent2) BIND(C) 
     264      USE ISO_C_BINDING 
     265      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl 
     266      INTEGER (KIND=C_INT)     , DIMENSION(*) :: i_index 
     267      INTEGER (kind = C_INT), VALUE  :: extent1 
     268      INTEGER (kind = C_INT), VALUE  :: extent2 
     269    END SUBROUTINE cxios_get_domaingroup_i_index 
     270     
     271    FUNCTION cxios_is_defined_domaingroup_i_index(domaingroup_hdl ) BIND(C) 
     272      USE ISO_C_BINDING 
     273      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_i_index 
     274      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 
     275    END FUNCTION cxios_is_defined_domaingroup_i_index 
     276     
     277     
    255278    SUBROUTINE cxios_set_domaingroup_ibegin(domaingroup_hdl, ibegin) BIND(C) 
    256279      USE ISO_C_BINDING 
    … …  
    289312      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 
    290313    END FUNCTION cxios_is_defined_domaingroup_iend 
     314     
     315     
     316    SUBROUTINE cxios_set_domaingroup_j_index(domaingroup_hdl, j_index, extent1, extent2) BIND(C) 
     317      USE ISO_C_BINDING 
     318      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl 
     319      INTEGER (KIND=C_INT)     , DIMENSION(*) :: j_index 
     320      INTEGER (kind = C_INT), VALUE  :: extent1 
     321      INTEGER (kind = C_INT), VALUE  :: extent2 
     322    END SUBROUTINE cxios_set_domaingroup_j_index 
     323     
     324    SUBROUTINE cxios_get_domaingroup_j_index(domaingroup_hdl, j_index, extent1, extent2) BIND(C) 
     325      USE ISO_C_BINDING 
     326      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl 
     327      INTEGER (KIND=C_INT)     , DIMENSION(*) :: j_index 
     328      INTEGER (kind = C_INT), VALUE  :: extent1 
     329      INTEGER (kind = C_INT), VALUE  :: extent2 
     330    END SUBROUTINE cxios_get_domaingroup_j_index 
     331     
     332    FUNCTION cxios_is_defined_domaingroup_j_index(domaingroup_hdl ) BIND(C) 
     333      USE ISO_C_BINDING 
     334      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_j_index 
     335      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 
     336    END FUNCTION cxios_is_defined_domaingroup_j_index 
    291337     
    292338     

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

    r449 r467  
    1313  SUBROUTINE xios(set_domain_attr)  & 
    1414    ( domain_id, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin  & 
    15     , data_n_index, data_ni, data_nj, domain_group_ref, ibegin, iend, jbegin, jend, latvalue, long_name  & 
    16     , lonvalue, mask, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type, zoom_ibegin, zoom_ibegin_loc  & 
    17     , zoom_jbegin, zoom_jbegin_loc, zoom_ni, zoom_ni_loc, zoom_nj, zoom_nj_loc ) 
     15    , data_n_index, data_ni, data_nj, domain_group_ref, i_index, ibegin, iend, j_index, jbegin, jend  & 
     16    , 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 ) 
    1819     
    1920    IMPLICIT NONE 
    … …  
    3132      INTEGER  , OPTIONAL, INTENT(IN) :: data_nj 
    3233      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_group_ref 
     34      INTEGER  , OPTIONAL, INTENT(IN) :: i_index(:,:) 
    3335      INTEGER  , OPTIONAL, INTENT(IN) :: ibegin 
    3436      INTEGER  , OPTIONAL, INTENT(IN) :: iend 
     37      INTEGER  , OPTIONAL, INTENT(IN) :: j_index(:,:) 
    3538      INTEGER  , OPTIONAL, INTENT(IN) :: jbegin 
    3639      INTEGER  , OPTIONAL, INTENT(IN) :: jend 
    … …  
    6063      CALL xios(set_domain_attr_hdl_)   & 
    6164      ( domain_hdl, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin  & 
    62       , data_n_index, data_ni, data_nj, domain_group_ref, ibegin, iend, jbegin, jend, latvalue, long_name  & 
    63       , lonvalue, mask, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type, zoom_ibegin, zoom_ibegin_loc  & 
    64       , zoom_jbegin, zoom_jbegin_loc, zoom_ni, zoom_ni_loc, zoom_nj, zoom_nj_loc ) 
     65      , data_n_index, data_ni, data_nj, domain_group_ref, i_index, ibegin, iend, j_index, jbegin, jend  & 
     66      , latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name  & 
     67      , type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc, zoom_ni, zoom_ni_loc, zoom_nj  & 
     68      , zoom_nj_loc ) 
    6569     
    6670  END SUBROUTINE xios(set_domain_attr) 
    … …  
    6872  SUBROUTINE xios(set_domain_attr_hdl)  & 
    6973    ( domain_hdl, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin  & 
    70     , data_n_index, data_ni, data_nj, domain_group_ref, ibegin, iend, jbegin, jend, latvalue, long_name  & 
    71     , lonvalue, mask, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type, zoom_ibegin, zoom_ibegin_loc  & 
    72     , zoom_jbegin, zoom_jbegin_loc, zoom_ni, zoom_ni_loc, zoom_nj, zoom_nj_loc ) 
     74    , data_n_index, data_ni, data_nj, domain_group_ref, i_index, ibegin, iend, j_index, jbegin, jend  & 
     75    , latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name  & 
     76    , type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc, zoom_ni, zoom_ni_loc, zoom_nj  & 
     77    , zoom_nj_loc ) 
    7378     
    7479    IMPLICIT NONE 
    … …  
    8590      INTEGER  , OPTIONAL, INTENT(IN) :: data_nj 
    8691      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_group_ref 
     92      INTEGER  , OPTIONAL, INTENT(IN) :: i_index(:,:) 
    8793      INTEGER  , OPTIONAL, INTENT(IN) :: ibegin 
    8894      INTEGER  , OPTIONAL, INTENT(IN) :: iend 
     95      INTEGER  , OPTIONAL, INTENT(IN) :: j_index(:,:) 
    8996      INTEGER  , OPTIONAL, INTENT(IN) :: jbegin 
    9097      INTEGER  , OPTIONAL, INTENT(IN) :: jend 
    … …  
    113120      CALL xios(set_domain_attr_hdl_)  & 
    114121      ( domain_hdl, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin  & 
    115       , data_n_index, data_ni, data_nj, domain_group_ref, ibegin, iend, jbegin, jend, latvalue, long_name  & 
    116       , lonvalue, mask, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type, zoom_ibegin, zoom_ibegin_loc  & 
    117       , zoom_jbegin, zoom_jbegin_loc, zoom_ni, zoom_ni_loc, zoom_nj, zoom_nj_loc ) 
     122      , data_n_index, data_ni, data_nj, domain_group_ref, i_index, ibegin, iend, j_index, jbegin, jend  & 
     123      , latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name  & 
     124      , type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc, zoom_ni, zoom_ni_loc, zoom_nj  & 
     125      , zoom_nj_loc ) 
    118126     
    119127  END SUBROUTINE xios(set_domain_attr_hdl) 
    … …  
    121129  SUBROUTINE xios(set_domain_attr_hdl_)   & 
    122130    ( domain_hdl, bounds_lat_, bounds_lon_, data_dim_, data_i_index_, data_ibegin_, data_j_index_  & 
    123     , data_jbegin_, data_n_index_, data_ni_, data_nj_, domain_group_ref_, ibegin_, iend_, jbegin_  & 
    124     , jend_, latvalue_, long_name_, lonvalue_, mask_, name_, ni_, ni_glo_, nj_, nj_glo_, nvertex_  & 
    125     , standard_name_, type_, zoom_ibegin_, zoom_ibegin_loc_, zoom_jbegin_, zoom_jbegin_loc_, zoom_ni_  & 
    126     , zoom_ni_loc_, zoom_nj_, zoom_nj_loc_ ) 
     131    , data_jbegin_, data_n_index_, data_ni_, data_nj_, domain_group_ref_, i_index_, ibegin_, iend_  & 
     132    , j_index_, jbegin_, jend_, latvalue_, long_name_, lonvalue_, mask_, name_, ni_, ni_glo_, nj_  & 
     133    , nj_glo_, nvertex_, standard_name_, type_, zoom_ibegin_, zoom_ibegin_loc_, zoom_jbegin_, zoom_jbegin_loc_  & 
     134    , zoom_ni_, zoom_ni_loc_, zoom_nj_, zoom_nj_loc_ ) 
    127135     
    128136    IMPLICIT NONE 
    … …  
    139147      INTEGER  , OPTIONAL, INTENT(IN) :: data_nj_ 
    140148      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_group_ref_ 
     149      INTEGER  , OPTIONAL, INTENT(IN) :: i_index_(:,:) 
    141150      INTEGER  , OPTIONAL, INTENT(IN) :: ibegin_ 
    142151      INTEGER  , OPTIONAL, INTENT(IN) :: iend_ 
     152      INTEGER  , OPTIONAL, INTENT(IN) :: j_index_(:,:) 
    143153      INTEGER  , OPTIONAL, INTENT(IN) :: jbegin_ 
    144154      INTEGER  , OPTIONAL, INTENT(IN) :: jend_ 
    … …  
    209219      ENDIF 
    210220       
     221      IF (PRESENT(i_index_)) THEN 
     222        CALL cxios_set_domain_i_index(domain_hdl%daddr, i_index_,size(i_index_,1),size(i_index_,2)) 
     223      ENDIF 
     224       
    211225      IF (PRESENT(ibegin_)) THEN 
    212226        CALL cxios_set_domain_ibegin(domain_hdl%daddr, ibegin_) 
    … …  
    215229      IF (PRESENT(iend_)) THEN 
    216230        CALL cxios_set_domain_iend(domain_hdl%daddr, iend_) 
     231      ENDIF 
     232       
     233      IF (PRESENT(j_index_)) THEN 
     234        CALL cxios_set_domain_j_index(domain_hdl%daddr, j_index_,size(j_index_,1),size(j_index_,2)) 
    217235      ENDIF 
    218236       
    … …  
    313331  SUBROUTINE xios(get_domain_attr)  & 
    314332    ( domain_id, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin  & 
    315     , data_n_index, data_ni, data_nj, domain_group_ref, ibegin, iend, jbegin, jend, latvalue, long_name  & 
    316     , lonvalue, mask, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type, zoom_ibegin, zoom_ibegin_loc  & 
    317     , zoom_jbegin, zoom_jbegin_loc, zoom_ni, zoom_ni_loc, zoom_nj, zoom_nj_loc ) 
     333    , data_n_index, data_ni, data_nj, domain_group_ref, i_index, ibegin, iend, j_index, jbegin, jend  & 
     334    , latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name  & 
     335    , type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc, zoom_ni, zoom_ni_loc, zoom_nj  & 
     336    , zoom_nj_loc ) 
    318337     
    319338    IMPLICIT NONE 
    … …  
    331350      INTEGER  , OPTIONAL, INTENT(OUT) :: data_nj 
    332351      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_group_ref 
     352      INTEGER  , OPTIONAL, INTENT(OUT) :: i_index(:,:) 
    333353      INTEGER  , OPTIONAL, INTENT(OUT) :: ibegin 
    334354      INTEGER  , OPTIONAL, INTENT(OUT) :: iend 
     355      INTEGER  , OPTIONAL, INTENT(OUT) :: j_index(:,:) 
    335356      INTEGER  , OPTIONAL, INTENT(OUT) :: jbegin 
    336357      INTEGER  , OPTIONAL, INTENT(OUT) :: jend 
    … …  
    360381      CALL xios(get_domain_attr_hdl_)   & 
    361382      ( domain_hdl, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin  & 
    362       , data_n_index, data_ni, data_nj, domain_group_ref, ibegin, iend, jbegin, jend, latvalue, long_name  & 
    363       , lonvalue, mask, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type, zoom_ibegin, zoom_ibegin_loc  & 
    364       , zoom_jbegin, zoom_jbegin_loc, zoom_ni, zoom_ni_loc, zoom_nj, zoom_nj_loc ) 
     383      , data_n_index, data_ni, data_nj, domain_group_ref, i_index, ibegin, iend, j_index, jbegin, jend  & 
     384      , latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name  & 
     385      , type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc, zoom_ni, zoom_ni_loc, zoom_nj  & 
     386      , zoom_nj_loc ) 
    365387     
    366388  END SUBROUTINE xios(get_domain_attr) 
    … …  
    368390  SUBROUTINE xios(get_domain_attr_hdl)  & 
    369391    ( domain_hdl, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin  & 
    370     , data_n_index, data_ni, data_nj, domain_group_ref, ibegin, iend, jbegin, jend, latvalue, long_name  & 
    371     , lonvalue, mask, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type, zoom_ibegin, zoom_ibegin_loc  & 
    372     , zoom_jbegin, zoom_jbegin_loc, zoom_ni, zoom_ni_loc, zoom_nj, zoom_nj_loc ) 
     392    , data_n_index, data_ni, data_nj, domain_group_ref, i_index, ibegin, iend, j_index, jbegin, jend  & 
     393    , latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name  & 
     394    , type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc, zoom_ni, zoom_ni_loc, zoom_nj  & 
     395    , zoom_nj_loc ) 
    373396     
    374397    IMPLICIT NONE 
    … …  
    385408      INTEGER  , OPTIONAL, INTENT(OUT) :: data_nj 
    386409      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_group_ref 
     410      INTEGER  , OPTIONAL, INTENT(OUT) :: i_index(:,:) 
    387411      INTEGER  , OPTIONAL, INTENT(OUT) :: ibegin 
    388412      INTEGER  , OPTIONAL, INTENT(OUT) :: iend 
     413      INTEGER  , OPTIONAL, INTENT(OUT) :: j_index(:,:) 
    389414      INTEGER  , OPTIONAL, INTENT(OUT) :: jbegin 
    390415      INTEGER  , OPTIONAL, INTENT(OUT) :: jend 
    … …  
    413438      CALL xios(get_domain_attr_hdl_)  & 
    414439      ( domain_hdl, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin  & 
    415       , data_n_index, data_ni, data_nj, domain_group_ref, ibegin, iend, jbegin, jend, latvalue, long_name  & 
    416       , lonvalue, mask, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type, zoom_ibegin, zoom_ibegin_loc  & 
    417       , zoom_jbegin, zoom_jbegin_loc, zoom_ni, zoom_ni_loc, zoom_nj, zoom_nj_loc ) 
     440      , data_n_index, data_ni, data_nj, domain_group_ref, i_index, ibegin, iend, j_index, jbegin, jend  & 
     441      , latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name  & 
     442      , type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc, zoom_ni, zoom_ni_loc, zoom_nj  & 
     443      , zoom_nj_loc ) 
    418444     
    419445  END SUBROUTINE xios(get_domain_attr_hdl) 
    … …  
    421447  SUBROUTINE xios(get_domain_attr_hdl_)   & 
    422448    ( domain_hdl, bounds_lat_, bounds_lon_, data_dim_, data_i_index_, data_ibegin_, data_j_index_  & 
    423     , data_jbegin_, data_n_index_, data_ni_, data_nj_, domain_group_ref_, ibegin_, iend_, jbegin_  & 
    424     , jend_, latvalue_, long_name_, lonvalue_, mask_, name_, ni_, ni_glo_, nj_, nj_glo_, nvertex_  & 
    425     , standard_name_, type_, zoom_ibegin_, zoom_ibegin_loc_, zoom_jbegin_, zoom_jbegin_loc_, zoom_ni_  & 
    426     , zoom_ni_loc_, zoom_nj_, zoom_nj_loc_ ) 
     449    , data_jbegin_, data_n_index_, data_ni_, data_nj_, domain_group_ref_, i_index_, ibegin_, iend_  & 
     450    , j_index_, jbegin_, jend_, latvalue_, long_name_, lonvalue_, mask_, name_, ni_, ni_glo_, nj_  & 
     451    , nj_glo_, nvertex_, standard_name_, type_, zoom_ibegin_, zoom_ibegin_loc_, zoom_jbegin_, zoom_jbegin_loc_  & 
     452    , zoom_ni_, zoom_ni_loc_, zoom_nj_, zoom_nj_loc_ ) 
    427453     
    428454    IMPLICIT NONE 
    … …  
    439465      INTEGER  , OPTIONAL, INTENT(OUT) :: data_nj_ 
    440466      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_group_ref_ 
     467      INTEGER  , OPTIONAL, INTENT(OUT) :: i_index_(:,:) 
    441468      INTEGER  , OPTIONAL, INTENT(OUT) :: ibegin_ 
    442469      INTEGER  , OPTIONAL, INTENT(OUT) :: iend_ 
     470      INTEGER  , OPTIONAL, INTENT(OUT) :: j_index_(:,:) 
    443471      INTEGER  , OPTIONAL, INTENT(OUT) :: jbegin_ 
    444472      INTEGER  , OPTIONAL, INTENT(OUT) :: jend_ 
    … …  
    509537      ENDIF 
    510538       
     539      IF (PRESENT(i_index_)) THEN 
     540        CALL cxios_get_domain_i_index(domain_hdl%daddr, i_index_,size(i_index_,1),size(i_index_,2)) 
     541      ENDIF 
     542       
    511543      IF (PRESENT(ibegin_)) THEN 
    512544        CALL cxios_get_domain_ibegin(domain_hdl%daddr, ibegin_) 
    … …  
    515547      IF (PRESENT(iend_)) THEN 
    516548        CALL cxios_get_domain_iend(domain_hdl%daddr, iend_) 
     549      ENDIF 
     550       
     551      IF (PRESENT(j_index_)) THEN 
     552        CALL cxios_get_domain_j_index(domain_hdl%daddr, j_index_,size(j_index_,1),size(j_index_,2)) 
    517553      ENDIF 
    518554       
    … …  
    613649  SUBROUTINE xios(is_defined_domain_attr)  & 
    614650    ( domain_id, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin  & 
    615     , data_n_index, data_ni, data_nj, domain_group_ref, ibegin, iend, jbegin, jend, latvalue, long_name  & 
    616     , lonvalue, mask, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type, zoom_ibegin, zoom_ibegin_loc  & 
    617     , zoom_jbegin, zoom_jbegin_loc, zoom_ni, zoom_ni_loc, zoom_nj, zoom_nj_loc ) 
     651    , data_n_index, data_ni, data_nj, domain_group_ref, i_index, ibegin, iend, j_index, jbegin, jend  & 
     652    , latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name  & 
     653    , type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc, zoom_ni, zoom_ni_loc, zoom_nj  & 
     654    , zoom_nj_loc ) 
    618655     
    619656    IMPLICIT NONE 
    … …  
    642679      LOGICAL, OPTIONAL, INTENT(OUT) :: domain_group_ref 
    643680      LOGICAL(KIND=C_BOOL) :: domain_group_ref_tmp 
     681      LOGICAL, OPTIONAL, INTENT(OUT) :: i_index 
     682      LOGICAL(KIND=C_BOOL) :: i_index_tmp 
    644683      LOGICAL, OPTIONAL, INTENT(OUT) :: ibegin 
    645684      LOGICAL(KIND=C_BOOL) :: ibegin_tmp 
    646685      LOGICAL, OPTIONAL, INTENT(OUT) :: iend 
    647686      LOGICAL(KIND=C_BOOL) :: iend_tmp 
     687      LOGICAL, OPTIONAL, INTENT(OUT) :: j_index 
     688      LOGICAL(KIND=C_BOOL) :: j_index_tmp 
    648689      LOGICAL, OPTIONAL, INTENT(OUT) :: jbegin 
    649690      LOGICAL(KIND=C_BOOL) :: jbegin_tmp 
    … …  
    694735      CALL xios(is_defined_domain_attr_hdl_)   & 
    695736      ( domain_hdl, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin  & 
    696       , data_n_index, data_ni, data_nj, domain_group_ref, ibegin, iend, jbegin, jend, latvalue, long_name  & 
    697       , lonvalue, mask, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type, zoom_ibegin, zoom_ibegin_loc  & 
    698       , zoom_jbegin, zoom_jbegin_loc, zoom_ni, zoom_ni_loc, zoom_nj, zoom_nj_loc ) 
     737      , data_n_index, data_ni, data_nj, domain_group_ref, i_index, ibegin, iend, j_index, jbegin, jend  & 
     738      , latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name  & 
     739      , type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc, zoom_ni, zoom_ni_loc, zoom_nj  & 
     740      , zoom_nj_loc ) 
    699741     
    700742  END SUBROUTINE xios(is_defined_domain_attr) 
    … …  
    702744  SUBROUTINE xios(is_defined_domain_attr_hdl)  & 
    703745    ( domain_hdl, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin  & 
    704     , data_n_index, data_ni, data_nj, domain_group_ref, ibegin, iend, jbegin, jend, latvalue, long_name  & 
    705     , lonvalue, mask, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type, zoom_ibegin, zoom_ibegin_loc  & 
    706     , zoom_jbegin, zoom_jbegin_loc, zoom_ni, zoom_ni_loc, zoom_nj, zoom_nj_loc ) 
     746    , data_n_index, data_ni, data_nj, domain_group_ref, i_index, ibegin, iend, j_index, jbegin, jend  & 
     747    , latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name  & 
     748    , type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc, zoom_ni, zoom_ni_loc, zoom_nj  & 
     749    , zoom_nj_loc ) 
    707750     
    708751    IMPLICIT NONE 
    … …  
    730773      LOGICAL, OPTIONAL, INTENT(OUT) :: domain_group_ref 
    731774      LOGICAL(KIND=C_BOOL) :: domain_group_ref_tmp 
     775      LOGICAL, OPTIONAL, INTENT(OUT) :: i_index 
     776      LOGICAL(KIND=C_BOOL) :: i_index_tmp 
    732777      LOGICAL, OPTIONAL, INTENT(OUT) :: ibegin 
    733778      LOGICAL(KIND=C_BOOL) :: ibegin_tmp 
    734779      LOGICAL, OPTIONAL, INTENT(OUT) :: iend 
    735780      LOGICAL(KIND=C_BOOL) :: iend_tmp 
     781      LOGICAL, OPTIONAL, INTENT(OUT) :: j_index 
     782      LOGICAL(KIND=C_BOOL) :: j_index_tmp 
    736783      LOGICAL, OPTIONAL, INTENT(OUT) :: jbegin 
    737784      LOGICAL(KIND=C_BOOL) :: jbegin_tmp 
    … …  
    781828      CALL xios(is_defined_domain_attr_hdl_)  & 
    782829      ( domain_hdl, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin  & 
    783       , data_n_index, data_ni, data_nj, domain_group_ref, ibegin, iend, jbegin, jend, latvalue, long_name  & 
    784       , lonvalue, mask, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type, zoom_ibegin, zoom_ibegin_loc  & 
    785       , zoom_jbegin, zoom_jbegin_loc, zoom_ni, zoom_ni_loc, zoom_nj, zoom_nj_loc ) 
     830      , data_n_index, data_ni, data_nj, domain_group_ref, i_index, ibegin, iend, j_index, jbegin, jend  & 
     831      , latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name  & 
     832      , type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc, zoom_ni, zoom_ni_loc, zoom_nj  & 
     833      , zoom_nj_loc ) 
    786834     
    787835  END SUBROUTINE xios(is_defined_domain_attr_hdl) 
    … …  
    789837  SUBROUTINE xios(is_defined_domain_attr_hdl_)   & 
    790838    ( domain_hdl, bounds_lat_, bounds_lon_, data_dim_, data_i_index_, data_ibegin_, data_j_index_  & 
    791     , data_jbegin_, data_n_index_, data_ni_, data_nj_, domain_group_ref_, ibegin_, iend_, jbegin_  & 
    792     , jend_, latvalue_, long_name_, lonvalue_, mask_, name_, ni_, ni_glo_, nj_, nj_glo_, nvertex_  & 
    793     , standard_name_, type_, zoom_ibegin_, zoom_ibegin_loc_, zoom_jbegin_, zoom_jbegin_loc_, zoom_ni_  & 
    794     , zoom_ni_loc_, zoom_nj_, zoom_nj_loc_ ) 
     839    , data_jbegin_, data_n_index_, data_ni_, data_nj_, domain_group_ref_, i_index_, ibegin_, iend_  & 
     840    , j_index_, jbegin_, jend_, latvalue_, long_name_, lonvalue_, mask_, name_, ni_, ni_glo_, nj_  & 
     841    , nj_glo_, nvertex_, standard_name_, type_, zoom_ibegin_, zoom_ibegin_loc_, zoom_jbegin_, zoom_jbegin_loc_  & 
     842    , zoom_ni_, zoom_ni_loc_, zoom_nj_, zoom_nj_loc_ ) 
    795843     
    796844    IMPLICIT NONE 
    … …  
    818866      LOGICAL, OPTIONAL, INTENT(OUT) :: domain_group_ref_ 
    819867      LOGICAL(KIND=C_BOOL) :: domain_group_ref__tmp 
     868      LOGICAL, OPTIONAL, INTENT(OUT) :: i_index_ 
     869      LOGICAL(KIND=C_BOOL) :: i_index__tmp 
    820870      LOGICAL, OPTIONAL, INTENT(OUT) :: ibegin_ 
    821871      LOGICAL(KIND=C_BOOL) :: ibegin__tmp 
    822872      LOGICAL, OPTIONAL, INTENT(OUT) :: iend_ 
    823873      LOGICAL(KIND=C_BOOL) :: iend__tmp 
     874      LOGICAL, OPTIONAL, INTENT(OUT) :: j_index_ 
     875      LOGICAL(KIND=C_BOOL) :: j_index__tmp 
    824876      LOGICAL, OPTIONAL, INTENT(OUT) :: jbegin_ 
    825877      LOGICAL(KIND=C_BOOL) :: jbegin__tmp 
    … …  
    922974      ENDIF 
    923975       
     976      IF (PRESENT(i_index_)) THEN 
     977        i_index__tmp=cxios_is_defined_domain_i_index(domain_hdl%daddr) 
     978        i_index_=i_index__tmp 
     979      ENDIF 
     980       
    924981      IF (PRESENT(ibegin_)) THEN 
    925982        ibegin__tmp=cxios_is_defined_domain_ibegin(domain_hdl%daddr) 
    … …  
    932989      ENDIF 
    933990       
     991      IF (PRESENT(j_index_)) THEN 
     992        j_index__tmp=cxios_is_defined_domain_j_index(domain_hdl%daddr) 
     993        j_index_=j_index__tmp 
     994      ENDIF 
     995       
    934996      IF (PRESENT(jbegin_)) THEN 
    935997        jbegin__tmp=cxios_is_defined_domain_jbegin(domain_hdl%daddr) 

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