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

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

Generating Fortran interface for zoom_axis and zoom_domain

Test
+) On Curie
+) All results are correct

File size: 7.7 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, zoom_ibegin, zoom_jbegin, zoom_ni, zoom_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) :: zoom_ibegin
20      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_jbegin
21      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_ni
22      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_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, zoom_ibegin, zoom_jbegin, zoom_ni, zoom_nj )
27
28  END SUBROUTINE xios(set_zoom_domain_attr)
29
30  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
39
40      CALL xios(set_zoom_domain_attr_hdl_)  &
41      ( zoom_domain_hdl, zoom_ibegin, zoom_jbegin, zoom_ni, zoom_nj )
42
43  END SUBROUTINE xios(set_zoom_domain_attr_hdl)
44
45  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_)
69      ENDIF
70
71  END SUBROUTINE xios(set_zoom_domain_attr_hdl_)
72
73  SUBROUTINE xios(get_zoom_domain_attr)  &
74    ( zoom_domain_id, zoom_ibegin, zoom_jbegin, zoom_ni, zoom_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) :: zoom_ibegin
80      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_jbegin
81      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_ni
82      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_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, zoom_ibegin, zoom_jbegin, zoom_ni, zoom_nj )
87
88  END SUBROUTINE xios(get_zoom_domain_attr)
89
90  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
99
100      CALL xios(get_zoom_domain_attr_hdl_)  &
101      ( zoom_domain_hdl, zoom_ibegin, zoom_jbegin, zoom_ni, zoom_nj )
102
103  END SUBROUTINE xios(get_zoom_domain_attr_hdl)
104
105  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_)
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, zoom_ibegin, zoom_jbegin, zoom_ni, zoom_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) :: 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
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, zoom_ibegin, zoom_jbegin, zoom_ni, zoom_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, 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
167
168      CALL xios(is_defined_zoom_domain_attr_hdl_)  &
169      ( zoom_domain_hdl, zoom_ibegin, zoom_jbegin, zoom_ni, zoom_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, 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
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.