source: XIOS/dev/branch_openmp/src/interface/fortran_attr/igridgroup_attr.F90 @ 1545

Last change on this file since 1545 was 1545, checked in by yushan, 6 years ago

branch_openmp merged with trunk r1544
  • 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: 22.6 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, comment, description, group_ref, mask_0d, mask_1d, mask_2d, mask_3d, mask_4d  &
15    , mask_5d, mask_6d, 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) :: comment
21      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: description
22      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref
23      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_0d(:)
24      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_0d_tmp(:)
25      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_1d(:)
26      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_1d_tmp(:)
27      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_2d(:,:)
28      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_2d_tmp(:,:)
29      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_3d(:,:,:)
30      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_3d_tmp(:,:,:)
31      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_4d(:,:,:,:)
32      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_4d_tmp(:,:,:,:)
33      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_5d(:,:,:,:,:)
34      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_5d_tmp(:,:,:,:,:)
35      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_6d(:,:,:,:,:,:)
36      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_6d_tmp(:,:,:,:,:,:)
37      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_7d(:,:,:,:,:,:,:)
38      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_7d_tmp(:,:,:,:,:,:,:)
39      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
40
41      CALL xios(get_gridgroup_handle) &
42      (gridgroup_id,gridgroup_hdl)
43      CALL xios(set_gridgroup_attr_hdl_)   &
44      ( gridgroup_hdl, comment, description, group_ref, mask_0d, mask_1d, mask_2d, mask_3d, mask_4d  &
45      , mask_5d, mask_6d, mask_7d, name )
46
47  END SUBROUTINE xios(set_gridgroup_attr)
48
49  SUBROUTINE xios(set_gridgroup_attr_hdl)  &
50    ( gridgroup_hdl, comment, description, group_ref, mask_0d, mask_1d, mask_2d, mask_3d, mask_4d  &
51    , mask_5d, mask_6d, mask_7d, name )
52
53    IMPLICIT NONE
54      TYPE(txios(gridgroup)) , INTENT(IN) :: gridgroup_hdl
55      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment
56      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: description
57      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref
58      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_0d(:)
59      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_0d_tmp(:)
60      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_1d(:)
61      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_1d_tmp(:)
62      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_2d(:,:)
63      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_2d_tmp(:,:)
64      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_3d(:,:,:)
65      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_3d_tmp(:,:,:)
66      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_4d(:,:,:,:)
67      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_4d_tmp(:,:,:,:)
68      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_5d(:,:,:,:,:)
69      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_5d_tmp(:,:,:,:,:)
70      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_6d(:,:,:,:,:,:)
71      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_6d_tmp(:,:,:,:,:,:)
72      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_7d(:,:,:,:,:,:,:)
73      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_7d_tmp(:,:,:,:,:,:,:)
74      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
75
76      CALL xios(set_gridgroup_attr_hdl_)  &
77      ( gridgroup_hdl, comment, description, group_ref, mask_0d, mask_1d, mask_2d, mask_3d, mask_4d  &
78      , mask_5d, mask_6d, mask_7d, name )
79
80  END SUBROUTINE xios(set_gridgroup_attr_hdl)
81
82  SUBROUTINE xios(set_gridgroup_attr_hdl_)   &
83    ( gridgroup_hdl, comment_, description_, group_ref_, mask_0d_, mask_1d_, mask_2d_, mask_3d_  &
84    , mask_4d_, mask_5d_, mask_6d_, mask_7d_, name_ )
85
86    IMPLICIT NONE
87      TYPE(txios(gridgroup)) , INTENT(IN) :: gridgroup_hdl
88      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment_
89      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: description_
90      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref_
91      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_0d_(:)
92      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_0d__tmp(:)
93      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_1d_(:)
94      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_1d__tmp(:)
95      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_2d_(:,:)
96      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_2d__tmp(:,:)
97      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_3d_(:,:,:)
98      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_3d__tmp(:,:,:)
99      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_4d_(:,:,:,:)
100      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_4d__tmp(:,:,:,:)
101      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_5d_(:,:,:,:,:)
102      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_5d__tmp(:,:,:,:,:)
103      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_6d_(:,:,:,:,:,:)
104      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_6d__tmp(:,:,:,:,:,:)
105      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_7d_(:,:,:,:,:,:,:)
106      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_7d__tmp(:,:,:,:,:,:,:)
107      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_
108
109      IF (PRESENT(comment_)) THEN
110        CALL cxios_set_gridgroup_comment &
111      (gridgroup_hdl%daddr, comment_, len(comment_))
112      ENDIF
113
114      IF (PRESENT(description_)) THEN
115        CALL cxios_set_gridgroup_description &
116      (gridgroup_hdl%daddr, description_, len(description_))
117      ENDIF
118
119      IF (PRESENT(group_ref_)) THEN
120        CALL cxios_set_gridgroup_group_ref &
121      (gridgroup_hdl%daddr, group_ref_, len(group_ref_))
122      ENDIF
123
124      IF (PRESENT(mask_0d_)) THEN
125        ALLOCATE(mask_0d__tmp(SIZE(mask_0d_,1)))
126        mask_0d__tmp = mask_0d_
127        CALL cxios_set_gridgroup_mask_0d &
128      (gridgroup_hdl%daddr, mask_0d__tmp, SHAPE(mask_0d_))
129      ENDIF
130
131      IF (PRESENT(mask_1d_)) THEN
132        ALLOCATE(mask_1d__tmp(SIZE(mask_1d_,1)))
133        mask_1d__tmp = mask_1d_
134        CALL cxios_set_gridgroup_mask_1d &
135      (gridgroup_hdl%daddr, mask_1d__tmp, SHAPE(mask_1d_))
136      ENDIF
137
138      IF (PRESENT(mask_2d_)) THEN
139        ALLOCATE(mask_2d__tmp(SIZE(mask_2d_,1), SIZE(mask_2d_,2)))
140        mask_2d__tmp = mask_2d_
141        CALL cxios_set_gridgroup_mask_2d &
142      (gridgroup_hdl%daddr, mask_2d__tmp, SHAPE(mask_2d_))
143      ENDIF
144
145      IF (PRESENT(mask_3d_)) THEN
146        ALLOCATE(mask_3d__tmp(SIZE(mask_3d_,1), SIZE(mask_3d_,2), SIZE(mask_3d_,3)))
147        mask_3d__tmp = mask_3d_
148        CALL cxios_set_gridgroup_mask_3d &
149      (gridgroup_hdl%daddr, mask_3d__tmp, SHAPE(mask_3d_))
150      ENDIF
151
152      IF (PRESENT(mask_4d_)) THEN
153        ALLOCATE(mask_4d__tmp(SIZE(mask_4d_,1), SIZE(mask_4d_,2), SIZE(mask_4d_,3), &
154       SIZE(mask_4d_,4)))
155        mask_4d__tmp = mask_4d_
156        CALL cxios_set_gridgroup_mask_4d &
157      (gridgroup_hdl%daddr, mask_4d__tmp, SHAPE(mask_4d_))
158      ENDIF
159
160      IF (PRESENT(mask_5d_)) THEN
161        ALLOCATE(mask_5d__tmp(SIZE(mask_5d_,1), SIZE(mask_5d_,2), SIZE(mask_5d_,3), &
162       SIZE(mask_5d_,4), SIZE(mask_5d_,5)))
163        mask_5d__tmp = mask_5d_
164        CALL cxios_set_gridgroup_mask_5d &
165      (gridgroup_hdl%daddr, mask_5d__tmp, SHAPE(mask_5d_))
166      ENDIF
167
168      IF (PRESENT(mask_6d_)) THEN
169        ALLOCATE(mask_6d__tmp(SIZE(mask_6d_,1), SIZE(mask_6d_,2), SIZE(mask_6d_,3), &
170       SIZE(mask_6d_,4), SIZE(mask_6d_,5), SIZE(mask_6d_,6)))
171        mask_6d__tmp = mask_6d_
172        CALL cxios_set_gridgroup_mask_6d &
173      (gridgroup_hdl%daddr, mask_6d__tmp, SHAPE(mask_6d_))
174      ENDIF
175
176      IF (PRESENT(mask_7d_)) THEN
177        ALLOCATE(mask_7d__tmp(SIZE(mask_7d_,1), SIZE(mask_7d_,2), SIZE(mask_7d_,3), &
178       SIZE(mask_7d_,4), SIZE(mask_7d_,5), SIZE(mask_7d_,6), &
179       SIZE(mask_7d_,7)))
180        mask_7d__tmp = mask_7d_
181        CALL cxios_set_gridgroup_mask_7d &
182      (gridgroup_hdl%daddr, mask_7d__tmp, SHAPE(mask_7d_))
183      ENDIF
184
185      IF (PRESENT(name_)) THEN
186        CALL cxios_set_gridgroup_name &
187      (gridgroup_hdl%daddr, name_, len(name_))
188      ENDIF
189
190  END SUBROUTINE xios(set_gridgroup_attr_hdl_)
191
192  SUBROUTINE xios(get_gridgroup_attr)  &
193    ( gridgroup_id, comment, description, group_ref, mask_0d, mask_1d, mask_2d, mask_3d, mask_4d  &
194    , mask_5d, mask_6d, mask_7d, name )
195
196    IMPLICIT NONE
197      TYPE(txios(gridgroup))  :: gridgroup_hdl
198      CHARACTER(LEN=*), INTENT(IN) ::gridgroup_id
199      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment
200      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: description
201      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref
202      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_0d(:)
203      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_0d_tmp(:)
204      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_1d(:)
205      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_1d_tmp(:)
206      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_2d(:,:)
207      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_2d_tmp(:,:)
208      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_3d(:,:,:)
209      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_3d_tmp(:,:,:)
210      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_4d(:,:,:,:)
211      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_4d_tmp(:,:,:,:)
212      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_5d(:,:,:,:,:)
213      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_5d_tmp(:,:,:,:,:)
214      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_6d(:,:,:,:,:,:)
215      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_6d_tmp(:,:,:,:,:,:)
216      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_7d(:,:,:,:,:,:,:)
217      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_7d_tmp(:,:,:,:,:,:,:)
218      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
219
220      CALL xios(get_gridgroup_handle) &
221      (gridgroup_id,gridgroup_hdl)
222      CALL xios(get_gridgroup_attr_hdl_)   &
223      ( gridgroup_hdl, comment, description, group_ref, mask_0d, mask_1d, mask_2d, mask_3d, mask_4d  &
224      , mask_5d, mask_6d, mask_7d, name )
225
226  END SUBROUTINE xios(get_gridgroup_attr)
227
228  SUBROUTINE xios(get_gridgroup_attr_hdl)  &
229    ( gridgroup_hdl, comment, description, group_ref, mask_0d, mask_1d, mask_2d, mask_3d, mask_4d  &
230    , mask_5d, mask_6d, mask_7d, name )
231
232    IMPLICIT NONE
233      TYPE(txios(gridgroup)) , INTENT(IN) :: gridgroup_hdl
234      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment
235      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: description
236      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref
237      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_0d(:)
238      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_0d_tmp(:)
239      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_1d(:)
240      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_1d_tmp(:)
241      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_2d(:,:)
242      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_2d_tmp(:,:)
243      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_3d(:,:,:)
244      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_3d_tmp(:,:,:)
245      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_4d(:,:,:,:)
246      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_4d_tmp(:,:,:,:)
247      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_5d(:,:,:,:,:)
248      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_5d_tmp(:,:,:,:,:)
249      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_6d(:,:,:,:,:,:)
250      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_6d_tmp(:,:,:,:,:,:)
251      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_7d(:,:,:,:,:,:,:)
252      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_7d_tmp(:,:,:,:,:,:,:)
253      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
254
255      CALL xios(get_gridgroup_attr_hdl_)  &
256      ( gridgroup_hdl, comment, description, group_ref, mask_0d, mask_1d, mask_2d, mask_3d, mask_4d  &
257      , mask_5d, mask_6d, mask_7d, name )
258
259  END SUBROUTINE xios(get_gridgroup_attr_hdl)
260
261  SUBROUTINE xios(get_gridgroup_attr_hdl_)   &
262    ( gridgroup_hdl, comment_, description_, group_ref_, mask_0d_, mask_1d_, mask_2d_, mask_3d_  &
263    , mask_4d_, mask_5d_, mask_6d_, mask_7d_, name_ )
264
265    IMPLICIT NONE
266      TYPE(txios(gridgroup)) , INTENT(IN) :: gridgroup_hdl
267      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment_
268      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: description_
269      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref_
270      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_0d_(:)
271      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_0d__tmp(:)
272      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_1d_(:)
273      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_1d__tmp(:)
274      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_2d_(:,:)
275      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_2d__tmp(:,:)
276      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_3d_(:,:,:)
277      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_3d__tmp(:,:,:)
278      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_4d_(:,:,:,:)
279      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_4d__tmp(:,:,:,:)
280      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_5d_(:,:,:,:,:)
281      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_5d__tmp(:,:,:,:,:)
282      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_6d_(:,:,:,:,:,:)
283      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_6d__tmp(:,:,:,:,:,:)
284      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_7d_(:,:,:,:,:,:,:)
285      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_7d__tmp(:,:,:,:,:,:,:)
286      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_
287
288      IF (PRESENT(comment_)) THEN
289        CALL cxios_get_gridgroup_comment &
290      (gridgroup_hdl%daddr, comment_, len(comment_))
291      ENDIF
292
293      IF (PRESENT(description_)) THEN
294        CALL cxios_get_gridgroup_description &
295      (gridgroup_hdl%daddr, description_, len(description_))
296      ENDIF
297
298      IF (PRESENT(group_ref_)) THEN
299        CALL cxios_get_gridgroup_group_ref &
300      (gridgroup_hdl%daddr, group_ref_, len(group_ref_))
301      ENDIF
302
303      IF (PRESENT(mask_0d_)) THEN
304        ALLOCATE(mask_0d__tmp(SIZE(mask_0d_,1)))
305        CALL cxios_get_gridgroup_mask_0d &
306      (gridgroup_hdl%daddr, mask_0d__tmp, SHAPE(mask_0d_))
307        mask_0d_ = mask_0d__tmp
308      ENDIF
309
310      IF (PRESENT(mask_1d_)) THEN
311        ALLOCATE(mask_1d__tmp(SIZE(mask_1d_,1)))
312        CALL cxios_get_gridgroup_mask_1d &
313      (gridgroup_hdl%daddr, mask_1d__tmp, SHAPE(mask_1d_))
314        mask_1d_ = mask_1d__tmp
315      ENDIF
316
317      IF (PRESENT(mask_2d_)) THEN
318        ALLOCATE(mask_2d__tmp(SIZE(mask_2d_,1), SIZE(mask_2d_,2)))
319        CALL cxios_get_gridgroup_mask_2d &
320      (gridgroup_hdl%daddr, mask_2d__tmp, SHAPE(mask_2d_))
321        mask_2d_ = mask_2d__tmp
322      ENDIF
323
324      IF (PRESENT(mask_3d_)) THEN
325        ALLOCATE(mask_3d__tmp(SIZE(mask_3d_,1), SIZE(mask_3d_,2), SIZE(mask_3d_,3)))
326        CALL cxios_get_gridgroup_mask_3d &
327      (gridgroup_hdl%daddr, mask_3d__tmp, SHAPE(mask_3d_))
328        mask_3d_ = mask_3d__tmp
329      ENDIF
330
331      IF (PRESENT(mask_4d_)) THEN
332        ALLOCATE(mask_4d__tmp(SIZE(mask_4d_,1), SIZE(mask_4d_,2), SIZE(mask_4d_,3), &
333       SIZE(mask_4d_,4)))
334        CALL cxios_get_gridgroup_mask_4d &
335      (gridgroup_hdl%daddr, mask_4d__tmp, SHAPE(mask_4d_))
336        mask_4d_ = mask_4d__tmp
337      ENDIF
338
339      IF (PRESENT(mask_5d_)) THEN
340        ALLOCATE(mask_5d__tmp(SIZE(mask_5d_,1), SIZE(mask_5d_,2), SIZE(mask_5d_,3), &
341       SIZE(mask_5d_,4), SIZE(mask_5d_,5)))
342        CALL cxios_get_gridgroup_mask_5d &
343      (gridgroup_hdl%daddr, mask_5d__tmp, SHAPE(mask_5d_))
344        mask_5d_ = mask_5d__tmp
345      ENDIF
346
347      IF (PRESENT(mask_6d_)) THEN
348        ALLOCATE(mask_6d__tmp(SIZE(mask_6d_,1), SIZE(mask_6d_,2), SIZE(mask_6d_,3), &
349       SIZE(mask_6d_,4), SIZE(mask_6d_,5), SIZE(mask_6d_,6)))
350        CALL cxios_get_gridgroup_mask_6d &
351      (gridgroup_hdl%daddr, mask_6d__tmp, SHAPE(mask_6d_))
352        mask_6d_ = mask_6d__tmp
353      ENDIF
354
355      IF (PRESENT(mask_7d_)) THEN
356        ALLOCATE(mask_7d__tmp(SIZE(mask_7d_,1), SIZE(mask_7d_,2), SIZE(mask_7d_,3), &
357       SIZE(mask_7d_,4), SIZE(mask_7d_,5), SIZE(mask_7d_,6), &
358       SIZE(mask_7d_,7)))
359        CALL cxios_get_gridgroup_mask_7d &
360      (gridgroup_hdl%daddr, mask_7d__tmp, SHAPE(mask_7d_))
361        mask_7d_ = mask_7d__tmp
362      ENDIF
363
364      IF (PRESENT(name_)) THEN
365        CALL cxios_get_gridgroup_name &
366      (gridgroup_hdl%daddr, name_, len(name_))
367      ENDIF
368
369  END SUBROUTINE xios(get_gridgroup_attr_hdl_)
370
371  SUBROUTINE xios(is_defined_gridgroup_attr)  &
372    ( gridgroup_id, comment, description, group_ref, mask_0d, mask_1d, mask_2d, mask_3d, mask_4d  &
373    , mask_5d, mask_6d, mask_7d, name )
374
375    IMPLICIT NONE
376      TYPE(txios(gridgroup))  :: gridgroup_hdl
377      CHARACTER(LEN=*), INTENT(IN) ::gridgroup_id
378      LOGICAL, OPTIONAL, INTENT(OUT) :: comment
379      LOGICAL(KIND=C_BOOL) :: comment_tmp
380      LOGICAL, OPTIONAL, INTENT(OUT) :: description
381      LOGICAL(KIND=C_BOOL) :: description_tmp
382      LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref
383      LOGICAL(KIND=C_BOOL) :: group_ref_tmp
384      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_0d
385      LOGICAL(KIND=C_BOOL) :: mask_0d_tmp
386      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_1d
387      LOGICAL(KIND=C_BOOL) :: mask_1d_tmp
388      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_2d
389      LOGICAL(KIND=C_BOOL) :: mask_2d_tmp
390      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_3d
391      LOGICAL(KIND=C_BOOL) :: mask_3d_tmp
392      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_4d
393      LOGICAL(KIND=C_BOOL) :: mask_4d_tmp
394      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_5d
395      LOGICAL(KIND=C_BOOL) :: mask_5d_tmp
396      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_6d
397      LOGICAL(KIND=C_BOOL) :: mask_6d_tmp
398      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_7d
399      LOGICAL(KIND=C_BOOL) :: mask_7d_tmp
400      LOGICAL, OPTIONAL, INTENT(OUT) :: name
401      LOGICAL(KIND=C_BOOL) :: name_tmp
402
403      CALL xios(get_gridgroup_handle) &
404      (gridgroup_id,gridgroup_hdl)
405      CALL xios(is_defined_gridgroup_attr_hdl_)   &
406      ( gridgroup_hdl, comment, description, group_ref, mask_0d, mask_1d, mask_2d, mask_3d, mask_4d  &
407      , mask_5d, mask_6d, mask_7d, name )
408
409  END SUBROUTINE xios(is_defined_gridgroup_attr)
410
411  SUBROUTINE xios(is_defined_gridgroup_attr_hdl)  &
412    ( gridgroup_hdl, comment, description, group_ref, mask_0d, mask_1d, mask_2d, mask_3d, mask_4d  &
413    , mask_5d, mask_6d, mask_7d, name )
414
415    IMPLICIT NONE
416      TYPE(txios(gridgroup)) , INTENT(IN) :: gridgroup_hdl
417      LOGICAL, OPTIONAL, INTENT(OUT) :: comment
418      LOGICAL(KIND=C_BOOL) :: comment_tmp
419      LOGICAL, OPTIONAL, INTENT(OUT) :: description
420      LOGICAL(KIND=C_BOOL) :: description_tmp
421      LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref
422      LOGICAL(KIND=C_BOOL) :: group_ref_tmp
423      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_0d
424      LOGICAL(KIND=C_BOOL) :: mask_0d_tmp
425      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_1d
426      LOGICAL(KIND=C_BOOL) :: mask_1d_tmp
427      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_2d
428      LOGICAL(KIND=C_BOOL) :: mask_2d_tmp
429      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_3d
430      LOGICAL(KIND=C_BOOL) :: mask_3d_tmp
431      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_4d
432      LOGICAL(KIND=C_BOOL) :: mask_4d_tmp
433      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_5d
434      LOGICAL(KIND=C_BOOL) :: mask_5d_tmp
435      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_6d
436      LOGICAL(KIND=C_BOOL) :: mask_6d_tmp
437      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_7d
438      LOGICAL(KIND=C_BOOL) :: mask_7d_tmp
439      LOGICAL, OPTIONAL, INTENT(OUT) :: name
440      LOGICAL(KIND=C_BOOL) :: name_tmp
441
442      CALL xios(is_defined_gridgroup_attr_hdl_)  &
443      ( gridgroup_hdl, comment, description, group_ref, mask_0d, mask_1d, mask_2d, mask_3d, mask_4d  &
444      , mask_5d, mask_6d, mask_7d, name )
445
446  END SUBROUTINE xios(is_defined_gridgroup_attr_hdl)
447
448  SUBROUTINE xios(is_defined_gridgroup_attr_hdl_)   &
449    ( gridgroup_hdl, comment_, description_, group_ref_, mask_0d_, mask_1d_, mask_2d_, mask_3d_  &
450    , mask_4d_, mask_5d_, mask_6d_, mask_7d_, name_ )
451
452    IMPLICIT NONE
453      TYPE(txios(gridgroup)) , INTENT(IN) :: gridgroup_hdl
454      LOGICAL, OPTIONAL, INTENT(OUT) :: comment_
455      LOGICAL(KIND=C_BOOL) :: comment__tmp
456      LOGICAL, OPTIONAL, INTENT(OUT) :: description_
457      LOGICAL(KIND=C_BOOL) :: description__tmp
458      LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref_
459      LOGICAL(KIND=C_BOOL) :: group_ref__tmp
460      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_0d_
461      LOGICAL(KIND=C_BOOL) :: mask_0d__tmp
462      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_1d_
463      LOGICAL(KIND=C_BOOL) :: mask_1d__tmp
464      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_2d_
465      LOGICAL(KIND=C_BOOL) :: mask_2d__tmp
466      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_3d_
467      LOGICAL(KIND=C_BOOL) :: mask_3d__tmp
468      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_4d_
469      LOGICAL(KIND=C_BOOL) :: mask_4d__tmp
470      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_5d_
471      LOGICAL(KIND=C_BOOL) :: mask_5d__tmp
472      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_6d_
473      LOGICAL(KIND=C_BOOL) :: mask_6d__tmp
474      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_7d_
475      LOGICAL(KIND=C_BOOL) :: mask_7d__tmp
476      LOGICAL, OPTIONAL, INTENT(OUT) :: name_
477      LOGICAL(KIND=C_BOOL) :: name__tmp
478
479      IF (PRESENT(comment_)) THEN
480        comment__tmp = cxios_is_defined_gridgroup_comment &
481      (gridgroup_hdl%daddr)
482        comment_ = comment__tmp
483      ENDIF
484
485      IF (PRESENT(description_)) THEN
486        description__tmp = cxios_is_defined_gridgroup_description &
487      (gridgroup_hdl%daddr)
488        description_ = description__tmp
489      ENDIF
490
491      IF (PRESENT(group_ref_)) THEN
492        group_ref__tmp = cxios_is_defined_gridgroup_group_ref &
493      (gridgroup_hdl%daddr)
494        group_ref_ = group_ref__tmp
495      ENDIF
496
497      IF (PRESENT(mask_0d_)) THEN
498        mask_0d__tmp = cxios_is_defined_gridgroup_mask_0d &
499      (gridgroup_hdl%daddr)
500        mask_0d_ = mask_0d__tmp
501      ENDIF
502
503      IF (PRESENT(mask_1d_)) THEN
504        mask_1d__tmp = cxios_is_defined_gridgroup_mask_1d &
505      (gridgroup_hdl%daddr)
506        mask_1d_ = mask_1d__tmp
507      ENDIF
508
509      IF (PRESENT(mask_2d_)) THEN
510        mask_2d__tmp = cxios_is_defined_gridgroup_mask_2d &
511      (gridgroup_hdl%daddr)
512        mask_2d_ = mask_2d__tmp
513      ENDIF
514
515      IF (PRESENT(mask_3d_)) THEN
516        mask_3d__tmp = cxios_is_defined_gridgroup_mask_3d &
517      (gridgroup_hdl%daddr)
518        mask_3d_ = mask_3d__tmp
519      ENDIF
520
521      IF (PRESENT(mask_4d_)) THEN
522        mask_4d__tmp = cxios_is_defined_gridgroup_mask_4d &
523      (gridgroup_hdl%daddr)
524        mask_4d_ = mask_4d__tmp
525      ENDIF
526
527      IF (PRESENT(mask_5d_)) THEN
528        mask_5d__tmp = cxios_is_defined_gridgroup_mask_5d &
529      (gridgroup_hdl%daddr)
530        mask_5d_ = mask_5d__tmp
531      ENDIF
532
533      IF (PRESENT(mask_6d_)) THEN
534        mask_6d__tmp = cxios_is_defined_gridgroup_mask_6d &
535      (gridgroup_hdl%daddr)
536        mask_6d_ = mask_6d__tmp
537      ENDIF
538
539      IF (PRESENT(mask_7d_)) THEN
540        mask_7d__tmp = cxios_is_defined_gridgroup_mask_7d &
541      (gridgroup_hdl%daddr)
542        mask_7d_ = mask_7d__tmp
543      ENDIF
544
545      IF (PRESENT(name_)) THEN
546        name__tmp = cxios_is_defined_gridgroup_name &
547      (gridgroup_hdl%daddr)
548        name_ = name__tmp
549      ENDIF
550
551  END SUBROUTINE xios(is_defined_gridgroup_attr_hdl_)
552
553END MODULE igridgroup_attr
Note: See TracBrowser for help on using the repository browser.