source: XIOS/dev/branch_yushan_merged/src/interface/fortran_attr/igrid_attr.F90 @ 1205

Last change on this file since 1205 was 966, checked in by mhnguyen, 7 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: 17.9 KB
Line 
1! * ************************************************************************** *
2! *               Interface auto generated - do not modify                     *
3! * ************************************************************************** *
4#include "xios_fortran_prefix.hpp"
5
6MODULE igrid_attr
7  USE, INTRINSIC :: ISO_C_BINDING
8  USE igrid
9  USE grid_interface_attr
10
11CONTAINS
12
13  SUBROUTINE xios(set_grid_attr)  &
14    ( grid_id, description, mask_1d, mask_2d, mask_3d, mask_4d, mask_5d, mask_6d, mask_7d, name  &
15     )
16
17    IMPLICIT NONE
18      TYPE(txios(grid))  :: grid_hdl
19      CHARACTER(LEN=*), INTENT(IN) ::grid_id
20      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: description
21      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_1d(:)
22      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_1d_tmp(:)
23      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_2d(:,:)
24      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_2d_tmp(:,:)
25      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_3d(:,:,:)
26      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_3d_tmp(:,:,:)
27      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_4d(:,:,:,:)
28      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_4d_tmp(:,:,:,:)
29      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_5d(:,:,:,:,:)
30      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_5d_tmp(:,:,:,:,:)
31      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_6d(:,:,:,:,:,:)
32      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_6d_tmp(:,:,:,:,:,:)
33      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_7d(:,:,:,:,:,:,:)
34      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_7d_tmp(:,:,:,:,:,:,:)
35      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
36
37      CALL xios(get_grid_handle) &
38      (grid_id,grid_hdl)
39      CALL xios(set_grid_attr_hdl_)   &
40      ( grid_hdl, description, mask_1d, mask_2d, mask_3d, mask_4d, mask_5d, mask_6d, mask_7d, name  &
41       )
42
43  END SUBROUTINE xios(set_grid_attr)
44
45  SUBROUTINE xios(set_grid_attr_hdl)  &
46    ( grid_hdl, description, mask_1d, mask_2d, mask_3d, mask_4d, mask_5d, mask_6d, mask_7d, name  &
47     )
48
49    IMPLICIT NONE
50      TYPE(txios(grid)) , INTENT(IN) :: grid_hdl
51      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: description
52      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_1d(:)
53      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_1d_tmp(:)
54      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_2d(:,:)
55      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_2d_tmp(:,:)
56      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_3d(:,:,:)
57      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_3d_tmp(:,:,:)
58      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_4d(:,:,:,:)
59      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_4d_tmp(:,:,:,:)
60      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_5d(:,:,:,:,:)
61      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_5d_tmp(:,:,:,:,:)
62      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_6d(:,:,:,:,:,:)
63      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_6d_tmp(:,:,:,:,:,:)
64      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_7d(:,:,:,:,:,:,:)
65      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_7d_tmp(:,:,:,:,:,:,:)
66      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
67
68      CALL xios(set_grid_attr_hdl_)  &
69      ( grid_hdl, description, mask_1d, mask_2d, mask_3d, mask_4d, mask_5d, mask_6d, mask_7d, name  &
70       )
71
72  END SUBROUTINE xios(set_grid_attr_hdl)
73
74  SUBROUTINE xios(set_grid_attr_hdl_)   &
75    ( grid_hdl, description_, mask_1d_, mask_2d_, mask_3d_, mask_4d_, mask_5d_, mask_6d_, mask_7d_  &
76    , name_ )
77
78    IMPLICIT NONE
79      TYPE(txios(grid)) , INTENT(IN) :: grid_hdl
80      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: description_
81      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_1d_(:)
82      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_1d__tmp(:)
83      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_2d_(:,:)
84      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_2d__tmp(:,:)
85      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_3d_(:,:,:)
86      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_3d__tmp(:,:,:)
87      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_4d_(:,:,:,:)
88      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_4d__tmp(:,:,:,:)
89      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_5d_(:,:,:,:,:)
90      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_5d__tmp(:,:,:,:,:)
91      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_6d_(:,:,:,:,:,:)
92      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_6d__tmp(:,:,:,:,:,:)
93      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_7d_(:,:,:,:,:,:,:)
94      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_7d__tmp(:,:,:,:,:,:,:)
95      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_
96
97      IF (PRESENT(description_)) THEN
98        CALL cxios_set_grid_description &
99      (grid_hdl%daddr, description_, len(description_))
100      ENDIF
101
102      IF (PRESENT(mask_1d_)) THEN
103        ALLOCATE(mask_1d__tmp(SIZE(mask_1d_,1)))
104        mask_1d__tmp = mask_1d_
105        CALL cxios_set_grid_mask_1d &
106      (grid_hdl%daddr, mask_1d__tmp, SHAPE(mask_1d_))
107      ENDIF
108
109      IF (PRESENT(mask_2d_)) THEN
110        ALLOCATE(mask_2d__tmp(SIZE(mask_2d_,1), SIZE(mask_2d_,2)))
111        mask_2d__tmp = mask_2d_
112        CALL cxios_set_grid_mask_2d &
113      (grid_hdl%daddr, mask_2d__tmp, SHAPE(mask_2d_))
114      ENDIF
115
116      IF (PRESENT(mask_3d_)) THEN
117        ALLOCATE(mask_3d__tmp(SIZE(mask_3d_,1), SIZE(mask_3d_,2), SIZE(mask_3d_,3)))
118        mask_3d__tmp = mask_3d_
119        CALL cxios_set_grid_mask_3d &
120      (grid_hdl%daddr, mask_3d__tmp, SHAPE(mask_3d_))
121      ENDIF
122
123      IF (PRESENT(mask_4d_)) THEN
124        ALLOCATE(mask_4d__tmp(SIZE(mask_4d_,1), SIZE(mask_4d_,2), SIZE(mask_4d_,3), &
125       SIZE(mask_4d_,4)))
126        mask_4d__tmp = mask_4d_
127        CALL cxios_set_grid_mask_4d &
128      (grid_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), &
133       SIZE(mask_5d_,4), SIZE(mask_5d_,5)))
134        mask_5d__tmp = mask_5d_
135        CALL cxios_set_grid_mask_5d &
136      (grid_hdl%daddr, mask_5d__tmp, SHAPE(mask_5d_))
137      ENDIF
138
139      IF (PRESENT(mask_6d_)) THEN
140        ALLOCATE(mask_6d__tmp(SIZE(mask_6d_,1), SIZE(mask_6d_,2), SIZE(mask_6d_,3), &
141       SIZE(mask_6d_,4), SIZE(mask_6d_,5), SIZE(mask_6d_,6)))
142        mask_6d__tmp = mask_6d_
143        CALL cxios_set_grid_mask_6d &
144      (grid_hdl%daddr, mask_6d__tmp, SHAPE(mask_6d_))
145      ENDIF
146
147      IF (PRESENT(mask_7d_)) THEN
148        ALLOCATE(mask_7d__tmp(SIZE(mask_7d_,1), SIZE(mask_7d_,2), SIZE(mask_7d_,3), &
149       SIZE(mask_7d_,4), SIZE(mask_7d_,5), SIZE(mask_7d_,6), &
150       SIZE(mask_7d_,7)))
151        mask_7d__tmp = mask_7d_
152        CALL cxios_set_grid_mask_7d &
153      (grid_hdl%daddr, mask_7d__tmp, SHAPE(mask_7d_))
154      ENDIF
155
156      IF (PRESENT(name_)) THEN
157        CALL cxios_set_grid_name &
158      (grid_hdl%daddr, name_, len(name_))
159      ENDIF
160
161  END SUBROUTINE xios(set_grid_attr_hdl_)
162
163  SUBROUTINE xios(get_grid_attr)  &
164    ( grid_id, description, mask_1d, mask_2d, mask_3d, mask_4d, mask_5d, mask_6d, mask_7d, name  &
165     )
166
167    IMPLICIT NONE
168      TYPE(txios(grid))  :: grid_hdl
169      CHARACTER(LEN=*), INTENT(IN) ::grid_id
170      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: description
171      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_1d(:)
172      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_1d_tmp(:)
173      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_2d(:,:)
174      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_2d_tmp(:,:)
175      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_3d(:,:,:)
176      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_3d_tmp(:,:,:)
177      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_4d(:,:,:,:)
178      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_4d_tmp(:,:,:,:)
179      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_5d(:,:,:,:,:)
180      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_5d_tmp(:,:,:,:,:)
181      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_6d(:,:,:,:,:,:)
182      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_6d_tmp(:,:,:,:,:,:)
183      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_7d(:,:,:,:,:,:,:)
184      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_7d_tmp(:,:,:,:,:,:,:)
185      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
186
187      CALL xios(get_grid_handle) &
188      (grid_id,grid_hdl)
189      CALL xios(get_grid_attr_hdl_)   &
190      ( grid_hdl, description, mask_1d, mask_2d, mask_3d, mask_4d, mask_5d, mask_6d, mask_7d, name  &
191       )
192
193  END SUBROUTINE xios(get_grid_attr)
194
195  SUBROUTINE xios(get_grid_attr_hdl)  &
196    ( grid_hdl, description, mask_1d, mask_2d, mask_3d, mask_4d, mask_5d, mask_6d, mask_7d, name  &
197     )
198
199    IMPLICIT NONE
200      TYPE(txios(grid)) , INTENT(IN) :: grid_hdl
201      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: description
202      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_1d(:)
203      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_1d_tmp(:)
204      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_2d(:,:)
205      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_2d_tmp(:,:)
206      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_3d(:,:,:)
207      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_3d_tmp(:,:,:)
208      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_4d(:,:,:,:)
209      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_4d_tmp(:,:,:,:)
210      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_5d(:,:,:,:,:)
211      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_5d_tmp(:,:,:,:,:)
212      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_6d(:,:,:,:,:,:)
213      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_6d_tmp(:,:,:,:,:,:)
214      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_7d(:,:,:,:,:,:,:)
215      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_7d_tmp(:,:,:,:,:,:,:)
216      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
217
218      CALL xios(get_grid_attr_hdl_)  &
219      ( grid_hdl, description, mask_1d, mask_2d, mask_3d, mask_4d, mask_5d, mask_6d, mask_7d, name  &
220       )
221
222  END SUBROUTINE xios(get_grid_attr_hdl)
223
224  SUBROUTINE xios(get_grid_attr_hdl_)   &
225    ( grid_hdl, description_, mask_1d_, mask_2d_, mask_3d_, mask_4d_, mask_5d_, mask_6d_, mask_7d_  &
226    , name_ )
227
228    IMPLICIT NONE
229      TYPE(txios(grid)) , INTENT(IN) :: grid_hdl
230      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: description_
231      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_1d_(:)
232      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_1d__tmp(:)
233      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_2d_(:,:)
234      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_2d__tmp(:,:)
235      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_3d_(:,:,:)
236      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_3d__tmp(:,:,:)
237      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_4d_(:,:,:,:)
238      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_4d__tmp(:,:,:,:)
239      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_5d_(:,:,:,:,:)
240      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_5d__tmp(:,:,:,:,:)
241      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_6d_(:,:,:,:,:,:)
242      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_6d__tmp(:,:,:,:,:,:)
243      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_7d_(:,:,:,:,:,:,:)
244      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_7d__tmp(:,:,:,:,:,:,:)
245      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_
246
247      IF (PRESENT(description_)) THEN
248        CALL cxios_get_grid_description &
249      (grid_hdl%daddr, description_, len(description_))
250      ENDIF
251
252      IF (PRESENT(mask_1d_)) THEN
253        ALLOCATE(mask_1d__tmp(SIZE(mask_1d_,1)))
254        CALL cxios_get_grid_mask_1d &
255      (grid_hdl%daddr, mask_1d__tmp, SHAPE(mask_1d_))
256        mask_1d_ = mask_1d__tmp
257      ENDIF
258
259      IF (PRESENT(mask_2d_)) THEN
260        ALLOCATE(mask_2d__tmp(SIZE(mask_2d_,1), SIZE(mask_2d_,2)))
261        CALL cxios_get_grid_mask_2d &
262      (grid_hdl%daddr, mask_2d__tmp, SHAPE(mask_2d_))
263        mask_2d_ = mask_2d__tmp
264      ENDIF
265
266      IF (PRESENT(mask_3d_)) THEN
267        ALLOCATE(mask_3d__tmp(SIZE(mask_3d_,1), SIZE(mask_3d_,2), SIZE(mask_3d_,3)))
268        CALL cxios_get_grid_mask_3d &
269      (grid_hdl%daddr, mask_3d__tmp, SHAPE(mask_3d_))
270        mask_3d_ = mask_3d__tmp
271      ENDIF
272
273      IF (PRESENT(mask_4d_)) THEN
274        ALLOCATE(mask_4d__tmp(SIZE(mask_4d_,1), SIZE(mask_4d_,2), SIZE(mask_4d_,3), &
275       SIZE(mask_4d_,4)))
276        CALL cxios_get_grid_mask_4d &
277      (grid_hdl%daddr, mask_4d__tmp, SHAPE(mask_4d_))
278        mask_4d_ = mask_4d__tmp
279      ENDIF
280
281      IF (PRESENT(mask_5d_)) THEN
282        ALLOCATE(mask_5d__tmp(SIZE(mask_5d_,1), SIZE(mask_5d_,2), SIZE(mask_5d_,3), &
283       SIZE(mask_5d_,4), SIZE(mask_5d_,5)))
284        CALL cxios_get_grid_mask_5d &
285      (grid_hdl%daddr, mask_5d__tmp, SHAPE(mask_5d_))
286        mask_5d_ = mask_5d__tmp
287      ENDIF
288
289      IF (PRESENT(mask_6d_)) THEN
290        ALLOCATE(mask_6d__tmp(SIZE(mask_6d_,1), SIZE(mask_6d_,2), SIZE(mask_6d_,3), &
291       SIZE(mask_6d_,4), SIZE(mask_6d_,5), SIZE(mask_6d_,6)))
292        CALL cxios_get_grid_mask_6d &
293      (grid_hdl%daddr, mask_6d__tmp, SHAPE(mask_6d_))
294        mask_6d_ = mask_6d__tmp
295      ENDIF
296
297      IF (PRESENT(mask_7d_)) THEN
298        ALLOCATE(mask_7d__tmp(SIZE(mask_7d_,1), SIZE(mask_7d_,2), SIZE(mask_7d_,3), &
299       SIZE(mask_7d_,4), SIZE(mask_7d_,5), SIZE(mask_7d_,6), &
300       SIZE(mask_7d_,7)))
301        CALL cxios_get_grid_mask_7d &
302      (grid_hdl%daddr, mask_7d__tmp, SHAPE(mask_7d_))
303        mask_7d_ = mask_7d__tmp
304      ENDIF
305
306      IF (PRESENT(name_)) THEN
307        CALL cxios_get_grid_name &
308      (grid_hdl%daddr, name_, len(name_))
309      ENDIF
310
311  END SUBROUTINE xios(get_grid_attr_hdl_)
312
313  SUBROUTINE xios(is_defined_grid_attr)  &
314    ( grid_id, description, mask_1d, mask_2d, mask_3d, mask_4d, mask_5d, mask_6d, mask_7d, name  &
315     )
316
317    IMPLICIT NONE
318      TYPE(txios(grid))  :: grid_hdl
319      CHARACTER(LEN=*), INTENT(IN) ::grid_id
320      LOGICAL, OPTIONAL, INTENT(OUT) :: description
321      LOGICAL(KIND=C_BOOL) :: description_tmp
322      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_1d
323      LOGICAL(KIND=C_BOOL) :: mask_1d_tmp
324      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_2d
325      LOGICAL(KIND=C_BOOL) :: mask_2d_tmp
326      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_3d
327      LOGICAL(KIND=C_BOOL) :: mask_3d_tmp
328      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_4d
329      LOGICAL(KIND=C_BOOL) :: mask_4d_tmp
330      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_5d
331      LOGICAL(KIND=C_BOOL) :: mask_5d_tmp
332      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_6d
333      LOGICAL(KIND=C_BOOL) :: mask_6d_tmp
334      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_7d
335      LOGICAL(KIND=C_BOOL) :: mask_7d_tmp
336      LOGICAL, OPTIONAL, INTENT(OUT) :: name
337      LOGICAL(KIND=C_BOOL) :: name_tmp
338
339      CALL xios(get_grid_handle) &
340      (grid_id,grid_hdl)
341      CALL xios(is_defined_grid_attr_hdl_)   &
342      ( grid_hdl, description, mask_1d, mask_2d, mask_3d, mask_4d, mask_5d, mask_6d, mask_7d, name  &
343       )
344
345  END SUBROUTINE xios(is_defined_grid_attr)
346
347  SUBROUTINE xios(is_defined_grid_attr_hdl)  &
348    ( grid_hdl, description, mask_1d, mask_2d, mask_3d, mask_4d, mask_5d, mask_6d, mask_7d, name  &
349     )
350
351    IMPLICIT NONE
352      TYPE(txios(grid)) , INTENT(IN) :: grid_hdl
353      LOGICAL, OPTIONAL, INTENT(OUT) :: description
354      LOGICAL(KIND=C_BOOL) :: description_tmp
355      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_1d
356      LOGICAL(KIND=C_BOOL) :: mask_1d_tmp
357      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_2d
358      LOGICAL(KIND=C_BOOL) :: mask_2d_tmp
359      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_3d
360      LOGICAL(KIND=C_BOOL) :: mask_3d_tmp
361      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_4d
362      LOGICAL(KIND=C_BOOL) :: mask_4d_tmp
363      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_5d
364      LOGICAL(KIND=C_BOOL) :: mask_5d_tmp
365      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_6d
366      LOGICAL(KIND=C_BOOL) :: mask_6d_tmp
367      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_7d
368      LOGICAL(KIND=C_BOOL) :: mask_7d_tmp
369      LOGICAL, OPTIONAL, INTENT(OUT) :: name
370      LOGICAL(KIND=C_BOOL) :: name_tmp
371
372      CALL xios(is_defined_grid_attr_hdl_)  &
373      ( grid_hdl, description, mask_1d, mask_2d, mask_3d, mask_4d, mask_5d, mask_6d, mask_7d, name  &
374       )
375
376  END SUBROUTINE xios(is_defined_grid_attr_hdl)
377
378  SUBROUTINE xios(is_defined_grid_attr_hdl_)   &
379    ( grid_hdl, description_, mask_1d_, mask_2d_, mask_3d_, mask_4d_, mask_5d_, mask_6d_, mask_7d_  &
380    , name_ )
381
382    IMPLICIT NONE
383      TYPE(txios(grid)) , INTENT(IN) :: grid_hdl
384      LOGICAL, OPTIONAL, INTENT(OUT) :: description_
385      LOGICAL(KIND=C_BOOL) :: description__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      IF (PRESENT(description_)) THEN
404        description__tmp = cxios_is_defined_grid_description &
405      (grid_hdl%daddr)
406        description_ = description__tmp
407      ENDIF
408
409      IF (PRESENT(mask_1d_)) THEN
410        mask_1d__tmp = cxios_is_defined_grid_mask_1d &
411      (grid_hdl%daddr)
412        mask_1d_ = mask_1d__tmp
413      ENDIF
414
415      IF (PRESENT(mask_2d_)) THEN
416        mask_2d__tmp = cxios_is_defined_grid_mask_2d &
417      (grid_hdl%daddr)
418        mask_2d_ = mask_2d__tmp
419      ENDIF
420
421      IF (PRESENT(mask_3d_)) THEN
422        mask_3d__tmp = cxios_is_defined_grid_mask_3d &
423      (grid_hdl%daddr)
424        mask_3d_ = mask_3d__tmp
425      ENDIF
426
427      IF (PRESENT(mask_4d_)) THEN
428        mask_4d__tmp = cxios_is_defined_grid_mask_4d &
429      (grid_hdl%daddr)
430        mask_4d_ = mask_4d__tmp
431      ENDIF
432
433      IF (PRESENT(mask_5d_)) THEN
434        mask_5d__tmp = cxios_is_defined_grid_mask_5d &
435      (grid_hdl%daddr)
436        mask_5d_ = mask_5d__tmp
437      ENDIF
438
439      IF (PRESENT(mask_6d_)) THEN
440        mask_6d__tmp = cxios_is_defined_grid_mask_6d &
441      (grid_hdl%daddr)
442        mask_6d_ = mask_6d__tmp
443      ENDIF
444
445      IF (PRESENT(mask_7d_)) THEN
446        mask_7d__tmp = cxios_is_defined_grid_mask_7d &
447      (grid_hdl%daddr)
448        mask_7d_ = mask_7d__tmp
449      ENDIF
450
451      IF (PRESENT(name_)) THEN
452        name__tmp = cxios_is_defined_grid_name &
453      (grid_hdl%daddr)
454        name_ = name__tmp
455      ENDIF
456
457  END SUBROUTINE xios(is_defined_grid_attr_hdl_)
458
459END MODULE igrid_attr
Note: See TracBrowser for help on using the repository browser.