source: XIOS/trunk/src/interface/fortran_attr/idomain_attr.F90 @ 1005

Last change on this file since 1005 was 966, checked in by mhnguyen, 8 years ago

Reducing length of line of auto-generate Fortran interface

+) Break line into smaller ones to make sure each line is not longer than 132 character

Test
+) Local with gcc4.8
+) Compilation passed
  • 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: 42.4 KB
Line 
1! * ************************************************************************** *
2! *               Interface auto generated - do not modify                     *
3! * ************************************************************************** *
4#include "xios_fortran_prefix.hpp"
5
6MODULE idomain_attr
7  USE, INTRINSIC :: ISO_C_BINDING
8  USE idomain
9  USE domain_interface_attr
10
11CONTAINS
12
13  SUBROUTINE xios(set_domain_attr)  &
14    ( domain_id, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim, data_i_index  &
15    , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, i_index, ibegin, j_index  &
16    , jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name  &
17    , ni, ni_glo, nj, nj_glo, nvertex, standard_name, type )
18
19    IMPLICIT NONE
20      TYPE(txios(domain))  :: domain_hdl
21      CHARACTER(LEN=*), INTENT(IN) ::domain_id
22      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: area(:,:)
23      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_1d(:,:)
24      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_2d(:,:,:)
25      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon_1d(:,:)
26      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon_2d(:,:,:)
27      INTEGER  , OPTIONAL, INTENT(IN) :: data_dim
28      INTEGER  , OPTIONAL, INTENT(IN) :: data_i_index(:)
29      INTEGER  , OPTIONAL, INTENT(IN) :: data_ibegin
30      INTEGER  , OPTIONAL, INTENT(IN) :: data_j_index(:)
31      INTEGER  , OPTIONAL, INTENT(IN) :: data_jbegin
32      INTEGER  , OPTIONAL, INTENT(IN) :: data_ni
33      INTEGER  , OPTIONAL, INTENT(IN) :: data_nj
34      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref
35      INTEGER  , OPTIONAL, INTENT(IN) :: i_index(:)
36      INTEGER  , OPTIONAL, INTENT(IN) :: ibegin
37      INTEGER  , OPTIONAL, INTENT(IN) :: j_index(:)
38      INTEGER  , OPTIONAL, INTENT(IN) :: jbegin
39      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: latvalue_1d(:)
40      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: latvalue_2d(:,:)
41      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name
42      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lonvalue_1d(:)
43      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lonvalue_2d(:,:)
44      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_1d(:)
45      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_1d_tmp(:)
46      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_2d(:,:)
47      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_2d_tmp(:,:)
48      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
49      INTEGER  , OPTIONAL, INTENT(IN) :: ni
50      INTEGER  , OPTIONAL, INTENT(IN) :: ni_glo
51      INTEGER  , OPTIONAL, INTENT(IN) :: nj
52      INTEGER  , OPTIONAL, INTENT(IN) :: nj_glo
53      INTEGER  , OPTIONAL, INTENT(IN) :: nvertex
54      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name
55      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type
56
57      CALL xios(get_domain_handle) &
58      (domain_id,domain_hdl)
59      CALL xios(set_domain_attr_hdl_)   &
60      ( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim, data_i_index  &
61      , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, i_index, ibegin, j_index  &
62      , jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name  &
63      , ni, ni_glo, nj, nj_glo, nvertex, standard_name, type )
64
65  END SUBROUTINE xios(set_domain_attr)
66
67  SUBROUTINE xios(set_domain_attr_hdl)  &
68    ( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim, data_i_index  &
69    , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, i_index, ibegin, j_index  &
70    , jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name  &
71    , ni, ni_glo, nj, nj_glo, nvertex, standard_name, type )
72
73    IMPLICIT NONE
74      TYPE(txios(domain)) , INTENT(IN) :: domain_hdl
75      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: area(:,:)
76      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_1d(:,:)
77      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_2d(:,:,:)
78      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon_1d(:,:)
79      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon_2d(:,:,:)
80      INTEGER  , OPTIONAL, INTENT(IN) :: data_dim
81      INTEGER  , OPTIONAL, INTENT(IN) :: data_i_index(:)
82      INTEGER  , OPTIONAL, INTENT(IN) :: data_ibegin
83      INTEGER  , OPTIONAL, INTENT(IN) :: data_j_index(:)
84      INTEGER  , OPTIONAL, INTENT(IN) :: data_jbegin
85      INTEGER  , OPTIONAL, INTENT(IN) :: data_ni
86      INTEGER  , OPTIONAL, INTENT(IN) :: data_nj
87      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref
88      INTEGER  , OPTIONAL, INTENT(IN) :: i_index(:)
89      INTEGER  , OPTIONAL, INTENT(IN) :: ibegin
90      INTEGER  , OPTIONAL, INTENT(IN) :: j_index(:)
91      INTEGER  , OPTIONAL, INTENT(IN) :: jbegin
92      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: latvalue_1d(:)
93      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: latvalue_2d(:,:)
94      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name
95      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lonvalue_1d(:)
96      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lonvalue_2d(:,:)
97      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_1d(:)
98      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_1d_tmp(:)
99      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_2d(:,:)
100      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_2d_tmp(:,:)
101      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
102      INTEGER  , OPTIONAL, INTENT(IN) :: ni
103      INTEGER  , OPTIONAL, INTENT(IN) :: ni_glo
104      INTEGER  , OPTIONAL, INTENT(IN) :: nj
105      INTEGER  , OPTIONAL, INTENT(IN) :: nj_glo
106      INTEGER  , OPTIONAL, INTENT(IN) :: nvertex
107      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name
108      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type
109
110      CALL xios(set_domain_attr_hdl_)  &
111      ( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim, data_i_index  &
112      , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, i_index, ibegin, j_index  &
113      , jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name  &
114      , ni, ni_glo, nj, nj_glo, nvertex, standard_name, type )
115
116  END SUBROUTINE xios(set_domain_attr_hdl)
117
118  SUBROUTINE xios(set_domain_attr_hdl_)   &
119    ( domain_hdl, area_, bounds_lat_1d_, bounds_lat_2d_, bounds_lon_1d_, bounds_lon_2d_, data_dim_  &
120    , data_i_index_, data_ibegin_, data_j_index_, data_jbegin_, data_ni_, data_nj_, domain_ref_  &
121    , i_index_, ibegin_, j_index_, jbegin_, latvalue_1d_, latvalue_2d_, long_name_, lonvalue_1d_  &
122    , lonvalue_2d_, mask_1d_, mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, nvertex_, standard_name_  &
123    , type_ )
124
125    IMPLICIT NONE
126      TYPE(txios(domain)) , INTENT(IN) :: domain_hdl
127      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: area_(:,:)
128      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_1d_(:,:)
129      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_2d_(:,:,:)
130      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon_1d_(:,:)
131      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon_2d_(:,:,:)
132      INTEGER  , OPTIONAL, INTENT(IN) :: data_dim_
133      INTEGER  , OPTIONAL, INTENT(IN) :: data_i_index_(:)
134      INTEGER  , OPTIONAL, INTENT(IN) :: data_ibegin_
135      INTEGER  , OPTIONAL, INTENT(IN) :: data_j_index_(:)
136      INTEGER  , OPTIONAL, INTENT(IN) :: data_jbegin_
137      INTEGER  , OPTIONAL, INTENT(IN) :: data_ni_
138      INTEGER  , OPTIONAL, INTENT(IN) :: data_nj_
139      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref_
140      INTEGER  , OPTIONAL, INTENT(IN) :: i_index_(:)
141      INTEGER  , OPTIONAL, INTENT(IN) :: ibegin_
142      INTEGER  , OPTIONAL, INTENT(IN) :: j_index_(:)
143      INTEGER  , OPTIONAL, INTENT(IN) :: jbegin_
144      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: latvalue_1d_(:)
145      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: latvalue_2d_(:,:)
146      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name_
147      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lonvalue_1d_(:)
148      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lonvalue_2d_(:,:)
149      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_1d_(:)
150      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_1d__tmp(:)
151      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_2d_(:,:)
152      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_2d__tmp(:,:)
153      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_
154      INTEGER  , OPTIONAL, INTENT(IN) :: ni_
155      INTEGER  , OPTIONAL, INTENT(IN) :: ni_glo_
156      INTEGER  , OPTIONAL, INTENT(IN) :: nj_
157      INTEGER  , OPTIONAL, INTENT(IN) :: nj_glo_
158      INTEGER  , OPTIONAL, INTENT(IN) :: nvertex_
159      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name_
160      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type_
161
162      IF (PRESENT(area_)) THEN
163        CALL cxios_set_domain_area &
164      (domain_hdl%daddr, area_, SHAPE(area_))
165      ENDIF
166
167      IF (PRESENT(bounds_lat_1d_)) THEN
168        CALL cxios_set_domain_bounds_lat_1d &
169      (domain_hdl%daddr, bounds_lat_1d_, SHAPE(bounds_lat_1d_))
170      ENDIF
171
172      IF (PRESENT(bounds_lat_2d_)) THEN
173        CALL cxios_set_domain_bounds_lat_2d &
174      (domain_hdl%daddr, bounds_lat_2d_, SHAPE(bounds_lat_2d_))
175      ENDIF
176
177      IF (PRESENT(bounds_lon_1d_)) THEN
178        CALL cxios_set_domain_bounds_lon_1d &
179      (domain_hdl%daddr, bounds_lon_1d_, SHAPE(bounds_lon_1d_))
180      ENDIF
181
182      IF (PRESENT(bounds_lon_2d_)) THEN
183        CALL cxios_set_domain_bounds_lon_2d &
184      (domain_hdl%daddr, bounds_lon_2d_, SHAPE(bounds_lon_2d_))
185      ENDIF
186
187      IF (PRESENT(data_dim_)) THEN
188        CALL cxios_set_domain_data_dim &
189      (domain_hdl%daddr, data_dim_)
190      ENDIF
191
192      IF (PRESENT(data_i_index_)) THEN
193        CALL cxios_set_domain_data_i_index &
194      (domain_hdl%daddr, data_i_index_, SHAPE(data_i_index_))
195      ENDIF
196
197      IF (PRESENT(data_ibegin_)) THEN
198        CALL cxios_set_domain_data_ibegin &
199      (domain_hdl%daddr, data_ibegin_)
200      ENDIF
201
202      IF (PRESENT(data_j_index_)) THEN
203        CALL cxios_set_domain_data_j_index &
204      (domain_hdl%daddr, data_j_index_, SHAPE(data_j_index_))
205      ENDIF
206
207      IF (PRESENT(data_jbegin_)) THEN
208        CALL cxios_set_domain_data_jbegin &
209      (domain_hdl%daddr, data_jbegin_)
210      ENDIF
211
212      IF (PRESENT(data_ni_)) THEN
213        CALL cxios_set_domain_data_ni &
214      (domain_hdl%daddr, data_ni_)
215      ENDIF
216
217      IF (PRESENT(data_nj_)) THEN
218        CALL cxios_set_domain_data_nj &
219      (domain_hdl%daddr, data_nj_)
220      ENDIF
221
222      IF (PRESENT(domain_ref_)) THEN
223        CALL cxios_set_domain_domain_ref &
224      (domain_hdl%daddr, domain_ref_, len(domain_ref_))
225      ENDIF
226
227      IF (PRESENT(i_index_)) THEN
228        CALL cxios_set_domain_i_index &
229      (domain_hdl%daddr, i_index_, SHAPE(i_index_))
230      ENDIF
231
232      IF (PRESENT(ibegin_)) THEN
233        CALL cxios_set_domain_ibegin &
234      (domain_hdl%daddr, ibegin_)
235      ENDIF
236
237      IF (PRESENT(j_index_)) THEN
238        CALL cxios_set_domain_j_index &
239      (domain_hdl%daddr, j_index_, SHAPE(j_index_))
240      ENDIF
241
242      IF (PRESENT(jbegin_)) THEN
243        CALL cxios_set_domain_jbegin &
244      (domain_hdl%daddr, jbegin_)
245      ENDIF
246
247      IF (PRESENT(latvalue_1d_)) THEN
248        CALL cxios_set_domain_latvalue_1d &
249      (domain_hdl%daddr, latvalue_1d_, SHAPE(latvalue_1d_))
250      ENDIF
251
252      IF (PRESENT(latvalue_2d_)) THEN
253        CALL cxios_set_domain_latvalue_2d &
254      (domain_hdl%daddr, latvalue_2d_, SHAPE(latvalue_2d_))
255      ENDIF
256
257      IF (PRESENT(long_name_)) THEN
258        CALL cxios_set_domain_long_name &
259      (domain_hdl%daddr, long_name_, len(long_name_))
260      ENDIF
261
262      IF (PRESENT(lonvalue_1d_)) THEN
263        CALL cxios_set_domain_lonvalue_1d &
264      (domain_hdl%daddr, lonvalue_1d_, SHAPE(lonvalue_1d_))
265      ENDIF
266
267      IF (PRESENT(lonvalue_2d_)) THEN
268        CALL cxios_set_domain_lonvalue_2d &
269      (domain_hdl%daddr, lonvalue_2d_, SHAPE(lonvalue_2d_))
270      ENDIF
271
272      IF (PRESENT(mask_1d_)) THEN
273        ALLOCATE(mask_1d__tmp(SIZE(mask_1d_,1)))
274        mask_1d__tmp = mask_1d_
275        CALL cxios_set_domain_mask_1d &
276      (domain_hdl%daddr, mask_1d__tmp, SHAPE(mask_1d_))
277      ENDIF
278
279      IF (PRESENT(mask_2d_)) THEN
280        ALLOCATE(mask_2d__tmp(SIZE(mask_2d_,1), SIZE(mask_2d_,2)))
281        mask_2d__tmp = mask_2d_
282        CALL cxios_set_domain_mask_2d &
283      (domain_hdl%daddr, mask_2d__tmp, SHAPE(mask_2d_))
284      ENDIF
285
286      IF (PRESENT(name_)) THEN
287        CALL cxios_set_domain_name &
288      (domain_hdl%daddr, name_, len(name_))
289      ENDIF
290
291      IF (PRESENT(ni_)) THEN
292        CALL cxios_set_domain_ni &
293      (domain_hdl%daddr, ni_)
294      ENDIF
295
296      IF (PRESENT(ni_glo_)) THEN
297        CALL cxios_set_domain_ni_glo &
298      (domain_hdl%daddr, ni_glo_)
299      ENDIF
300
301      IF (PRESENT(nj_)) THEN
302        CALL cxios_set_domain_nj &
303      (domain_hdl%daddr, nj_)
304      ENDIF
305
306      IF (PRESENT(nj_glo_)) THEN
307        CALL cxios_set_domain_nj_glo &
308      (domain_hdl%daddr, nj_glo_)
309      ENDIF
310
311      IF (PRESENT(nvertex_)) THEN
312        CALL cxios_set_domain_nvertex &
313      (domain_hdl%daddr, nvertex_)
314      ENDIF
315
316      IF (PRESENT(standard_name_)) THEN
317        CALL cxios_set_domain_standard_name &
318      (domain_hdl%daddr, standard_name_, len(standard_name_))
319      ENDIF
320
321      IF (PRESENT(type_)) THEN
322        CALL cxios_set_domain_type &
323      (domain_hdl%daddr, type_, len(type_))
324      ENDIF
325
326  END SUBROUTINE xios(set_domain_attr_hdl_)
327
328  SUBROUTINE xios(get_domain_attr)  &
329    ( domain_id, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim, data_i_index  &
330    , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, i_index, ibegin, j_index  &
331    , jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name  &
332    , ni, ni_glo, nj, nj_glo, nvertex, standard_name, type )
333
334    IMPLICIT NONE
335      TYPE(txios(domain))  :: domain_hdl
336      CHARACTER(LEN=*), INTENT(IN) ::domain_id
337      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: area(:,:)
338      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_1d(:,:)
339      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_2d(:,:,:)
340      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon_1d(:,:)
341      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon_2d(:,:,:)
342      INTEGER  , OPTIONAL, INTENT(OUT) :: data_dim
343      INTEGER  , OPTIONAL, INTENT(OUT) :: data_i_index(:)
344      INTEGER  , OPTIONAL, INTENT(OUT) :: data_ibegin
345      INTEGER  , OPTIONAL, INTENT(OUT) :: data_j_index(:)
346      INTEGER  , OPTIONAL, INTENT(OUT) :: data_jbegin
347      INTEGER  , OPTIONAL, INTENT(OUT) :: data_ni
348      INTEGER  , OPTIONAL, INTENT(OUT) :: data_nj
349      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref
350      INTEGER  , OPTIONAL, INTENT(OUT) :: i_index(:)
351      INTEGER  , OPTIONAL, INTENT(OUT) :: ibegin
352      INTEGER  , OPTIONAL, INTENT(OUT) :: j_index(:)
353      INTEGER  , OPTIONAL, INTENT(OUT) :: jbegin
354      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: latvalue_1d(:)
355      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: latvalue_2d(:,:)
356      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name
357      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lonvalue_1d(:)
358      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lonvalue_2d(:,:)
359      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_1d(:)
360      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_1d_tmp(:)
361      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_2d(:,:)
362      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_2d_tmp(:,:)
363      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
364      INTEGER  , OPTIONAL, INTENT(OUT) :: ni
365      INTEGER  , OPTIONAL, INTENT(OUT) :: ni_glo
366      INTEGER  , OPTIONAL, INTENT(OUT) :: nj
367      INTEGER  , OPTIONAL, INTENT(OUT) :: nj_glo
368      INTEGER  , OPTIONAL, INTENT(OUT) :: nvertex
369      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name
370      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type
371
372      CALL xios(get_domain_handle) &
373      (domain_id,domain_hdl)
374      CALL xios(get_domain_attr_hdl_)   &
375      ( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim, data_i_index  &
376      , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, i_index, ibegin, j_index  &
377      , jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name  &
378      , ni, ni_glo, nj, nj_glo, nvertex, standard_name, type )
379
380  END SUBROUTINE xios(get_domain_attr)
381
382  SUBROUTINE xios(get_domain_attr_hdl)  &
383    ( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim, data_i_index  &
384    , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, i_index, ibegin, j_index  &
385    , jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name  &
386    , ni, ni_glo, nj, nj_glo, nvertex, standard_name, type )
387
388    IMPLICIT NONE
389      TYPE(txios(domain)) , INTENT(IN) :: domain_hdl
390      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: area(:,:)
391      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_1d(:,:)
392      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_2d(:,:,:)
393      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon_1d(:,:)
394      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon_2d(:,:,:)
395      INTEGER  , OPTIONAL, INTENT(OUT) :: data_dim
396      INTEGER  , OPTIONAL, INTENT(OUT) :: data_i_index(:)
397      INTEGER  , OPTIONAL, INTENT(OUT) :: data_ibegin
398      INTEGER  , OPTIONAL, INTENT(OUT) :: data_j_index(:)
399      INTEGER  , OPTIONAL, INTENT(OUT) :: data_jbegin
400      INTEGER  , OPTIONAL, INTENT(OUT) :: data_ni
401      INTEGER  , OPTIONAL, INTENT(OUT) :: data_nj
402      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref
403      INTEGER  , OPTIONAL, INTENT(OUT) :: i_index(:)
404      INTEGER  , OPTIONAL, INTENT(OUT) :: ibegin
405      INTEGER  , OPTIONAL, INTENT(OUT) :: j_index(:)
406      INTEGER  , OPTIONAL, INTENT(OUT) :: jbegin
407      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: latvalue_1d(:)
408      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: latvalue_2d(:,:)
409      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name
410      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lonvalue_1d(:)
411      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lonvalue_2d(:,:)
412      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_1d(:)
413      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_1d_tmp(:)
414      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_2d(:,:)
415      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_2d_tmp(:,:)
416      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
417      INTEGER  , OPTIONAL, INTENT(OUT) :: ni
418      INTEGER  , OPTIONAL, INTENT(OUT) :: ni_glo
419      INTEGER  , OPTIONAL, INTENT(OUT) :: nj
420      INTEGER  , OPTIONAL, INTENT(OUT) :: nj_glo
421      INTEGER  , OPTIONAL, INTENT(OUT) :: nvertex
422      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name
423      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type
424
425      CALL xios(get_domain_attr_hdl_)  &
426      ( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim, data_i_index  &
427      , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, i_index, ibegin, j_index  &
428      , jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name  &
429      , ni, ni_glo, nj, nj_glo, nvertex, standard_name, type )
430
431  END SUBROUTINE xios(get_domain_attr_hdl)
432
433  SUBROUTINE xios(get_domain_attr_hdl_)   &
434    ( domain_hdl, area_, bounds_lat_1d_, bounds_lat_2d_, bounds_lon_1d_, bounds_lon_2d_, data_dim_  &
435    , data_i_index_, data_ibegin_, data_j_index_, data_jbegin_, data_ni_, data_nj_, domain_ref_  &
436    , i_index_, ibegin_, j_index_, jbegin_, latvalue_1d_, latvalue_2d_, long_name_, lonvalue_1d_  &
437    , lonvalue_2d_, mask_1d_, mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, nvertex_, standard_name_  &
438    , type_ )
439
440    IMPLICIT NONE
441      TYPE(txios(domain)) , INTENT(IN) :: domain_hdl
442      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: area_(:,:)
443      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_1d_(:,:)
444      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_2d_(:,:,:)
445      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon_1d_(:,:)
446      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon_2d_(:,:,:)
447      INTEGER  , OPTIONAL, INTENT(OUT) :: data_dim_
448      INTEGER  , OPTIONAL, INTENT(OUT) :: data_i_index_(:)
449      INTEGER  , OPTIONAL, INTENT(OUT) :: data_ibegin_
450      INTEGER  , OPTIONAL, INTENT(OUT) :: data_j_index_(:)
451      INTEGER  , OPTIONAL, INTENT(OUT) :: data_jbegin_
452      INTEGER  , OPTIONAL, INTENT(OUT) :: data_ni_
453      INTEGER  , OPTIONAL, INTENT(OUT) :: data_nj_
454      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref_
455      INTEGER  , OPTIONAL, INTENT(OUT) :: i_index_(:)
456      INTEGER  , OPTIONAL, INTENT(OUT) :: ibegin_
457      INTEGER  , OPTIONAL, INTENT(OUT) :: j_index_(:)
458      INTEGER  , OPTIONAL, INTENT(OUT) :: jbegin_
459      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: latvalue_1d_(:)
460      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: latvalue_2d_(:,:)
461      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name_
462      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lonvalue_1d_(:)
463      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lonvalue_2d_(:,:)
464      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_1d_(:)
465      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_1d__tmp(:)
466      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_2d_(:,:)
467      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_2d__tmp(:,:)
468      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_
469      INTEGER  , OPTIONAL, INTENT(OUT) :: ni_
470      INTEGER  , OPTIONAL, INTENT(OUT) :: ni_glo_
471      INTEGER  , OPTIONAL, INTENT(OUT) :: nj_
472      INTEGER  , OPTIONAL, INTENT(OUT) :: nj_glo_
473      INTEGER  , OPTIONAL, INTENT(OUT) :: nvertex_
474      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name_
475      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type_
476
477      IF (PRESENT(area_)) THEN
478        CALL cxios_get_domain_area &
479      (domain_hdl%daddr, area_, SHAPE(area_))
480      ENDIF
481
482      IF (PRESENT(bounds_lat_1d_)) THEN
483        CALL cxios_get_domain_bounds_lat_1d &
484      (domain_hdl%daddr, bounds_lat_1d_, SHAPE(bounds_lat_1d_))
485      ENDIF
486
487      IF (PRESENT(bounds_lat_2d_)) THEN
488        CALL cxios_get_domain_bounds_lat_2d &
489      (domain_hdl%daddr, bounds_lat_2d_, SHAPE(bounds_lat_2d_))
490      ENDIF
491
492      IF (PRESENT(bounds_lon_1d_)) THEN
493        CALL cxios_get_domain_bounds_lon_1d &
494      (domain_hdl%daddr, bounds_lon_1d_, SHAPE(bounds_lon_1d_))
495      ENDIF
496
497      IF (PRESENT(bounds_lon_2d_)) THEN
498        CALL cxios_get_domain_bounds_lon_2d &
499      (domain_hdl%daddr, bounds_lon_2d_, SHAPE(bounds_lon_2d_))
500      ENDIF
501
502      IF (PRESENT(data_dim_)) THEN
503        CALL cxios_get_domain_data_dim &
504      (domain_hdl%daddr, data_dim_)
505      ENDIF
506
507      IF (PRESENT(data_i_index_)) THEN
508        CALL cxios_get_domain_data_i_index &
509      (domain_hdl%daddr, data_i_index_, SHAPE(data_i_index_))
510      ENDIF
511
512      IF (PRESENT(data_ibegin_)) THEN
513        CALL cxios_get_domain_data_ibegin &
514      (domain_hdl%daddr, data_ibegin_)
515      ENDIF
516
517      IF (PRESENT(data_j_index_)) THEN
518        CALL cxios_get_domain_data_j_index &
519      (domain_hdl%daddr, data_j_index_, SHAPE(data_j_index_))
520      ENDIF
521
522      IF (PRESENT(data_jbegin_)) THEN
523        CALL cxios_get_domain_data_jbegin &
524      (domain_hdl%daddr, data_jbegin_)
525      ENDIF
526
527      IF (PRESENT(data_ni_)) THEN
528        CALL cxios_get_domain_data_ni &
529      (domain_hdl%daddr, data_ni_)
530      ENDIF
531
532      IF (PRESENT(data_nj_)) THEN
533        CALL cxios_get_domain_data_nj &
534      (domain_hdl%daddr, data_nj_)
535      ENDIF
536
537      IF (PRESENT(domain_ref_)) THEN
538        CALL cxios_get_domain_domain_ref &
539      (domain_hdl%daddr, domain_ref_, len(domain_ref_))
540      ENDIF
541
542      IF (PRESENT(i_index_)) THEN
543        CALL cxios_get_domain_i_index &
544      (domain_hdl%daddr, i_index_, SHAPE(i_index_))
545      ENDIF
546
547      IF (PRESENT(ibegin_)) THEN
548        CALL cxios_get_domain_ibegin &
549      (domain_hdl%daddr, ibegin_)
550      ENDIF
551
552      IF (PRESENT(j_index_)) THEN
553        CALL cxios_get_domain_j_index &
554      (domain_hdl%daddr, j_index_, SHAPE(j_index_))
555      ENDIF
556
557      IF (PRESENT(jbegin_)) THEN
558        CALL cxios_get_domain_jbegin &
559      (domain_hdl%daddr, jbegin_)
560      ENDIF
561
562      IF (PRESENT(latvalue_1d_)) THEN
563        CALL cxios_get_domain_latvalue_1d &
564      (domain_hdl%daddr, latvalue_1d_, SHAPE(latvalue_1d_))
565      ENDIF
566
567      IF (PRESENT(latvalue_2d_)) THEN
568        CALL cxios_get_domain_latvalue_2d &
569      (domain_hdl%daddr, latvalue_2d_, SHAPE(latvalue_2d_))
570      ENDIF
571
572      IF (PRESENT(long_name_)) THEN
573        CALL cxios_get_domain_long_name &
574      (domain_hdl%daddr, long_name_, len(long_name_))
575      ENDIF
576
577      IF (PRESENT(lonvalue_1d_)) THEN
578        CALL cxios_get_domain_lonvalue_1d &
579      (domain_hdl%daddr, lonvalue_1d_, SHAPE(lonvalue_1d_))
580      ENDIF
581
582      IF (PRESENT(lonvalue_2d_)) THEN
583        CALL cxios_get_domain_lonvalue_2d &
584      (domain_hdl%daddr, lonvalue_2d_, SHAPE(lonvalue_2d_))
585      ENDIF
586
587      IF (PRESENT(mask_1d_)) THEN
588        ALLOCATE(mask_1d__tmp(SIZE(mask_1d_,1)))
589        CALL cxios_get_domain_mask_1d &
590      (domain_hdl%daddr, mask_1d__tmp, SHAPE(mask_1d_))
591        mask_1d_ = mask_1d__tmp
592      ENDIF
593
594      IF (PRESENT(mask_2d_)) THEN
595        ALLOCATE(mask_2d__tmp(SIZE(mask_2d_,1), SIZE(mask_2d_,2)))
596        CALL cxios_get_domain_mask_2d &
597      (domain_hdl%daddr, mask_2d__tmp, SHAPE(mask_2d_))
598        mask_2d_ = mask_2d__tmp
599      ENDIF
600
601      IF (PRESENT(name_)) THEN
602        CALL cxios_get_domain_name &
603      (domain_hdl%daddr, name_, len(name_))
604      ENDIF
605
606      IF (PRESENT(ni_)) THEN
607        CALL cxios_get_domain_ni &
608      (domain_hdl%daddr, ni_)
609      ENDIF
610
611      IF (PRESENT(ni_glo_)) THEN
612        CALL cxios_get_domain_ni_glo &
613      (domain_hdl%daddr, ni_glo_)
614      ENDIF
615
616      IF (PRESENT(nj_)) THEN
617        CALL cxios_get_domain_nj &
618      (domain_hdl%daddr, nj_)
619      ENDIF
620
621      IF (PRESENT(nj_glo_)) THEN
622        CALL cxios_get_domain_nj_glo &
623      (domain_hdl%daddr, nj_glo_)
624      ENDIF
625
626      IF (PRESENT(nvertex_)) THEN
627        CALL cxios_get_domain_nvertex &
628      (domain_hdl%daddr, nvertex_)
629      ENDIF
630
631      IF (PRESENT(standard_name_)) THEN
632        CALL cxios_get_domain_standard_name &
633      (domain_hdl%daddr, standard_name_, len(standard_name_))
634      ENDIF
635
636      IF (PRESENT(type_)) THEN
637        CALL cxios_get_domain_type &
638      (domain_hdl%daddr, type_, len(type_))
639      ENDIF
640
641  END SUBROUTINE xios(get_domain_attr_hdl_)
642
643  SUBROUTINE xios(is_defined_domain_attr)  &
644    ( domain_id, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim, data_i_index  &
645    , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, i_index, ibegin, j_index  &
646    , jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name  &
647    , ni, ni_glo, nj, nj_glo, nvertex, standard_name, type )
648
649    IMPLICIT NONE
650      TYPE(txios(domain))  :: domain_hdl
651      CHARACTER(LEN=*), INTENT(IN) ::domain_id
652      LOGICAL, OPTIONAL, INTENT(OUT) :: area
653      LOGICAL(KIND=C_BOOL) :: area_tmp
654      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_1d
655      LOGICAL(KIND=C_BOOL) :: bounds_lat_1d_tmp
656      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_2d
657      LOGICAL(KIND=C_BOOL) :: bounds_lat_2d_tmp
658      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_1d
659      LOGICAL(KIND=C_BOOL) :: bounds_lon_1d_tmp
660      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_2d
661      LOGICAL(KIND=C_BOOL) :: bounds_lon_2d_tmp
662      LOGICAL, OPTIONAL, INTENT(OUT) :: data_dim
663      LOGICAL(KIND=C_BOOL) :: data_dim_tmp
664      LOGICAL, OPTIONAL, INTENT(OUT) :: data_i_index
665      LOGICAL(KIND=C_BOOL) :: data_i_index_tmp
666      LOGICAL, OPTIONAL, INTENT(OUT) :: data_ibegin
667      LOGICAL(KIND=C_BOOL) :: data_ibegin_tmp
668      LOGICAL, OPTIONAL, INTENT(OUT) :: data_j_index
669      LOGICAL(KIND=C_BOOL) :: data_j_index_tmp
670      LOGICAL, OPTIONAL, INTENT(OUT) :: data_jbegin
671      LOGICAL(KIND=C_BOOL) :: data_jbegin_tmp
672      LOGICAL, OPTIONAL, INTENT(OUT) :: data_ni
673      LOGICAL(KIND=C_BOOL) :: data_ni_tmp
674      LOGICAL, OPTIONAL, INTENT(OUT) :: data_nj
675      LOGICAL(KIND=C_BOOL) :: data_nj_tmp
676      LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref
677      LOGICAL(KIND=C_BOOL) :: domain_ref_tmp
678      LOGICAL, OPTIONAL, INTENT(OUT) :: i_index
679      LOGICAL(KIND=C_BOOL) :: i_index_tmp
680      LOGICAL, OPTIONAL, INTENT(OUT) :: ibegin
681      LOGICAL(KIND=C_BOOL) :: ibegin_tmp
682      LOGICAL, OPTIONAL, INTENT(OUT) :: j_index
683      LOGICAL(KIND=C_BOOL) :: j_index_tmp
684      LOGICAL, OPTIONAL, INTENT(OUT) :: jbegin
685      LOGICAL(KIND=C_BOOL) :: jbegin_tmp
686      LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue_1d
687      LOGICAL(KIND=C_BOOL) :: latvalue_1d_tmp
688      LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue_2d
689      LOGICAL(KIND=C_BOOL) :: latvalue_2d_tmp
690      LOGICAL, OPTIONAL, INTENT(OUT) :: long_name
691      LOGICAL(KIND=C_BOOL) :: long_name_tmp
692      LOGICAL, OPTIONAL, INTENT(OUT) :: lonvalue_1d
693      LOGICAL(KIND=C_BOOL) :: lonvalue_1d_tmp
694      LOGICAL, OPTIONAL, INTENT(OUT) :: lonvalue_2d
695      LOGICAL(KIND=C_BOOL) :: lonvalue_2d_tmp
696      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_1d
697      LOGICAL(KIND=C_BOOL) :: mask_1d_tmp
698      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_2d
699      LOGICAL(KIND=C_BOOL) :: mask_2d_tmp
700      LOGICAL, OPTIONAL, INTENT(OUT) :: name
701      LOGICAL(KIND=C_BOOL) :: name_tmp
702      LOGICAL, OPTIONAL, INTENT(OUT) :: ni
703      LOGICAL(KIND=C_BOOL) :: ni_tmp
704      LOGICAL, OPTIONAL, INTENT(OUT) :: ni_glo
705      LOGICAL(KIND=C_BOOL) :: ni_glo_tmp
706      LOGICAL, OPTIONAL, INTENT(OUT) :: nj
707      LOGICAL(KIND=C_BOOL) :: nj_tmp
708      LOGICAL, OPTIONAL, INTENT(OUT) :: nj_glo
709      LOGICAL(KIND=C_BOOL) :: nj_glo_tmp
710      LOGICAL, OPTIONAL, INTENT(OUT) :: nvertex
711      LOGICAL(KIND=C_BOOL) :: nvertex_tmp
712      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name
713      LOGICAL(KIND=C_BOOL) :: standard_name_tmp
714      LOGICAL, OPTIONAL, INTENT(OUT) :: type
715      LOGICAL(KIND=C_BOOL) :: type_tmp
716
717      CALL xios(get_domain_handle) &
718      (domain_id,domain_hdl)
719      CALL xios(is_defined_domain_attr_hdl_)   &
720      ( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim, data_i_index  &
721      , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, i_index, ibegin, j_index  &
722      , jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name  &
723      , ni, ni_glo, nj, nj_glo, nvertex, standard_name, type )
724
725  END SUBROUTINE xios(is_defined_domain_attr)
726
727  SUBROUTINE xios(is_defined_domain_attr_hdl)  &
728    ( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim, data_i_index  &
729    , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, i_index, ibegin, j_index  &
730    , jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name  &
731    , ni, ni_glo, nj, nj_glo, nvertex, standard_name, type )
732
733    IMPLICIT NONE
734      TYPE(txios(domain)) , INTENT(IN) :: domain_hdl
735      LOGICAL, OPTIONAL, INTENT(OUT) :: area
736      LOGICAL(KIND=C_BOOL) :: area_tmp
737      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_1d
738      LOGICAL(KIND=C_BOOL) :: bounds_lat_1d_tmp
739      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_2d
740      LOGICAL(KIND=C_BOOL) :: bounds_lat_2d_tmp
741      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_1d
742      LOGICAL(KIND=C_BOOL) :: bounds_lon_1d_tmp
743      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_2d
744      LOGICAL(KIND=C_BOOL) :: bounds_lon_2d_tmp
745      LOGICAL, OPTIONAL, INTENT(OUT) :: data_dim
746      LOGICAL(KIND=C_BOOL) :: data_dim_tmp
747      LOGICAL, OPTIONAL, INTENT(OUT) :: data_i_index
748      LOGICAL(KIND=C_BOOL) :: data_i_index_tmp
749      LOGICAL, OPTIONAL, INTENT(OUT) :: data_ibegin
750      LOGICAL(KIND=C_BOOL) :: data_ibegin_tmp
751      LOGICAL, OPTIONAL, INTENT(OUT) :: data_j_index
752      LOGICAL(KIND=C_BOOL) :: data_j_index_tmp
753      LOGICAL, OPTIONAL, INTENT(OUT) :: data_jbegin
754      LOGICAL(KIND=C_BOOL) :: data_jbegin_tmp
755      LOGICAL, OPTIONAL, INTENT(OUT) :: data_ni
756      LOGICAL(KIND=C_BOOL) :: data_ni_tmp
757      LOGICAL, OPTIONAL, INTENT(OUT) :: data_nj
758      LOGICAL(KIND=C_BOOL) :: data_nj_tmp
759      LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref
760      LOGICAL(KIND=C_BOOL) :: domain_ref_tmp
761      LOGICAL, OPTIONAL, INTENT(OUT) :: i_index
762      LOGICAL(KIND=C_BOOL) :: i_index_tmp
763      LOGICAL, OPTIONAL, INTENT(OUT) :: ibegin
764      LOGICAL(KIND=C_BOOL) :: ibegin_tmp
765      LOGICAL, OPTIONAL, INTENT(OUT) :: j_index
766      LOGICAL(KIND=C_BOOL) :: j_index_tmp
767      LOGICAL, OPTIONAL, INTENT(OUT) :: jbegin
768      LOGICAL(KIND=C_BOOL) :: jbegin_tmp
769      LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue_1d
770      LOGICAL(KIND=C_BOOL) :: latvalue_1d_tmp
771      LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue_2d
772      LOGICAL(KIND=C_BOOL) :: latvalue_2d_tmp
773      LOGICAL, OPTIONAL, INTENT(OUT) :: long_name
774      LOGICAL(KIND=C_BOOL) :: long_name_tmp
775      LOGICAL, OPTIONAL, INTENT(OUT) :: lonvalue_1d
776      LOGICAL(KIND=C_BOOL) :: lonvalue_1d_tmp
777      LOGICAL, OPTIONAL, INTENT(OUT) :: lonvalue_2d
778      LOGICAL(KIND=C_BOOL) :: lonvalue_2d_tmp
779      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_1d
780      LOGICAL(KIND=C_BOOL) :: mask_1d_tmp
781      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_2d
782      LOGICAL(KIND=C_BOOL) :: mask_2d_tmp
783      LOGICAL, OPTIONAL, INTENT(OUT) :: name
784      LOGICAL(KIND=C_BOOL) :: name_tmp
785      LOGICAL, OPTIONAL, INTENT(OUT) :: ni
786      LOGICAL(KIND=C_BOOL) :: ni_tmp
787      LOGICAL, OPTIONAL, INTENT(OUT) :: ni_glo
788      LOGICAL(KIND=C_BOOL) :: ni_glo_tmp
789      LOGICAL, OPTIONAL, INTENT(OUT) :: nj
790      LOGICAL(KIND=C_BOOL) :: nj_tmp
791      LOGICAL, OPTIONAL, INTENT(OUT) :: nj_glo
792      LOGICAL(KIND=C_BOOL) :: nj_glo_tmp
793      LOGICAL, OPTIONAL, INTENT(OUT) :: nvertex
794      LOGICAL(KIND=C_BOOL) :: nvertex_tmp
795      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name
796      LOGICAL(KIND=C_BOOL) :: standard_name_tmp
797      LOGICAL, OPTIONAL, INTENT(OUT) :: type
798      LOGICAL(KIND=C_BOOL) :: type_tmp
799
800      CALL xios(is_defined_domain_attr_hdl_)  &
801      ( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim, data_i_index  &
802      , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, i_index, ibegin, j_index  &
803      , jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name  &
804      , ni, ni_glo, nj, nj_glo, nvertex, standard_name, type )
805
806  END SUBROUTINE xios(is_defined_domain_attr_hdl)
807
808  SUBROUTINE xios(is_defined_domain_attr_hdl_)   &
809    ( domain_hdl, area_, bounds_lat_1d_, bounds_lat_2d_, bounds_lon_1d_, bounds_lon_2d_, data_dim_  &
810    , data_i_index_, data_ibegin_, data_j_index_, data_jbegin_, data_ni_, data_nj_, domain_ref_  &
811    , i_index_, ibegin_, j_index_, jbegin_, latvalue_1d_, latvalue_2d_, long_name_, lonvalue_1d_  &
812    , lonvalue_2d_, mask_1d_, mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, nvertex_, standard_name_  &
813    , type_ )
814
815    IMPLICIT NONE
816      TYPE(txios(domain)) , INTENT(IN) :: domain_hdl
817      LOGICAL, OPTIONAL, INTENT(OUT) :: area_
818      LOGICAL(KIND=C_BOOL) :: area__tmp
819      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_1d_
820      LOGICAL(KIND=C_BOOL) :: bounds_lat_1d__tmp
821      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_2d_
822      LOGICAL(KIND=C_BOOL) :: bounds_lat_2d__tmp
823      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_1d_
824      LOGICAL(KIND=C_BOOL) :: bounds_lon_1d__tmp
825      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_2d_
826      LOGICAL(KIND=C_BOOL) :: bounds_lon_2d__tmp
827      LOGICAL, OPTIONAL, INTENT(OUT) :: data_dim_
828      LOGICAL(KIND=C_BOOL) :: data_dim__tmp
829      LOGICAL, OPTIONAL, INTENT(OUT) :: data_i_index_
830      LOGICAL(KIND=C_BOOL) :: data_i_index__tmp
831      LOGICAL, OPTIONAL, INTENT(OUT) :: data_ibegin_
832      LOGICAL(KIND=C_BOOL) :: data_ibegin__tmp
833      LOGICAL, OPTIONAL, INTENT(OUT) :: data_j_index_
834      LOGICAL(KIND=C_BOOL) :: data_j_index__tmp
835      LOGICAL, OPTIONAL, INTENT(OUT) :: data_jbegin_
836      LOGICAL(KIND=C_BOOL) :: data_jbegin__tmp
837      LOGICAL, OPTIONAL, INTENT(OUT) :: data_ni_
838      LOGICAL(KIND=C_BOOL) :: data_ni__tmp
839      LOGICAL, OPTIONAL, INTENT(OUT) :: data_nj_
840      LOGICAL(KIND=C_BOOL) :: data_nj__tmp
841      LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref_
842      LOGICAL(KIND=C_BOOL) :: domain_ref__tmp
843      LOGICAL, OPTIONAL, INTENT(OUT) :: i_index_
844      LOGICAL(KIND=C_BOOL) :: i_index__tmp
845      LOGICAL, OPTIONAL, INTENT(OUT) :: ibegin_
846      LOGICAL(KIND=C_BOOL) :: ibegin__tmp
847      LOGICAL, OPTIONAL, INTENT(OUT) :: j_index_
848      LOGICAL(KIND=C_BOOL) :: j_index__tmp
849      LOGICAL, OPTIONAL, INTENT(OUT) :: jbegin_
850      LOGICAL(KIND=C_BOOL) :: jbegin__tmp
851      LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue_1d_
852      LOGICAL(KIND=C_BOOL) :: latvalue_1d__tmp
853      LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue_2d_
854      LOGICAL(KIND=C_BOOL) :: latvalue_2d__tmp
855      LOGICAL, OPTIONAL, INTENT(OUT) :: long_name_
856      LOGICAL(KIND=C_BOOL) :: long_name__tmp
857      LOGICAL, OPTIONAL, INTENT(OUT) :: lonvalue_1d_
858      LOGICAL(KIND=C_BOOL) :: lonvalue_1d__tmp
859      LOGICAL, OPTIONAL, INTENT(OUT) :: lonvalue_2d_
860      LOGICAL(KIND=C_BOOL) :: lonvalue_2d__tmp
861      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_1d_
862      LOGICAL(KIND=C_BOOL) :: mask_1d__tmp
863      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_2d_
864      LOGICAL(KIND=C_BOOL) :: mask_2d__tmp
865      LOGICAL, OPTIONAL, INTENT(OUT) :: name_
866      LOGICAL(KIND=C_BOOL) :: name__tmp
867      LOGICAL, OPTIONAL, INTENT(OUT) :: ni_
868      LOGICAL(KIND=C_BOOL) :: ni__tmp
869      LOGICAL, OPTIONAL, INTENT(OUT) :: ni_glo_
870      LOGICAL(KIND=C_BOOL) :: ni_glo__tmp
871      LOGICAL, OPTIONAL, INTENT(OUT) :: nj_
872      LOGICAL(KIND=C_BOOL) :: nj__tmp
873      LOGICAL, OPTIONAL, INTENT(OUT) :: nj_glo_
874      LOGICAL(KIND=C_BOOL) :: nj_glo__tmp
875      LOGICAL, OPTIONAL, INTENT(OUT) :: nvertex_
876      LOGICAL(KIND=C_BOOL) :: nvertex__tmp
877      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name_
878      LOGICAL(KIND=C_BOOL) :: standard_name__tmp
879      LOGICAL, OPTIONAL, INTENT(OUT) :: type_
880      LOGICAL(KIND=C_BOOL) :: type__tmp
881
882      IF (PRESENT(area_)) THEN
883        area__tmp = cxios_is_defined_domain_area &
884      (domain_hdl%daddr)
885        area_ = area__tmp
886      ENDIF
887
888      IF (PRESENT(bounds_lat_1d_)) THEN
889        bounds_lat_1d__tmp = cxios_is_defined_domain_bounds_lat_1d &
890      (domain_hdl%daddr)
891        bounds_lat_1d_ = bounds_lat_1d__tmp
892      ENDIF
893
894      IF (PRESENT(bounds_lat_2d_)) THEN
895        bounds_lat_2d__tmp = cxios_is_defined_domain_bounds_lat_2d &
896      (domain_hdl%daddr)
897        bounds_lat_2d_ = bounds_lat_2d__tmp
898      ENDIF
899
900      IF (PRESENT(bounds_lon_1d_)) THEN
901        bounds_lon_1d__tmp = cxios_is_defined_domain_bounds_lon_1d &
902      (domain_hdl%daddr)
903        bounds_lon_1d_ = bounds_lon_1d__tmp
904      ENDIF
905
906      IF (PRESENT(bounds_lon_2d_)) THEN
907        bounds_lon_2d__tmp = cxios_is_defined_domain_bounds_lon_2d &
908      (domain_hdl%daddr)
909        bounds_lon_2d_ = bounds_lon_2d__tmp
910      ENDIF
911
912      IF (PRESENT(data_dim_)) THEN
913        data_dim__tmp = cxios_is_defined_domain_data_dim &
914      (domain_hdl%daddr)
915        data_dim_ = data_dim__tmp
916      ENDIF
917
918      IF (PRESENT(data_i_index_)) THEN
919        data_i_index__tmp = cxios_is_defined_domain_data_i_index &
920      (domain_hdl%daddr)
921        data_i_index_ = data_i_index__tmp
922      ENDIF
923
924      IF (PRESENT(data_ibegin_)) THEN
925        data_ibegin__tmp = cxios_is_defined_domain_data_ibegin &
926      (domain_hdl%daddr)
927        data_ibegin_ = data_ibegin__tmp
928      ENDIF
929
930      IF (PRESENT(data_j_index_)) THEN
931        data_j_index__tmp = cxios_is_defined_domain_data_j_index &
932      (domain_hdl%daddr)
933        data_j_index_ = data_j_index__tmp
934      ENDIF
935
936      IF (PRESENT(data_jbegin_)) THEN
937        data_jbegin__tmp = cxios_is_defined_domain_data_jbegin &
938      (domain_hdl%daddr)
939        data_jbegin_ = data_jbegin__tmp
940      ENDIF
941
942      IF (PRESENT(data_ni_)) THEN
943        data_ni__tmp = cxios_is_defined_domain_data_ni &
944      (domain_hdl%daddr)
945        data_ni_ = data_ni__tmp
946      ENDIF
947
948      IF (PRESENT(data_nj_)) THEN
949        data_nj__tmp = cxios_is_defined_domain_data_nj &
950      (domain_hdl%daddr)
951        data_nj_ = data_nj__tmp
952      ENDIF
953
954      IF (PRESENT(domain_ref_)) THEN
955        domain_ref__tmp = cxios_is_defined_domain_domain_ref &
956      (domain_hdl%daddr)
957        domain_ref_ = domain_ref__tmp
958      ENDIF
959
960      IF (PRESENT(i_index_)) THEN
961        i_index__tmp = cxios_is_defined_domain_i_index &
962      (domain_hdl%daddr)
963        i_index_ = i_index__tmp
964      ENDIF
965
966      IF (PRESENT(ibegin_)) THEN
967        ibegin__tmp = cxios_is_defined_domain_ibegin &
968      (domain_hdl%daddr)
969        ibegin_ = ibegin__tmp
970      ENDIF
971
972      IF (PRESENT(j_index_)) THEN
973        j_index__tmp = cxios_is_defined_domain_j_index &
974      (domain_hdl%daddr)
975        j_index_ = j_index__tmp
976      ENDIF
977
978      IF (PRESENT(jbegin_)) THEN
979        jbegin__tmp = cxios_is_defined_domain_jbegin &
980      (domain_hdl%daddr)
981        jbegin_ = jbegin__tmp
982      ENDIF
983
984      IF (PRESENT(latvalue_1d_)) THEN
985        latvalue_1d__tmp = cxios_is_defined_domain_latvalue_1d &
986      (domain_hdl%daddr)
987        latvalue_1d_ = latvalue_1d__tmp
988      ENDIF
989
990      IF (PRESENT(latvalue_2d_)) THEN
991        latvalue_2d__tmp = cxios_is_defined_domain_latvalue_2d &
992      (domain_hdl%daddr)
993        latvalue_2d_ = latvalue_2d__tmp
994      ENDIF
995
996      IF (PRESENT(long_name_)) THEN
997        long_name__tmp = cxios_is_defined_domain_long_name &
998      (domain_hdl%daddr)
999        long_name_ = long_name__tmp
1000      ENDIF
1001
1002      IF (PRESENT(lonvalue_1d_)) THEN
1003        lonvalue_1d__tmp = cxios_is_defined_domain_lonvalue_1d &
1004      (domain_hdl%daddr)
1005        lonvalue_1d_ = lonvalue_1d__tmp
1006      ENDIF
1007
1008      IF (PRESENT(lonvalue_2d_)) THEN
1009        lonvalue_2d__tmp = cxios_is_defined_domain_lonvalue_2d &
1010      (domain_hdl%daddr)
1011        lonvalue_2d_ = lonvalue_2d__tmp
1012      ENDIF
1013
1014      IF (PRESENT(mask_1d_)) THEN
1015        mask_1d__tmp = cxios_is_defined_domain_mask_1d &
1016      (domain_hdl%daddr)
1017        mask_1d_ = mask_1d__tmp
1018      ENDIF
1019
1020      IF (PRESENT(mask_2d_)) THEN
1021        mask_2d__tmp = cxios_is_defined_domain_mask_2d &
1022      (domain_hdl%daddr)
1023        mask_2d_ = mask_2d__tmp
1024      ENDIF
1025
1026      IF (PRESENT(name_)) THEN
1027        name__tmp = cxios_is_defined_domain_name &
1028      (domain_hdl%daddr)
1029        name_ = name__tmp
1030      ENDIF
1031
1032      IF (PRESENT(ni_)) THEN
1033        ni__tmp = cxios_is_defined_domain_ni &
1034      (domain_hdl%daddr)
1035        ni_ = ni__tmp
1036      ENDIF
1037
1038      IF (PRESENT(ni_glo_)) THEN
1039        ni_glo__tmp = cxios_is_defined_domain_ni_glo &
1040      (domain_hdl%daddr)
1041        ni_glo_ = ni_glo__tmp
1042      ENDIF
1043
1044      IF (PRESENT(nj_)) THEN
1045        nj__tmp = cxios_is_defined_domain_nj &
1046      (domain_hdl%daddr)
1047        nj_ = nj__tmp
1048      ENDIF
1049
1050      IF (PRESENT(nj_glo_)) THEN
1051        nj_glo__tmp = cxios_is_defined_domain_nj_glo &
1052      (domain_hdl%daddr)
1053        nj_glo_ = nj_glo__tmp
1054      ENDIF
1055
1056      IF (PRESENT(nvertex_)) THEN
1057        nvertex__tmp = cxios_is_defined_domain_nvertex &
1058      (domain_hdl%daddr)
1059        nvertex_ = nvertex__tmp
1060      ENDIF
1061
1062      IF (PRESENT(standard_name_)) THEN
1063        standard_name__tmp = cxios_is_defined_domain_standard_name &
1064      (domain_hdl%daddr)
1065        standard_name_ = standard_name__tmp
1066      ENDIF
1067
1068      IF (PRESENT(type_)) THEN
1069        type__tmp = cxios_is_defined_domain_type &
1070      (domain_hdl%daddr)
1071        type_ = type__tmp
1072      ENDIF
1073
1074  END SUBROUTINE xios(is_defined_domain_attr_hdl_)
1075
1076END MODULE idomain_attr
Note: See TracBrowser for help on using the repository browser.