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

Changing name of attributes of zoom

Test
+) test_client and test_complete are correct

File:
1 edited

Legend:

Unmodified
Added
Removed

  • 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 
Note: See TracChangeset for help on using the changeset viewer.