source: XIOS/dev/XIOS_DEV_CMIP6/src/interface/fortran_attr/ireorder_domain_attr.F90 @ 1492

Last change on this file since 1492 was 1492, checked in by oabramkina, 6 years ago

Updating fortran interface for attributes that have been recently introduced and the following filters:

duplicate_scalar_to_axis
reduce_axis_to_axis
reduce_scalar_to_scalar
reorder_domain
temporal_splitting.
File size: 8.7 KB
Line 
1! * ************************************************************************** *
2! *               Interface auto generated - do not modify                     *
3! * ************************************************************************** *
4#include "xios_fortran_prefix.hpp"
5
6MODULE ireorder_domain_attr
7  USE, INTRINSIC :: ISO_C_BINDING
8  USE ireorder_domain
9  USE reorder_domain_interface_attr
10
11CONTAINS
12
13  SUBROUTINE xios(set_reorder_domain_attr)  &
14    ( reorder_domain_id, invert_lat, max_lon, min_lon, shift_lon_fraction )
15
16    IMPLICIT NONE
17      TYPE(txios(reorder_domain))  :: reorder_domain_hdl
18      CHARACTER(LEN=*), INTENT(IN) ::reorder_domain_id
19      LOGICAL  , OPTIONAL, INTENT(IN) :: invert_lat
20      LOGICAL (KIND=C_BOOL) :: invert_lat_tmp
21      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: max_lon
22      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: min_lon
23      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: shift_lon_fraction
24
25      CALL xios(get_reorder_domain_handle) &
26      (reorder_domain_id,reorder_domain_hdl)
27      CALL xios(set_reorder_domain_attr_hdl_)   &
28      ( reorder_domain_hdl, invert_lat, max_lon, min_lon, shift_lon_fraction )
29
30  END SUBROUTINE xios(set_reorder_domain_attr)
31
32  SUBROUTINE xios(set_reorder_domain_attr_hdl)  &
33    ( reorder_domain_hdl, invert_lat, max_lon, min_lon, shift_lon_fraction )
34
35    IMPLICIT NONE
36      TYPE(txios(reorder_domain)) , INTENT(IN) :: reorder_domain_hdl
37      LOGICAL  , OPTIONAL, INTENT(IN) :: invert_lat
38      LOGICAL (KIND=C_BOOL) :: invert_lat_tmp
39      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: max_lon
40      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: min_lon
41      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: shift_lon_fraction
42
43      CALL xios(set_reorder_domain_attr_hdl_)  &
44      ( reorder_domain_hdl, invert_lat, max_lon, min_lon, shift_lon_fraction )
45
46  END SUBROUTINE xios(set_reorder_domain_attr_hdl)
47
48  SUBROUTINE xios(set_reorder_domain_attr_hdl_)   &
49    ( reorder_domain_hdl, invert_lat_, max_lon_, min_lon_, shift_lon_fraction_ )
50
51    IMPLICIT NONE
52      TYPE(txios(reorder_domain)) , INTENT(IN) :: reorder_domain_hdl
53      LOGICAL  , OPTIONAL, INTENT(IN) :: invert_lat_
54      LOGICAL (KIND=C_BOOL) :: invert_lat__tmp
55      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: max_lon_
56      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: min_lon_
57      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: shift_lon_fraction_
58
59      IF (PRESENT(invert_lat_)) THEN
60        invert_lat__tmp = invert_lat_
61        CALL cxios_set_reorder_domain_invert_lat &
62      (reorder_domain_hdl%daddr, invert_lat__tmp)
63      ENDIF
64
65      IF (PRESENT(max_lon_)) THEN
66        CALL cxios_set_reorder_domain_max_lon &
67      (reorder_domain_hdl%daddr, max_lon_)
68      ENDIF
69
70      IF (PRESENT(min_lon_)) THEN
71        CALL cxios_set_reorder_domain_min_lon &
72      (reorder_domain_hdl%daddr, min_lon_)
73      ENDIF
74
75      IF (PRESENT(shift_lon_fraction_)) THEN
76        CALL cxios_set_reorder_domain_shift_lon_fraction &
77      (reorder_domain_hdl%daddr, shift_lon_fraction_)
78      ENDIF
79
80  END SUBROUTINE xios(set_reorder_domain_attr_hdl_)
81
82  SUBROUTINE xios(get_reorder_domain_attr)  &
83    ( reorder_domain_id, invert_lat, max_lon, min_lon, shift_lon_fraction )
84
85    IMPLICIT NONE
86      TYPE(txios(reorder_domain))  :: reorder_domain_hdl
87      CHARACTER(LEN=*), INTENT(IN) ::reorder_domain_id
88      LOGICAL  , OPTIONAL, INTENT(OUT) :: invert_lat
89      LOGICAL (KIND=C_BOOL) :: invert_lat_tmp
90      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: max_lon
91      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: min_lon
92      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: shift_lon_fraction
93
94      CALL xios(get_reorder_domain_handle) &
95      (reorder_domain_id,reorder_domain_hdl)
96      CALL xios(get_reorder_domain_attr_hdl_)   &
97      ( reorder_domain_hdl, invert_lat, max_lon, min_lon, shift_lon_fraction )
98
99  END SUBROUTINE xios(get_reorder_domain_attr)
100
101  SUBROUTINE xios(get_reorder_domain_attr_hdl)  &
102    ( reorder_domain_hdl, invert_lat, max_lon, min_lon, shift_lon_fraction )
103
104    IMPLICIT NONE
105      TYPE(txios(reorder_domain)) , INTENT(IN) :: reorder_domain_hdl
106      LOGICAL  , OPTIONAL, INTENT(OUT) :: invert_lat
107      LOGICAL (KIND=C_BOOL) :: invert_lat_tmp
108      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: max_lon
109      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: min_lon
110      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: shift_lon_fraction
111
112      CALL xios(get_reorder_domain_attr_hdl_)  &
113      ( reorder_domain_hdl, invert_lat, max_lon, min_lon, shift_lon_fraction )
114
115  END SUBROUTINE xios(get_reorder_domain_attr_hdl)
116
117  SUBROUTINE xios(get_reorder_domain_attr_hdl_)   &
118    ( reorder_domain_hdl, invert_lat_, max_lon_, min_lon_, shift_lon_fraction_ )
119
120    IMPLICIT NONE
121      TYPE(txios(reorder_domain)) , INTENT(IN) :: reorder_domain_hdl
122      LOGICAL  , OPTIONAL, INTENT(OUT) :: invert_lat_
123      LOGICAL (KIND=C_BOOL) :: invert_lat__tmp
124      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: max_lon_
125      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: min_lon_
126      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: shift_lon_fraction_
127
128      IF (PRESENT(invert_lat_)) THEN
129        CALL cxios_get_reorder_domain_invert_lat &
130      (reorder_domain_hdl%daddr, invert_lat__tmp)
131        invert_lat_ = invert_lat__tmp
132      ENDIF
133
134      IF (PRESENT(max_lon_)) THEN
135        CALL cxios_get_reorder_domain_max_lon &
136      (reorder_domain_hdl%daddr, max_lon_)
137      ENDIF
138
139      IF (PRESENT(min_lon_)) THEN
140        CALL cxios_get_reorder_domain_min_lon &
141      (reorder_domain_hdl%daddr, min_lon_)
142      ENDIF
143
144      IF (PRESENT(shift_lon_fraction_)) THEN
145        CALL cxios_get_reorder_domain_shift_lon_fraction &
146      (reorder_domain_hdl%daddr, shift_lon_fraction_)
147      ENDIF
148
149  END SUBROUTINE xios(get_reorder_domain_attr_hdl_)
150
151  SUBROUTINE xios(is_defined_reorder_domain_attr)  &
152    ( reorder_domain_id, invert_lat, max_lon, min_lon, shift_lon_fraction )
153
154    IMPLICIT NONE
155      TYPE(txios(reorder_domain))  :: reorder_domain_hdl
156      CHARACTER(LEN=*), INTENT(IN) ::reorder_domain_id
157      LOGICAL, OPTIONAL, INTENT(OUT) :: invert_lat
158      LOGICAL(KIND=C_BOOL) :: invert_lat_tmp
159      LOGICAL, OPTIONAL, INTENT(OUT) :: max_lon
160      LOGICAL(KIND=C_BOOL) :: max_lon_tmp
161      LOGICAL, OPTIONAL, INTENT(OUT) :: min_lon
162      LOGICAL(KIND=C_BOOL) :: min_lon_tmp
163      LOGICAL, OPTIONAL, INTENT(OUT) :: shift_lon_fraction
164      LOGICAL(KIND=C_BOOL) :: shift_lon_fraction_tmp
165
166      CALL xios(get_reorder_domain_handle) &
167      (reorder_domain_id,reorder_domain_hdl)
168      CALL xios(is_defined_reorder_domain_attr_hdl_)   &
169      ( reorder_domain_hdl, invert_lat, max_lon, min_lon, shift_lon_fraction )
170
171  END SUBROUTINE xios(is_defined_reorder_domain_attr)
172
173  SUBROUTINE xios(is_defined_reorder_domain_attr_hdl)  &
174    ( reorder_domain_hdl, invert_lat, max_lon, min_lon, shift_lon_fraction )
175
176    IMPLICIT NONE
177      TYPE(txios(reorder_domain)) , INTENT(IN) :: reorder_domain_hdl
178      LOGICAL, OPTIONAL, INTENT(OUT) :: invert_lat
179      LOGICAL(KIND=C_BOOL) :: invert_lat_tmp
180      LOGICAL, OPTIONAL, INTENT(OUT) :: max_lon
181      LOGICAL(KIND=C_BOOL) :: max_lon_tmp
182      LOGICAL, OPTIONAL, INTENT(OUT) :: min_lon
183      LOGICAL(KIND=C_BOOL) :: min_lon_tmp
184      LOGICAL, OPTIONAL, INTENT(OUT) :: shift_lon_fraction
185      LOGICAL(KIND=C_BOOL) :: shift_lon_fraction_tmp
186
187      CALL xios(is_defined_reorder_domain_attr_hdl_)  &
188      ( reorder_domain_hdl, invert_lat, max_lon, min_lon, shift_lon_fraction )
189
190  END SUBROUTINE xios(is_defined_reorder_domain_attr_hdl)
191
192  SUBROUTINE xios(is_defined_reorder_domain_attr_hdl_)   &
193    ( reorder_domain_hdl, invert_lat_, max_lon_, min_lon_, shift_lon_fraction_ )
194
195    IMPLICIT NONE
196      TYPE(txios(reorder_domain)) , INTENT(IN) :: reorder_domain_hdl
197      LOGICAL, OPTIONAL, INTENT(OUT) :: invert_lat_
198      LOGICAL(KIND=C_BOOL) :: invert_lat__tmp
199      LOGICAL, OPTIONAL, INTENT(OUT) :: max_lon_
200      LOGICAL(KIND=C_BOOL) :: max_lon__tmp
201      LOGICAL, OPTIONAL, INTENT(OUT) :: min_lon_
202      LOGICAL(KIND=C_BOOL) :: min_lon__tmp
203      LOGICAL, OPTIONAL, INTENT(OUT) :: shift_lon_fraction_
204      LOGICAL(KIND=C_BOOL) :: shift_lon_fraction__tmp
205
206      IF (PRESENT(invert_lat_)) THEN
207        invert_lat__tmp = cxios_is_defined_reorder_domain_invert_lat &
208      (reorder_domain_hdl%daddr)
209        invert_lat_ = invert_lat__tmp
210      ENDIF
211
212      IF (PRESENT(max_lon_)) THEN
213        max_lon__tmp = cxios_is_defined_reorder_domain_max_lon &
214      (reorder_domain_hdl%daddr)
215        max_lon_ = max_lon__tmp
216      ENDIF
217
218      IF (PRESENT(min_lon_)) THEN
219        min_lon__tmp = cxios_is_defined_reorder_domain_min_lon &
220      (reorder_domain_hdl%daddr)
221        min_lon_ = min_lon__tmp
222      ENDIF
223
224      IF (PRESENT(shift_lon_fraction_)) THEN
225        shift_lon_fraction__tmp = cxios_is_defined_reorder_domain_shift_lon_fraction &
226      (reorder_domain_hdl%daddr)
227        shift_lon_fraction_ = shift_lon_fraction__tmp
228      ENDIF
229
230  END SUBROUTINE xios(is_defined_reorder_domain_attr_hdl_)
231
232END MODULE ireorder_domain_attr
Note: See TracBrowser for help on using the repository browser.