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

Last change on this file since 657 was 657, checked in by mhnguyen, 9 years ago

Making changes in domain to make sure unstructed grid work with new method of index distribution

+) Change the way define i_index and j_index of a domain
+) Remove some redundant attributes of domain
+) Adjust the way to calculate index distribution on server side

Test
+) Make some minor change to test_unstruct_complete to work with new XIOS
+) On Curie
+) All test pass and 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: 24.7 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(domain_hdl, bounds_lat, 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
39      INTEGER (kind = C_INT), VALUE  :: extent1
40      INTEGER (kind = C_INT), VALUE  :: extent2
41    END SUBROUTINE cxios_set_domain_bounds_lat
42
43    SUBROUTINE cxios_get_domain_bounds_lat(domain_hdl, bounds_lat, 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
47      INTEGER (kind = C_INT), VALUE  :: extent1
48      INTEGER (kind = C_INT), VALUE  :: extent2
49    END SUBROUTINE cxios_get_domain_bounds_lat
50
51    FUNCTION cxios_is_defined_domain_bounds_lat(domain_hdl) BIND(C)
52      USE ISO_C_BINDING
53      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_bounds_lat
54      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
55    END FUNCTION cxios_is_defined_domain_bounds_lat
56
57
58    SUBROUTINE cxios_set_domain_bounds_lon(domain_hdl, bounds_lon, extent1, extent2) BIND(C)
59      USE ISO_C_BINDING
60      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl
61      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: bounds_lon
62      INTEGER (kind = C_INT), VALUE  :: extent1
63      INTEGER (kind = C_INT), VALUE  :: extent2
64    END SUBROUTINE cxios_set_domain_bounds_lon
65
66    SUBROUTINE cxios_get_domain_bounds_lon(domain_hdl, bounds_lon, extent1, extent2) BIND(C)
67      USE ISO_C_BINDING
68      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl
69      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: bounds_lon
70      INTEGER (kind = C_INT), VALUE  :: extent1
71      INTEGER (kind = C_INT), VALUE  :: extent2
72    END SUBROUTINE cxios_get_domain_bounds_lon
73
74    FUNCTION cxios_is_defined_domain_bounds_lon(domain_hdl) BIND(C)
75      USE ISO_C_BINDING
76      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_bounds_lon
77      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
78    END FUNCTION cxios_is_defined_domain_bounds_lon
79
80
81    SUBROUTINE cxios_set_domain_data_dim(domain_hdl, data_dim) BIND(C)
82      USE ISO_C_BINDING
83      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
84      INTEGER (KIND=C_INT)      , VALUE :: data_dim
85    END SUBROUTINE cxios_set_domain_data_dim
86
87    SUBROUTINE cxios_get_domain_data_dim(domain_hdl, data_dim) BIND(C)
88      USE ISO_C_BINDING
89      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
90      INTEGER (KIND=C_INT)             :: data_dim
91    END SUBROUTINE cxios_get_domain_data_dim
92
93    FUNCTION cxios_is_defined_domain_data_dim(domain_hdl) BIND(C)
94      USE ISO_C_BINDING
95      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_data_dim
96      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
97    END FUNCTION cxios_is_defined_domain_data_dim
98
99
100    SUBROUTINE cxios_set_domain_data_i_index(domain_hdl, data_i_index, extent1) BIND(C)
101      USE ISO_C_BINDING
102      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl
103      INTEGER (KIND=C_INT)     , DIMENSION(*) :: data_i_index
104      INTEGER (kind = C_INT), VALUE  :: extent1
105    END SUBROUTINE cxios_set_domain_data_i_index
106
107    SUBROUTINE cxios_get_domain_data_i_index(domain_hdl, data_i_index, extent1) BIND(C)
108      USE ISO_C_BINDING
109      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl
110      INTEGER (KIND=C_INT)     , DIMENSION(*) :: data_i_index
111      INTEGER (kind = C_INT), VALUE  :: extent1
112    END SUBROUTINE cxios_get_domain_data_i_index
113
114    FUNCTION cxios_is_defined_domain_data_i_index(domain_hdl) BIND(C)
115      USE ISO_C_BINDING
116      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_data_i_index
117      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
118    END FUNCTION cxios_is_defined_domain_data_i_index
119
120
121    SUBROUTINE cxios_set_domain_data_ibegin(domain_hdl, data_ibegin) BIND(C)
122      USE ISO_C_BINDING
123      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
124      INTEGER (KIND=C_INT)      , VALUE :: data_ibegin
125    END SUBROUTINE cxios_set_domain_data_ibegin
126
127    SUBROUTINE cxios_get_domain_data_ibegin(domain_hdl, data_ibegin) BIND(C)
128      USE ISO_C_BINDING
129      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
130      INTEGER (KIND=C_INT)             :: data_ibegin
131    END SUBROUTINE cxios_get_domain_data_ibegin
132
133    FUNCTION cxios_is_defined_domain_data_ibegin(domain_hdl) BIND(C)
134      USE ISO_C_BINDING
135      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_data_ibegin
136      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
137    END FUNCTION cxios_is_defined_domain_data_ibegin
138
139
140    SUBROUTINE cxios_set_domain_data_j_index(domain_hdl, data_j_index, extent1) BIND(C)
141      USE ISO_C_BINDING
142      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl
143      INTEGER (KIND=C_INT)     , DIMENSION(*) :: data_j_index
144      INTEGER (kind = C_INT), VALUE  :: extent1
145    END SUBROUTINE cxios_set_domain_data_j_index
146
147    SUBROUTINE cxios_get_domain_data_j_index(domain_hdl, data_j_index, extent1) BIND(C)
148      USE ISO_C_BINDING
149      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl
150      INTEGER (KIND=C_INT)     , DIMENSION(*) :: data_j_index
151      INTEGER (kind = C_INT), VALUE  :: extent1
152    END SUBROUTINE cxios_get_domain_data_j_index
153
154    FUNCTION cxios_is_defined_domain_data_j_index(domain_hdl) BIND(C)
155      USE ISO_C_BINDING
156      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_data_j_index
157      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
158    END FUNCTION cxios_is_defined_domain_data_j_index
159
160
161    SUBROUTINE cxios_set_domain_data_jbegin(domain_hdl, data_jbegin) BIND(C)
162      USE ISO_C_BINDING
163      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
164      INTEGER (KIND=C_INT)      , VALUE :: data_jbegin
165    END SUBROUTINE cxios_set_domain_data_jbegin
166
167    SUBROUTINE cxios_get_domain_data_jbegin(domain_hdl, data_jbegin) BIND(C)
168      USE ISO_C_BINDING
169      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
170      INTEGER (KIND=C_INT)             :: data_jbegin
171    END SUBROUTINE cxios_get_domain_data_jbegin
172
173    FUNCTION cxios_is_defined_domain_data_jbegin(domain_hdl) BIND(C)
174      USE ISO_C_BINDING
175      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_data_jbegin
176      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
177    END FUNCTION cxios_is_defined_domain_data_jbegin
178
179
180    SUBROUTINE cxios_set_domain_data_n_index(domain_hdl, data_n_index) BIND(C)
181      USE ISO_C_BINDING
182      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
183      INTEGER (KIND=C_INT)      , VALUE :: data_n_index
184    END SUBROUTINE cxios_set_domain_data_n_index
185
186    SUBROUTINE cxios_get_domain_data_n_index(domain_hdl, data_n_index) BIND(C)
187      USE ISO_C_BINDING
188      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
189      INTEGER (KIND=C_INT)             :: data_n_index
190    END SUBROUTINE cxios_get_domain_data_n_index
191
192    FUNCTION cxios_is_defined_domain_data_n_index(domain_hdl) BIND(C)
193      USE ISO_C_BINDING
194      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_data_n_index
195      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
196    END FUNCTION cxios_is_defined_domain_data_n_index
197
198
199    SUBROUTINE cxios_set_domain_data_ni(domain_hdl, data_ni) BIND(C)
200      USE ISO_C_BINDING
201      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
202      INTEGER (KIND=C_INT)      , VALUE :: data_ni
203    END SUBROUTINE cxios_set_domain_data_ni
204
205    SUBROUTINE cxios_get_domain_data_ni(domain_hdl, data_ni) BIND(C)
206      USE ISO_C_BINDING
207      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
208      INTEGER (KIND=C_INT)             :: data_ni
209    END SUBROUTINE cxios_get_domain_data_ni
210
211    FUNCTION cxios_is_defined_domain_data_ni(domain_hdl) BIND(C)
212      USE ISO_C_BINDING
213      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_data_ni
214      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
215    END FUNCTION cxios_is_defined_domain_data_ni
216
217
218    SUBROUTINE cxios_set_domain_data_nj(domain_hdl, data_nj) BIND(C)
219      USE ISO_C_BINDING
220      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
221      INTEGER (KIND=C_INT)      , VALUE :: data_nj
222    END SUBROUTINE cxios_set_domain_data_nj
223
224    SUBROUTINE cxios_get_domain_data_nj(domain_hdl, data_nj) BIND(C)
225      USE ISO_C_BINDING
226      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
227      INTEGER (KIND=C_INT)             :: data_nj
228    END SUBROUTINE cxios_get_domain_data_nj
229
230    FUNCTION cxios_is_defined_domain_data_nj(domain_hdl) BIND(C)
231      USE ISO_C_BINDING
232      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_data_nj
233      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
234    END FUNCTION cxios_is_defined_domain_data_nj
235
236
237    SUBROUTINE cxios_set_domain_domain_group_ref(domain_hdl, domain_group_ref, domain_group_ref_size) BIND(C)
238      USE ISO_C_BINDING
239      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
240      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: domain_group_ref
241      INTEGER  (kind = C_INT)     , VALUE        :: domain_group_ref_size
242    END SUBROUTINE cxios_set_domain_domain_group_ref
243
244    SUBROUTINE cxios_get_domain_domain_group_ref(domain_hdl, domain_group_ref, domain_group_ref_size) BIND(C)
245      USE ISO_C_BINDING
246      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
247      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: domain_group_ref
248      INTEGER  (kind = C_INT)     , VALUE        :: domain_group_ref_size
249    END SUBROUTINE cxios_get_domain_domain_group_ref
250
251    FUNCTION cxios_is_defined_domain_domain_group_ref(domain_hdl) BIND(C)
252      USE ISO_C_BINDING
253      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_domain_group_ref
254      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
255    END FUNCTION cxios_is_defined_domain_domain_group_ref
256
257
258    SUBROUTINE cxios_set_domain_domain_ref(domain_hdl, domain_ref, domain_ref_size) BIND(C)
259      USE ISO_C_BINDING
260      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
261      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: domain_ref
262      INTEGER  (kind = C_INT)     , VALUE        :: domain_ref_size
263    END SUBROUTINE cxios_set_domain_domain_ref
264
265    SUBROUTINE cxios_get_domain_domain_ref(domain_hdl, domain_ref, domain_ref_size) BIND(C)
266      USE ISO_C_BINDING
267      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
268      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: domain_ref
269      INTEGER  (kind = C_INT)     , VALUE        :: domain_ref_size
270    END SUBROUTINE cxios_get_domain_domain_ref
271
272    FUNCTION cxios_is_defined_domain_domain_ref(domain_hdl) BIND(C)
273      USE ISO_C_BINDING
274      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_domain_ref
275      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
276    END FUNCTION cxios_is_defined_domain_domain_ref
277
278
279    SUBROUTINE cxios_set_domain_i_index(domain_hdl, i_index, extent1) BIND(C)
280      USE ISO_C_BINDING
281      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl
282      INTEGER (KIND=C_INT)     , DIMENSION(*) :: i_index
283      INTEGER (kind = C_INT), VALUE  :: extent1
284    END SUBROUTINE cxios_set_domain_i_index
285
286    SUBROUTINE cxios_get_domain_i_index(domain_hdl, i_index, extent1) BIND(C)
287      USE ISO_C_BINDING
288      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl
289      INTEGER (KIND=C_INT)     , DIMENSION(*) :: i_index
290      INTEGER (kind = C_INT), VALUE  :: extent1
291    END SUBROUTINE cxios_get_domain_i_index
292
293    FUNCTION cxios_is_defined_domain_i_index(domain_hdl) BIND(C)
294      USE ISO_C_BINDING
295      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_i_index
296      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
297    END FUNCTION cxios_is_defined_domain_i_index
298
299
300    SUBROUTINE cxios_set_domain_ibegin(domain_hdl, ibegin) BIND(C)
301      USE ISO_C_BINDING
302      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
303      INTEGER (KIND=C_INT)      , VALUE :: ibegin
304    END SUBROUTINE cxios_set_domain_ibegin
305
306    SUBROUTINE cxios_get_domain_ibegin(domain_hdl, ibegin) BIND(C)
307      USE ISO_C_BINDING
308      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
309      INTEGER (KIND=C_INT)             :: ibegin
310    END SUBROUTINE cxios_get_domain_ibegin
311
312    FUNCTION cxios_is_defined_domain_ibegin(domain_hdl) BIND(C)
313      USE ISO_C_BINDING
314      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_ibegin
315      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
316    END FUNCTION cxios_is_defined_domain_ibegin
317
318
319    SUBROUTINE cxios_set_domain_j_index(domain_hdl, j_index, extent1) BIND(C)
320      USE ISO_C_BINDING
321      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl
322      INTEGER (KIND=C_INT)     , DIMENSION(*) :: j_index
323      INTEGER (kind = C_INT), VALUE  :: extent1
324    END SUBROUTINE cxios_set_domain_j_index
325
326    SUBROUTINE cxios_get_domain_j_index(domain_hdl, j_index, extent1) BIND(C)
327      USE ISO_C_BINDING
328      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl
329      INTEGER (KIND=C_INT)     , DIMENSION(*) :: j_index
330      INTEGER (kind = C_INT), VALUE  :: extent1
331    END SUBROUTINE cxios_get_domain_j_index
332
333    FUNCTION cxios_is_defined_domain_j_index(domain_hdl) BIND(C)
334      USE ISO_C_BINDING
335      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_j_index
336      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
337    END FUNCTION cxios_is_defined_domain_j_index
338
339
340    SUBROUTINE cxios_set_domain_jbegin(domain_hdl, jbegin) BIND(C)
341      USE ISO_C_BINDING
342      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
343      INTEGER (KIND=C_INT)      , VALUE :: jbegin
344    END SUBROUTINE cxios_set_domain_jbegin
345
346    SUBROUTINE cxios_get_domain_jbegin(domain_hdl, jbegin) BIND(C)
347      USE ISO_C_BINDING
348      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
349      INTEGER (KIND=C_INT)             :: jbegin
350    END SUBROUTINE cxios_get_domain_jbegin
351
352    FUNCTION cxios_is_defined_domain_jbegin(domain_hdl) BIND(C)
353      USE ISO_C_BINDING
354      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_jbegin
355      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
356    END FUNCTION cxios_is_defined_domain_jbegin
357
358
359    SUBROUTINE cxios_set_domain_latvalue(domain_hdl, latvalue, extent1) BIND(C)
360      USE ISO_C_BINDING
361      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl
362      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: latvalue
363      INTEGER (kind = C_INT), VALUE  :: extent1
364    END SUBROUTINE cxios_set_domain_latvalue
365
366    SUBROUTINE cxios_get_domain_latvalue(domain_hdl, latvalue, extent1) BIND(C)
367      USE ISO_C_BINDING
368      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl
369      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: latvalue
370      INTEGER (kind = C_INT), VALUE  :: extent1
371    END SUBROUTINE cxios_get_domain_latvalue
372
373    FUNCTION cxios_is_defined_domain_latvalue(domain_hdl) BIND(C)
374      USE ISO_C_BINDING
375      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_latvalue
376      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
377    END FUNCTION cxios_is_defined_domain_latvalue
378
379
380    SUBROUTINE cxios_set_domain_long_name(domain_hdl, long_name, long_name_size) BIND(C)
381      USE ISO_C_BINDING
382      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
383      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: long_name
384      INTEGER  (kind = C_INT)     , VALUE        :: long_name_size
385    END SUBROUTINE cxios_set_domain_long_name
386
387    SUBROUTINE cxios_get_domain_long_name(domain_hdl, long_name, long_name_size) BIND(C)
388      USE ISO_C_BINDING
389      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
390      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: long_name
391      INTEGER  (kind = C_INT)     , VALUE        :: long_name_size
392    END SUBROUTINE cxios_get_domain_long_name
393
394    FUNCTION cxios_is_defined_domain_long_name(domain_hdl) BIND(C)
395      USE ISO_C_BINDING
396      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_long_name
397      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
398    END FUNCTION cxios_is_defined_domain_long_name
399
400
401    SUBROUTINE cxios_set_domain_lonvalue(domain_hdl, lonvalue, extent1) BIND(C)
402      USE ISO_C_BINDING
403      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl
404      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: lonvalue
405      INTEGER (kind = C_INT), VALUE  :: extent1
406    END SUBROUTINE cxios_set_domain_lonvalue
407
408    SUBROUTINE cxios_get_domain_lonvalue(domain_hdl, lonvalue, extent1) BIND(C)
409      USE ISO_C_BINDING
410      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl
411      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: lonvalue
412      INTEGER (kind = C_INT), VALUE  :: extent1
413    END SUBROUTINE cxios_get_domain_lonvalue
414
415    FUNCTION cxios_is_defined_domain_lonvalue(domain_hdl) BIND(C)
416      USE ISO_C_BINDING
417      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_lonvalue
418      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
419    END FUNCTION cxios_is_defined_domain_lonvalue
420
421
422    SUBROUTINE cxios_set_domain_mask(domain_hdl, mask, extent1, extent2) BIND(C)
423      USE ISO_C_BINDING
424      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl
425      LOGICAL (KIND=C_BOOL)     , DIMENSION(*) :: mask
426      INTEGER (kind = C_INT), VALUE  :: extent1
427      INTEGER (kind = C_INT), VALUE  :: extent2
428    END SUBROUTINE cxios_set_domain_mask
429
430    SUBROUTINE cxios_get_domain_mask(domain_hdl, mask, extent1, extent2) BIND(C)
431      USE ISO_C_BINDING
432      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl
433      LOGICAL (KIND=C_BOOL)     , DIMENSION(*) :: mask
434      INTEGER (kind = C_INT), VALUE  :: extent1
435      INTEGER (kind = C_INT), VALUE  :: extent2
436    END SUBROUTINE cxios_get_domain_mask
437
438    FUNCTION cxios_is_defined_domain_mask(domain_hdl) BIND(C)
439      USE ISO_C_BINDING
440      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_mask
441      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
442    END FUNCTION cxios_is_defined_domain_mask
443
444
445    SUBROUTINE cxios_set_domain_name(domain_hdl, name, name_size) BIND(C)
446      USE ISO_C_BINDING
447      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
448      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name
449      INTEGER  (kind = C_INT)     , VALUE        :: name_size
450    END SUBROUTINE cxios_set_domain_name
451
452    SUBROUTINE cxios_get_domain_name(domain_hdl, name, name_size) BIND(C)
453      USE ISO_C_BINDING
454      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
455      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name
456      INTEGER  (kind = C_INT)     , VALUE        :: name_size
457    END SUBROUTINE cxios_get_domain_name
458
459    FUNCTION cxios_is_defined_domain_name(domain_hdl) BIND(C)
460      USE ISO_C_BINDING
461      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_name
462      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
463    END FUNCTION cxios_is_defined_domain_name
464
465
466    SUBROUTINE cxios_set_domain_ni(domain_hdl, ni) BIND(C)
467      USE ISO_C_BINDING
468      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
469      INTEGER (KIND=C_INT)      , VALUE :: ni
470    END SUBROUTINE cxios_set_domain_ni
471
472    SUBROUTINE cxios_get_domain_ni(domain_hdl, ni) BIND(C)
473      USE ISO_C_BINDING
474      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
475      INTEGER (KIND=C_INT)             :: ni
476    END SUBROUTINE cxios_get_domain_ni
477
478    FUNCTION cxios_is_defined_domain_ni(domain_hdl) BIND(C)
479      USE ISO_C_BINDING
480      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_ni
481      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
482    END FUNCTION cxios_is_defined_domain_ni
483
484
485    SUBROUTINE cxios_set_domain_ni_glo(domain_hdl, ni_glo) BIND(C)
486      USE ISO_C_BINDING
487      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
488      INTEGER (KIND=C_INT)      , VALUE :: ni_glo
489    END SUBROUTINE cxios_set_domain_ni_glo
490
491    SUBROUTINE cxios_get_domain_ni_glo(domain_hdl, ni_glo) BIND(C)
492      USE ISO_C_BINDING
493      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
494      INTEGER (KIND=C_INT)             :: ni_glo
495    END SUBROUTINE cxios_get_domain_ni_glo
496
497    FUNCTION cxios_is_defined_domain_ni_glo(domain_hdl) BIND(C)
498      USE ISO_C_BINDING
499      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_ni_glo
500      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
501    END FUNCTION cxios_is_defined_domain_ni_glo
502
503
504    SUBROUTINE cxios_set_domain_nj(domain_hdl, nj) BIND(C)
505      USE ISO_C_BINDING
506      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
507      INTEGER (KIND=C_INT)      , VALUE :: nj
508    END SUBROUTINE cxios_set_domain_nj
509
510    SUBROUTINE cxios_get_domain_nj(domain_hdl, nj) BIND(C)
511      USE ISO_C_BINDING
512      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
513      INTEGER (KIND=C_INT)             :: nj
514    END SUBROUTINE cxios_get_domain_nj
515
516    FUNCTION cxios_is_defined_domain_nj(domain_hdl) BIND(C)
517      USE ISO_C_BINDING
518      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_nj
519      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
520    END FUNCTION cxios_is_defined_domain_nj
521
522
523    SUBROUTINE cxios_set_domain_nj_glo(domain_hdl, nj_glo) BIND(C)
524      USE ISO_C_BINDING
525      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
526      INTEGER (KIND=C_INT)      , VALUE :: nj_glo
527    END SUBROUTINE cxios_set_domain_nj_glo
528
529    SUBROUTINE cxios_get_domain_nj_glo(domain_hdl, nj_glo) BIND(C)
530      USE ISO_C_BINDING
531      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
532      INTEGER (KIND=C_INT)             :: nj_glo
533    END SUBROUTINE cxios_get_domain_nj_glo
534
535    FUNCTION cxios_is_defined_domain_nj_glo(domain_hdl) BIND(C)
536      USE ISO_C_BINDING
537      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_nj_glo
538      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
539    END FUNCTION cxios_is_defined_domain_nj_glo
540
541
542    SUBROUTINE cxios_set_domain_nvertex(domain_hdl, nvertex) BIND(C)
543      USE ISO_C_BINDING
544      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
545      INTEGER (KIND=C_INT)      , VALUE :: nvertex
546    END SUBROUTINE cxios_set_domain_nvertex
547
548    SUBROUTINE cxios_get_domain_nvertex(domain_hdl, nvertex) BIND(C)
549      USE ISO_C_BINDING
550      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
551      INTEGER (KIND=C_INT)             :: nvertex
552    END SUBROUTINE cxios_get_domain_nvertex
553
554    FUNCTION cxios_is_defined_domain_nvertex(domain_hdl) BIND(C)
555      USE ISO_C_BINDING
556      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_nvertex
557      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
558    END FUNCTION cxios_is_defined_domain_nvertex
559
560
561    SUBROUTINE cxios_set_domain_standard_name(domain_hdl, standard_name, standard_name_size) BIND(C)
562      USE ISO_C_BINDING
563      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
564      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: standard_name
565      INTEGER  (kind = C_INT)     , VALUE        :: standard_name_size
566    END SUBROUTINE cxios_set_domain_standard_name
567
568    SUBROUTINE cxios_get_domain_standard_name(domain_hdl, standard_name, standard_name_size) BIND(C)
569      USE ISO_C_BINDING
570      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
571      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: standard_name
572      INTEGER  (kind = C_INT)     , VALUE        :: standard_name_size
573    END SUBROUTINE cxios_get_domain_standard_name
574
575    FUNCTION cxios_is_defined_domain_standard_name(domain_hdl) BIND(C)
576      USE ISO_C_BINDING
577      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_standard_name
578      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
579    END FUNCTION cxios_is_defined_domain_standard_name
580
581
582    SUBROUTINE cxios_set_domain_type(domain_hdl, type, type_size) BIND(C)
583      USE ISO_C_BINDING
584      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
585      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: type
586      INTEGER  (kind = C_INT)     , VALUE        :: type_size
587    END SUBROUTINE cxios_set_domain_type
588
589    SUBROUTINE cxios_get_domain_type(domain_hdl, type, type_size) BIND(C)
590      USE ISO_C_BINDING
591      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
592      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: type
593      INTEGER  (kind = C_INT)     , VALUE        :: type_size
594    END SUBROUTINE cxios_get_domain_type
595
596    FUNCTION cxios_is_defined_domain_type(domain_hdl) BIND(C)
597      USE ISO_C_BINDING
598      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_type
599      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
600    END FUNCTION cxios_is_defined_domain_type
601
602  END INTERFACE
603
604END MODULE domain_interface_attr
Note: See TracBrowser for help on using the repository browser.