source: XIOS/trunk/src/interface/fortran_attr/izoom_domain_attr.F90 @ 787

Last change on this file since 787 was 787, checked in by mhnguyen, 5 years ago

Changing name of attributes of zoom

Test
+) test_client and test_complete are correct

File size: 6.9 KB
Line 
1! * ************************************************************************** *
2! *               Interface auto generated - do not modify                     *
3! * ************************************************************************** *
4#include "xios_fortran_prefix.hpp"
5
6MODULE izoom_domain_attr
7  USE, INTRINSIC :: ISO_C_BINDING
8  USE izoom_domain
9  USE zoom_domain_interface_attr
10
11CONTAINS
12
13  SUBROUTINE xios(set_zoom_domain_attr)  &
14    ( zoom_domain_id, ibegin, jbegin, ni, nj )
15
16    IMPLICIT NONE
17      TYPE(txios(zoom_domain))  :: zoom_domain_hdl
18      CHARACTER(LEN=*), INTENT(IN) ::zoom_domain_id
19      INTEGER  , OPTIONAL, INTENT(IN) :: ibegin
20      INTEGER  , OPTIONAL, INTENT(IN) :: jbegin
21      INTEGER  , OPTIONAL, INTENT(IN) :: ni
22      INTEGER  , OPTIONAL, INTENT(IN) :: nj
23
24      CALL xios(get_zoom_domain_handle)(zoom_domain_id,zoom_domain_hdl)
25      CALL xios(set_zoom_domain_attr_hdl_)   &
26      ( zoom_domain_hdl, ibegin, jbegin, ni, nj )
27
28  END SUBROUTINE xios(set_zoom_domain_attr)
29
30  SUBROUTINE xios(set_zoom_domain_attr_hdl)  &
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
39
40      CALL xios(set_zoom_domain_attr_hdl_)  &
41      ( zoom_domain_hdl, ibegin, jbegin, ni, nj )
42
43  END SUBROUTINE xios(set_zoom_domain_attr_hdl)
44
45  SUBROUTINE xios(set_zoom_domain_attr_hdl_)   &
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_)
69      ENDIF
70
71  END SUBROUTINE xios(set_zoom_domain_attr_hdl_)
72
73  SUBROUTINE xios(get_zoom_domain_attr)  &
74    ( zoom_domain_id, ibegin, jbegin, ni, nj )
75
76    IMPLICIT NONE
77      TYPE(txios(zoom_domain))  :: zoom_domain_hdl
78      CHARACTER(LEN=*), INTENT(IN) ::zoom_domain_id
79      INTEGER  , OPTIONAL, INTENT(OUT) :: ibegin
80      INTEGER  , OPTIONAL, INTENT(OUT) :: jbegin
81      INTEGER  , OPTIONAL, INTENT(OUT) :: ni
82      INTEGER  , OPTIONAL, INTENT(OUT) :: nj
83
84      CALL xios(get_zoom_domain_handle)(zoom_domain_id,zoom_domain_hdl)
85      CALL xios(get_zoom_domain_attr_hdl_)   &
86      ( zoom_domain_hdl, ibegin, jbegin, ni, nj )
87
88  END SUBROUTINE xios(get_zoom_domain_attr)
89
90  SUBROUTINE xios(get_zoom_domain_attr_hdl)  &
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
99
100      CALL xios(get_zoom_domain_attr_hdl_)  &
101      ( zoom_domain_hdl, ibegin, jbegin, ni, nj )
102
103  END SUBROUTINE xios(get_zoom_domain_attr_hdl)
104
105  SUBROUTINE xios(get_zoom_domain_attr_hdl_)   &
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_)
129      ENDIF
130
131  END SUBROUTINE xios(get_zoom_domain_attr_hdl_)
132
133  SUBROUTINE xios(is_defined_zoom_domain_attr)  &
134    ( zoom_domain_id, ibegin, jbegin, ni, nj )
135
136    IMPLICIT NONE
137      TYPE(txios(zoom_domain))  :: zoom_domain_hdl
138      CHARACTER(LEN=*), INTENT(IN) ::zoom_domain_id
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
147
148      CALL xios(get_zoom_domain_handle)(zoom_domain_id,zoom_domain_hdl)
149      CALL xios(is_defined_zoom_domain_attr_hdl_)   &
150      ( zoom_domain_hdl, ibegin, jbegin, ni, nj )
151
152  END SUBROUTINE xios(is_defined_zoom_domain_attr)
153
154  SUBROUTINE xios(is_defined_zoom_domain_attr_hdl)  &
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
167
168      CALL xios(is_defined_zoom_domain_attr_hdl_)  &
169      ( zoom_domain_hdl, ibegin, jbegin, ni, nj )
170
171  END SUBROUTINE xios(is_defined_zoom_domain_attr_hdl)
172
173  SUBROUTINE xios(is_defined_zoom_domain_attr_hdl_)   &
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
205      ENDIF
206
207  END SUBROUTINE xios(is_defined_zoom_domain_attr_hdl_)
208
209END MODULE izoom_domain_attr
Note: See TracBrowser for help on using the repository browser.