source: XIOS/branchs/xios-1.0/src/interface/fortran_attr/domain_interface_attr.f90 @ 611

Last change on this file since 611 was 611, checked in by rlacroix, 9 years ago

Improve CF compliance: Add a new domain attribute "area".

Fixes ticket #68.
  • 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: 32.1 KB
Line 
1! * ************************************************************************** *
2! *               Interface auto generated - do not modify                     *
3! * ************************************************************************** *
4
5MODULE domain_interface_attr
6  USE, INTRINSIC :: ISO_C_BINDING
7 
8  INTERFACE ! Do not call directly / interface FORTRAN 2003 <-> C99
9   
10   
11    SUBROUTINE cxios_set_domain_area(domain_hdl, area, extent1, extent2) BIND(C)
12      USE ISO_C_BINDING
13      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl
14      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: area
15      INTEGER (kind = C_INT), VALUE  :: extent1
16      INTEGER (kind = C_INT), VALUE  :: extent2
17    END SUBROUTINE cxios_set_domain_area
18   
19    SUBROUTINE cxios_get_domain_area(domain_hdl, area, extent1, extent2) BIND(C)
20      USE ISO_C_BINDING
21      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl
22      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: area
23      INTEGER (kind = C_INT), VALUE  :: extent1
24      INTEGER (kind = C_INT), VALUE  :: extent2
25    END SUBROUTINE cxios_get_domain_area
26   
27    FUNCTION cxios_is_defined_domain_area(domain_hdl ) BIND(C)
28      USE ISO_C_BINDING
29      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_area
30      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
31    END FUNCTION cxios_is_defined_domain_area
32   
33   
34    SUBROUTINE cxios_set_domain_bounds_lat(domain_hdl, bounds_lat, extent1, extent2) BIND(C)
35      USE ISO_C_BINDING
36      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl
37      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: bounds_lat
38      INTEGER (kind = C_INT), VALUE  :: extent1
39      INTEGER (kind = C_INT), VALUE  :: extent2
40    END SUBROUTINE cxios_set_domain_bounds_lat
41   
42    SUBROUTINE cxios_get_domain_bounds_lat(domain_hdl, bounds_lat, extent1, extent2) BIND(C)
43      USE ISO_C_BINDING
44      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl
45      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: bounds_lat
46      INTEGER (kind = C_INT), VALUE  :: extent1
47      INTEGER (kind = C_INT), VALUE  :: extent2
48    END SUBROUTINE cxios_get_domain_bounds_lat
49   
50    FUNCTION cxios_is_defined_domain_bounds_lat(domain_hdl ) BIND(C)
51      USE ISO_C_BINDING
52      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_bounds_lat
53      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
54    END FUNCTION cxios_is_defined_domain_bounds_lat
55   
56   
57    SUBROUTINE cxios_set_domain_bounds_lon(domain_hdl, bounds_lon, extent1, extent2) BIND(C)
58      USE ISO_C_BINDING
59      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl
60      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: bounds_lon
61      INTEGER (kind = C_INT), VALUE  :: extent1
62      INTEGER (kind = C_INT), VALUE  :: extent2
63    END SUBROUTINE cxios_set_domain_bounds_lon
64   
65    SUBROUTINE cxios_get_domain_bounds_lon(domain_hdl, bounds_lon, extent1, extent2) BIND(C)
66      USE ISO_C_BINDING
67      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl
68      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: bounds_lon
69      INTEGER (kind = C_INT), VALUE  :: extent1
70      INTEGER (kind = C_INT), VALUE  :: extent2
71    END SUBROUTINE cxios_get_domain_bounds_lon
72   
73    FUNCTION cxios_is_defined_domain_bounds_lon(domain_hdl ) BIND(C)
74      USE ISO_C_BINDING
75      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_bounds_lon
76      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
77    END FUNCTION cxios_is_defined_domain_bounds_lon
78   
79   
80    SUBROUTINE cxios_set_domain_data_dim(domain_hdl, data_dim) BIND(C)
81      USE ISO_C_BINDING
82      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
83      INTEGER (KIND=C_INT)      , VALUE :: data_dim
84    END SUBROUTINE cxios_set_domain_data_dim
85   
86    SUBROUTINE cxios_get_domain_data_dim(domain_hdl, data_dim) BIND(C)
87      USE ISO_C_BINDING
88      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
89      INTEGER (KIND=C_INT)             :: data_dim
90    END SUBROUTINE cxios_get_domain_data_dim
91   
92    FUNCTION cxios_is_defined_domain_data_dim(domain_hdl ) BIND(C)
93      USE ISO_C_BINDING
94      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_data_dim
95      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
96    END FUNCTION cxios_is_defined_domain_data_dim
97   
98   
99    SUBROUTINE cxios_set_domain_data_i_index(domain_hdl, data_i_index, extent1) BIND(C)
100      USE ISO_C_BINDING
101      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl
102      INTEGER (KIND=C_INT)     , DIMENSION(*) :: data_i_index
103      INTEGER (kind = C_INT), VALUE  :: extent1
104    END SUBROUTINE cxios_set_domain_data_i_index
105   
106    SUBROUTINE cxios_get_domain_data_i_index(domain_hdl, data_i_index, extent1) BIND(C)
107      USE ISO_C_BINDING
108      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl
109      INTEGER (KIND=C_INT)     , DIMENSION(*) :: data_i_index
110      INTEGER (kind = C_INT), VALUE  :: extent1
111    END SUBROUTINE cxios_get_domain_data_i_index
112   
113    FUNCTION cxios_is_defined_domain_data_i_index(domain_hdl ) BIND(C)
114      USE ISO_C_BINDING
115      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_data_i_index
116      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
117    END FUNCTION cxios_is_defined_domain_data_i_index
118   
119   
120    SUBROUTINE cxios_set_domain_data_ibegin(domain_hdl, data_ibegin) BIND(C)
121      USE ISO_C_BINDING
122      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
123      INTEGER (KIND=C_INT)      , VALUE :: data_ibegin
124    END SUBROUTINE cxios_set_domain_data_ibegin
125   
126    SUBROUTINE cxios_get_domain_data_ibegin(domain_hdl, data_ibegin) BIND(C)
127      USE ISO_C_BINDING
128      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
129      INTEGER (KIND=C_INT)             :: data_ibegin
130    END SUBROUTINE cxios_get_domain_data_ibegin
131   
132    FUNCTION cxios_is_defined_domain_data_ibegin(domain_hdl ) BIND(C)
133      USE ISO_C_BINDING
134      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_data_ibegin
135      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
136    END FUNCTION cxios_is_defined_domain_data_ibegin
137   
138   
139    SUBROUTINE cxios_set_domain_data_j_index(domain_hdl, data_j_index, extent1) BIND(C)
140      USE ISO_C_BINDING
141      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl
142      INTEGER (KIND=C_INT)     , DIMENSION(*) :: data_j_index
143      INTEGER (kind = C_INT), VALUE  :: extent1
144    END SUBROUTINE cxios_set_domain_data_j_index
145   
146    SUBROUTINE cxios_get_domain_data_j_index(domain_hdl, data_j_index, extent1) BIND(C)
147      USE ISO_C_BINDING
148      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl
149      INTEGER (KIND=C_INT)     , DIMENSION(*) :: data_j_index
150      INTEGER (kind = C_INT), VALUE  :: extent1
151    END SUBROUTINE cxios_get_domain_data_j_index
152   
153    FUNCTION cxios_is_defined_domain_data_j_index(domain_hdl ) BIND(C)
154      USE ISO_C_BINDING
155      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_data_j_index
156      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
157    END FUNCTION cxios_is_defined_domain_data_j_index
158   
159   
160    SUBROUTINE cxios_set_domain_data_jbegin(domain_hdl, data_jbegin) BIND(C)
161      USE ISO_C_BINDING
162      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
163      INTEGER (KIND=C_INT)      , VALUE :: data_jbegin
164    END SUBROUTINE cxios_set_domain_data_jbegin
165   
166    SUBROUTINE cxios_get_domain_data_jbegin(domain_hdl, data_jbegin) BIND(C)
167      USE ISO_C_BINDING
168      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
169      INTEGER (KIND=C_INT)             :: data_jbegin
170    END SUBROUTINE cxios_get_domain_data_jbegin
171   
172    FUNCTION cxios_is_defined_domain_data_jbegin(domain_hdl ) BIND(C)
173      USE ISO_C_BINDING
174      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_data_jbegin
175      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
176    END FUNCTION cxios_is_defined_domain_data_jbegin
177   
178   
179    SUBROUTINE cxios_set_domain_data_n_index(domain_hdl, data_n_index) BIND(C)
180      USE ISO_C_BINDING
181      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
182      INTEGER (KIND=C_INT)      , VALUE :: data_n_index
183    END SUBROUTINE cxios_set_domain_data_n_index
184   
185    SUBROUTINE cxios_get_domain_data_n_index(domain_hdl, data_n_index) BIND(C)
186      USE ISO_C_BINDING
187      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
188      INTEGER (KIND=C_INT)             :: data_n_index
189    END SUBROUTINE cxios_get_domain_data_n_index
190   
191    FUNCTION cxios_is_defined_domain_data_n_index(domain_hdl ) BIND(C)
192      USE ISO_C_BINDING
193      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_data_n_index
194      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
195    END FUNCTION cxios_is_defined_domain_data_n_index
196   
197   
198    SUBROUTINE cxios_set_domain_data_ni(domain_hdl, data_ni) BIND(C)
199      USE ISO_C_BINDING
200      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
201      INTEGER (KIND=C_INT)      , VALUE :: data_ni
202    END SUBROUTINE cxios_set_domain_data_ni
203   
204    SUBROUTINE cxios_get_domain_data_ni(domain_hdl, data_ni) BIND(C)
205      USE ISO_C_BINDING
206      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
207      INTEGER (KIND=C_INT)             :: data_ni
208    END SUBROUTINE cxios_get_domain_data_ni
209   
210    FUNCTION cxios_is_defined_domain_data_ni(domain_hdl ) BIND(C)
211      USE ISO_C_BINDING
212      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_data_ni
213      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
214    END FUNCTION cxios_is_defined_domain_data_ni
215   
216   
217    SUBROUTINE cxios_set_domain_data_nj(domain_hdl, data_nj) BIND(C)
218      USE ISO_C_BINDING
219      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
220      INTEGER (KIND=C_INT)      , VALUE :: data_nj
221    END SUBROUTINE cxios_set_domain_data_nj
222   
223    SUBROUTINE cxios_get_domain_data_nj(domain_hdl, data_nj) BIND(C)
224      USE ISO_C_BINDING
225      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
226      INTEGER (KIND=C_INT)             :: data_nj
227    END SUBROUTINE cxios_get_domain_data_nj
228   
229    FUNCTION cxios_is_defined_domain_data_nj(domain_hdl ) BIND(C)
230      USE ISO_C_BINDING
231      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_data_nj
232      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
233    END FUNCTION cxios_is_defined_domain_data_nj
234   
235   
236    SUBROUTINE cxios_set_domain_domain_group_ref(domain_hdl, domain_group_ref, domain_group_ref_size) BIND(C)
237      USE ISO_C_BINDING
238      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
239      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: domain_group_ref
240      INTEGER  (kind = C_INT)     , VALUE        :: domain_group_ref_size
241    END SUBROUTINE cxios_set_domain_domain_group_ref
242   
243    SUBROUTINE cxios_get_domain_domain_group_ref(domain_hdl, domain_group_ref, domain_group_ref_size) BIND(C)
244      USE ISO_C_BINDING
245      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
246      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: domain_group_ref
247      INTEGER  (kind = C_INT)     , VALUE        :: domain_group_ref_size
248    END SUBROUTINE cxios_get_domain_domain_group_ref
249   
250    FUNCTION cxios_is_defined_domain_domain_group_ref(domain_hdl ) BIND(C)
251      USE ISO_C_BINDING
252      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_domain_group_ref
253      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
254    END FUNCTION cxios_is_defined_domain_domain_group_ref
255   
256   
257    SUBROUTINE cxios_set_domain_i_index(domain_hdl, i_index, extent1, extent2) BIND(C)
258      USE ISO_C_BINDING
259      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl
260      INTEGER (KIND=C_INT)     , DIMENSION(*) :: i_index
261      INTEGER (kind = C_INT), VALUE  :: extent1
262      INTEGER (kind = C_INT), VALUE  :: extent2
263    END SUBROUTINE cxios_set_domain_i_index
264   
265    SUBROUTINE cxios_get_domain_i_index(domain_hdl, i_index, extent1, extent2) BIND(C)
266      USE ISO_C_BINDING
267      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl
268      INTEGER (KIND=C_INT)     , DIMENSION(*) :: i_index
269      INTEGER (kind = C_INT), VALUE  :: extent1
270      INTEGER (kind = C_INT), VALUE  :: extent2
271    END SUBROUTINE cxios_get_domain_i_index
272   
273    FUNCTION cxios_is_defined_domain_i_index(domain_hdl ) BIND(C)
274      USE ISO_C_BINDING
275      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_i_index
276      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
277    END FUNCTION cxios_is_defined_domain_i_index
278   
279   
280    SUBROUTINE cxios_set_domain_ibegin(domain_hdl, ibegin) BIND(C)
281      USE ISO_C_BINDING
282      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
283      INTEGER (KIND=C_INT)      , VALUE :: ibegin
284    END SUBROUTINE cxios_set_domain_ibegin
285   
286    SUBROUTINE cxios_get_domain_ibegin(domain_hdl, ibegin) BIND(C)
287      USE ISO_C_BINDING
288      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
289      INTEGER (KIND=C_INT)             :: ibegin
290    END SUBROUTINE cxios_get_domain_ibegin
291   
292    FUNCTION cxios_is_defined_domain_ibegin(domain_hdl ) BIND(C)
293      USE ISO_C_BINDING
294      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_ibegin
295      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
296    END FUNCTION cxios_is_defined_domain_ibegin
297   
298   
299    SUBROUTINE cxios_set_domain_iend(domain_hdl, iend) BIND(C)
300      USE ISO_C_BINDING
301      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
302      INTEGER (KIND=C_INT)      , VALUE :: iend
303    END SUBROUTINE cxios_set_domain_iend
304   
305    SUBROUTINE cxios_get_domain_iend(domain_hdl, iend) BIND(C)
306      USE ISO_C_BINDING
307      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
308      INTEGER (KIND=C_INT)             :: iend
309    END SUBROUTINE cxios_get_domain_iend
310   
311    FUNCTION cxios_is_defined_domain_iend(domain_hdl ) BIND(C)
312      USE ISO_C_BINDING
313      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_iend
314      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
315    END FUNCTION cxios_is_defined_domain_iend
316   
317   
318    SUBROUTINE cxios_set_domain_j_index(domain_hdl, j_index, extent1, extent2) BIND(C)
319      USE ISO_C_BINDING
320      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl
321      INTEGER (KIND=C_INT)     , DIMENSION(*) :: j_index
322      INTEGER (kind = C_INT), VALUE  :: extent1
323      INTEGER (kind = C_INT), VALUE  :: extent2
324    END SUBROUTINE cxios_set_domain_j_index
325   
326    SUBROUTINE cxios_get_domain_j_index(domain_hdl, j_index, extent1, extent2) 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      INTEGER (kind = C_INT), VALUE  :: extent2
332    END SUBROUTINE cxios_get_domain_j_index
333   
334    FUNCTION cxios_is_defined_domain_j_index(domain_hdl ) BIND(C)
335      USE ISO_C_BINDING
336      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_j_index
337      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
338    END FUNCTION cxios_is_defined_domain_j_index
339   
340   
341    SUBROUTINE cxios_set_domain_jbegin(domain_hdl, jbegin) BIND(C)
342      USE ISO_C_BINDING
343      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
344      INTEGER (KIND=C_INT)      , VALUE :: jbegin
345    END SUBROUTINE cxios_set_domain_jbegin
346   
347    SUBROUTINE cxios_get_domain_jbegin(domain_hdl, jbegin) BIND(C)
348      USE ISO_C_BINDING
349      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
350      INTEGER (KIND=C_INT)             :: jbegin
351    END SUBROUTINE cxios_get_domain_jbegin
352   
353    FUNCTION cxios_is_defined_domain_jbegin(domain_hdl ) BIND(C)
354      USE ISO_C_BINDING
355      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_jbegin
356      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
357    END FUNCTION cxios_is_defined_domain_jbegin
358   
359   
360    SUBROUTINE cxios_set_domain_jend(domain_hdl, jend) BIND(C)
361      USE ISO_C_BINDING
362      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
363      INTEGER (KIND=C_INT)      , VALUE :: jend
364    END SUBROUTINE cxios_set_domain_jend
365   
366    SUBROUTINE cxios_get_domain_jend(domain_hdl, jend) BIND(C)
367      USE ISO_C_BINDING
368      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
369      INTEGER (KIND=C_INT)             :: jend
370    END SUBROUTINE cxios_get_domain_jend
371   
372    FUNCTION cxios_is_defined_domain_jend(domain_hdl ) BIND(C)
373      USE ISO_C_BINDING
374      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_jend
375      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
376    END FUNCTION cxios_is_defined_domain_jend
377   
378   
379    SUBROUTINE cxios_set_domain_latvalue(domain_hdl, latvalue, extent1) BIND(C)
380      USE ISO_C_BINDING
381      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl
382      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: latvalue
383      INTEGER (kind = C_INT), VALUE  :: extent1
384    END SUBROUTINE cxios_set_domain_latvalue
385   
386    SUBROUTINE cxios_get_domain_latvalue(domain_hdl, latvalue, extent1) BIND(C)
387      USE ISO_C_BINDING
388      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl
389      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: latvalue
390      INTEGER (kind = C_INT), VALUE  :: extent1
391    END SUBROUTINE cxios_get_domain_latvalue
392   
393    FUNCTION cxios_is_defined_domain_latvalue(domain_hdl ) BIND(C)
394      USE ISO_C_BINDING
395      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_latvalue
396      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
397    END FUNCTION cxios_is_defined_domain_latvalue
398   
399   
400    SUBROUTINE cxios_set_domain_long_name(domain_hdl, long_name, long_name_size) BIND(C)
401      USE ISO_C_BINDING
402      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
403      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: long_name
404      INTEGER  (kind = C_INT)     , VALUE        :: long_name_size
405    END SUBROUTINE cxios_set_domain_long_name
406   
407    SUBROUTINE cxios_get_domain_long_name(domain_hdl, long_name, long_name_size) BIND(C)
408      USE ISO_C_BINDING
409      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
410      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: long_name
411      INTEGER  (kind = C_INT)     , VALUE        :: long_name_size
412    END SUBROUTINE cxios_get_domain_long_name
413   
414    FUNCTION cxios_is_defined_domain_long_name(domain_hdl ) BIND(C)
415      USE ISO_C_BINDING
416      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_long_name
417      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
418    END FUNCTION cxios_is_defined_domain_long_name
419   
420   
421    SUBROUTINE cxios_set_domain_lonvalue(domain_hdl, lonvalue, extent1) BIND(C)
422      USE ISO_C_BINDING
423      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl
424      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: lonvalue
425      INTEGER (kind = C_INT), VALUE  :: extent1
426    END SUBROUTINE cxios_set_domain_lonvalue
427   
428    SUBROUTINE cxios_get_domain_lonvalue(domain_hdl, lonvalue, extent1) BIND(C)
429      USE ISO_C_BINDING
430      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl
431      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: lonvalue
432      INTEGER (kind = C_INT), VALUE  :: extent1
433    END SUBROUTINE cxios_get_domain_lonvalue
434   
435    FUNCTION cxios_is_defined_domain_lonvalue(domain_hdl ) BIND(C)
436      USE ISO_C_BINDING
437      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_lonvalue
438      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
439    END FUNCTION cxios_is_defined_domain_lonvalue
440   
441   
442    SUBROUTINE cxios_set_domain_mask(domain_hdl, mask, extent1, extent2) BIND(C)
443      USE ISO_C_BINDING
444      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl
445      LOGICAL (KIND=C_BOOL)     , DIMENSION(*) :: mask
446      INTEGER (kind = C_INT), VALUE  :: extent1
447      INTEGER (kind = C_INT), VALUE  :: extent2
448    END SUBROUTINE cxios_set_domain_mask
449   
450    SUBROUTINE cxios_get_domain_mask(domain_hdl, mask, extent1, extent2) BIND(C)
451      USE ISO_C_BINDING
452      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl
453      LOGICAL (KIND=C_BOOL)     , DIMENSION(*) :: mask
454      INTEGER (kind = C_INT), VALUE  :: extent1
455      INTEGER (kind = C_INT), VALUE  :: extent2
456    END SUBROUTINE cxios_get_domain_mask
457   
458    FUNCTION cxios_is_defined_domain_mask(domain_hdl ) BIND(C)
459      USE ISO_C_BINDING
460      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_mask
461      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
462    END FUNCTION cxios_is_defined_domain_mask
463   
464   
465    SUBROUTINE cxios_set_domain_name(domain_hdl, name, name_size) BIND(C)
466      USE ISO_C_BINDING
467      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
468      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name
469      INTEGER  (kind = C_INT)     , VALUE        :: name_size
470    END SUBROUTINE cxios_set_domain_name
471   
472    SUBROUTINE cxios_get_domain_name(domain_hdl, name, name_size) BIND(C)
473      USE ISO_C_BINDING
474      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
475      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name
476      INTEGER  (kind = C_INT)     , VALUE        :: name_size
477    END SUBROUTINE cxios_get_domain_name
478   
479    FUNCTION cxios_is_defined_domain_name(domain_hdl ) BIND(C)
480      USE ISO_C_BINDING
481      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_name
482      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
483    END FUNCTION cxios_is_defined_domain_name
484   
485   
486    SUBROUTINE cxios_set_domain_ni(domain_hdl, ni) BIND(C)
487      USE ISO_C_BINDING
488      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
489      INTEGER (KIND=C_INT)      , VALUE :: ni
490    END SUBROUTINE cxios_set_domain_ni
491   
492    SUBROUTINE cxios_get_domain_ni(domain_hdl, ni) BIND(C)
493      USE ISO_C_BINDING
494      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
495      INTEGER (KIND=C_INT)             :: ni
496    END SUBROUTINE cxios_get_domain_ni
497   
498    FUNCTION cxios_is_defined_domain_ni(domain_hdl ) BIND(C)
499      USE ISO_C_BINDING
500      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_ni
501      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
502    END FUNCTION cxios_is_defined_domain_ni
503   
504   
505    SUBROUTINE cxios_set_domain_ni_glo(domain_hdl, ni_glo) BIND(C)
506      USE ISO_C_BINDING
507      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
508      INTEGER (KIND=C_INT)      , VALUE :: ni_glo
509    END SUBROUTINE cxios_set_domain_ni_glo
510   
511    SUBROUTINE cxios_get_domain_ni_glo(domain_hdl, ni_glo) BIND(C)
512      USE ISO_C_BINDING
513      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
514      INTEGER (KIND=C_INT)             :: ni_glo
515    END SUBROUTINE cxios_get_domain_ni_glo
516   
517    FUNCTION cxios_is_defined_domain_ni_glo(domain_hdl ) BIND(C)
518      USE ISO_C_BINDING
519      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_ni_glo
520      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
521    END FUNCTION cxios_is_defined_domain_ni_glo
522   
523   
524    SUBROUTINE cxios_set_domain_nj(domain_hdl, nj) BIND(C)
525      USE ISO_C_BINDING
526      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
527      INTEGER (KIND=C_INT)      , VALUE :: nj
528    END SUBROUTINE cxios_set_domain_nj
529   
530    SUBROUTINE cxios_get_domain_nj(domain_hdl, nj) BIND(C)
531      USE ISO_C_BINDING
532      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
533      INTEGER (KIND=C_INT)             :: nj
534    END SUBROUTINE cxios_get_domain_nj
535   
536    FUNCTION cxios_is_defined_domain_nj(domain_hdl ) BIND(C)
537      USE ISO_C_BINDING
538      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_nj
539      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
540    END FUNCTION cxios_is_defined_domain_nj
541   
542   
543    SUBROUTINE cxios_set_domain_nj_glo(domain_hdl, nj_glo) BIND(C)
544      USE ISO_C_BINDING
545      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
546      INTEGER (KIND=C_INT)      , VALUE :: nj_glo
547    END SUBROUTINE cxios_set_domain_nj_glo
548   
549    SUBROUTINE cxios_get_domain_nj_glo(domain_hdl, nj_glo) BIND(C)
550      USE ISO_C_BINDING
551      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
552      INTEGER (KIND=C_INT)             :: nj_glo
553    END SUBROUTINE cxios_get_domain_nj_glo
554   
555    FUNCTION cxios_is_defined_domain_nj_glo(domain_hdl ) BIND(C)
556      USE ISO_C_BINDING
557      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_nj_glo
558      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
559    END FUNCTION cxios_is_defined_domain_nj_glo
560   
561   
562    SUBROUTINE cxios_set_domain_nvertex(domain_hdl, nvertex) BIND(C)
563      USE ISO_C_BINDING
564      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
565      INTEGER (KIND=C_INT)      , VALUE :: nvertex
566    END SUBROUTINE cxios_set_domain_nvertex
567   
568    SUBROUTINE cxios_get_domain_nvertex(domain_hdl, nvertex) BIND(C)
569      USE ISO_C_BINDING
570      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
571      INTEGER (KIND=C_INT)             :: nvertex
572    END SUBROUTINE cxios_get_domain_nvertex
573   
574    FUNCTION cxios_is_defined_domain_nvertex(domain_hdl ) BIND(C)
575      USE ISO_C_BINDING
576      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_nvertex
577      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
578    END FUNCTION cxios_is_defined_domain_nvertex
579   
580   
581    SUBROUTINE cxios_set_domain_standard_name(domain_hdl, standard_name, standard_name_size) BIND(C)
582      USE ISO_C_BINDING
583      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
584      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: standard_name
585      INTEGER  (kind = C_INT)     , VALUE        :: standard_name_size
586    END SUBROUTINE cxios_set_domain_standard_name
587   
588    SUBROUTINE cxios_get_domain_standard_name(domain_hdl, standard_name, standard_name_size) BIND(C)
589      USE ISO_C_BINDING
590      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
591      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: standard_name
592      INTEGER  (kind = C_INT)     , VALUE        :: standard_name_size
593    END SUBROUTINE cxios_get_domain_standard_name
594   
595    FUNCTION cxios_is_defined_domain_standard_name(domain_hdl ) BIND(C)
596      USE ISO_C_BINDING
597      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_standard_name
598      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
599    END FUNCTION cxios_is_defined_domain_standard_name
600   
601   
602    SUBROUTINE cxios_set_domain_type(domain_hdl, type, type_size) BIND(C)
603      USE ISO_C_BINDING
604      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
605      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: type
606      INTEGER  (kind = C_INT)     , VALUE        :: type_size
607    END SUBROUTINE cxios_set_domain_type
608   
609    SUBROUTINE cxios_get_domain_type(domain_hdl, type, type_size) BIND(C)
610      USE ISO_C_BINDING
611      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
612      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: type
613      INTEGER  (kind = C_INT)     , VALUE        :: type_size
614    END SUBROUTINE cxios_get_domain_type
615   
616    FUNCTION cxios_is_defined_domain_type(domain_hdl ) BIND(C)
617      USE ISO_C_BINDING
618      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_type
619      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
620    END FUNCTION cxios_is_defined_domain_type
621   
622   
623    SUBROUTINE cxios_set_domain_zoom_ibegin(domain_hdl, zoom_ibegin) BIND(C)
624      USE ISO_C_BINDING
625      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
626      INTEGER (KIND=C_INT)      , VALUE :: zoom_ibegin
627    END SUBROUTINE cxios_set_domain_zoom_ibegin
628   
629    SUBROUTINE cxios_get_domain_zoom_ibegin(domain_hdl, zoom_ibegin) BIND(C)
630      USE ISO_C_BINDING
631      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
632      INTEGER (KIND=C_INT)             :: zoom_ibegin
633    END SUBROUTINE cxios_get_domain_zoom_ibegin
634   
635    FUNCTION cxios_is_defined_domain_zoom_ibegin(domain_hdl ) BIND(C)
636      USE ISO_C_BINDING
637      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_zoom_ibegin
638      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
639    END FUNCTION cxios_is_defined_domain_zoom_ibegin
640   
641   
642    SUBROUTINE cxios_set_domain_zoom_ibegin_loc(domain_hdl, zoom_ibegin_loc) BIND(C)
643      USE ISO_C_BINDING
644      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
645      INTEGER (KIND=C_INT)      , VALUE :: zoom_ibegin_loc
646    END SUBROUTINE cxios_set_domain_zoom_ibegin_loc
647   
648    SUBROUTINE cxios_get_domain_zoom_ibegin_loc(domain_hdl, zoom_ibegin_loc) BIND(C)
649      USE ISO_C_BINDING
650      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
651      INTEGER (KIND=C_INT)             :: zoom_ibegin_loc
652    END SUBROUTINE cxios_get_domain_zoom_ibegin_loc
653   
654    FUNCTION cxios_is_defined_domain_zoom_ibegin_loc(domain_hdl ) BIND(C)
655      USE ISO_C_BINDING
656      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_zoom_ibegin_loc
657      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
658    END FUNCTION cxios_is_defined_domain_zoom_ibegin_loc
659   
660   
661    SUBROUTINE cxios_set_domain_zoom_jbegin(domain_hdl, zoom_jbegin) BIND(C)
662      USE ISO_C_BINDING
663      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
664      INTEGER (KIND=C_INT)      , VALUE :: zoom_jbegin
665    END SUBROUTINE cxios_set_domain_zoom_jbegin
666   
667    SUBROUTINE cxios_get_domain_zoom_jbegin(domain_hdl, zoom_jbegin) BIND(C)
668      USE ISO_C_BINDING
669      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
670      INTEGER (KIND=C_INT)             :: zoom_jbegin
671    END SUBROUTINE cxios_get_domain_zoom_jbegin
672   
673    FUNCTION cxios_is_defined_domain_zoom_jbegin(domain_hdl ) BIND(C)
674      USE ISO_C_BINDING
675      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_zoom_jbegin
676      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
677    END FUNCTION cxios_is_defined_domain_zoom_jbegin
678   
679   
680    SUBROUTINE cxios_set_domain_zoom_jbegin_loc(domain_hdl, zoom_jbegin_loc) BIND(C)
681      USE ISO_C_BINDING
682      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
683      INTEGER (KIND=C_INT)      , VALUE :: zoom_jbegin_loc
684    END SUBROUTINE cxios_set_domain_zoom_jbegin_loc
685   
686    SUBROUTINE cxios_get_domain_zoom_jbegin_loc(domain_hdl, zoom_jbegin_loc) BIND(C)
687      USE ISO_C_BINDING
688      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
689      INTEGER (KIND=C_INT)             :: zoom_jbegin_loc
690    END SUBROUTINE cxios_get_domain_zoom_jbegin_loc
691   
692    FUNCTION cxios_is_defined_domain_zoom_jbegin_loc(domain_hdl ) BIND(C)
693      USE ISO_C_BINDING
694      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_zoom_jbegin_loc
695      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
696    END FUNCTION cxios_is_defined_domain_zoom_jbegin_loc
697   
698   
699    SUBROUTINE cxios_set_domain_zoom_ni(domain_hdl, zoom_ni) BIND(C)
700      USE ISO_C_BINDING
701      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
702      INTEGER (KIND=C_INT)      , VALUE :: zoom_ni
703    END SUBROUTINE cxios_set_domain_zoom_ni
704   
705    SUBROUTINE cxios_get_domain_zoom_ni(domain_hdl, zoom_ni) BIND(C)
706      USE ISO_C_BINDING
707      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
708      INTEGER (KIND=C_INT)             :: zoom_ni
709    END SUBROUTINE cxios_get_domain_zoom_ni
710   
711    FUNCTION cxios_is_defined_domain_zoom_ni(domain_hdl ) BIND(C)
712      USE ISO_C_BINDING
713      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_zoom_ni
714      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
715    END FUNCTION cxios_is_defined_domain_zoom_ni
716   
717   
718    SUBROUTINE cxios_set_domain_zoom_ni_loc(domain_hdl, zoom_ni_loc) BIND(C)
719      USE ISO_C_BINDING
720      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
721      INTEGER (KIND=C_INT)      , VALUE :: zoom_ni_loc
722    END SUBROUTINE cxios_set_domain_zoom_ni_loc
723   
724    SUBROUTINE cxios_get_domain_zoom_ni_loc(domain_hdl, zoom_ni_loc) BIND(C)
725      USE ISO_C_BINDING
726      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
727      INTEGER (KIND=C_INT)             :: zoom_ni_loc
728    END SUBROUTINE cxios_get_domain_zoom_ni_loc
729   
730    FUNCTION cxios_is_defined_domain_zoom_ni_loc(domain_hdl ) BIND(C)
731      USE ISO_C_BINDING
732      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_zoom_ni_loc
733      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
734    END FUNCTION cxios_is_defined_domain_zoom_ni_loc
735   
736   
737    SUBROUTINE cxios_set_domain_zoom_nj(domain_hdl, zoom_nj) BIND(C)
738      USE ISO_C_BINDING
739      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
740      INTEGER (KIND=C_INT)      , VALUE :: zoom_nj
741    END SUBROUTINE cxios_set_domain_zoom_nj
742   
743    SUBROUTINE cxios_get_domain_zoom_nj(domain_hdl, zoom_nj) BIND(C)
744      USE ISO_C_BINDING
745      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
746      INTEGER (KIND=C_INT)             :: zoom_nj
747    END SUBROUTINE cxios_get_domain_zoom_nj
748   
749    FUNCTION cxios_is_defined_domain_zoom_nj(domain_hdl ) BIND(C)
750      USE ISO_C_BINDING
751      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_zoom_nj
752      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
753    END FUNCTION cxios_is_defined_domain_zoom_nj
754   
755   
756    SUBROUTINE cxios_set_domain_zoom_nj_loc(domain_hdl, zoom_nj_loc) BIND(C)
757      USE ISO_C_BINDING
758      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
759      INTEGER (KIND=C_INT)      , VALUE :: zoom_nj_loc
760    END SUBROUTINE cxios_set_domain_zoom_nj_loc
761   
762    SUBROUTINE cxios_get_domain_zoom_nj_loc(domain_hdl, zoom_nj_loc) BIND(C)
763      USE ISO_C_BINDING
764      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
765      INTEGER (KIND=C_INT)             :: zoom_nj_loc
766    END SUBROUTINE cxios_get_domain_zoom_nj_loc
767   
768    FUNCTION cxios_is_defined_domain_zoom_nj_loc(domain_hdl ) BIND(C)
769      USE ISO_C_BINDING
770      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_zoom_nj_loc
771      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl
772    END FUNCTION cxios_is_defined_domain_zoom_nj_loc
773   
774   
775    END INTERFACE
776 
777END MODULE domain_interface_attr
Note: See TracBrowser for help on using the repository browser.