Changeset 787


Ignore:
Timestamp:
11/13/15 11:45:12 (5 years ago)
Author:
mhnguyen
Message:

Changing name of attributes of zoom

Test
+) test_client and test_complete are correct

Location:
XIOS/trunk
Files:
15 edited

Legend:

Unmodified
Added
Removed
  • XIOS/trunk/inputs/COMPLETE/context_atmosphere.xml

    r786 r787  
    2020    <axis id="axis_atm"/> 
    2121    <axis id="axis_atm_zoom" axis_ref="axis_atm"> 
    22       <zoom_axis id="axis_atm_zoom" zoom_size="4" zoom_end="2" /> 
     22      <zoom_axis id="axis_atm_zoom" n="4"/> 
    2323    </axis> 
    2424  </axis_definition> 
  • XIOS/trunk/inputs/iodef.xml

    r722 r787  
    2222     <axis id="axis_A"/> 
    2323     <axis id="axis_A_zoom" axis_ref="axis_A"> 
    24        <zoom_axis zoom_begin="1" zoom_size="2" /> 
     24       <zoom_axis begin="1" n="2" /> 
    2525     </axis> 
    2626   </axis_definition> 
  • XIOS/trunk/src/config/zoom_axis_attribute.conf

    r626 r787  
    11/*  GLOBAL   */ 
    2 DECLARE_ATTRIBUTE(int,       zoom_begin) 
    3 DECLARE_ATTRIBUTE(int,       zoom_end) 
    4 DECLARE_ATTRIBUTE(int,       zoom_size) 
     2DECLARE_ATTRIBUTE(int,       begin) 
     3DECLARE_ATTRIBUTE(int,       n) 
  • XIOS/trunk/src/config/zoom_domain_attribute.conf

    r784 r787  
    11/* GLOBAL */ 
    2 DECLARE_ATTRIBUTE(int             , zoom_ni) 
    3 DECLARE_ATTRIBUTE(int             , zoom_nj) 
    4 DECLARE_ATTRIBUTE(int             , zoom_ibegin) 
    5 DECLARE_ATTRIBUTE(int             , zoom_jbegin) 
     2DECLARE_ATTRIBUTE(int             , ni) 
     3DECLARE_ATTRIBUTE(int             , nj) 
     4DECLARE_ATTRIBUTE(int             , ibegin) 
     5DECLARE_ATTRIBUTE(int             , jbegin) 
  • XIOS/trunk/src/interface/c_attr/iczoom_axis_attr.cpp

    r784 r787  
    1818  typedef xios::CZoomAxis* zoom_axis_Ptr; 
    1919 
    20   void cxios_set_zoom_axis_zoom_begin(zoom_axis_Ptr zoom_axis_hdl, int zoom_begin) 
     20  void cxios_set_zoom_axis_begin(zoom_axis_Ptr zoom_axis_hdl, int begin) 
    2121  { 
    2222    CTimer::get("XIOS").resume(); 
    23     zoom_axis_hdl->zoom_begin.setValue(zoom_begin); 
     23    zoom_axis_hdl->begin.setValue(begin); 
    2424    CTimer::get("XIOS").suspend(); 
    2525  } 
    2626 
    27   void cxios_get_zoom_axis_zoom_begin(zoom_axis_Ptr zoom_axis_hdl, int* zoom_begin) 
     27  void cxios_get_zoom_axis_begin(zoom_axis_Ptr zoom_axis_hdl, int* begin) 
    2828  { 
    2929    CTimer::get("XIOS").resume(); 
    30     *zoom_begin = zoom_axis_hdl->zoom_begin.getInheritedValue(); 
     30    *begin = zoom_axis_hdl->begin.getInheritedValue(); 
    3131    CTimer::get("XIOS").suspend(); 
    3232  } 
    3333 
    34   bool cxios_is_defined_zoom_axis_zoom_begin(zoom_axis_Ptr zoom_axis_hdl) 
     34  bool cxios_is_defined_zoom_axis_begin(zoom_axis_Ptr zoom_axis_hdl) 
    3535  { 
    3636     CTimer::get("XIOS").resume(); 
    37      bool isDefined = zoom_axis_hdl->zoom_begin.hasInheritedValue(); 
     37     bool isDefined = zoom_axis_hdl->begin.hasInheritedValue(); 
    3838     CTimer::get("XIOS").suspend(); 
    3939     return isDefined; 
     
    4141 
    4242 
    43   void cxios_set_zoom_axis_zoom_end(zoom_axis_Ptr zoom_axis_hdl, int zoom_end) 
     43  void cxios_set_zoom_axis_n(zoom_axis_Ptr zoom_axis_hdl, int n) 
    4444  { 
    4545    CTimer::get("XIOS").resume(); 
    46     zoom_axis_hdl->zoom_end.setValue(zoom_end); 
     46    zoom_axis_hdl->n.setValue(n); 
    4747    CTimer::get("XIOS").suspend(); 
    4848  } 
    4949 
    50   void cxios_get_zoom_axis_zoom_end(zoom_axis_Ptr zoom_axis_hdl, int* zoom_end) 
     50  void cxios_get_zoom_axis_n(zoom_axis_Ptr zoom_axis_hdl, int* n) 
    5151  { 
    5252    CTimer::get("XIOS").resume(); 
    53     *zoom_end = zoom_axis_hdl->zoom_end.getInheritedValue(); 
     53    *n = zoom_axis_hdl->n.getInheritedValue(); 
    5454    CTimer::get("XIOS").suspend(); 
    5555  } 
    5656 
    57   bool cxios_is_defined_zoom_axis_zoom_end(zoom_axis_Ptr zoom_axis_hdl) 
     57  bool cxios_is_defined_zoom_axis_n(zoom_axis_Ptr zoom_axis_hdl) 
    5858  { 
    5959     CTimer::get("XIOS").resume(); 
    60      bool isDefined = zoom_axis_hdl->zoom_end.hasInheritedValue(); 
    61      CTimer::get("XIOS").suspend(); 
    62      return isDefined; 
    63   } 
    64  
    65  
    66   void cxios_set_zoom_axis_zoom_size(zoom_axis_Ptr zoom_axis_hdl, int zoom_size) 
    67   { 
    68     CTimer::get("XIOS").resume(); 
    69     zoom_axis_hdl->zoom_size.setValue(zoom_size); 
    70     CTimer::get("XIOS").suspend(); 
    71   } 
    72  
    73   void cxios_get_zoom_axis_zoom_size(zoom_axis_Ptr zoom_axis_hdl, int* zoom_size) 
    74   { 
    75     CTimer::get("XIOS").resume(); 
    76     *zoom_size = zoom_axis_hdl->zoom_size.getInheritedValue(); 
    77     CTimer::get("XIOS").suspend(); 
    78   } 
    79  
    80   bool cxios_is_defined_zoom_axis_zoom_size(zoom_axis_Ptr zoom_axis_hdl) 
    81   { 
    82      CTimer::get("XIOS").resume(); 
    83      bool isDefined = zoom_axis_hdl->zoom_size.hasInheritedValue(); 
     60     bool isDefined = zoom_axis_hdl->n.hasInheritedValue(); 
    8461     CTimer::get("XIOS").suspend(); 
    8562     return isDefined; 
  • XIOS/trunk/src/interface/c_attr/iczoom_domain_attr.cpp

    r784 r787  
    1818  typedef xios::CZoomDomain* zoom_domain_Ptr; 
    1919 
    20   void cxios_set_zoom_domain_zoom_ibegin(zoom_domain_Ptr zoom_domain_hdl, int zoom_ibegin) 
     20  void cxios_set_zoom_domain_ibegin(zoom_domain_Ptr zoom_domain_hdl, int ibegin) 
    2121  { 
    2222    CTimer::get("XIOS").resume(); 
    23     zoom_domain_hdl->zoom_ibegin.setValue(zoom_ibegin); 
     23    zoom_domain_hdl->ibegin.setValue(ibegin); 
    2424    CTimer::get("XIOS").suspend(); 
    2525  } 
    2626 
    27   void cxios_get_zoom_domain_zoom_ibegin(zoom_domain_Ptr zoom_domain_hdl, int* zoom_ibegin) 
     27  void cxios_get_zoom_domain_ibegin(zoom_domain_Ptr zoom_domain_hdl, int* ibegin) 
    2828  { 
    2929    CTimer::get("XIOS").resume(); 
    30     *zoom_ibegin = zoom_domain_hdl->zoom_ibegin.getInheritedValue(); 
     30    *ibegin = zoom_domain_hdl->ibegin.getInheritedValue(); 
    3131    CTimer::get("XIOS").suspend(); 
    3232  } 
    3333 
    34   bool cxios_is_defined_zoom_domain_zoom_ibegin(zoom_domain_Ptr zoom_domain_hdl) 
     34  bool cxios_is_defined_zoom_domain_ibegin(zoom_domain_Ptr zoom_domain_hdl) 
    3535  { 
    3636     CTimer::get("XIOS").resume(); 
    37      bool isDefined = zoom_domain_hdl->zoom_ibegin.hasInheritedValue(); 
     37     bool isDefined = zoom_domain_hdl->ibegin.hasInheritedValue(); 
    3838     CTimer::get("XIOS").suspend(); 
    3939     return isDefined; 
     
    4141 
    4242 
    43   void cxios_set_zoom_domain_zoom_jbegin(zoom_domain_Ptr zoom_domain_hdl, int zoom_jbegin) 
     43  void cxios_set_zoom_domain_jbegin(zoom_domain_Ptr zoom_domain_hdl, int jbegin) 
    4444  { 
    4545    CTimer::get("XIOS").resume(); 
    46     zoom_domain_hdl->zoom_jbegin.setValue(zoom_jbegin); 
     46    zoom_domain_hdl->jbegin.setValue(jbegin); 
    4747    CTimer::get("XIOS").suspend(); 
    4848  } 
    4949 
    50   void cxios_get_zoom_domain_zoom_jbegin(zoom_domain_Ptr zoom_domain_hdl, int* zoom_jbegin) 
     50  void cxios_get_zoom_domain_jbegin(zoom_domain_Ptr zoom_domain_hdl, int* jbegin) 
    5151  { 
    5252    CTimer::get("XIOS").resume(); 
    53     *zoom_jbegin = zoom_domain_hdl->zoom_jbegin.getInheritedValue(); 
     53    *jbegin = zoom_domain_hdl->jbegin.getInheritedValue(); 
    5454    CTimer::get("XIOS").suspend(); 
    5555  } 
    5656 
    57   bool cxios_is_defined_zoom_domain_zoom_jbegin(zoom_domain_Ptr zoom_domain_hdl) 
     57  bool cxios_is_defined_zoom_domain_jbegin(zoom_domain_Ptr zoom_domain_hdl) 
    5858  { 
    5959     CTimer::get("XIOS").resume(); 
    60      bool isDefined = zoom_domain_hdl->zoom_jbegin.hasInheritedValue(); 
     60     bool isDefined = zoom_domain_hdl->jbegin.hasInheritedValue(); 
    6161     CTimer::get("XIOS").suspend(); 
    6262     return isDefined; 
     
    6464 
    6565 
    66   void cxios_set_zoom_domain_zoom_ni(zoom_domain_Ptr zoom_domain_hdl, int zoom_ni) 
     66  void cxios_set_zoom_domain_ni(zoom_domain_Ptr zoom_domain_hdl, int ni) 
    6767  { 
    6868    CTimer::get("XIOS").resume(); 
    69     zoom_domain_hdl->zoom_ni.setValue(zoom_ni); 
     69    zoom_domain_hdl->ni.setValue(ni); 
    7070    CTimer::get("XIOS").suspend(); 
    7171  } 
    7272 
    73   void cxios_get_zoom_domain_zoom_ni(zoom_domain_Ptr zoom_domain_hdl, int* zoom_ni) 
     73  void cxios_get_zoom_domain_ni(zoom_domain_Ptr zoom_domain_hdl, int* ni) 
    7474  { 
    7575    CTimer::get("XIOS").resume(); 
    76     *zoom_ni = zoom_domain_hdl->zoom_ni.getInheritedValue(); 
     76    *ni = zoom_domain_hdl->ni.getInheritedValue(); 
    7777    CTimer::get("XIOS").suspend(); 
    7878  } 
    7979 
    80   bool cxios_is_defined_zoom_domain_zoom_ni(zoom_domain_Ptr zoom_domain_hdl) 
     80  bool cxios_is_defined_zoom_domain_ni(zoom_domain_Ptr zoom_domain_hdl) 
    8181  { 
    8282     CTimer::get("XIOS").resume(); 
    83      bool isDefined = zoom_domain_hdl->zoom_ni.hasInheritedValue(); 
     83     bool isDefined = zoom_domain_hdl->ni.hasInheritedValue(); 
    8484     CTimer::get("XIOS").suspend(); 
    8585     return isDefined; 
     
    8787 
    8888 
    89   void cxios_set_zoom_domain_zoom_nj(zoom_domain_Ptr zoom_domain_hdl, int zoom_nj) 
     89  void cxios_set_zoom_domain_nj(zoom_domain_Ptr zoom_domain_hdl, int nj) 
    9090  { 
    9191    CTimer::get("XIOS").resume(); 
    92     zoom_domain_hdl->zoom_nj.setValue(zoom_nj); 
     92    zoom_domain_hdl->nj.setValue(nj); 
    9393    CTimer::get("XIOS").suspend(); 
    9494  } 
    9595 
    96   void cxios_get_zoom_domain_zoom_nj(zoom_domain_Ptr zoom_domain_hdl, int* zoom_nj) 
     96  void cxios_get_zoom_domain_nj(zoom_domain_Ptr zoom_domain_hdl, int* nj) 
    9797  { 
    9898    CTimer::get("XIOS").resume(); 
    99     *zoom_nj = zoom_domain_hdl->zoom_nj.getInheritedValue(); 
     99    *nj = zoom_domain_hdl->nj.getInheritedValue(); 
    100100    CTimer::get("XIOS").suspend(); 
    101101  } 
    102102 
    103   bool cxios_is_defined_zoom_domain_zoom_nj(zoom_domain_Ptr zoom_domain_hdl) 
     103  bool cxios_is_defined_zoom_domain_nj(zoom_domain_Ptr zoom_domain_hdl) 
    104104  { 
    105105     CTimer::get("XIOS").resume(); 
    106      bool isDefined = zoom_domain_hdl->zoom_nj.hasInheritedValue(); 
     106     bool isDefined = zoom_domain_hdl->nj.hasInheritedValue(); 
    107107     CTimer::get("XIOS").suspend(); 
    108108     return isDefined; 
  • XIOS/trunk/src/interface/fortran_attr/izoom_axis_attr.F90

    r784 r787  
    1212 
    1313  SUBROUTINE xios(set_zoom_axis_attr)  & 
    14     ( zoom_axis_id, zoom_begin, zoom_end, zoom_size ) 
     14    ( zoom_axis_id, begin, n ) 
    1515 
    1616    IMPLICIT NONE 
    1717      TYPE(txios(zoom_axis))  :: zoom_axis_hdl 
    1818      CHARACTER(LEN=*), INTENT(IN) ::zoom_axis_id 
    19       INTEGER  , OPTIONAL, INTENT(IN) :: zoom_begin 
    20       INTEGER  , OPTIONAL, INTENT(IN) :: zoom_end 
    21       INTEGER  , OPTIONAL, INTENT(IN) :: zoom_size 
     19      INTEGER  , OPTIONAL, INTENT(IN) :: begin 
     20      INTEGER  , OPTIONAL, INTENT(IN) :: n 
    2221 
    2322      CALL xios(get_zoom_axis_handle)(zoom_axis_id,zoom_axis_hdl) 
    2423      CALL xios(set_zoom_axis_attr_hdl_)   & 
    25       ( zoom_axis_hdl, zoom_begin, zoom_end, zoom_size ) 
     24      ( zoom_axis_hdl, begin, n ) 
    2625 
    2726  END SUBROUTINE xios(set_zoom_axis_attr) 
    2827 
    2928  SUBROUTINE xios(set_zoom_axis_attr_hdl)  & 
    30     ( zoom_axis_hdl, zoom_begin, zoom_end, zoom_size ) 
     29    ( zoom_axis_hdl, begin, n ) 
    3130 
    3231    IMPLICIT NONE 
    3332      TYPE(txios(zoom_axis)) , INTENT(IN) :: zoom_axis_hdl 
    34       INTEGER  , OPTIONAL, INTENT(IN) :: zoom_begin 
    35       INTEGER  , OPTIONAL, INTENT(IN) :: zoom_end 
    36       INTEGER  , OPTIONAL, INTENT(IN) :: zoom_size 
     33      INTEGER  , OPTIONAL, INTENT(IN) :: begin 
     34      INTEGER  , OPTIONAL, INTENT(IN) :: n 
    3735 
    3836      CALL xios(set_zoom_axis_attr_hdl_)  & 
    39       ( zoom_axis_hdl, zoom_begin, zoom_end, zoom_size ) 
     37      ( zoom_axis_hdl, begin, n ) 
    4038 
    4139  END SUBROUTINE xios(set_zoom_axis_attr_hdl) 
    4240 
    4341  SUBROUTINE xios(set_zoom_axis_attr_hdl_)   & 
    44     ( zoom_axis_hdl, zoom_begin_, zoom_end_, zoom_size_ ) 
     42    ( zoom_axis_hdl, begin_, n_ ) 
    4543 
    4644    IMPLICIT NONE 
    4745      TYPE(txios(zoom_axis)) , INTENT(IN) :: zoom_axis_hdl 
    48       INTEGER  , OPTIONAL, INTENT(IN) :: zoom_begin_ 
    49       INTEGER  , OPTIONAL, INTENT(IN) :: zoom_end_ 
    50       INTEGER  , OPTIONAL, INTENT(IN) :: zoom_size_ 
     46      INTEGER  , OPTIONAL, INTENT(IN) :: begin_ 
     47      INTEGER  , OPTIONAL, INTENT(IN) :: n_ 
    5148 
    52       IF (PRESENT(zoom_begin_)) THEN 
    53         CALL cxios_set_zoom_axis_zoom_begin(zoom_axis_hdl%daddr, zoom_begin_) 
     49      IF (PRESENT(begin_)) THEN 
     50        CALL cxios_set_zoom_axis_begin(zoom_axis_hdl%daddr, begin_) 
    5451      ENDIF 
    5552 
    56       IF (PRESENT(zoom_end_)) THEN 
    57         CALL cxios_set_zoom_axis_zoom_end(zoom_axis_hdl%daddr, zoom_end_) 
    58       ENDIF 
    59  
    60       IF (PRESENT(zoom_size_)) THEN 
    61         CALL cxios_set_zoom_axis_zoom_size(zoom_axis_hdl%daddr, zoom_size_) 
     53      IF (PRESENT(n_)) THEN 
     54        CALL cxios_set_zoom_axis_n(zoom_axis_hdl%daddr, n_) 
    6255      ENDIF 
    6356 
     
    6558 
    6659  SUBROUTINE xios(get_zoom_axis_attr)  & 
    67     ( zoom_axis_id, zoom_begin, zoom_end, zoom_size ) 
     60    ( zoom_axis_id, begin, n ) 
    6861 
    6962    IMPLICIT NONE 
    7063      TYPE(txios(zoom_axis))  :: zoom_axis_hdl 
    7164      CHARACTER(LEN=*), INTENT(IN) ::zoom_axis_id 
    72       INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_begin 
    73       INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_end 
    74       INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_size 
     65      INTEGER  , OPTIONAL, INTENT(OUT) :: begin 
     66      INTEGER  , OPTIONAL, INTENT(OUT) :: n 
    7567 
    7668      CALL xios(get_zoom_axis_handle)(zoom_axis_id,zoom_axis_hdl) 
    7769      CALL xios(get_zoom_axis_attr_hdl_)   & 
    78       ( zoom_axis_hdl, zoom_begin, zoom_end, zoom_size ) 
     70      ( zoom_axis_hdl, begin, n ) 
    7971 
    8072  END SUBROUTINE xios(get_zoom_axis_attr) 
    8173 
    8274  SUBROUTINE xios(get_zoom_axis_attr_hdl)  & 
    83     ( zoom_axis_hdl, zoom_begin, zoom_end, zoom_size ) 
     75    ( zoom_axis_hdl, begin, n ) 
    8476 
    8577    IMPLICIT NONE 
    8678      TYPE(txios(zoom_axis)) , INTENT(IN) :: zoom_axis_hdl 
    87       INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_begin 
    88       INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_end 
    89       INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_size 
     79      INTEGER  , OPTIONAL, INTENT(OUT) :: begin 
     80      INTEGER  , OPTIONAL, INTENT(OUT) :: n 
    9081 
    9182      CALL xios(get_zoom_axis_attr_hdl_)  & 
    92       ( zoom_axis_hdl, zoom_begin, zoom_end, zoom_size ) 
     83      ( zoom_axis_hdl, begin, n ) 
    9384 
    9485  END SUBROUTINE xios(get_zoom_axis_attr_hdl) 
    9586 
    9687  SUBROUTINE xios(get_zoom_axis_attr_hdl_)   & 
    97     ( zoom_axis_hdl, zoom_begin_, zoom_end_, zoom_size_ ) 
     88    ( zoom_axis_hdl, begin_, n_ ) 
    9889 
    9990    IMPLICIT NONE 
    10091      TYPE(txios(zoom_axis)) , INTENT(IN) :: zoom_axis_hdl 
    101       INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_begin_ 
    102       INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_end_ 
    103       INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_size_ 
     92      INTEGER  , OPTIONAL, INTENT(OUT) :: begin_ 
     93      INTEGER  , OPTIONAL, INTENT(OUT) :: n_ 
    10494 
    105       IF (PRESENT(zoom_begin_)) THEN 
    106         CALL cxios_get_zoom_axis_zoom_begin(zoom_axis_hdl%daddr, zoom_begin_) 
     95      IF (PRESENT(begin_)) THEN 
     96        CALL cxios_get_zoom_axis_begin(zoom_axis_hdl%daddr, begin_) 
    10797      ENDIF 
    10898 
    109       IF (PRESENT(zoom_end_)) THEN 
    110         CALL cxios_get_zoom_axis_zoom_end(zoom_axis_hdl%daddr, zoom_end_) 
    111       ENDIF 
    112  
    113       IF (PRESENT(zoom_size_)) THEN 
    114         CALL cxios_get_zoom_axis_zoom_size(zoom_axis_hdl%daddr, zoom_size_) 
     99      IF (PRESENT(n_)) THEN 
     100        CALL cxios_get_zoom_axis_n(zoom_axis_hdl%daddr, n_) 
    115101      ENDIF 
    116102 
     
    118104 
    119105  SUBROUTINE xios(is_defined_zoom_axis_attr)  & 
    120     ( zoom_axis_id, zoom_begin, zoom_end, zoom_size ) 
     106    ( zoom_axis_id, begin, n ) 
    121107 
    122108    IMPLICIT NONE 
    123109      TYPE(txios(zoom_axis))  :: zoom_axis_hdl 
    124110      CHARACTER(LEN=*), INTENT(IN) ::zoom_axis_id 
    125       LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_begin 
    126       LOGICAL(KIND=C_BOOL) :: zoom_begin_tmp 
    127       LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_end 
    128       LOGICAL(KIND=C_BOOL) :: zoom_end_tmp 
    129       LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_size 
    130       LOGICAL(KIND=C_BOOL) :: zoom_size_tmp 
     111      LOGICAL, OPTIONAL, INTENT(OUT) :: begin 
     112      LOGICAL(KIND=C_BOOL) :: begin_tmp 
     113      LOGICAL, OPTIONAL, INTENT(OUT) :: n 
     114      LOGICAL(KIND=C_BOOL) :: n_tmp 
    131115 
    132116      CALL xios(get_zoom_axis_handle)(zoom_axis_id,zoom_axis_hdl) 
    133117      CALL xios(is_defined_zoom_axis_attr_hdl_)   & 
    134       ( zoom_axis_hdl, zoom_begin, zoom_end, zoom_size ) 
     118      ( zoom_axis_hdl, begin, n ) 
    135119 
    136120  END SUBROUTINE xios(is_defined_zoom_axis_attr) 
    137121 
    138122  SUBROUTINE xios(is_defined_zoom_axis_attr_hdl)  & 
    139     ( zoom_axis_hdl, zoom_begin, zoom_end, zoom_size ) 
     123    ( zoom_axis_hdl, begin, n ) 
    140124 
    141125    IMPLICIT NONE 
    142126      TYPE(txios(zoom_axis)) , INTENT(IN) :: zoom_axis_hdl 
    143       LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_begin 
    144       LOGICAL(KIND=C_BOOL) :: zoom_begin_tmp 
    145       LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_end 
    146       LOGICAL(KIND=C_BOOL) :: zoom_end_tmp 
    147       LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_size 
    148       LOGICAL(KIND=C_BOOL) :: zoom_size_tmp 
     127      LOGICAL, OPTIONAL, INTENT(OUT) :: begin 
     128      LOGICAL(KIND=C_BOOL) :: begin_tmp 
     129      LOGICAL, OPTIONAL, INTENT(OUT) :: n 
     130      LOGICAL(KIND=C_BOOL) :: n_tmp 
    149131 
    150132      CALL xios(is_defined_zoom_axis_attr_hdl_)  & 
    151       ( zoom_axis_hdl, zoom_begin, zoom_end, zoom_size ) 
     133      ( zoom_axis_hdl, begin, n ) 
    152134 
    153135  END SUBROUTINE xios(is_defined_zoom_axis_attr_hdl) 
    154136 
    155137  SUBROUTINE xios(is_defined_zoom_axis_attr_hdl_)   & 
    156     ( zoom_axis_hdl, zoom_begin_, zoom_end_, zoom_size_ ) 
     138    ( zoom_axis_hdl, begin_, n_ ) 
    157139 
    158140    IMPLICIT NONE 
    159141      TYPE(txios(zoom_axis)) , INTENT(IN) :: zoom_axis_hdl 
    160       LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_begin_ 
    161       LOGICAL(KIND=C_BOOL) :: zoom_begin__tmp 
    162       LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_end_ 
    163       LOGICAL(KIND=C_BOOL) :: zoom_end__tmp 
    164       LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_size_ 
    165       LOGICAL(KIND=C_BOOL) :: zoom_size__tmp 
     142      LOGICAL, OPTIONAL, INTENT(OUT) :: begin_ 
     143      LOGICAL(KIND=C_BOOL) :: begin__tmp 
     144      LOGICAL, OPTIONAL, INTENT(OUT) :: n_ 
     145      LOGICAL(KIND=C_BOOL) :: n__tmp 
    166146 
    167       IF (PRESENT(zoom_begin_)) THEN 
    168         zoom_begin__tmp = cxios_is_defined_zoom_axis_zoom_begin(zoom_axis_hdl%daddr) 
    169         zoom_begin_ = zoom_begin__tmp 
     147      IF (PRESENT(begin_)) THEN 
     148        begin__tmp = cxios_is_defined_zoom_axis_begin(zoom_axis_hdl%daddr) 
     149        begin_ = begin__tmp 
    170150      ENDIF 
    171151 
    172       IF (PRESENT(zoom_end_)) THEN 
    173         zoom_end__tmp = cxios_is_defined_zoom_axis_zoom_end(zoom_axis_hdl%daddr) 
    174         zoom_end_ = zoom_end__tmp 
    175       ENDIF 
    176  
    177       IF (PRESENT(zoom_size_)) THEN 
    178         zoom_size__tmp = cxios_is_defined_zoom_axis_zoom_size(zoom_axis_hdl%daddr) 
    179         zoom_size_ = zoom_size__tmp 
     152      IF (PRESENT(n_)) THEN 
     153        n__tmp = cxios_is_defined_zoom_axis_n(zoom_axis_hdl%daddr) 
     154        n_ = n__tmp 
    180155      ENDIF 
    181156 
  • XIOS/trunk/src/interface/fortran_attr/izoom_domain_attr.F90

    r784 r787  
    1212 
    1313  SUBROUTINE xios(set_zoom_domain_attr)  & 
    14     ( zoom_domain_id, zoom_ibegin, zoom_jbegin, zoom_ni, zoom_nj ) 
     14    ( zoom_domain_id, ibegin, jbegin, ni, nj ) 
    1515 
    1616    IMPLICIT NONE 
    1717      TYPE(txios(zoom_domain))  :: zoom_domain_hdl 
    1818      CHARACTER(LEN=*), INTENT(IN) ::zoom_domain_id 
    19       INTEGER  , OPTIONAL, INTENT(IN) :: zoom_ibegin 
    20       INTEGER  , OPTIONAL, INTENT(IN) :: zoom_jbegin 
    21       INTEGER  , OPTIONAL, INTENT(IN) :: zoom_ni 
    22       INTEGER  , OPTIONAL, INTENT(IN) :: zoom_nj 
     19      INTEGER  , OPTIONAL, INTENT(IN) :: ibegin 
     20      INTEGER  , OPTIONAL, INTENT(IN) :: jbegin 
     21      INTEGER  , OPTIONAL, INTENT(IN) :: ni 
     22      INTEGER  , OPTIONAL, INTENT(IN) :: nj 
    2323 
    2424      CALL xios(get_zoom_domain_handle)(zoom_domain_id,zoom_domain_hdl) 
    2525      CALL xios(set_zoom_domain_attr_hdl_)   & 
    26       ( zoom_domain_hdl, zoom_ibegin, zoom_jbegin, zoom_ni, zoom_nj ) 
     26      ( zoom_domain_hdl, ibegin, jbegin, ni, nj ) 
    2727 
    2828  END SUBROUTINE xios(set_zoom_domain_attr) 
    2929 
    3030  SUBROUTINE xios(set_zoom_domain_attr_hdl)  & 
    31     ( zoom_domain_hdl, zoom_ibegin, zoom_jbegin, zoom_ni, zoom_nj ) 
    32  
    33     IMPLICIT NONE 
    34       TYPE(txios(zoom_domain)) , INTENT(IN) :: zoom_domain_hdl 
    35       INTEGER  , OPTIONAL, INTENT(IN) :: zoom_ibegin 
    36       INTEGER  , OPTIONAL, INTENT(IN) :: zoom_jbegin 
    37       INTEGER  , OPTIONAL, INTENT(IN) :: zoom_ni 
    38       INTEGER  , OPTIONAL, INTENT(IN) :: zoom_nj 
     31    ( zoom_domain_hdl, ibegin, jbegin, ni, nj ) 
     32 
     33    IMPLICIT NONE 
     34      TYPE(txios(zoom_domain)) , INTENT(IN) :: zoom_domain_hdl 
     35      INTEGER  , OPTIONAL, INTENT(IN) :: ibegin 
     36      INTEGER  , OPTIONAL, INTENT(IN) :: jbegin 
     37      INTEGER  , OPTIONAL, INTENT(IN) :: ni 
     38      INTEGER  , OPTIONAL, INTENT(IN) :: nj 
    3939 
    4040      CALL xios(set_zoom_domain_attr_hdl_)  & 
    41       ( zoom_domain_hdl, zoom_ibegin, zoom_jbegin, zoom_ni, zoom_nj ) 
     41      ( zoom_domain_hdl, ibegin, jbegin, ni, nj ) 
    4242 
    4343  END SUBROUTINE xios(set_zoom_domain_attr_hdl) 
    4444 
    4545  SUBROUTINE xios(set_zoom_domain_attr_hdl_)   & 
    46     ( zoom_domain_hdl, zoom_ibegin_, zoom_jbegin_, zoom_ni_, zoom_nj_ ) 
    47  
    48     IMPLICIT NONE 
    49       TYPE(txios(zoom_domain)) , INTENT(IN) :: zoom_domain_hdl 
    50       INTEGER  , OPTIONAL, INTENT(IN) :: zoom_ibegin_ 
    51       INTEGER  , OPTIONAL, INTENT(IN) :: zoom_jbegin_ 
    52       INTEGER  , OPTIONAL, INTENT(IN) :: zoom_ni_ 
    53       INTEGER  , OPTIONAL, INTENT(IN) :: zoom_nj_ 
    54  
    55       IF (PRESENT(zoom_ibegin_)) THEN 
    56         CALL cxios_set_zoom_domain_zoom_ibegin(zoom_domain_hdl%daddr, zoom_ibegin_) 
    57       ENDIF 
    58  
    59       IF (PRESENT(zoom_jbegin_)) THEN 
    60         CALL cxios_set_zoom_domain_zoom_jbegin(zoom_domain_hdl%daddr, zoom_jbegin_) 
    61       ENDIF 
    62  
    63       IF (PRESENT(zoom_ni_)) THEN 
    64         CALL cxios_set_zoom_domain_zoom_ni(zoom_domain_hdl%daddr, zoom_ni_) 
    65       ENDIF 
    66  
    67       IF (PRESENT(zoom_nj_)) THEN 
    68         CALL cxios_set_zoom_domain_zoom_nj(zoom_domain_hdl%daddr, zoom_nj_) 
     46    ( zoom_domain_hdl, ibegin_, jbegin_, ni_, nj_ ) 
     47 
     48    IMPLICIT NONE 
     49      TYPE(txios(zoom_domain)) , INTENT(IN) :: zoom_domain_hdl 
     50      INTEGER  , OPTIONAL, INTENT(IN) :: ibegin_ 
     51      INTEGER  , OPTIONAL, INTENT(IN) :: jbegin_ 
     52      INTEGER  , OPTIONAL, INTENT(IN) :: ni_ 
     53      INTEGER  , OPTIONAL, INTENT(IN) :: nj_ 
     54 
     55      IF (PRESENT(ibegin_)) THEN 
     56        CALL cxios_set_zoom_domain_ibegin(zoom_domain_hdl%daddr, ibegin_) 
     57      ENDIF 
     58 
     59      IF (PRESENT(jbegin_)) THEN 
     60        CALL cxios_set_zoom_domain_jbegin(zoom_domain_hdl%daddr, jbegin_) 
     61      ENDIF 
     62 
     63      IF (PRESENT(ni_)) THEN 
     64        CALL cxios_set_zoom_domain_ni(zoom_domain_hdl%daddr, ni_) 
     65      ENDIF 
     66 
     67      IF (PRESENT(nj_)) THEN 
     68        CALL cxios_set_zoom_domain_nj(zoom_domain_hdl%daddr, nj_) 
    6969      ENDIF 
    7070 
     
    7272 
    7373  SUBROUTINE xios(get_zoom_domain_attr)  & 
    74     ( zoom_domain_id, zoom_ibegin, zoom_jbegin, zoom_ni, zoom_nj ) 
     74    ( zoom_domain_id, ibegin, jbegin, ni, nj ) 
    7575 
    7676    IMPLICIT NONE 
    7777      TYPE(txios(zoom_domain))  :: zoom_domain_hdl 
    7878      CHARACTER(LEN=*), INTENT(IN) ::zoom_domain_id 
    79       INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_ibegin 
    80       INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_jbegin 
    81       INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_ni 
    82       INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_nj 
     79      INTEGER  , OPTIONAL, INTENT(OUT) :: ibegin 
     80      INTEGER  , OPTIONAL, INTENT(OUT) :: jbegin 
     81      INTEGER  , OPTIONAL, INTENT(OUT) :: ni 
     82      INTEGER  , OPTIONAL, INTENT(OUT) :: nj 
    8383 
    8484      CALL xios(get_zoom_domain_handle)(zoom_domain_id,zoom_domain_hdl) 
    8585      CALL xios(get_zoom_domain_attr_hdl_)   & 
    86       ( zoom_domain_hdl, zoom_ibegin, zoom_jbegin, zoom_ni, zoom_nj ) 
     86      ( zoom_domain_hdl, ibegin, jbegin, ni, nj ) 
    8787 
    8888  END SUBROUTINE xios(get_zoom_domain_attr) 
    8989 
    9090  SUBROUTINE xios(get_zoom_domain_attr_hdl)  & 
    91     ( zoom_domain_hdl, zoom_ibegin, zoom_jbegin, zoom_ni, zoom_nj ) 
    92  
    93     IMPLICIT NONE 
    94       TYPE(txios(zoom_domain)) , INTENT(IN) :: zoom_domain_hdl 
    95       INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_ibegin 
    96       INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_jbegin 
    97       INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_ni 
    98       INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_nj 
     91    ( zoom_domain_hdl, ibegin, jbegin, ni, nj ) 
     92 
     93    IMPLICIT NONE 
     94      TYPE(txios(zoom_domain)) , INTENT(IN) :: zoom_domain_hdl 
     95      INTEGER  , OPTIONAL, INTENT(OUT) :: ibegin 
     96      INTEGER  , OPTIONAL, INTENT(OUT) :: jbegin 
     97      INTEGER  , OPTIONAL, INTENT(OUT) :: ni 
     98      INTEGER  , OPTIONAL, INTENT(OUT) :: nj 
    9999 
    100100      CALL xios(get_zoom_domain_attr_hdl_)  & 
    101       ( zoom_domain_hdl, zoom_ibegin, zoom_jbegin, zoom_ni, zoom_nj ) 
     101      ( zoom_domain_hdl, ibegin, jbegin, ni, nj ) 
    102102 
    103103  END SUBROUTINE xios(get_zoom_domain_attr_hdl) 
    104104 
    105105  SUBROUTINE xios(get_zoom_domain_attr_hdl_)   & 
    106     ( zoom_domain_hdl, zoom_ibegin_, zoom_jbegin_, zoom_ni_, zoom_nj_ ) 
    107  
    108     IMPLICIT NONE 
    109       TYPE(txios(zoom_domain)) , INTENT(IN) :: zoom_domain_hdl 
    110       INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_ibegin_ 
    111       INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_jbegin_ 
    112       INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_ni_ 
    113       INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_nj_ 
    114  
    115       IF (PRESENT(zoom_ibegin_)) THEN 
    116         CALL cxios_get_zoom_domain_zoom_ibegin(zoom_domain_hdl%daddr, zoom_ibegin_) 
    117       ENDIF 
    118  
    119       IF (PRESENT(zoom_jbegin_)) THEN 
    120         CALL cxios_get_zoom_domain_zoom_jbegin(zoom_domain_hdl%daddr, zoom_jbegin_) 
    121       ENDIF 
    122  
    123       IF (PRESENT(zoom_ni_)) THEN 
    124         CALL cxios_get_zoom_domain_zoom_ni(zoom_domain_hdl%daddr, zoom_ni_) 
    125       ENDIF 
    126  
    127       IF (PRESENT(zoom_nj_)) THEN 
    128         CALL cxios_get_zoom_domain_zoom_nj(zoom_domain_hdl%daddr, zoom_nj_) 
     106    ( zoom_domain_hdl, ibegin_, jbegin_, ni_, nj_ ) 
     107 
     108    IMPLICIT NONE 
     109      TYPE(txios(zoom_domain)) , INTENT(IN) :: zoom_domain_hdl 
     110      INTEGER  , OPTIONAL, INTENT(OUT) :: ibegin_ 
     111      INTEGER  , OPTIONAL, INTENT(OUT) :: jbegin_ 
     112      INTEGER  , OPTIONAL, INTENT(OUT) :: ni_ 
     113      INTEGER  , OPTIONAL, INTENT(OUT) :: nj_ 
     114 
     115      IF (PRESENT(ibegin_)) THEN 
     116        CALL cxios_get_zoom_domain_ibegin(zoom_domain_hdl%daddr, ibegin_) 
     117      ENDIF 
     118 
     119      IF (PRESENT(jbegin_)) THEN 
     120        CALL cxios_get_zoom_domain_jbegin(zoom_domain_hdl%daddr, jbegin_) 
     121      ENDIF 
     122 
     123      IF (PRESENT(ni_)) THEN 
     124        CALL cxios_get_zoom_domain_ni(zoom_domain_hdl%daddr, ni_) 
     125      ENDIF 
     126 
     127      IF (PRESENT(nj_)) THEN 
     128        CALL cxios_get_zoom_domain_nj(zoom_domain_hdl%daddr, nj_) 
    129129      ENDIF 
    130130 
     
    132132 
    133133  SUBROUTINE xios(is_defined_zoom_domain_attr)  & 
    134     ( zoom_domain_id, zoom_ibegin, zoom_jbegin, zoom_ni, zoom_nj ) 
     134    ( zoom_domain_id, ibegin, jbegin, ni, nj ) 
    135135 
    136136    IMPLICIT NONE 
    137137      TYPE(txios(zoom_domain))  :: zoom_domain_hdl 
    138138      CHARACTER(LEN=*), INTENT(IN) ::zoom_domain_id 
    139       LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ibegin 
    140       LOGICAL(KIND=C_BOOL) :: zoom_ibegin_tmp 
    141       LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_jbegin 
    142       LOGICAL(KIND=C_BOOL) :: zoom_jbegin_tmp 
    143       LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ni 
    144       LOGICAL(KIND=C_BOOL) :: zoom_ni_tmp 
    145       LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_nj 
    146       LOGICAL(KIND=C_BOOL) :: zoom_nj_tmp 
     139      LOGICAL, OPTIONAL, INTENT(OUT) :: ibegin 
     140      LOGICAL(KIND=C_BOOL) :: ibegin_tmp 
     141      LOGICAL, OPTIONAL, INTENT(OUT) :: jbegin 
     142      LOGICAL(KIND=C_BOOL) :: jbegin_tmp 
     143      LOGICAL, OPTIONAL, INTENT(OUT) :: ni 
     144      LOGICAL(KIND=C_BOOL) :: ni_tmp 
     145      LOGICAL, OPTIONAL, INTENT(OUT) :: nj 
     146      LOGICAL(KIND=C_BOOL) :: nj_tmp 
    147147 
    148148      CALL xios(get_zoom_domain_handle)(zoom_domain_id,zoom_domain_hdl) 
    149149      CALL xios(is_defined_zoom_domain_attr_hdl_)   & 
    150       ( zoom_domain_hdl, zoom_ibegin, zoom_jbegin, zoom_ni, zoom_nj ) 
     150      ( zoom_domain_hdl, ibegin, jbegin, ni, nj ) 
    151151 
    152152  END SUBROUTINE xios(is_defined_zoom_domain_attr) 
    153153 
    154154  SUBROUTINE xios(is_defined_zoom_domain_attr_hdl)  & 
    155     ( zoom_domain_hdl, zoom_ibegin, zoom_jbegin, zoom_ni, zoom_nj ) 
    156  
    157     IMPLICIT NONE 
    158       TYPE(txios(zoom_domain)) , INTENT(IN) :: zoom_domain_hdl 
    159       LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ibegin 
    160       LOGICAL(KIND=C_BOOL) :: zoom_ibegin_tmp 
    161       LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_jbegin 
    162       LOGICAL(KIND=C_BOOL) :: zoom_jbegin_tmp 
    163       LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ni 
    164       LOGICAL(KIND=C_BOOL) :: zoom_ni_tmp 
    165       LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_nj 
    166       LOGICAL(KIND=C_BOOL) :: zoom_nj_tmp 
     155    ( zoom_domain_hdl, ibegin, jbegin, ni, nj ) 
     156 
     157    IMPLICIT NONE 
     158      TYPE(txios(zoom_domain)) , INTENT(IN) :: zoom_domain_hdl 
     159      LOGICAL, OPTIONAL, INTENT(OUT) :: ibegin 
     160      LOGICAL(KIND=C_BOOL) :: ibegin_tmp 
     161      LOGICAL, OPTIONAL, INTENT(OUT) :: jbegin 
     162      LOGICAL(KIND=C_BOOL) :: jbegin_tmp 
     163      LOGICAL, OPTIONAL, INTENT(OUT) :: ni 
     164      LOGICAL(KIND=C_BOOL) :: ni_tmp 
     165      LOGICAL, OPTIONAL, INTENT(OUT) :: nj 
     166      LOGICAL(KIND=C_BOOL) :: nj_tmp 
    167167 
    168168      CALL xios(is_defined_zoom_domain_attr_hdl_)  & 
    169       ( zoom_domain_hdl, zoom_ibegin, zoom_jbegin, zoom_ni, zoom_nj ) 
     169      ( zoom_domain_hdl, ibegin, jbegin, ni, nj ) 
    170170 
    171171  END SUBROUTINE xios(is_defined_zoom_domain_attr_hdl) 
    172172 
    173173  SUBROUTINE xios(is_defined_zoom_domain_attr_hdl_)   & 
    174     ( zoom_domain_hdl, zoom_ibegin_, zoom_jbegin_, zoom_ni_, zoom_nj_ ) 
    175  
    176     IMPLICIT NONE 
    177       TYPE(txios(zoom_domain)) , INTENT(IN) :: zoom_domain_hdl 
    178       LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ibegin_ 
    179       LOGICAL(KIND=C_BOOL) :: zoom_ibegin__tmp 
    180       LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_jbegin_ 
    181       LOGICAL(KIND=C_BOOL) :: zoom_jbegin__tmp 
    182       LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ni_ 
    183       LOGICAL(KIND=C_BOOL) :: zoom_ni__tmp 
    184       LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_nj_ 
    185       LOGICAL(KIND=C_BOOL) :: zoom_nj__tmp 
    186  
    187       IF (PRESENT(zoom_ibegin_)) THEN 
    188         zoom_ibegin__tmp = cxios_is_defined_zoom_domain_zoom_ibegin(zoom_domain_hdl%daddr) 
    189         zoom_ibegin_ = zoom_ibegin__tmp 
    190       ENDIF 
    191  
    192       IF (PRESENT(zoom_jbegin_)) THEN 
    193         zoom_jbegin__tmp = cxios_is_defined_zoom_domain_zoom_jbegin(zoom_domain_hdl%daddr) 
    194         zoom_jbegin_ = zoom_jbegin__tmp 
    195       ENDIF 
    196  
    197       IF (PRESENT(zoom_ni_)) THEN 
    198         zoom_ni__tmp = cxios_is_defined_zoom_domain_zoom_ni(zoom_domain_hdl%daddr) 
    199         zoom_ni_ = zoom_ni__tmp 
    200       ENDIF 
    201  
    202       IF (PRESENT(zoom_nj_)) THEN 
    203         zoom_nj__tmp = cxios_is_defined_zoom_domain_zoom_nj(zoom_domain_hdl%daddr) 
    204         zoom_nj_ = zoom_nj__tmp 
     174    ( zoom_domain_hdl, ibegin_, jbegin_, ni_, nj_ ) 
     175 
     176    IMPLICIT NONE 
     177      TYPE(txios(zoom_domain)) , INTENT(IN) :: zoom_domain_hdl 
     178      LOGICAL, OPTIONAL, INTENT(OUT) :: ibegin_ 
     179      LOGICAL(KIND=C_BOOL) :: ibegin__tmp 
     180      LOGICAL, OPTIONAL, INTENT(OUT) :: jbegin_ 
     181      LOGICAL(KIND=C_BOOL) :: jbegin__tmp 
     182      LOGICAL, OPTIONAL, INTENT(OUT) :: ni_ 
     183      LOGICAL(KIND=C_BOOL) :: ni__tmp 
     184      LOGICAL, OPTIONAL, INTENT(OUT) :: nj_ 
     185      LOGICAL(KIND=C_BOOL) :: nj__tmp 
     186 
     187      IF (PRESENT(ibegin_)) THEN 
     188        ibegin__tmp = cxios_is_defined_zoom_domain_ibegin(zoom_domain_hdl%daddr) 
     189        ibegin_ = ibegin__tmp 
     190      ENDIF 
     191 
     192      IF (PRESENT(jbegin_)) THEN 
     193        jbegin__tmp = cxios_is_defined_zoom_domain_jbegin(zoom_domain_hdl%daddr) 
     194        jbegin_ = jbegin__tmp 
     195      ENDIF 
     196 
     197      IF (PRESENT(ni_)) THEN 
     198        ni__tmp = cxios_is_defined_zoom_domain_ni(zoom_domain_hdl%daddr) 
     199        ni_ = ni__tmp 
     200      ENDIF 
     201 
     202      IF (PRESENT(nj_)) THEN 
     203        nj__tmp = cxios_is_defined_zoom_domain_nj(zoom_domain_hdl%daddr) 
     204        nj_ = nj__tmp 
    205205      ENDIF 
    206206 
  • XIOS/trunk/src/interface/fortran_attr/zoom_axis_interface_attr.F90

    r784 r787  
    1010    ! Do not call directly / interface FORTRAN 2003 <-> C99 
    1111 
    12     SUBROUTINE cxios_set_zoom_axis_zoom_begin(zoom_axis_hdl, zoom_begin) BIND(C) 
     12    SUBROUTINE cxios_set_zoom_axis_begin(zoom_axis_hdl, begin) BIND(C) 
    1313      USE ISO_C_BINDING 
    1414      INTEGER (kind = C_INTPTR_T), VALUE :: zoom_axis_hdl 
    15       INTEGER (KIND=C_INT)      , VALUE :: zoom_begin 
    16     END SUBROUTINE cxios_set_zoom_axis_zoom_begin 
     15      INTEGER (KIND=C_INT)      , VALUE :: begin 
     16    END SUBROUTINE cxios_set_zoom_axis_begin 
    1717 
    18     SUBROUTINE cxios_get_zoom_axis_zoom_begin(zoom_axis_hdl, zoom_begin) BIND(C) 
     18    SUBROUTINE cxios_get_zoom_axis_begin(zoom_axis_hdl, begin) BIND(C) 
    1919      USE ISO_C_BINDING 
    2020      INTEGER (kind = C_INTPTR_T), VALUE :: zoom_axis_hdl 
    21       INTEGER (KIND=C_INT)             :: zoom_begin 
    22     END SUBROUTINE cxios_get_zoom_axis_zoom_begin 
     21      INTEGER (KIND=C_INT)             :: begin 
     22    END SUBROUTINE cxios_get_zoom_axis_begin 
    2323 
    24     FUNCTION cxios_is_defined_zoom_axis_zoom_begin(zoom_axis_hdl) BIND(C) 
     24    FUNCTION cxios_is_defined_zoom_axis_begin(zoom_axis_hdl) BIND(C) 
    2525      USE ISO_C_BINDING 
    26       LOGICAL(kind=C_BOOL) :: cxios_is_defined_zoom_axis_zoom_begin 
     26      LOGICAL(kind=C_BOOL) :: cxios_is_defined_zoom_axis_begin 
    2727      INTEGER (kind = C_INTPTR_T), VALUE :: zoom_axis_hdl 
    28     END FUNCTION cxios_is_defined_zoom_axis_zoom_begin 
     28    END FUNCTION cxios_is_defined_zoom_axis_begin 
    2929 
    3030 
    31     SUBROUTINE cxios_set_zoom_axis_zoom_end(zoom_axis_hdl, zoom_end) BIND(C) 
     31    SUBROUTINE cxios_set_zoom_axis_n(zoom_axis_hdl, n) BIND(C) 
    3232      USE ISO_C_BINDING 
    3333      INTEGER (kind = C_INTPTR_T), VALUE :: zoom_axis_hdl 
    34       INTEGER (KIND=C_INT)      , VALUE :: zoom_end 
    35     END SUBROUTINE cxios_set_zoom_axis_zoom_end 
     34      INTEGER (KIND=C_INT)      , VALUE :: n 
     35    END SUBROUTINE cxios_set_zoom_axis_n 
    3636 
    37     SUBROUTINE cxios_get_zoom_axis_zoom_end(zoom_axis_hdl, zoom_end) BIND(C) 
     37    SUBROUTINE cxios_get_zoom_axis_n(zoom_axis_hdl, n) BIND(C) 
    3838      USE ISO_C_BINDING 
    3939      INTEGER (kind = C_INTPTR_T), VALUE :: zoom_axis_hdl 
    40       INTEGER (KIND=C_INT)             :: zoom_end 
    41     END SUBROUTINE cxios_get_zoom_axis_zoom_end 
     40      INTEGER (KIND=C_INT)             :: n 
     41    END SUBROUTINE cxios_get_zoom_axis_n 
    4242 
    43     FUNCTION cxios_is_defined_zoom_axis_zoom_end(zoom_axis_hdl) BIND(C) 
     43    FUNCTION cxios_is_defined_zoom_axis_n(zoom_axis_hdl) BIND(C) 
    4444      USE ISO_C_BINDING 
    45       LOGICAL(kind=C_BOOL) :: cxios_is_defined_zoom_axis_zoom_end 
     45      LOGICAL(kind=C_BOOL) :: cxios_is_defined_zoom_axis_n 
    4646      INTEGER (kind = C_INTPTR_T), VALUE :: zoom_axis_hdl 
    47     END FUNCTION cxios_is_defined_zoom_axis_zoom_end 
    48  
    49  
    50     SUBROUTINE cxios_set_zoom_axis_zoom_size(zoom_axis_hdl, zoom_size) BIND(C) 
    51       USE ISO_C_BINDING 
    52       INTEGER (kind = C_INTPTR_T), VALUE :: zoom_axis_hdl 
    53       INTEGER (KIND=C_INT)      , VALUE :: zoom_size 
    54     END SUBROUTINE cxios_set_zoom_axis_zoom_size 
    55  
    56     SUBROUTINE cxios_get_zoom_axis_zoom_size(zoom_axis_hdl, zoom_size) BIND(C) 
    57       USE ISO_C_BINDING 
    58       INTEGER (kind = C_INTPTR_T), VALUE :: zoom_axis_hdl 
    59       INTEGER (KIND=C_INT)             :: zoom_size 
    60     END SUBROUTINE cxios_get_zoom_axis_zoom_size 
    61  
    62     FUNCTION cxios_is_defined_zoom_axis_zoom_size(zoom_axis_hdl) BIND(C) 
    63       USE ISO_C_BINDING 
    64       LOGICAL(kind=C_BOOL) :: cxios_is_defined_zoom_axis_zoom_size 
    65       INTEGER (kind = C_INTPTR_T), VALUE :: zoom_axis_hdl 
    66     END FUNCTION cxios_is_defined_zoom_axis_zoom_size 
     47    END FUNCTION cxios_is_defined_zoom_axis_n 
    6748 
    6849  END INTERFACE 
  • XIOS/trunk/src/interface/fortran_attr/zoom_domain_interface_attr.F90

    r784 r787  
    1010    ! Do not call directly / interface FORTRAN 2003 <-> C99 
    1111 
    12     SUBROUTINE cxios_set_zoom_domain_zoom_ibegin(zoom_domain_hdl, zoom_ibegin) BIND(C) 
     12    SUBROUTINE cxios_set_zoom_domain_ibegin(zoom_domain_hdl, ibegin) BIND(C) 
    1313      USE ISO_C_BINDING 
    1414      INTEGER (kind = C_INTPTR_T), VALUE :: zoom_domain_hdl 
    15       INTEGER (KIND=C_INT)      , VALUE :: zoom_ibegin 
    16     END SUBROUTINE cxios_set_zoom_domain_zoom_ibegin 
     15      INTEGER (KIND=C_INT)      , VALUE :: ibegin 
     16    END SUBROUTINE cxios_set_zoom_domain_ibegin 
    1717 
    18     SUBROUTINE cxios_get_zoom_domain_zoom_ibegin(zoom_domain_hdl, zoom_ibegin) BIND(C) 
     18    SUBROUTINE cxios_get_zoom_domain_ibegin(zoom_domain_hdl, ibegin) BIND(C) 
    1919      USE ISO_C_BINDING 
    2020      INTEGER (kind = C_INTPTR_T), VALUE :: zoom_domain_hdl 
    21       INTEGER (KIND=C_INT)             :: zoom_ibegin 
    22     END SUBROUTINE cxios_get_zoom_domain_zoom_ibegin 
     21      INTEGER (KIND=C_INT)             :: ibegin 
     22    END SUBROUTINE cxios_get_zoom_domain_ibegin 
    2323 
    24     FUNCTION cxios_is_defined_zoom_domain_zoom_ibegin(zoom_domain_hdl) BIND(C) 
     24    FUNCTION cxios_is_defined_zoom_domain_ibegin(zoom_domain_hdl) BIND(C) 
    2525      USE ISO_C_BINDING 
    26       LOGICAL(kind=C_BOOL) :: cxios_is_defined_zoom_domain_zoom_ibegin 
     26      LOGICAL(kind=C_BOOL) :: cxios_is_defined_zoom_domain_ibegin 
    2727      INTEGER (kind = C_INTPTR_T), VALUE :: zoom_domain_hdl 
    28     END FUNCTION cxios_is_defined_zoom_domain_zoom_ibegin 
     28    END FUNCTION cxios_is_defined_zoom_domain_ibegin 
    2929 
    3030 
    31     SUBROUTINE cxios_set_zoom_domain_zoom_jbegin(zoom_domain_hdl, zoom_jbegin) BIND(C) 
     31    SUBROUTINE cxios_set_zoom_domain_jbegin(zoom_domain_hdl, jbegin) BIND(C) 
    3232      USE ISO_C_BINDING 
    3333      INTEGER (kind = C_INTPTR_T), VALUE :: zoom_domain_hdl 
    34       INTEGER (KIND=C_INT)      , VALUE :: zoom_jbegin 
    35     END SUBROUTINE cxios_set_zoom_domain_zoom_jbegin 
     34      INTEGER (KIND=C_INT)      , VALUE :: jbegin 
     35    END SUBROUTINE cxios_set_zoom_domain_jbegin 
    3636 
    37     SUBROUTINE cxios_get_zoom_domain_zoom_jbegin(zoom_domain_hdl, zoom_jbegin) BIND(C) 
     37    SUBROUTINE cxios_get_zoom_domain_jbegin(zoom_domain_hdl, jbegin) BIND(C) 
    3838      USE ISO_C_BINDING 
    3939      INTEGER (kind = C_INTPTR_T), VALUE :: zoom_domain_hdl 
    40       INTEGER (KIND=C_INT)             :: zoom_jbegin 
    41     END SUBROUTINE cxios_get_zoom_domain_zoom_jbegin 
     40      INTEGER (KIND=C_INT)             :: jbegin 
     41    END SUBROUTINE cxios_get_zoom_domain_jbegin 
    4242 
    43     FUNCTION cxios_is_defined_zoom_domain_zoom_jbegin(zoom_domain_hdl) BIND(C) 
     43    FUNCTION cxios_is_defined_zoom_domain_jbegin(zoom_domain_hdl) BIND(C) 
    4444      USE ISO_C_BINDING 
    45       LOGICAL(kind=C_BOOL) :: cxios_is_defined_zoom_domain_zoom_jbegin 
     45      LOGICAL(kind=C_BOOL) :: cxios_is_defined_zoom_domain_jbegin 
    4646      INTEGER (kind = C_INTPTR_T), VALUE :: zoom_domain_hdl 
    47     END FUNCTION cxios_is_defined_zoom_domain_zoom_jbegin 
     47    END FUNCTION cxios_is_defined_zoom_domain_jbegin 
    4848 
    4949 
    50     SUBROUTINE cxios_set_zoom_domain_zoom_ni(zoom_domain_hdl, zoom_ni) BIND(C) 
     50    SUBROUTINE cxios_set_zoom_domain_ni(zoom_domain_hdl, ni) BIND(C) 
    5151      USE ISO_C_BINDING 
    5252      INTEGER (kind = C_INTPTR_T), VALUE :: zoom_domain_hdl 
    53       INTEGER (KIND=C_INT)      , VALUE :: zoom_ni 
    54     END SUBROUTINE cxios_set_zoom_domain_zoom_ni 
     53      INTEGER (KIND=C_INT)      , VALUE :: ni 
     54    END SUBROUTINE cxios_set_zoom_domain_ni 
    5555 
    56     SUBROUTINE cxios_get_zoom_domain_zoom_ni(zoom_domain_hdl, zoom_ni) BIND(C) 
     56    SUBROUTINE cxios_get_zoom_domain_ni(zoom_domain_hdl, ni) BIND(C) 
    5757      USE ISO_C_BINDING 
    5858      INTEGER (kind = C_INTPTR_T), VALUE :: zoom_domain_hdl 
    59       INTEGER (KIND=C_INT)             :: zoom_ni 
    60     END SUBROUTINE cxios_get_zoom_domain_zoom_ni 
     59      INTEGER (KIND=C_INT)             :: ni 
     60    END SUBROUTINE cxios_get_zoom_domain_ni 
    6161 
    62     FUNCTION cxios_is_defined_zoom_domain_zoom_ni(zoom_domain_hdl) BIND(C) 
     62    FUNCTION cxios_is_defined_zoom_domain_ni(zoom_domain_hdl) BIND(C) 
    6363      USE ISO_C_BINDING 
    64       LOGICAL(kind=C_BOOL) :: cxios_is_defined_zoom_domain_zoom_ni 
     64      LOGICAL(kind=C_BOOL) :: cxios_is_defined_zoom_domain_ni 
    6565      INTEGER (kind = C_INTPTR_T), VALUE :: zoom_domain_hdl 
    66     END FUNCTION cxios_is_defined_zoom_domain_zoom_ni 
     66    END FUNCTION cxios_is_defined_zoom_domain_ni 
    6767 
    6868 
    69     SUBROUTINE cxios_set_zoom_domain_zoom_nj(zoom_domain_hdl, zoom_nj) BIND(C) 
     69    SUBROUTINE cxios_set_zoom_domain_nj(zoom_domain_hdl, nj) BIND(C) 
    7070      USE ISO_C_BINDING 
    7171      INTEGER (kind = C_INTPTR_T), VALUE :: zoom_domain_hdl 
    72       INTEGER (KIND=C_INT)      , VALUE :: zoom_nj 
    73     END SUBROUTINE cxios_set_zoom_domain_zoom_nj 
     72      INTEGER (KIND=C_INT)      , VALUE :: nj 
     73    END SUBROUTINE cxios_set_zoom_domain_nj 
    7474 
    75     SUBROUTINE cxios_get_zoom_domain_zoom_nj(zoom_domain_hdl, zoom_nj) BIND(C) 
     75    SUBROUTINE cxios_get_zoom_domain_nj(zoom_domain_hdl, nj) BIND(C) 
    7676      USE ISO_C_BINDING 
    7777      INTEGER (kind = C_INTPTR_T), VALUE :: zoom_domain_hdl 
    78       INTEGER (KIND=C_INT)             :: zoom_nj 
    79     END SUBROUTINE cxios_get_zoom_domain_zoom_nj 
     78      INTEGER (KIND=C_INT)             :: nj 
     79    END SUBROUTINE cxios_get_zoom_domain_nj 
    8080 
    81     FUNCTION cxios_is_defined_zoom_domain_zoom_nj(zoom_domain_hdl) BIND(C) 
     81    FUNCTION cxios_is_defined_zoom_domain_nj(zoom_domain_hdl) BIND(C) 
    8282      USE ISO_C_BINDING 
    83       LOGICAL(kind=C_BOOL) :: cxios_is_defined_zoom_domain_zoom_nj 
     83      LOGICAL(kind=C_BOOL) :: cxios_is_defined_zoom_domain_nj 
    8484      INTEGER (kind = C_INTPTR_T), VALUE :: zoom_domain_hdl 
    85     END FUNCTION cxios_is_defined_zoom_domain_zoom_nj 
     85    END FUNCTION cxios_is_defined_zoom_domain_nj 
    8686 
    8787  END INTERFACE 
  • XIOS/trunk/src/node/zoom_axis.cpp

    r681 r787  
    2626  { 
    2727    int axisIBegin, axisNi, axisGlobalSize; 
    28     int zoom_begin, zoom_end, zoom_size; 
     28    int begin, end, n; 
    2929 
    3030    axisIBegin = axisDest->begin.getValue(); 
     
    3232    axisGlobalSize   = axisDest->n_glo.getValue(); 
    3333 
    34     zoom_begin = (this->zoom_begin.isEmpty()) ?  0 : this->zoom_begin.getValue() ; 
    35     zoom_size  = (this->zoom_size.isEmpty()) ?  axisGlobalSize : this->zoom_size.getValue() ; 
    36     zoom_end   = (this->zoom_end.isEmpty()) ?  (axisGlobalSize - 1) : this->zoom_end.getValue() ; 
     34    begin = (this->begin.isEmpty()) ?  0 : this->begin.getValue(); 
     35    n     = (this->n.isEmpty()) ?  axisGlobalSize : this->n.getValue(); 
     36    end   = begin+n-1; 
    3737 
    38     if (this->zoom_begin.isEmpty()) zoom_begin=zoom_end-zoom_size+1; 
    39     if (this->zoom_size.isEmpty()) zoom_size=zoom_end-zoom_begin+1; 
    40     if (this->zoom_end.isEmpty()) zoom_end=zoom_begin+zoom_size-1; 
    41  
    42     if (zoom_begin < 0 || zoom_begin > axisGlobalSize - 1 || zoom_end < 0 || zoom_end > axisGlobalSize - 1 
    43         || zoom_size < 1 || zoom_size > axisGlobalSize || zoom_begin > zoom_end) 
     38    if (begin < 0 || begin > axisGlobalSize - 1 || end < 0 || end > axisGlobalSize - 1 
     39        || n < 1 || n > axisGlobalSize || begin > end) 
    4440      ERROR("CZoomAxis::checkValid(CAxis* axisDest)", 
    45             << "One or more attributes among 'zoom_begin' (" << zoom_begin << "), 'zoom_end' (" << zoom_end << "), 'zoom_size' (" << zoom_size << ") " 
     41            << "One or more attributes among 'begin' (" << begin << "), 'end' (" << end << "), 'n' (" << n << ") " 
    4642            << "of axis transformation [ id = '" << axisDest->getId() << "' , context = '" << CObjectFactory::GetCurrentContextId() << "' ] are not well specified"); 
    4743 
    48     this->zoom_begin.setValue(zoom_begin) ; 
    49     this->zoom_end.setValue(zoom_end) ; 
    50     this->zoom_size.setValue(zoom_size) ; 
     44    this->begin.setValue(begin); 
     45    this->n.setValue(n); 
    5146 
    5247  } 
  • XIOS/trunk/src/node/zoom_domain.cpp

    r680 r787  
    2929 
    3030    // Résolution et vérification des données globales de zoom. 
    31     if (!this->zoom_ni.isEmpty() || !this->zoom_nj.isEmpty() || 
    32         !this->zoom_ibegin.isEmpty() || !this->zoom_jbegin.isEmpty()) 
     31    if (!this->ni.isEmpty() || !this->nj.isEmpty() || 
     32        !this->ibegin.isEmpty() || !this->jbegin.isEmpty()) 
    3333    { 
    34        if (this->zoom_ni.isEmpty()     || this->zoom_nj.isEmpty() || 
    35            this->zoom_ibegin.isEmpty() || this->zoom_jbegin.isEmpty()) 
     34       if (this->ni.isEmpty()     || this->nj.isEmpty() || 
     35           this->ibegin.isEmpty() || this->jbegin.isEmpty()) 
    3636       { 
    3737         ERROR("CZoomDomain::checkValid(CDomain* domainSrc)", 
     
    4040       else 
    4141       { 
    42           int zoom_iend = zoom_ibegin + zoom_ni - 1; 
    43           int zoom_jend = zoom_jbegin + zoom_nj - 1; 
     42          int iend = ibegin + ni - 1; 
     43          int jend = jbegin + nj - 1; 
    4444 
    45           if (zoom_ibegin < 0  || zoom_jbegin < 0 || zoom_iend > ni_glo - 1 || zoom_jend > nj_glo - 1) 
     45          if (ibegin < 0  || jbegin < 0 || iend > ni_glo - 1 || jend > nj_glo - 1) 
    4646            ERROR("CZoomDomain::checkValid(CDomain* domainSrc)", 
    4747                  << "Zoom is wrongly defined, " 
    48                   << "please check the values : 'zoom_ni' (" << zoom_ni.getValue() << "), 'zoom_nj' (" << zoom_nj.getValue() << "), " 
    49                   << "'zoom_ibegin' (" << zoom_ibegin.getValue() << "), 'zoom_jbegin' (" << zoom_jbegin.getValue() << ")"); 
     48                  << "please check the values : 'ni' (" << ni.getValue() << "), 'nj' (" << nj.getValue() << "), " 
     49                  << "'ibegin' (" << ibegin.getValue() << "), 'jbegin' (" << jbegin.getValue() << ")"); 
    5050       } 
    5151    } 
    5252    else 
    5353    { 
    54        zoom_ni = ni_glo; 
    55        zoom_nj = nj_glo; 
    56        zoom_ibegin = 0; 
    57        zoom_jbegin = 0; 
     54       ni = ni_glo; 
     55       nj = nj_glo; 
     56       ibegin = 0; 
     57       jbegin = 0; 
    5858    } 
    5959  } 
  • XIOS/trunk/src/test/test_complete.f90

    r786 r787  
    8888 
    8989  CALL xios_set_axis_attr("axis_atm",n_glo=llm ,value=lval) ; 
    90   CALL xios_set_zoom_axis_attr("axis_atm_zoom",zoom_size=2); 
     90!  CALL xios_set_zoom_axis_attr("axis_atm_zoom",n=2); 
    9191 
    9292  CALL xios_set_domain_attr("domain_atm",ni_glo=ni_glo, nj_glo=nj_glo, ibegin=ibegin, ni=ni,jbegin=jbegin,nj=nj, type='curvilinear') 
     
    9797  CALL xios_set_domain_attr("domain_atm_zoom",data_dim=2, data_ibegin=-1, data_ni=ni+2, data_jbegin=-2, data_nj=nj+4) 
    9898  CALL xios_set_domain_attr("domain_atm_zoom",lonvalue_2D=lon,latvalue_2D=lat) 
    99   CALL xios_set_zoom_domain_attr("domain_atm_zoom",zoom_ibegin=39, zoom_ni=20, zoom_jbegin=39, zoom_nj=5) 
     99!  CALL xios_set_zoom_domain_attr("domain_atm_zoom",ibegin=39, ni=20, jbegin=39, nj=5) 
    100100 
    101101!!! Activation du groupe field_definition 
  • XIOS/trunk/src/transformation/axis_algorithm_zoom.cpp

    r666 r787  
    1515{ 
    1616  zoomAxis->checkValid(axisSource); 
    17   zoomBegin_ = zoomAxis->zoom_begin.getValue(); 
    18   zoomEnd_   = zoomAxis->zoom_end.getValue(); 
    19   zoomSize_  = zoomAxis->zoom_size.getValue(); 
     17  zoomBegin_ = zoomAxis->begin.getValue(); 
     18  zoomSize_  = zoomAxis->n.getValue(); 
     19  zoomEnd_   = zoomBegin_ + zoomSize_ - 1; 
    2020 
    2121  if (zoomSize_ > axisSource->n_glo.getValue()) 
  • XIOS/trunk/src/transformation/domain_algorithm_zoom.cpp

    r664 r787  
    1515{ 
    1616  zoomDomain->checkValid(domainSource); 
    17   zoomIBegin_ = zoomDomain->zoom_ibegin.getValue(); 
    18   zoomJBegin_ = zoomDomain->zoom_jbegin.getValue(); 
     17  zoomIBegin_ = zoomDomain->ibegin.getValue(); 
     18  zoomJBegin_ = zoomDomain->jbegin.getValue(); 
    1919 
    20   zoomNi_  = zoomDomain->zoom_ni.getValue(); 
    21   zoomNj_  = zoomDomain->zoom_nj.getValue(); 
     20  zoomNi_  = zoomDomain->ni.getValue(); 
     21  zoomNj_  = zoomDomain->nj.getValue(); 
    2222 
    2323  zoomIEnd_ = zoomIBegin_ + zoomNi_ - 1; 
Note: See TracChangeset for help on using the changeset viewer.