source: XIOS/trunk/src/interface/fortran_attr/igridgroup_attr.F90 @ 932

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

Adding Fortran interface for high-dimension grid (up to 7)

+) Add check mask for high-dimension grid
+) Add Fortran interface for send_field, recv_field

Test
+) On Curie
+) Work
  • 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: 19.4 KB
Line 
1! * ************************************************************************** *
2! *               Interface auto generated - do not modify                     *
3! * ************************************************************************** *
4#include "xios_fortran_prefix.hpp"
5
6MODULE igridgroup_attr
7  USE, INTRINSIC :: ISO_C_BINDING
8  USE igrid
9  USE gridgroup_interface_attr
10
11CONTAINS
12
13  SUBROUTINE xios(set_gridgroup_attr)  &
14    ( gridgroup_id, description, group_ref, mask_1d, mask_2d, mask_3d, mask_4d, mask_5d, mask_6d  &
15    , mask_7d, name )
16
17    IMPLICIT NONE
18      TYPE(txios(gridgroup))  :: gridgroup_hdl
19      CHARACTER(LEN=*), INTENT(IN) ::gridgroup_id
20      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: description
21      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref
22      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_1d(:)
23      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_1d_tmp(:)
24      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_2d(:,:)
25      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_2d_tmp(:,:)
26      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_3d(:,:,:)
27      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_3d_tmp(:,:,:)
28      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_4d(:,:,:,:)
29      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_4d_tmp(:,:,:,:)
30      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_5d(:,:,:,:,:)
31      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_5d_tmp(:,:,:,:,:)
32      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_6d(:,:,:,:,:,:)
33      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_6d_tmp(:,:,:,:,:,:)
34      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_7d(:,:,:,:,:,:,:)
35      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_7d_tmp(:,:,:,:,:,:,:)
36      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
37
38      CALL xios(get_gridgroup_handle)(gridgroup_id,gridgroup_hdl)
39      CALL xios(set_gridgroup_attr_hdl_)   &
40      ( gridgroup_hdl, description, group_ref, mask_1d, mask_2d, mask_3d, mask_4d, mask_5d, mask_6d  &
41      , mask_7d, name )
42
43  END SUBROUTINE xios(set_gridgroup_attr)
44
45  SUBROUTINE xios(set_gridgroup_attr_hdl)  &
46    ( gridgroup_hdl, description, group_ref, mask_1d, mask_2d, mask_3d, mask_4d, mask_5d, mask_6d  &
47    , mask_7d, name )
48
49    IMPLICIT NONE
50      TYPE(txios(gridgroup)) , INTENT(IN) :: gridgroup_hdl
51      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: description
52      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref
53      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_1d(:)
54      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_1d_tmp(:)
55      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_2d(:,:)
56      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_2d_tmp(:,:)
57      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_3d(:,:,:)
58      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_3d_tmp(:,:,:)
59      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_4d(:,:,:,:)
60      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_4d_tmp(:,:,:,:)
61      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_5d(:,:,:,:,:)
62      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_5d_tmp(:,:,:,:,:)
63      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_6d(:,:,:,:,:,:)
64      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_6d_tmp(:,:,:,:,:,:)
65      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_7d(:,:,:,:,:,:,:)
66      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_7d_tmp(:,:,:,:,:,:,:)
67      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
68
69      CALL xios(set_gridgroup_attr_hdl_)  &
70      ( gridgroup_hdl, description, group_ref, mask_1d, mask_2d, mask_3d, mask_4d, mask_5d, mask_6d  &
71      , mask_7d, name )
72
73  END SUBROUTINE xios(set_gridgroup_attr_hdl)
74
75  SUBROUTINE xios(set_gridgroup_attr_hdl_)   &
76    ( gridgroup_hdl, description_, group_ref_, mask_1d_, mask_2d_, mask_3d_, mask_4d_, mask_5d_  &
77    , mask_6d_, mask_7d_, name_ )
78
79    IMPLICIT NONE
80      TYPE(txios(gridgroup)) , INTENT(IN) :: gridgroup_hdl
81      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: description_
82      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref_
83      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_1d_(:)
84      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_1d__tmp(:)
85      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_2d_(:,:)
86      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_2d__tmp(:,:)
87      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_3d_(:,:,:)
88      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_3d__tmp(:,:,:)
89      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_4d_(:,:,:,:)
90      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_4d__tmp(:,:,:,:)
91      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_5d_(:,:,:,:,:)
92      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_5d__tmp(:,:,:,:,:)
93      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_6d_(:,:,:,:,:,:)
94      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_6d__tmp(:,:,:,:,:,:)
95      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_7d_(:,:,:,:,:,:,:)
96      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_7d__tmp(:,:,:,:,:,:,:)
97      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_
98
99      IF (PRESENT(description_)) THEN
100        CALL cxios_set_gridgroup_description(gridgroup_hdl%daddr, description_, len(description_))
101      ENDIF
102
103      IF (PRESENT(group_ref_)) THEN
104        CALL cxios_set_gridgroup_group_ref(gridgroup_hdl%daddr, group_ref_, len(group_ref_))
105      ENDIF
106
107      IF (PRESENT(mask_1d_)) THEN
108        ALLOCATE(mask_1d__tmp(SIZE(mask_1d_,1)))
109        mask_1d__tmp = mask_1d_
110        CALL cxios_set_gridgroup_mask_1d(gridgroup_hdl%daddr, mask_1d__tmp, SHAPE(mask_1d_))
111      ENDIF
112
113      IF (PRESENT(mask_2d_)) THEN
114        ALLOCATE(mask_2d__tmp(SIZE(mask_2d_,1), SIZE(mask_2d_,2)))
115        mask_2d__tmp = mask_2d_
116        CALL cxios_set_gridgroup_mask_2d(gridgroup_hdl%daddr, mask_2d__tmp, SHAPE(mask_2d_))
117      ENDIF
118
119      IF (PRESENT(mask_3d_)) THEN
120        ALLOCATE(mask_3d__tmp(SIZE(mask_3d_,1), SIZE(mask_3d_,2), SIZE(mask_3d_,3)))
121        mask_3d__tmp = mask_3d_
122        CALL cxios_set_gridgroup_mask_3d(gridgroup_hdl%daddr, mask_3d__tmp, SHAPE(mask_3d_))
123      ENDIF
124
125      IF (PRESENT(mask_4d_)) THEN
126        ALLOCATE(mask_4d__tmp(SIZE(mask_4d_,1), SIZE(mask_4d_,2), SIZE(mask_4d_,3), SIZE(mask_4d_,4)))
127        mask_4d__tmp = mask_4d_
128        CALL cxios_set_gridgroup_mask_4d(gridgroup_hdl%daddr, mask_4d__tmp, SHAPE(mask_4d_))
129      ENDIF
130
131      IF (PRESENT(mask_5d_)) THEN
132        ALLOCATE(mask_5d__tmp(SIZE(mask_5d_,1), SIZE(mask_5d_,2), SIZE(mask_5d_,3), SIZE(mask_5d_,4), SIZE(mask_5d_,5)))
133        mask_5d__tmp = mask_5d_
134        CALL cxios_set_gridgroup_mask_5d(gridgroup_hdl%daddr, mask_5d__tmp, SHAPE(mask_5d_))
135      ENDIF
136
137      IF (PRESENT(mask_6d_)) THEN
138        ALLOCATE(mask_6d__tmp(SIZE(mask_6d_,1), SIZE(mask_6d_,2), SIZE(mask_6d_,3), SIZE(mask_6d_,4), SIZE(mask_6d_,5), SIZE(mask_6d_,6)))
139        mask_6d__tmp = mask_6d_
140        CALL cxios_set_gridgroup_mask_6d(gridgroup_hdl%daddr, mask_6d__tmp, SHAPE(mask_6d_))
141      ENDIF
142
143      IF (PRESENT(mask_7d_)) THEN
144        ALLOCATE(mask_7d__tmp(SIZE(mask_7d_,1), SIZE(mask_7d_,2), SIZE(mask_7d_,3), SIZE(mask_7d_,4), SIZE(mask_7d_,5), SIZE(mask_7d_,6), SIZE(mask_7d_,7)))
145        mask_7d__tmp = mask_7d_
146        CALL cxios_set_gridgroup_mask_7d(gridgroup_hdl%daddr, mask_7d__tmp, SHAPE(mask_7d_))
147      ENDIF
148
149      IF (PRESENT(name_)) THEN
150        CALL cxios_set_gridgroup_name(gridgroup_hdl%daddr, name_, len(name_))
151      ENDIF
152
153  END SUBROUTINE xios(set_gridgroup_attr_hdl_)
154
155  SUBROUTINE xios(get_gridgroup_attr)  &
156    ( gridgroup_id, description, group_ref, mask_1d, mask_2d, mask_3d, mask_4d, mask_5d, mask_6d  &
157    , mask_7d, name )
158
159    IMPLICIT NONE
160      TYPE(txios(gridgroup))  :: gridgroup_hdl
161      CHARACTER(LEN=*), INTENT(IN) ::gridgroup_id
162      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: description
163      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref
164      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_1d(:)
165      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_1d_tmp(:)
166      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_2d(:,:)
167      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_2d_tmp(:,:)
168      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_3d(:,:,:)
169      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_3d_tmp(:,:,:)
170      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_4d(:,:,:,:)
171      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_4d_tmp(:,:,:,:)
172      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_5d(:,:,:,:,:)
173      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_5d_tmp(:,:,:,:,:)
174      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_6d(:,:,:,:,:,:)
175      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_6d_tmp(:,:,:,:,:,:)
176      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_7d(:,:,:,:,:,:,:)
177      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_7d_tmp(:,:,:,:,:,:,:)
178      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
179
180      CALL xios(get_gridgroup_handle)(gridgroup_id,gridgroup_hdl)
181      CALL xios(get_gridgroup_attr_hdl_)   &
182      ( gridgroup_hdl, description, group_ref, mask_1d, mask_2d, mask_3d, mask_4d, mask_5d, mask_6d  &
183      , mask_7d, name )
184
185  END SUBROUTINE xios(get_gridgroup_attr)
186
187  SUBROUTINE xios(get_gridgroup_attr_hdl)  &
188    ( gridgroup_hdl, description, group_ref, mask_1d, mask_2d, mask_3d, mask_4d, mask_5d, mask_6d  &
189    , mask_7d, name )
190
191    IMPLICIT NONE
192      TYPE(txios(gridgroup)) , INTENT(IN) :: gridgroup_hdl
193      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: description
194      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref
195      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_1d(:)
196      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_1d_tmp(:)
197      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_2d(:,:)
198      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_2d_tmp(:,:)
199      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_3d(:,:,:)
200      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_3d_tmp(:,:,:)
201      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_4d(:,:,:,:)
202      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_4d_tmp(:,:,:,:)
203      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_5d(:,:,:,:,:)
204      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_5d_tmp(:,:,:,:,:)
205      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_6d(:,:,:,:,:,:)
206      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_6d_tmp(:,:,:,:,:,:)
207      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_7d(:,:,:,:,:,:,:)
208      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_7d_tmp(:,:,:,:,:,:,:)
209      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
210
211      CALL xios(get_gridgroup_attr_hdl_)  &
212      ( gridgroup_hdl, description, group_ref, mask_1d, mask_2d, mask_3d, mask_4d, mask_5d, mask_6d  &
213      , mask_7d, name )
214
215  END SUBROUTINE xios(get_gridgroup_attr_hdl)
216
217  SUBROUTINE xios(get_gridgroup_attr_hdl_)   &
218    ( gridgroup_hdl, description_, group_ref_, mask_1d_, mask_2d_, mask_3d_, mask_4d_, mask_5d_  &
219    , mask_6d_, mask_7d_, name_ )
220
221    IMPLICIT NONE
222      TYPE(txios(gridgroup)) , INTENT(IN) :: gridgroup_hdl
223      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: description_
224      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref_
225      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_1d_(:)
226      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_1d__tmp(:)
227      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_2d_(:,:)
228      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_2d__tmp(:,:)
229      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_3d_(:,:,:)
230      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_3d__tmp(:,:,:)
231      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_4d_(:,:,:,:)
232      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_4d__tmp(:,:,:,:)
233      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_5d_(:,:,:,:,:)
234      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_5d__tmp(:,:,:,:,:)
235      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_6d_(:,:,:,:,:,:)
236      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_6d__tmp(:,:,:,:,:,:)
237      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_7d_(:,:,:,:,:,:,:)
238      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_7d__tmp(:,:,:,:,:,:,:)
239      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_
240
241      IF (PRESENT(description_)) THEN
242        CALL cxios_get_gridgroup_description(gridgroup_hdl%daddr, description_, len(description_))
243      ENDIF
244
245      IF (PRESENT(group_ref_)) THEN
246        CALL cxios_get_gridgroup_group_ref(gridgroup_hdl%daddr, group_ref_, len(group_ref_))
247      ENDIF
248
249      IF (PRESENT(mask_1d_)) THEN
250        ALLOCATE(mask_1d__tmp(SIZE(mask_1d_,1)))
251        CALL cxios_get_gridgroup_mask_1d(gridgroup_hdl%daddr, mask_1d__tmp, SHAPE(mask_1d_))
252        mask_1d_ = mask_1d__tmp
253      ENDIF
254
255      IF (PRESENT(mask_2d_)) THEN
256        ALLOCATE(mask_2d__tmp(SIZE(mask_2d_,1), SIZE(mask_2d_,2)))
257        CALL cxios_get_gridgroup_mask_2d(gridgroup_hdl%daddr, mask_2d__tmp, SHAPE(mask_2d_))
258        mask_2d_ = mask_2d__tmp
259      ENDIF
260
261      IF (PRESENT(mask_3d_)) THEN
262        ALLOCATE(mask_3d__tmp(SIZE(mask_3d_,1), SIZE(mask_3d_,2), SIZE(mask_3d_,3)))
263        CALL cxios_get_gridgroup_mask_3d(gridgroup_hdl%daddr, mask_3d__tmp, SHAPE(mask_3d_))
264        mask_3d_ = mask_3d__tmp
265      ENDIF
266
267      IF (PRESENT(mask_4d_)) THEN
268        ALLOCATE(mask_4d__tmp(SIZE(mask_4d_,1), SIZE(mask_4d_,2), SIZE(mask_4d_,3), SIZE(mask_4d_,4)))
269        CALL cxios_get_gridgroup_mask_4d(gridgroup_hdl%daddr, mask_4d__tmp, SHAPE(mask_4d_))
270        mask_4d_ = mask_4d__tmp
271      ENDIF
272
273      IF (PRESENT(mask_5d_)) THEN
274        ALLOCATE(mask_5d__tmp(SIZE(mask_5d_,1), SIZE(mask_5d_,2), SIZE(mask_5d_,3), SIZE(mask_5d_,4), SIZE(mask_5d_,5)))
275        CALL cxios_get_gridgroup_mask_5d(gridgroup_hdl%daddr, mask_5d__tmp, SHAPE(mask_5d_))
276        mask_5d_ = mask_5d__tmp
277      ENDIF
278
279      IF (PRESENT(mask_6d_)) THEN
280        ALLOCATE(mask_6d__tmp(SIZE(mask_6d_,1), SIZE(mask_6d_,2), SIZE(mask_6d_,3), SIZE(mask_6d_,4), SIZE(mask_6d_,5), SIZE(mask_6d_,6)))
281        CALL cxios_get_gridgroup_mask_6d(gridgroup_hdl%daddr, mask_6d__tmp, SHAPE(mask_6d_))
282        mask_6d_ = mask_6d__tmp
283      ENDIF
284
285      IF (PRESENT(mask_7d_)) THEN
286        ALLOCATE(mask_7d__tmp(SIZE(mask_7d_,1), SIZE(mask_7d_,2), SIZE(mask_7d_,3), SIZE(mask_7d_,4), SIZE(mask_7d_,5), SIZE(mask_7d_,6), SIZE(mask_7d_,7)))
287        CALL cxios_get_gridgroup_mask_7d(gridgroup_hdl%daddr, mask_7d__tmp, SHAPE(mask_7d_))
288        mask_7d_ = mask_7d__tmp
289      ENDIF
290
291      IF (PRESENT(name_)) THEN
292        CALL cxios_get_gridgroup_name(gridgroup_hdl%daddr, name_, len(name_))
293      ENDIF
294
295  END SUBROUTINE xios(get_gridgroup_attr_hdl_)
296
297  SUBROUTINE xios(is_defined_gridgroup_attr)  &
298    ( gridgroup_id, description, group_ref, mask_1d, mask_2d, mask_3d, mask_4d, mask_5d, mask_6d  &
299    , mask_7d, name )
300
301    IMPLICIT NONE
302      TYPE(txios(gridgroup))  :: gridgroup_hdl
303      CHARACTER(LEN=*), INTENT(IN) ::gridgroup_id
304      LOGICAL, OPTIONAL, INTENT(OUT) :: description
305      LOGICAL(KIND=C_BOOL) :: description_tmp
306      LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref
307      LOGICAL(KIND=C_BOOL) :: group_ref_tmp
308      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_1d
309      LOGICAL(KIND=C_BOOL) :: mask_1d_tmp
310      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_2d
311      LOGICAL(KIND=C_BOOL) :: mask_2d_tmp
312      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_3d
313      LOGICAL(KIND=C_BOOL) :: mask_3d_tmp
314      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_4d
315      LOGICAL(KIND=C_BOOL) :: mask_4d_tmp
316      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_5d
317      LOGICAL(KIND=C_BOOL) :: mask_5d_tmp
318      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_6d
319      LOGICAL(KIND=C_BOOL) :: mask_6d_tmp
320      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_7d
321      LOGICAL(KIND=C_BOOL) :: mask_7d_tmp
322      LOGICAL, OPTIONAL, INTENT(OUT) :: name
323      LOGICAL(KIND=C_BOOL) :: name_tmp
324
325      CALL xios(get_gridgroup_handle)(gridgroup_id,gridgroup_hdl)
326      CALL xios(is_defined_gridgroup_attr_hdl_)   &
327      ( gridgroup_hdl, description, group_ref, mask_1d, mask_2d, mask_3d, mask_4d, mask_5d, mask_6d  &
328      , mask_7d, name )
329
330  END SUBROUTINE xios(is_defined_gridgroup_attr)
331
332  SUBROUTINE xios(is_defined_gridgroup_attr_hdl)  &
333    ( gridgroup_hdl, description, group_ref, mask_1d, mask_2d, mask_3d, mask_4d, mask_5d, mask_6d  &
334    , mask_7d, name )
335
336    IMPLICIT NONE
337      TYPE(txios(gridgroup)) , INTENT(IN) :: gridgroup_hdl
338      LOGICAL, OPTIONAL, INTENT(OUT) :: description
339      LOGICAL(KIND=C_BOOL) :: description_tmp
340      LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref
341      LOGICAL(KIND=C_BOOL) :: group_ref_tmp
342      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_1d
343      LOGICAL(KIND=C_BOOL) :: mask_1d_tmp
344      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_2d
345      LOGICAL(KIND=C_BOOL) :: mask_2d_tmp
346      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_3d
347      LOGICAL(KIND=C_BOOL) :: mask_3d_tmp
348      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_4d
349      LOGICAL(KIND=C_BOOL) :: mask_4d_tmp
350      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_5d
351      LOGICAL(KIND=C_BOOL) :: mask_5d_tmp
352      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_6d
353      LOGICAL(KIND=C_BOOL) :: mask_6d_tmp
354      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_7d
355      LOGICAL(KIND=C_BOOL) :: mask_7d_tmp
356      LOGICAL, OPTIONAL, INTENT(OUT) :: name
357      LOGICAL(KIND=C_BOOL) :: name_tmp
358
359      CALL xios(is_defined_gridgroup_attr_hdl_)  &
360      ( gridgroup_hdl, description, group_ref, mask_1d, mask_2d, mask_3d, mask_4d, mask_5d, mask_6d  &
361      , mask_7d, name )
362
363  END SUBROUTINE xios(is_defined_gridgroup_attr_hdl)
364
365  SUBROUTINE xios(is_defined_gridgroup_attr_hdl_)   &
366    ( gridgroup_hdl, description_, group_ref_, mask_1d_, mask_2d_, mask_3d_, mask_4d_, mask_5d_  &
367    , mask_6d_, mask_7d_, name_ )
368
369    IMPLICIT NONE
370      TYPE(txios(gridgroup)) , INTENT(IN) :: gridgroup_hdl
371      LOGICAL, OPTIONAL, INTENT(OUT) :: description_
372      LOGICAL(KIND=C_BOOL) :: description__tmp
373      LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref_
374      LOGICAL(KIND=C_BOOL) :: group_ref__tmp
375      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_1d_
376      LOGICAL(KIND=C_BOOL) :: mask_1d__tmp
377      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_2d_
378      LOGICAL(KIND=C_BOOL) :: mask_2d__tmp
379      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_3d_
380      LOGICAL(KIND=C_BOOL) :: mask_3d__tmp
381      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_4d_
382      LOGICAL(KIND=C_BOOL) :: mask_4d__tmp
383      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_5d_
384      LOGICAL(KIND=C_BOOL) :: mask_5d__tmp
385      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_6d_
386      LOGICAL(KIND=C_BOOL) :: mask_6d__tmp
387      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_7d_
388      LOGICAL(KIND=C_BOOL) :: mask_7d__tmp
389      LOGICAL, OPTIONAL, INTENT(OUT) :: name_
390      LOGICAL(KIND=C_BOOL) :: name__tmp
391
392      IF (PRESENT(description_)) THEN
393        description__tmp = cxios_is_defined_gridgroup_description(gridgroup_hdl%daddr)
394        description_ = description__tmp
395      ENDIF
396
397      IF (PRESENT(group_ref_)) THEN
398        group_ref__tmp = cxios_is_defined_gridgroup_group_ref(gridgroup_hdl%daddr)
399        group_ref_ = group_ref__tmp
400      ENDIF
401
402      IF (PRESENT(mask_1d_)) THEN
403        mask_1d__tmp = cxios_is_defined_gridgroup_mask_1d(gridgroup_hdl%daddr)
404        mask_1d_ = mask_1d__tmp
405      ENDIF
406
407      IF (PRESENT(mask_2d_)) THEN
408        mask_2d__tmp = cxios_is_defined_gridgroup_mask_2d(gridgroup_hdl%daddr)
409        mask_2d_ = mask_2d__tmp
410      ENDIF
411
412      IF (PRESENT(mask_3d_)) THEN
413        mask_3d__tmp = cxios_is_defined_gridgroup_mask_3d(gridgroup_hdl%daddr)
414        mask_3d_ = mask_3d__tmp
415      ENDIF
416
417      IF (PRESENT(mask_4d_)) THEN
418        mask_4d__tmp = cxios_is_defined_gridgroup_mask_4d(gridgroup_hdl%daddr)
419        mask_4d_ = mask_4d__tmp
420      ENDIF
421
422      IF (PRESENT(mask_5d_)) THEN
423        mask_5d__tmp = cxios_is_defined_gridgroup_mask_5d(gridgroup_hdl%daddr)
424        mask_5d_ = mask_5d__tmp
425      ENDIF
426
427      IF (PRESENT(mask_6d_)) THEN
428        mask_6d__tmp = cxios_is_defined_gridgroup_mask_6d(gridgroup_hdl%daddr)
429        mask_6d_ = mask_6d__tmp
430      ENDIF
431
432      IF (PRESENT(mask_7d_)) THEN
433        mask_7d__tmp = cxios_is_defined_gridgroup_mask_7d(gridgroup_hdl%daddr)
434        mask_7d_ = mask_7d__tmp
435      ENDIF
436
437      IF (PRESENT(name_)) THEN
438        name__tmp = cxios_is_defined_gridgroup_name(gridgroup_hdl%daddr)
439        name_ = name__tmp
440      ENDIF
441
442  END SUBROUTINE xios(is_defined_gridgroup_attr_hdl_)
443
444END MODULE igridgroup_attr
Note: See TracBrowser for help on using the repository browser.