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

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

Rename axisDomainOrder attribute to axis_domain_order.

"Snake case" is used everywhere else and camel case seems to confuse PGI compilers.
  • 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: 13.8 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, axis_domain_order, description, group_ref, mask1, mask2, mask3, name )
15   
16    IMPLICIT NONE
17      TYPE(txios(gridgroup))  :: gridgroup_hdl
18      CHARACTER(LEN=*), INTENT(IN) ::gridgroup_id
19      LOGICAL  , OPTIONAL, INTENT(IN) :: axis_domain_order(:)
20      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: axis_domain_order_tmp(:)
21      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: description
22      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref
23      LOGICAL  , OPTIONAL, INTENT(IN) :: mask1(:)
24      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask1_tmp(:)
25      LOGICAL  , OPTIONAL, INTENT(IN) :: mask2(:,:)
26      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask2_tmp(:,:)
27      LOGICAL  , OPTIONAL, INTENT(IN) :: mask3(:,:,:)
28      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask3_tmp(:,:,:)
29      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
30     
31      CALL xios(get_gridgroup_handle)(gridgroup_id,gridgroup_hdl)
32      CALL xios(set_gridgroup_attr_hdl_)   &
33      ( gridgroup_hdl, axis_domain_order, description, group_ref, mask1, mask2, mask3, name )
34   
35  END SUBROUTINE xios(set_gridgroup_attr)
36 
37  SUBROUTINE xios(set_gridgroup_attr_hdl)  &
38    ( gridgroup_hdl, axis_domain_order, description, group_ref, mask1, mask2, mask3, name )
39   
40    IMPLICIT NONE
41      TYPE(txios(gridgroup)) , INTENT(IN) :: gridgroup_hdl
42      LOGICAL  , OPTIONAL, INTENT(IN) :: axis_domain_order(:)
43      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: axis_domain_order_tmp(:)
44      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: description
45      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref
46      LOGICAL  , OPTIONAL, INTENT(IN) :: mask1(:)
47      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask1_tmp(:)
48      LOGICAL  , OPTIONAL, INTENT(IN) :: mask2(:,:)
49      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask2_tmp(:,:)
50      LOGICAL  , OPTIONAL, INTENT(IN) :: mask3(:,:,:)
51      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask3_tmp(:,:,:)
52      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
53     
54      CALL xios(set_gridgroup_attr_hdl_)  &
55      ( gridgroup_hdl, axis_domain_order, description, group_ref, mask1, mask2, mask3, name )
56   
57  END SUBROUTINE xios(set_gridgroup_attr_hdl)
58 
59  SUBROUTINE xios(set_gridgroup_attr_hdl_)   &
60    ( gridgroup_hdl, axis_domain_order_, description_, group_ref_, mask1_, mask2_, mask3_, name_  &
61     )
62   
63    IMPLICIT NONE
64      TYPE(txios(gridgroup)) , INTENT(IN) :: gridgroup_hdl
65      LOGICAL  , OPTIONAL, INTENT(IN) :: axis_domain_order_(:)
66      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: axis_domain_order__tmp(:)
67      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: description_
68      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref_
69      LOGICAL  , OPTIONAL, INTENT(IN) :: mask1_(:)
70      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask1__tmp(:)
71      LOGICAL  , OPTIONAL, INTENT(IN) :: mask2_(:,:)
72      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask2__tmp(:,:)
73      LOGICAL  , OPTIONAL, INTENT(IN) :: mask3_(:,:,:)
74      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask3__tmp(:,:,:)
75      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_
76     
77      IF (PRESENT(axis_domain_order_)) THEN
78        ALLOCATE(axis_domain_order__tmp(size(axis_domain_order_,1)))
79        axis_domain_order__tmp=axis_domain_order_
80        CALL cxios_set_gridgroup_axis_domain_order(gridgroup_hdl%daddr, axis_domain_order__tmp,size(axis_domain_order_,1))
81      ENDIF
82     
83      IF (PRESENT(description_)) THEN
84        CALL cxios_set_gridgroup_description(gridgroup_hdl%daddr, description_, len(description_))
85      ENDIF
86     
87      IF (PRESENT(group_ref_)) THEN
88        CALL cxios_set_gridgroup_group_ref(gridgroup_hdl%daddr, group_ref_, len(group_ref_))
89      ENDIF
90     
91      IF (PRESENT(mask1_)) THEN
92        ALLOCATE(mask1__tmp(size(mask1_,1)))
93        mask1__tmp=mask1_
94        CALL cxios_set_gridgroup_mask1(gridgroup_hdl%daddr, mask1__tmp,size(mask1_,1))
95      ENDIF
96     
97      IF (PRESENT(mask2_)) THEN
98        ALLOCATE(mask2__tmp(size(mask2_,1),size(mask2_,2)))
99        mask2__tmp=mask2_
100        CALL cxios_set_gridgroup_mask2(gridgroup_hdl%daddr, mask2__tmp,size(mask2_,1),size(mask2_,2))
101      ENDIF
102     
103      IF (PRESENT(mask3_)) THEN
104        ALLOCATE(mask3__tmp(size(mask3_,1),size(mask3_,2),size(mask3_,3)))
105        mask3__tmp=mask3_
106        CALL cxios_set_gridgroup_mask3(gridgroup_hdl%daddr, mask3__tmp,size(mask3_,1),size(mask3_,2),size(mask3_,3))
107      ENDIF
108     
109      IF (PRESENT(name_)) THEN
110        CALL cxios_set_gridgroup_name(gridgroup_hdl%daddr, name_, len(name_))
111      ENDIF
112     
113     
114   
115  END SUBROUTINE xios(set_gridgroup_attr_hdl_)
116 
117  SUBROUTINE xios(get_gridgroup_attr)  &
118    ( gridgroup_id, axis_domain_order, description, group_ref, mask1, mask2, mask3, name )
119   
120    IMPLICIT NONE
121      TYPE(txios(gridgroup))  :: gridgroup_hdl
122      CHARACTER(LEN=*), INTENT(IN) ::gridgroup_id
123      LOGICAL  , OPTIONAL, INTENT(OUT) :: axis_domain_order(:)
124      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: axis_domain_order_tmp(:)
125      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: description
126      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref
127      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask1(:)
128      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask1_tmp(:)
129      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask2(:,:)
130      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask2_tmp(:,:)
131      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask3(:,:,:)
132      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask3_tmp(:,:,:)
133      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
134     
135      CALL xios(get_gridgroup_handle)(gridgroup_id,gridgroup_hdl)
136      CALL xios(get_gridgroup_attr_hdl_)   &
137      ( gridgroup_hdl, axis_domain_order, description, group_ref, mask1, mask2, mask3, name )
138   
139  END SUBROUTINE xios(get_gridgroup_attr)
140 
141  SUBROUTINE xios(get_gridgroup_attr_hdl)  &
142    ( gridgroup_hdl, axis_domain_order, description, group_ref, mask1, mask2, mask3, name )
143   
144    IMPLICIT NONE
145      TYPE(txios(gridgroup)) , INTENT(IN) :: gridgroup_hdl
146      LOGICAL  , OPTIONAL, INTENT(OUT) :: axis_domain_order(:)
147      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: axis_domain_order_tmp(:)
148      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: description
149      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref
150      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask1(:)
151      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask1_tmp(:)
152      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask2(:,:)
153      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask2_tmp(:,:)
154      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask3(:,:,:)
155      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask3_tmp(:,:,:)
156      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
157     
158      CALL xios(get_gridgroup_attr_hdl_)  &
159      ( gridgroup_hdl, axis_domain_order, description, group_ref, mask1, mask2, mask3, name )
160   
161  END SUBROUTINE xios(get_gridgroup_attr_hdl)
162 
163  SUBROUTINE xios(get_gridgroup_attr_hdl_)   &
164    ( gridgroup_hdl, axis_domain_order_, description_, group_ref_, mask1_, mask2_, mask3_, name_  &
165     )
166   
167    IMPLICIT NONE
168      TYPE(txios(gridgroup)) , INTENT(IN) :: gridgroup_hdl
169      LOGICAL  , OPTIONAL, INTENT(OUT) :: axis_domain_order_(:)
170      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: axis_domain_order__tmp(:)
171      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: description_
172      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref_
173      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask1_(:)
174      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask1__tmp(:)
175      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask2_(:,:)
176      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask2__tmp(:,:)
177      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask3_(:,:,:)
178      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask3__tmp(:,:,:)
179      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_
180     
181      IF (PRESENT(axis_domain_order_)) THEN
182        ALLOCATE(axis_domain_order__tmp(size(axis_domain_order_,1)))
183        CALL cxios_get_gridgroup_axis_domain_order(gridgroup_hdl%daddr, axis_domain_order__tmp,size(axis_domain_order_,1))
184        axis_domain_order_=axis_domain_order__tmp
185      ENDIF
186     
187      IF (PRESENT(description_)) THEN
188        CALL cxios_get_gridgroup_description(gridgroup_hdl%daddr, description_, len(description_))
189      ENDIF
190     
191      IF (PRESENT(group_ref_)) THEN
192        CALL cxios_get_gridgroup_group_ref(gridgroup_hdl%daddr, group_ref_, len(group_ref_))
193      ENDIF
194     
195      IF (PRESENT(mask1_)) THEN
196        ALLOCATE(mask1__tmp(size(mask1_,1)))
197        CALL cxios_get_gridgroup_mask1(gridgroup_hdl%daddr, mask1__tmp,size(mask1_,1))
198        mask1_=mask1__tmp
199      ENDIF
200     
201      IF (PRESENT(mask2_)) THEN
202        ALLOCATE(mask2__tmp(size(mask2_,1),size(mask2_,2)))
203        CALL cxios_get_gridgroup_mask2(gridgroup_hdl%daddr, mask2__tmp,size(mask2_,1),size(mask2_,2))
204        mask2_=mask2__tmp
205      ENDIF
206     
207      IF (PRESENT(mask3_)) THEN
208        ALLOCATE(mask3__tmp(size(mask3_,1),size(mask3_,2),size(mask3_,3)))
209        CALL cxios_get_gridgroup_mask3(gridgroup_hdl%daddr, mask3__tmp,size(mask3_,1),size(mask3_,2),size(mask3_,3))
210        mask3_=mask3__tmp
211      ENDIF
212     
213      IF (PRESENT(name_)) THEN
214        CALL cxios_get_gridgroup_name(gridgroup_hdl%daddr, name_, len(name_))
215      ENDIF
216     
217     
218   
219  END SUBROUTINE xios(get_gridgroup_attr_hdl_)
220 
221  SUBROUTINE xios(is_defined_gridgroup_attr)  &
222    ( gridgroup_id, axis_domain_order, description, group_ref, mask1, mask2, mask3, name )
223   
224    IMPLICIT NONE
225      TYPE(txios(gridgroup))  :: gridgroup_hdl
226      CHARACTER(LEN=*), INTENT(IN) ::gridgroup_id
227      LOGICAL, OPTIONAL, INTENT(OUT) :: axis_domain_order
228      LOGICAL(KIND=C_BOOL) :: axis_domain_order_tmp
229      LOGICAL, OPTIONAL, INTENT(OUT) :: description
230      LOGICAL(KIND=C_BOOL) :: description_tmp
231      LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref
232      LOGICAL(KIND=C_BOOL) :: group_ref_tmp
233      LOGICAL, OPTIONAL, INTENT(OUT) :: mask1
234      LOGICAL(KIND=C_BOOL) :: mask1_tmp
235      LOGICAL, OPTIONAL, INTENT(OUT) :: mask2
236      LOGICAL(KIND=C_BOOL) :: mask2_tmp
237      LOGICAL, OPTIONAL, INTENT(OUT) :: mask3
238      LOGICAL(KIND=C_BOOL) :: mask3_tmp
239      LOGICAL, OPTIONAL, INTENT(OUT) :: name
240      LOGICAL(KIND=C_BOOL) :: name_tmp
241     
242      CALL xios(get_gridgroup_handle)(gridgroup_id,gridgroup_hdl)
243      CALL xios(is_defined_gridgroup_attr_hdl_)   &
244      ( gridgroup_hdl, axis_domain_order, description, group_ref, mask1, mask2, mask3, name )
245   
246  END SUBROUTINE xios(is_defined_gridgroup_attr)
247 
248  SUBROUTINE xios(is_defined_gridgroup_attr_hdl)  &
249    ( gridgroup_hdl, axis_domain_order, description, group_ref, mask1, mask2, mask3, name )
250   
251    IMPLICIT NONE
252      TYPE(txios(gridgroup)) , INTENT(IN) :: gridgroup_hdl
253      LOGICAL, OPTIONAL, INTENT(OUT) :: axis_domain_order
254      LOGICAL(KIND=C_BOOL) :: axis_domain_order_tmp
255      LOGICAL, OPTIONAL, INTENT(OUT) :: description
256      LOGICAL(KIND=C_BOOL) :: description_tmp
257      LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref
258      LOGICAL(KIND=C_BOOL) :: group_ref_tmp
259      LOGICAL, OPTIONAL, INTENT(OUT) :: mask1
260      LOGICAL(KIND=C_BOOL) :: mask1_tmp
261      LOGICAL, OPTIONAL, INTENT(OUT) :: mask2
262      LOGICAL(KIND=C_BOOL) :: mask2_tmp
263      LOGICAL, OPTIONAL, INTENT(OUT) :: mask3
264      LOGICAL(KIND=C_BOOL) :: mask3_tmp
265      LOGICAL, OPTIONAL, INTENT(OUT) :: name
266      LOGICAL(KIND=C_BOOL) :: name_tmp
267     
268      CALL xios(is_defined_gridgroup_attr_hdl_)  &
269      ( gridgroup_hdl, axis_domain_order, description, group_ref, mask1, mask2, mask3, name )
270   
271  END SUBROUTINE xios(is_defined_gridgroup_attr_hdl)
272 
273  SUBROUTINE xios(is_defined_gridgroup_attr_hdl_)   &
274    ( gridgroup_hdl, axis_domain_order_, description_, group_ref_, mask1_, mask2_, mask3_, name_  &
275     )
276   
277    IMPLICIT NONE
278      TYPE(txios(gridgroup)) , INTENT(IN) :: gridgroup_hdl
279      LOGICAL, OPTIONAL, INTENT(OUT) :: axis_domain_order_
280      LOGICAL(KIND=C_BOOL) :: axis_domain_order__tmp
281      LOGICAL, OPTIONAL, INTENT(OUT) :: description_
282      LOGICAL(KIND=C_BOOL) :: description__tmp
283      LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref_
284      LOGICAL(KIND=C_BOOL) :: group_ref__tmp
285      LOGICAL, OPTIONAL, INTENT(OUT) :: mask1_
286      LOGICAL(KIND=C_BOOL) :: mask1__tmp
287      LOGICAL, OPTIONAL, INTENT(OUT) :: mask2_
288      LOGICAL(KIND=C_BOOL) :: mask2__tmp
289      LOGICAL, OPTIONAL, INTENT(OUT) :: mask3_
290      LOGICAL(KIND=C_BOOL) :: mask3__tmp
291      LOGICAL, OPTIONAL, INTENT(OUT) :: name_
292      LOGICAL(KIND=C_BOOL) :: name__tmp
293     
294      IF (PRESENT(axis_domain_order_)) THEN
295        axis_domain_order__tmp=cxios_is_defined_gridgroup_axis_domain_order(gridgroup_hdl%daddr)
296        axis_domain_order_=axis_domain_order__tmp
297      ENDIF
298     
299      IF (PRESENT(description_)) THEN
300        description__tmp=cxios_is_defined_gridgroup_description(gridgroup_hdl%daddr)
301        description_=description__tmp
302      ENDIF
303     
304      IF (PRESENT(group_ref_)) THEN
305        group_ref__tmp=cxios_is_defined_gridgroup_group_ref(gridgroup_hdl%daddr)
306        group_ref_=group_ref__tmp
307      ENDIF
308     
309      IF (PRESENT(mask1_)) THEN
310        mask1__tmp=cxios_is_defined_gridgroup_mask1(gridgroup_hdl%daddr)
311        mask1_=mask1__tmp
312      ENDIF
313     
314      IF (PRESENT(mask2_)) THEN
315        mask2__tmp=cxios_is_defined_gridgroup_mask2(gridgroup_hdl%daddr)
316        mask2_=mask2__tmp
317      ENDIF
318     
319      IF (PRESENT(mask3_)) THEN
320        mask3__tmp=cxios_is_defined_gridgroup_mask3(gridgroup_hdl%daddr)
321        mask3_=mask3__tmp
322      ENDIF
323     
324      IF (PRESENT(name_)) THEN
325        name__tmp=cxios_is_defined_gridgroup_name(gridgroup_hdl%daddr)
326        name_=name__tmp
327      ENDIF
328     
329     
330   
331  END SUBROUTINE xios(is_defined_gridgroup_attr_hdl_)
332 
333END MODULE igridgroup_attr
Note: See TracBrowser for help on using the repository browser.