source: XIOS/trunk/src/interface/fortran_attr/domain_interface_attr.F90 @ 666

Last change on this file since 666 was 666, checked in by mhnguyen, 6 years ago

Change name of several axis attributes and remove some redundant variable of domain

+) Change name of axis attributes to make them consistent with ones of domain
+) Remove zoom_client_* of domain

Test
+) On Curie
+) All tests pass and are correct

  • Property copyright set to
    Software name : XIOS (Xml I/O Server)
    http://forge.ipsl.jussieu.fr/ioserver
    Creation date : January 2009
    Licence : CeCCIL version2
    see license file in root directory : Licence_CeCILL_V2-en.txt
    or http://www.cecill.info/licences/Licence_CeCILL_V2-en.html
    Holder : CEA/LSCE (Laboratoire des Sciences du CLimat et de l'Environnement)
    CNRS/IPSL (Institut Pierre Simon Laplace)
    Project Manager : Yann Meurdesoif
    yann.meurdesoif@cea.fr
File size: 29.3 KB
Line 
1! * ************************************************************************** *
2! *               Interface auto generated - do not modify                     *
3! * ************************************************************************** *
4#include "../fortran/xios_fortran_prefix.hpp"
5
6MODULE domain_interface_attr
7  USE, INTRINSIC :: ISO_C_BINDING
8
9  INTERFACE
10    ! Do not call directly / interface FORTRAN 2003 <-> C99
11
12    SUBROUTINE cxios_set_domain_area(domain_hdl, area, extent1, extent2) BIND(C)
13      USE ISO_C_BINDING
14      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl
15      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: area
16      INTEGER (kind = C_INT), VALUE  :: extent1
17      INTEGER (kind = C_INT), VALUE  :: extent2
18    END SUBROUTINE cxios_set_domain_area
19
20    SUBROUTINE cxios_get_domain_area(domain_hdl, area, extent1, extent2) BIND(C)
21      USE ISO_C_BINDING
22      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl
23      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: area
24      INTEGER (kind = C_INT), VALUE  :: extent1
25      INTEGER (kind = C_INT), VALUE  :: extent2
26    END SUBROUTINE cxios_get_domain_area
27
28    FUNCTION cxios_is_defined_domain_area(domain_hdl) BIND(C)
29      USE ISO_C_BINDING
30      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_area
31      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
32    END FUNCTION cxios_is_defined_domain_area
33
34
35    SUBROUTINE cxios_set_domain_bounds_lat_1d(domain_hdl, bounds_lat_1d, extent1, extent2) BIND(C)
36      USE ISO_C_BINDING
37      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl
38      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: bounds_lat_1d
39      INTEGER (kind = C_INT), VALUE  :: extent1
40      INTEGER (kind = C_INT), VALUE  :: extent2
41    END SUBROUTINE cxios_set_domain_bounds_lat_1d
42
43    SUBROUTINE cxios_get_domain_bounds_lat_1d(domain_hdl, bounds_lat_1d, extent1, extent2) BIND(C)
44      USE ISO_C_BINDING
45      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl
46      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: bounds_lat_1d
47      INTEGER (kind = C_INT), VALUE  :: extent1
48      INTEGER (kind = C_INT), VALUE  :: extent2
49    END SUBROUTINE cxios_get_domain_bounds_lat_1d
50
51    FUNCTION cxios_is_defined_domain_bounds_lat_1d(domain_hdl) BIND(C)
52      USE ISO_C_BINDING
53      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_bounds_lat_1d
54      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
55    END FUNCTION cxios_is_defined_domain_bounds_lat_1d
56
57
58    SUBROUTINE cxios_set_domain_bounds_lat_2d(domain_hdl, bounds_lat_2d, extent1, extent2, extent3) BIND(C)
59      USE ISO_C_BINDING
60      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl
61      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: bounds_lat_2d
62      INTEGER (kind = C_INT), VALUE  :: extent1
63      INTEGER (kind = C_INT), VALUE  :: extent2
64      INTEGER (kind = C_INT), VALUE  :: extent3
65    END SUBROUTINE cxios_set_domain_bounds_lat_2d
66
67    SUBROUTINE cxios_get_domain_bounds_lat_2d(domain_hdl, bounds_lat_2d, extent1, extent2, extent3) BIND(C)
68      USE ISO_C_BINDING
69      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl
70      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: bounds_lat_2d
71      INTEGER (kind = C_INT), VALUE  :: extent1
72      INTEGER (kind = C_INT), VALUE  :: extent2
73      INTEGER (kind = C_INT), VALUE  :: extent3
74    END SUBROUTINE cxios_get_domain_bounds_lat_2d
75
76    FUNCTION cxios_is_defined_domain_bounds_lat_2d(domain_hdl) BIND(C)
77      USE ISO_C_BINDING
78      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_bounds_lat_2d
79      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
80    END FUNCTION cxios_is_defined_domain_bounds_lat_2d
81
82
83    SUBROUTINE cxios_set_domain_bounds_lon_1d(domain_hdl, bounds_lon_1d, extent1, extent2) BIND(C)
84      USE ISO_C_BINDING
85      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl
86      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: bounds_lon_1d
87      INTEGER (kind = C_INT), VALUE  :: extent1
88      INTEGER (kind = C_INT), VALUE  :: extent2
89    END SUBROUTINE cxios_set_domain_bounds_lon_1d
90
91    SUBROUTINE cxios_get_domain_bounds_lon_1d(domain_hdl, bounds_lon_1d, extent1, extent2) BIND(C)
92      USE ISO_C_BINDING
93      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl
94      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: bounds_lon_1d
95      INTEGER (kind = C_INT), VALUE  :: extent1
96      INTEGER (kind = C_INT), VALUE  :: extent2
97    END SUBROUTINE cxios_get_domain_bounds_lon_1d
98
99    FUNCTION cxios_is_defined_domain_bounds_lon_1d(domain_hdl) BIND(C)
100      USE ISO_C_BINDING
101      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_bounds_lon_1d
102      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
103    END FUNCTION cxios_is_defined_domain_bounds_lon_1d
104
105
106    SUBROUTINE cxios_set_domain_bounds_lon_2d(domain_hdl, bounds_lon_2d, extent1, extent2, extent3) BIND(C)
107      USE ISO_C_BINDING
108      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl
109      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: bounds_lon_2d
110      INTEGER (kind = C_INT), VALUE  :: extent1
111      INTEGER (kind = C_INT), VALUE  :: extent2
112      INTEGER (kind = C_INT), VALUE  :: extent3
113    END SUBROUTINE cxios_set_domain_bounds_lon_2d
114
115    SUBROUTINE cxios_get_domain_bounds_lon_2d(domain_hdl, bounds_lon_2d, extent1, extent2, extent3) BIND(C)
116      USE ISO_C_BINDING
117      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl
118      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: bounds_lon_2d
119      INTEGER (kind = C_INT), VALUE  :: extent1
120      INTEGER (kind = C_INT), VALUE  :: extent2
121      INTEGER (kind = C_INT), VALUE  :: extent3
122    END SUBROUTINE cxios_get_domain_bounds_lon_2d
123
124    FUNCTION cxios_is_defined_domain_bounds_lon_2d(domain_hdl) BIND(C)
125      USE ISO_C_BINDING
126      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_bounds_lon_2d
127      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
128    END FUNCTION cxios_is_defined_domain_bounds_lon_2d
129
130
131    SUBROUTINE cxios_set_domain_data_dim(domain_hdl, data_dim) BIND(C)
132      USE ISO_C_BINDING
133      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
134      INTEGER (KIND=C_INT)      , VALUE :: data_dim
135    END SUBROUTINE cxios_set_domain_data_dim
136
137    SUBROUTINE cxios_get_domain_data_dim(domain_hdl, data_dim) BIND(C)
138      USE ISO_C_BINDING
139      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
140      INTEGER (KIND=C_INT)             :: data_dim
141    END SUBROUTINE cxios_get_domain_data_dim
142
143    FUNCTION cxios_is_defined_domain_data_dim(domain_hdl) BIND(C)
144      USE ISO_C_BINDING
145      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_data_dim
146      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
147    END FUNCTION cxios_is_defined_domain_data_dim
148
149
150    SUBROUTINE cxios_set_domain_data_i_index(domain_hdl, data_i_index, extent1) BIND(C)
151      USE ISO_C_BINDING
152      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl
153      INTEGER (KIND=C_INT)     , DIMENSION(*) :: data_i_index
154      INTEGER (kind = C_INT), VALUE  :: extent1
155    END SUBROUTINE cxios_set_domain_data_i_index
156
157    SUBROUTINE cxios_get_domain_data_i_index(domain_hdl, data_i_index, extent1) BIND(C)
158      USE ISO_C_BINDING
159      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl
160      INTEGER (KIND=C_INT)     , DIMENSION(*) :: data_i_index
161      INTEGER (kind = C_INT), VALUE  :: extent1
162    END SUBROUTINE cxios_get_domain_data_i_index
163
164    FUNCTION cxios_is_defined_domain_data_i_index(domain_hdl) BIND(C)
165      USE ISO_C_BINDING
166      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_data_i_index
167      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
168    END FUNCTION cxios_is_defined_domain_data_i_index
169
170
171    SUBROUTINE cxios_set_domain_data_ibegin(domain_hdl, data_ibegin) BIND(C)
172      USE ISO_C_BINDING
173      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
174      INTEGER (KIND=C_INT)      , VALUE :: data_ibegin
175    END SUBROUTINE cxios_set_domain_data_ibegin
176
177    SUBROUTINE cxios_get_domain_data_ibegin(domain_hdl, data_ibegin) BIND(C)
178      USE ISO_C_BINDING
179      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
180      INTEGER (KIND=C_INT)             :: data_ibegin
181    END SUBROUTINE cxios_get_domain_data_ibegin
182
183    FUNCTION cxios_is_defined_domain_data_ibegin(domain_hdl) BIND(C)
184      USE ISO_C_BINDING
185      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_data_ibegin
186      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
187    END FUNCTION cxios_is_defined_domain_data_ibegin
188
189
190    SUBROUTINE cxios_set_domain_data_j_index(domain_hdl, data_j_index, extent1) BIND(C)
191      USE ISO_C_BINDING
192      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl
193      INTEGER (KIND=C_INT)     , DIMENSION(*) :: data_j_index
194      INTEGER (kind = C_INT), VALUE  :: extent1
195    END SUBROUTINE cxios_set_domain_data_j_index
196
197    SUBROUTINE cxios_get_domain_data_j_index(domain_hdl, data_j_index, extent1) BIND(C)
198      USE ISO_C_BINDING
199      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl
200      INTEGER (KIND=C_INT)     , DIMENSION(*) :: data_j_index
201      INTEGER (kind = C_INT), VALUE  :: extent1
202    END SUBROUTINE cxios_get_domain_data_j_index
203
204    FUNCTION cxios_is_defined_domain_data_j_index(domain_hdl) BIND(C)
205      USE ISO_C_BINDING
206      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_data_j_index
207      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
208    END FUNCTION cxios_is_defined_domain_data_j_index
209
210
211    SUBROUTINE cxios_set_domain_data_jbegin(domain_hdl, data_jbegin) BIND(C)
212      USE ISO_C_BINDING
213      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
214      INTEGER (KIND=C_INT)      , VALUE :: data_jbegin
215    END SUBROUTINE cxios_set_domain_data_jbegin
216
217    SUBROUTINE cxios_get_domain_data_jbegin(domain_hdl, data_jbegin) BIND(C)
218      USE ISO_C_BINDING
219      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
220      INTEGER (KIND=C_INT)             :: data_jbegin
221    END SUBROUTINE cxios_get_domain_data_jbegin
222
223    FUNCTION cxios_is_defined_domain_data_jbegin(domain_hdl) BIND(C)
224      USE ISO_C_BINDING
225      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_data_jbegin
226      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
227    END FUNCTION cxios_is_defined_domain_data_jbegin
228
229
230    SUBROUTINE cxios_set_domain_data_ni(domain_hdl, data_ni) BIND(C)
231      USE ISO_C_BINDING
232      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
233      INTEGER (KIND=C_INT)      , VALUE :: data_ni
234    END SUBROUTINE cxios_set_domain_data_ni
235
236    SUBROUTINE cxios_get_domain_data_ni(domain_hdl, data_ni) BIND(C)
237      USE ISO_C_BINDING
238      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
239      INTEGER (KIND=C_INT)             :: data_ni
240    END SUBROUTINE cxios_get_domain_data_ni
241
242    FUNCTION cxios_is_defined_domain_data_ni(domain_hdl) BIND(C)
243      USE ISO_C_BINDING
244      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_data_ni
245      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
246    END FUNCTION cxios_is_defined_domain_data_ni
247
248
249    SUBROUTINE cxios_set_domain_data_nj(domain_hdl, data_nj) BIND(C)
250      USE ISO_C_BINDING
251      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
252      INTEGER (KIND=C_INT)      , VALUE :: data_nj
253    END SUBROUTINE cxios_set_domain_data_nj
254
255    SUBROUTINE cxios_get_domain_data_nj(domain_hdl, data_nj) BIND(C)
256      USE ISO_C_BINDING
257      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
258      INTEGER (KIND=C_INT)             :: data_nj
259    END SUBROUTINE cxios_get_domain_data_nj
260
261    FUNCTION cxios_is_defined_domain_data_nj(domain_hdl) BIND(C)
262      USE ISO_C_BINDING
263      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_data_nj
264      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
265    END FUNCTION cxios_is_defined_domain_data_nj
266
267
268    SUBROUTINE cxios_set_domain_domain_group_ref(domain_hdl, domain_group_ref, domain_group_ref_size) BIND(C)
269      USE ISO_C_BINDING
270      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
271      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: domain_group_ref
272      INTEGER  (kind = C_INT)     , VALUE        :: domain_group_ref_size
273    END SUBROUTINE cxios_set_domain_domain_group_ref
274
275    SUBROUTINE cxios_get_domain_domain_group_ref(domain_hdl, domain_group_ref, domain_group_ref_size) BIND(C)
276      USE ISO_C_BINDING
277      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
278      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: domain_group_ref
279      INTEGER  (kind = C_INT)     , VALUE        :: domain_group_ref_size
280    END SUBROUTINE cxios_get_domain_domain_group_ref
281
282    FUNCTION cxios_is_defined_domain_domain_group_ref(domain_hdl) BIND(C)
283      USE ISO_C_BINDING
284      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_domain_group_ref
285      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
286    END FUNCTION cxios_is_defined_domain_domain_group_ref
287
288
289    SUBROUTINE cxios_set_domain_domain_ref(domain_hdl, domain_ref, domain_ref_size) BIND(C)
290      USE ISO_C_BINDING
291      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
292      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: domain_ref
293      INTEGER  (kind = C_INT)     , VALUE        :: domain_ref_size
294    END SUBROUTINE cxios_set_domain_domain_ref
295
296    SUBROUTINE cxios_get_domain_domain_ref(domain_hdl, domain_ref, domain_ref_size) BIND(C)
297      USE ISO_C_BINDING
298      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
299      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: domain_ref
300      INTEGER  (kind = C_INT)     , VALUE        :: domain_ref_size
301    END SUBROUTINE cxios_get_domain_domain_ref
302
303    FUNCTION cxios_is_defined_domain_domain_ref(domain_hdl) BIND(C)
304      USE ISO_C_BINDING
305      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_domain_ref
306      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
307    END FUNCTION cxios_is_defined_domain_domain_ref
308
309
310    SUBROUTINE cxios_set_domain_i_index(domain_hdl, i_index, extent1) BIND(C)
311      USE ISO_C_BINDING
312      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl
313      INTEGER (KIND=C_INT)     , DIMENSION(*) :: i_index
314      INTEGER (kind = C_INT), VALUE  :: extent1
315    END SUBROUTINE cxios_set_domain_i_index
316
317    SUBROUTINE cxios_get_domain_i_index(domain_hdl, i_index, extent1) BIND(C)
318      USE ISO_C_BINDING
319      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl
320      INTEGER (KIND=C_INT)     , DIMENSION(*) :: i_index
321      INTEGER (kind = C_INT), VALUE  :: extent1
322    END SUBROUTINE cxios_get_domain_i_index
323
324    FUNCTION cxios_is_defined_domain_i_index(domain_hdl) BIND(C)
325      USE ISO_C_BINDING
326      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_i_index
327      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
328    END FUNCTION cxios_is_defined_domain_i_index
329
330
331    SUBROUTINE cxios_set_domain_ibegin(domain_hdl, ibegin) BIND(C)
332      USE ISO_C_BINDING
333      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
334      INTEGER (KIND=C_INT)      , VALUE :: ibegin
335    END SUBROUTINE cxios_set_domain_ibegin
336
337    SUBROUTINE cxios_get_domain_ibegin(domain_hdl, ibegin) BIND(C)
338      USE ISO_C_BINDING
339      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
340      INTEGER (KIND=C_INT)             :: ibegin
341    END SUBROUTINE cxios_get_domain_ibegin
342
343    FUNCTION cxios_is_defined_domain_ibegin(domain_hdl) BIND(C)
344      USE ISO_C_BINDING
345      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_ibegin
346      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
347    END FUNCTION cxios_is_defined_domain_ibegin
348
349
350    SUBROUTINE cxios_set_domain_j_index(domain_hdl, j_index, extent1) BIND(C)
351      USE ISO_C_BINDING
352      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl
353      INTEGER (KIND=C_INT)     , DIMENSION(*) :: j_index
354      INTEGER (kind = C_INT), VALUE  :: extent1
355    END SUBROUTINE cxios_set_domain_j_index
356
357    SUBROUTINE cxios_get_domain_j_index(domain_hdl, j_index, extent1) BIND(C)
358      USE ISO_C_BINDING
359      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl
360      INTEGER (KIND=C_INT)     , DIMENSION(*) :: j_index
361      INTEGER (kind = C_INT), VALUE  :: extent1
362    END SUBROUTINE cxios_get_domain_j_index
363
364    FUNCTION cxios_is_defined_domain_j_index(domain_hdl) BIND(C)
365      USE ISO_C_BINDING
366      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_j_index
367      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
368    END FUNCTION cxios_is_defined_domain_j_index
369
370
371    SUBROUTINE cxios_set_domain_jbegin(domain_hdl, jbegin) BIND(C)
372      USE ISO_C_BINDING
373      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
374      INTEGER (KIND=C_INT)      , VALUE :: jbegin
375    END SUBROUTINE cxios_set_domain_jbegin
376
377    SUBROUTINE cxios_get_domain_jbegin(domain_hdl, jbegin) BIND(C)
378      USE ISO_C_BINDING
379      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
380      INTEGER (KIND=C_INT)             :: jbegin
381    END SUBROUTINE cxios_get_domain_jbegin
382
383    FUNCTION cxios_is_defined_domain_jbegin(domain_hdl) BIND(C)
384      USE ISO_C_BINDING
385      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_jbegin
386      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
387    END FUNCTION cxios_is_defined_domain_jbegin
388
389
390    SUBROUTINE cxios_set_domain_latvalue_1d(domain_hdl, latvalue_1d, extent1) BIND(C)
391      USE ISO_C_BINDING
392      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl
393      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: latvalue_1d
394      INTEGER (kind = C_INT), VALUE  :: extent1
395    END SUBROUTINE cxios_set_domain_latvalue_1d
396
397    SUBROUTINE cxios_get_domain_latvalue_1d(domain_hdl, latvalue_1d, extent1) BIND(C)
398      USE ISO_C_BINDING
399      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl
400      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: latvalue_1d
401      INTEGER (kind = C_INT), VALUE  :: extent1
402    END SUBROUTINE cxios_get_domain_latvalue_1d
403
404    FUNCTION cxios_is_defined_domain_latvalue_1d(domain_hdl) BIND(C)
405      USE ISO_C_BINDING
406      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_latvalue_1d
407      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
408    END FUNCTION cxios_is_defined_domain_latvalue_1d
409
410
411    SUBROUTINE cxios_set_domain_latvalue_2d(domain_hdl, latvalue_2d, extent1, extent2) BIND(C)
412      USE ISO_C_BINDING
413      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl
414      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: latvalue_2d
415      INTEGER (kind = C_INT), VALUE  :: extent1
416      INTEGER (kind = C_INT), VALUE  :: extent2
417    END SUBROUTINE cxios_set_domain_latvalue_2d
418
419    SUBROUTINE cxios_get_domain_latvalue_2d(domain_hdl, latvalue_2d, extent1, extent2) BIND(C)
420      USE ISO_C_BINDING
421      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl
422      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: latvalue_2d
423      INTEGER (kind = C_INT), VALUE  :: extent1
424      INTEGER (kind = C_INT), VALUE  :: extent2
425    END SUBROUTINE cxios_get_domain_latvalue_2d
426
427    FUNCTION cxios_is_defined_domain_latvalue_2d(domain_hdl) BIND(C)
428      USE ISO_C_BINDING
429      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_latvalue_2d
430      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
431    END FUNCTION cxios_is_defined_domain_latvalue_2d
432
433
434    SUBROUTINE cxios_set_domain_long_name(domain_hdl, long_name, long_name_size) BIND(C)
435      USE ISO_C_BINDING
436      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
437      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: long_name
438      INTEGER  (kind = C_INT)     , VALUE        :: long_name_size
439    END SUBROUTINE cxios_set_domain_long_name
440
441    SUBROUTINE cxios_get_domain_long_name(domain_hdl, long_name, long_name_size) BIND(C)
442      USE ISO_C_BINDING
443      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
444      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: long_name
445      INTEGER  (kind = C_INT)     , VALUE        :: long_name_size
446    END SUBROUTINE cxios_get_domain_long_name
447
448    FUNCTION cxios_is_defined_domain_long_name(domain_hdl) BIND(C)
449      USE ISO_C_BINDING
450      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_long_name
451      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
452    END FUNCTION cxios_is_defined_domain_long_name
453
454
455    SUBROUTINE cxios_set_domain_lonvalue_1d(domain_hdl, lonvalue_1d, extent1) BIND(C)
456      USE ISO_C_BINDING
457      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl
458      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: lonvalue_1d
459      INTEGER (kind = C_INT), VALUE  :: extent1
460    END SUBROUTINE cxios_set_domain_lonvalue_1d
461
462    SUBROUTINE cxios_get_domain_lonvalue_1d(domain_hdl, lonvalue_1d, extent1) BIND(C)
463      USE ISO_C_BINDING
464      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl
465      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: lonvalue_1d
466      INTEGER (kind = C_INT), VALUE  :: extent1
467    END SUBROUTINE cxios_get_domain_lonvalue_1d
468
469    FUNCTION cxios_is_defined_domain_lonvalue_1d(domain_hdl) BIND(C)
470      USE ISO_C_BINDING
471      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_lonvalue_1d
472      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
473    END FUNCTION cxios_is_defined_domain_lonvalue_1d
474
475
476    SUBROUTINE cxios_set_domain_lonvalue_2d(domain_hdl, lonvalue_2d, extent1, extent2) BIND(C)
477      USE ISO_C_BINDING
478      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl
479      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: lonvalue_2d
480      INTEGER (kind = C_INT), VALUE  :: extent1
481      INTEGER (kind = C_INT), VALUE  :: extent2
482    END SUBROUTINE cxios_set_domain_lonvalue_2d
483
484    SUBROUTINE cxios_get_domain_lonvalue_2d(domain_hdl, lonvalue_2d, extent1, extent2) BIND(C)
485      USE ISO_C_BINDING
486      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl
487      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: lonvalue_2d
488      INTEGER (kind = C_INT), VALUE  :: extent1
489      INTEGER (kind = C_INT), VALUE  :: extent2
490    END SUBROUTINE cxios_get_domain_lonvalue_2d
491
492    FUNCTION cxios_is_defined_domain_lonvalue_2d(domain_hdl) BIND(C)
493      USE ISO_C_BINDING
494      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_lonvalue_2d
495      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
496    END FUNCTION cxios_is_defined_domain_lonvalue_2d
497
498
499    SUBROUTINE cxios_set_domain_mask_1d(domain_hdl, mask_1d, extent1) BIND(C)
500      USE ISO_C_BINDING
501      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl
502      LOGICAL (KIND=C_BOOL)     , DIMENSION(*) :: mask_1d
503      INTEGER (kind = C_INT), VALUE  :: extent1
504    END SUBROUTINE cxios_set_domain_mask_1d
505
506    SUBROUTINE cxios_get_domain_mask_1d(domain_hdl, mask_1d, extent1) BIND(C)
507      USE ISO_C_BINDING
508      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl
509      LOGICAL (KIND=C_BOOL)     , DIMENSION(*) :: mask_1d
510      INTEGER (kind = C_INT), VALUE  :: extent1
511    END SUBROUTINE cxios_get_domain_mask_1d
512
513    FUNCTION cxios_is_defined_domain_mask_1d(domain_hdl) BIND(C)
514      USE ISO_C_BINDING
515      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_mask_1d
516      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
517    END FUNCTION cxios_is_defined_domain_mask_1d
518
519
520    SUBROUTINE cxios_set_domain_mask_2d(domain_hdl, mask_2d, extent1, extent2) BIND(C)
521      USE ISO_C_BINDING
522      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl
523      LOGICAL (KIND=C_BOOL)     , DIMENSION(*) :: mask_2d
524      INTEGER (kind = C_INT), VALUE  :: extent1
525      INTEGER (kind = C_INT), VALUE  :: extent2
526    END SUBROUTINE cxios_set_domain_mask_2d
527
528    SUBROUTINE cxios_get_domain_mask_2d(domain_hdl, mask_2d, extent1, extent2) BIND(C)
529      USE ISO_C_BINDING
530      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl
531      LOGICAL (KIND=C_BOOL)     , DIMENSION(*) :: mask_2d
532      INTEGER (kind = C_INT), VALUE  :: extent1
533      INTEGER (kind = C_INT), VALUE  :: extent2
534    END SUBROUTINE cxios_get_domain_mask_2d
535
536    FUNCTION cxios_is_defined_domain_mask_2d(domain_hdl) BIND(C)
537      USE ISO_C_BINDING
538      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_mask_2d
539      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
540    END FUNCTION cxios_is_defined_domain_mask_2d
541
542
543    SUBROUTINE cxios_set_domain_name(domain_hdl, name, name_size) BIND(C)
544      USE ISO_C_BINDING
545      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
546      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name
547      INTEGER  (kind = C_INT)     , VALUE        :: name_size
548    END SUBROUTINE cxios_set_domain_name
549
550    SUBROUTINE cxios_get_domain_name(domain_hdl, name, name_size) BIND(C)
551      USE ISO_C_BINDING
552      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
553      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name
554      INTEGER  (kind = C_INT)     , VALUE        :: name_size
555    END SUBROUTINE cxios_get_domain_name
556
557    FUNCTION cxios_is_defined_domain_name(domain_hdl) BIND(C)
558      USE ISO_C_BINDING
559      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_name
560      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
561    END FUNCTION cxios_is_defined_domain_name
562
563
564    SUBROUTINE cxios_set_domain_ni(domain_hdl, ni) BIND(C)
565      USE ISO_C_BINDING
566      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
567      INTEGER (KIND=C_INT)      , VALUE :: ni
568    END SUBROUTINE cxios_set_domain_ni
569
570    SUBROUTINE cxios_get_domain_ni(domain_hdl, ni) BIND(C)
571      USE ISO_C_BINDING
572      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
573      INTEGER (KIND=C_INT)             :: ni
574    END SUBROUTINE cxios_get_domain_ni
575
576    FUNCTION cxios_is_defined_domain_ni(domain_hdl) BIND(C)
577      USE ISO_C_BINDING
578      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_ni
579      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
580    END FUNCTION cxios_is_defined_domain_ni
581
582
583    SUBROUTINE cxios_set_domain_ni_glo(domain_hdl, ni_glo) BIND(C)
584      USE ISO_C_BINDING
585      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
586      INTEGER (KIND=C_INT)      , VALUE :: ni_glo
587    END SUBROUTINE cxios_set_domain_ni_glo
588
589    SUBROUTINE cxios_get_domain_ni_glo(domain_hdl, ni_glo) BIND(C)
590      USE ISO_C_BINDING
591      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
592      INTEGER (KIND=C_INT)             :: ni_glo
593    END SUBROUTINE cxios_get_domain_ni_glo
594
595    FUNCTION cxios_is_defined_domain_ni_glo(domain_hdl) BIND(C)
596      USE ISO_C_BINDING
597      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_ni_glo
598      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
599    END FUNCTION cxios_is_defined_domain_ni_glo
600
601
602    SUBROUTINE cxios_set_domain_nj(domain_hdl, nj) BIND(C)
603      USE ISO_C_BINDING
604      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
605      INTEGER (KIND=C_INT)      , VALUE :: nj
606    END SUBROUTINE cxios_set_domain_nj
607
608    SUBROUTINE cxios_get_domain_nj(domain_hdl, nj) BIND(C)
609      USE ISO_C_BINDING
610      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
611      INTEGER (KIND=C_INT)             :: nj
612    END SUBROUTINE cxios_get_domain_nj
613
614    FUNCTION cxios_is_defined_domain_nj(domain_hdl) BIND(C)
615      USE ISO_C_BINDING
616      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_nj
617      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
618    END FUNCTION cxios_is_defined_domain_nj
619
620
621    SUBROUTINE cxios_set_domain_nj_glo(domain_hdl, nj_glo) BIND(C)
622      USE ISO_C_BINDING
623      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
624      INTEGER (KIND=C_INT)      , VALUE :: nj_glo
625    END SUBROUTINE cxios_set_domain_nj_glo
626
627    SUBROUTINE cxios_get_domain_nj_glo(domain_hdl, nj_glo) BIND(C)
628      USE ISO_C_BINDING
629      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
630      INTEGER (KIND=C_INT)             :: nj_glo
631    END SUBROUTINE cxios_get_domain_nj_glo
632
633    FUNCTION cxios_is_defined_domain_nj_glo(domain_hdl) BIND(C)
634      USE ISO_C_BINDING
635      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_nj_glo
636      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
637    END FUNCTION cxios_is_defined_domain_nj_glo
638
639
640    SUBROUTINE cxios_set_domain_nvertex(domain_hdl, nvertex) BIND(C)
641      USE ISO_C_BINDING
642      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
643      INTEGER (KIND=C_INT)      , VALUE :: nvertex
644    END SUBROUTINE cxios_set_domain_nvertex
645
646    SUBROUTINE cxios_get_domain_nvertex(domain_hdl, nvertex) BIND(C)
647      USE ISO_C_BINDING
648      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
649      INTEGER (KIND=C_INT)             :: nvertex
650    END SUBROUTINE cxios_get_domain_nvertex
651
652    FUNCTION cxios_is_defined_domain_nvertex(domain_hdl) BIND(C)
653      USE ISO_C_BINDING
654      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_nvertex
655      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
656    END FUNCTION cxios_is_defined_domain_nvertex
657
658
659    SUBROUTINE cxios_set_domain_standard_name(domain_hdl, standard_name, standard_name_size) BIND(C)
660      USE ISO_C_BINDING
661      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
662      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: standard_name
663      INTEGER  (kind = C_INT)     , VALUE        :: standard_name_size
664    END SUBROUTINE cxios_set_domain_standard_name
665
666    SUBROUTINE cxios_get_domain_standard_name(domain_hdl, standard_name, standard_name_size) BIND(C)
667      USE ISO_C_BINDING
668      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
669      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: standard_name
670      INTEGER  (kind = C_INT)     , VALUE        :: standard_name_size
671    END SUBROUTINE cxios_get_domain_standard_name
672
673    FUNCTION cxios_is_defined_domain_standard_name(domain_hdl) BIND(C)
674      USE ISO_C_BINDING
675      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_standard_name
676      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
677    END FUNCTION cxios_is_defined_domain_standard_name
678
679
680    SUBROUTINE cxios_set_domain_type(domain_hdl, type, type_size) BIND(C)
681      USE ISO_C_BINDING
682      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
683      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: type
684      INTEGER  (kind = C_INT)     , VALUE        :: type_size
685    END SUBROUTINE cxios_set_domain_type
686
687    SUBROUTINE cxios_get_domain_type(domain_hdl, type, type_size) BIND(C)
688      USE ISO_C_BINDING
689      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
690      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: type
691      INTEGER  (kind = C_INT)     , VALUE        :: type_size
692    END SUBROUTINE cxios_get_domain_type
693
694    FUNCTION cxios_is_defined_domain_type(domain_hdl) BIND(C)
695      USE ISO_C_BINDING
696      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_type
697      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
698    END FUNCTION cxios_is_defined_domain_type
699
700  END INTERFACE
701
702END MODULE domain_interface_attr
Note: See TracBrowser for help on using the repository browser.