New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
ifieldgroup_attr.F90 in vendors/XIOS/current/src/interface/fortran_attr – NEMO

source: vendors/XIOS/current/src/interface/fortran_attr/ifieldgroup_attr.F90 @ 3408

Last change on this file since 3408 was 3408, checked in by rblod, 12 years ago

importing initial XIOS vendor drop

  • Property svn:keywords set to Id
File size: 14.2 KB
Line 
1! * ************************************************************************** *
2! *               Interface auto generated - do not modify                     *
3! * ************************************************************************** *
4#include "xios_fortran_prefix.hpp"
5
6MODULE ifieldgroup_attr
7  USE, INTRINSIC :: ISO_C_BINDING
8  USE ifield
9  USE fieldgroup_interface_attr
10 
11CONTAINS
12 
13  SUBROUTINE xios(set_fieldgroup_attr)  &
14    ( fieldgroup_id, axis_ref, default_value, domain_ref, enabled, field_ref, freq_offset, freq_op  &
15    , grid_ref, group_ref, level, long_name, name, operation, prec, standard_name, unit )
16   
17    IMPLICIT NONE
18      TYPE(txios(fieldgroup))  :: fieldgroup_hdl
19      CHARACTER(LEN=*), INTENT(IN) ::fieldgroup_id
20      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref
21      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: default_value
22      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref
23      LOGICAL  , OPTIONAL, INTENT(IN) :: enabled
24      LOGICAL (KIND=C_BOOL) :: enabled_tmp
25      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: field_ref
26      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: freq_offset
27      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: freq_op
28      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: grid_ref
29      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref
30      INTEGER  , OPTIONAL, INTENT(IN) :: level
31      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name
32      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
33      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: operation
34      INTEGER  , OPTIONAL, INTENT(IN) :: prec
35      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name
36      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: unit
37     
38      CALL xios(get_fieldgroup_handle)(fieldgroup_id,fieldgroup_hdl)
39      CALL xios(set_fieldgroup_attr_hdl_)   &
40      ( fieldgroup_hdl, axis_ref, default_value, domain_ref, enabled, field_ref, freq_offset, freq_op  &
41      , grid_ref, group_ref, level, long_name, name, operation, prec, standard_name, unit )
42   
43  END SUBROUTINE xios(set_fieldgroup_attr)
44 
45  SUBROUTINE xios(set_fieldgroup_attr_hdl)  &
46    ( fieldgroup_hdl, axis_ref, default_value, domain_ref, enabled, field_ref, freq_offset, freq_op  &
47    , grid_ref, group_ref, level, long_name, name, operation, prec, standard_name, unit )
48   
49    IMPLICIT NONE
50      TYPE(txios(fieldgroup)) , INTENT(IN) :: fieldgroup_hdl
51      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref
52      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: default_value
53      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref
54      LOGICAL  , OPTIONAL, INTENT(IN) :: enabled
55      LOGICAL (KIND=C_BOOL) :: enabled_tmp
56      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: field_ref
57      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: freq_offset
58      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: freq_op
59      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: grid_ref
60      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref
61      INTEGER  , OPTIONAL, INTENT(IN) :: level
62      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name
63      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
64      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: operation
65      INTEGER  , OPTIONAL, INTENT(IN) :: prec
66      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name
67      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: unit
68     
69      CALL xios(set_fieldgroup_attr_hdl_)  &
70      ( fieldgroup_hdl, axis_ref, default_value, domain_ref, enabled, field_ref, freq_offset, freq_op  &
71      , grid_ref, group_ref, level, long_name, name, operation, prec, standard_name, unit )
72   
73  END SUBROUTINE xios(set_fieldgroup_attr_hdl)
74 
75  SUBROUTINE xios(set_fieldgroup_attr_hdl_)   &
76    ( fieldgroup_hdl, axis_ref_, default_value_, domain_ref_, enabled_, field_ref_, freq_offset_  &
77    , freq_op_, grid_ref_, group_ref_, level_, long_name_, name_, operation_, prec_, standard_name_  &
78    , unit_ )
79   
80    IMPLICIT NONE
81      TYPE(txios(fieldgroup)) , INTENT(IN) :: fieldgroup_hdl
82      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref_
83      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: default_value_
84      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref_
85      LOGICAL  , OPTIONAL, INTENT(IN) :: enabled_
86      LOGICAL (KIND=C_BOOL) :: enabled__tmp
87      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: field_ref_
88      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: freq_offset_
89      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: freq_op_
90      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: grid_ref_
91      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref_
92      INTEGER  , OPTIONAL, INTENT(IN) :: level_
93      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name_
94      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_
95      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: operation_
96      INTEGER  , OPTIONAL, INTENT(IN) :: prec_
97      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name_
98      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: unit_
99     
100      IF (PRESENT(axis_ref_)) THEN
101        CALL cxios_set_fieldgroup_axis_ref(fieldgroup_hdl%daddr, axis_ref_, len(axis_ref_))
102      ENDIF
103     
104      IF (PRESENT(default_value_)) THEN
105        CALL cxios_set_fieldgroup_default_value(fieldgroup_hdl%daddr, default_value_)
106      ENDIF
107     
108      IF (PRESENT(domain_ref_)) THEN
109        CALL cxios_set_fieldgroup_domain_ref(fieldgroup_hdl%daddr, domain_ref_, len(domain_ref_))
110      ENDIF
111     
112      IF (PRESENT(enabled_)) THEN
113        enabled__tmp=enabled_
114        CALL cxios_set_fieldgroup_enabled(fieldgroup_hdl%daddr, enabled__tmp)
115      ENDIF
116     
117      IF (PRESENT(field_ref_)) THEN
118        CALL cxios_set_fieldgroup_field_ref(fieldgroup_hdl%daddr, field_ref_, len(field_ref_))
119      ENDIF
120     
121      IF (PRESENT(freq_offset_)) THEN
122        CALL cxios_set_fieldgroup_freq_offset(fieldgroup_hdl%daddr, freq_offset_, len(freq_offset_))
123      ENDIF
124     
125      IF (PRESENT(freq_op_)) THEN
126        CALL cxios_set_fieldgroup_freq_op(fieldgroup_hdl%daddr, freq_op_, len(freq_op_))
127      ENDIF
128     
129      IF (PRESENT(grid_ref_)) THEN
130        CALL cxios_set_fieldgroup_grid_ref(fieldgroup_hdl%daddr, grid_ref_, len(grid_ref_))
131      ENDIF
132     
133      IF (PRESENT(group_ref_)) THEN
134        CALL cxios_set_fieldgroup_group_ref(fieldgroup_hdl%daddr, group_ref_, len(group_ref_))
135      ENDIF
136     
137      IF (PRESENT(level_)) THEN
138        CALL cxios_set_fieldgroup_level(fieldgroup_hdl%daddr, level_)
139      ENDIF
140     
141      IF (PRESENT(long_name_)) THEN
142        CALL cxios_set_fieldgroup_long_name(fieldgroup_hdl%daddr, long_name_, len(long_name_))
143      ENDIF
144     
145      IF (PRESENT(name_)) THEN
146        CALL cxios_set_fieldgroup_name(fieldgroup_hdl%daddr, name_, len(name_))
147      ENDIF
148     
149      IF (PRESENT(operation_)) THEN
150        CALL cxios_set_fieldgroup_operation(fieldgroup_hdl%daddr, operation_, len(operation_))
151      ENDIF
152     
153      IF (PRESENT(prec_)) THEN
154        CALL cxios_set_fieldgroup_prec(fieldgroup_hdl%daddr, prec_)
155      ENDIF
156     
157      IF (PRESENT(standard_name_)) THEN
158        CALL cxios_set_fieldgroup_standard_name(fieldgroup_hdl%daddr, standard_name_, len(standard_name_))
159      ENDIF
160     
161      IF (PRESENT(unit_)) THEN
162        CALL cxios_set_fieldgroup_unit(fieldgroup_hdl%daddr, unit_, len(unit_))
163      ENDIF
164     
165     
166   
167  END SUBROUTINE xios(set_fieldgroup_attr_hdl_)
168 
169  SUBROUTINE xios(get_fieldgroup_attr)  &
170    ( fieldgroup_id, axis_ref, default_value, domain_ref, enabled, field_ref, freq_offset, freq_op  &
171    , grid_ref, group_ref, level, long_name, name, operation, prec, standard_name, unit )
172   
173    IMPLICIT NONE
174      TYPE(txios(fieldgroup))  :: fieldgroup_hdl
175      CHARACTER(LEN=*), INTENT(IN) ::fieldgroup_id
176      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref
177      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: default_value
178      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref
179      LOGICAL  , OPTIONAL, INTENT(OUT) :: enabled
180      LOGICAL (KIND=C_BOOL) :: enabled_tmp
181      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: field_ref
182      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: freq_offset
183      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: freq_op
184      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: grid_ref
185      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref
186      INTEGER  , OPTIONAL, INTENT(OUT) :: level
187      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name
188      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
189      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: operation
190      INTEGER  , OPTIONAL, INTENT(OUT) :: prec
191      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name
192      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: unit
193     
194      CALL xios(get_fieldgroup_handle)(fieldgroup_id,fieldgroup_hdl)
195      CALL xios(get_fieldgroup_attr_hdl_)   &
196      ( fieldgroup_hdl, axis_ref, default_value, domain_ref, enabled, field_ref, freq_offset, freq_op  &
197      , grid_ref, group_ref, level, long_name, name, operation, prec, standard_name, unit )
198   
199  END SUBROUTINE xios(get_fieldgroup_attr)
200 
201  SUBROUTINE xios(get_fieldgroup_attr_hdl)  &
202    ( fieldgroup_hdl, axis_ref, default_value, domain_ref, enabled, field_ref, freq_offset, freq_op  &
203    , grid_ref, group_ref, level, long_name, name, operation, prec, standard_name, unit )
204   
205    IMPLICIT NONE
206      TYPE(txios(fieldgroup)) , INTENT(IN) :: fieldgroup_hdl
207      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref
208      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: default_value
209      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref
210      LOGICAL  , OPTIONAL, INTENT(OUT) :: enabled
211      LOGICAL (KIND=C_BOOL) :: enabled_tmp
212      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: field_ref
213      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: freq_offset
214      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: freq_op
215      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: grid_ref
216      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref
217      INTEGER  , OPTIONAL, INTENT(OUT) :: level
218      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name
219      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
220      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: operation
221      INTEGER  , OPTIONAL, INTENT(OUT) :: prec
222      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name
223      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: unit
224     
225      CALL xios(get_fieldgroup_attr_hdl_)  &
226      ( fieldgroup_hdl, axis_ref, default_value, domain_ref, enabled, field_ref, freq_offset, freq_op  &
227      , grid_ref, group_ref, level, long_name, name, operation, prec, standard_name, unit )
228   
229  END SUBROUTINE xios(get_fieldgroup_attr_hdl)
230 
231  SUBROUTINE xios(get_fieldgroup_attr_hdl_)   &
232    ( fieldgroup_hdl, axis_ref_, default_value_, domain_ref_, enabled_, field_ref_, freq_offset_  &
233    , freq_op_, grid_ref_, group_ref_, level_, long_name_, name_, operation_, prec_, standard_name_  &
234    , unit_ )
235   
236    IMPLICIT NONE
237      TYPE(txios(fieldgroup)) , INTENT(IN) :: fieldgroup_hdl
238      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref_
239      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: default_value_
240      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref_
241      LOGICAL  , OPTIONAL, INTENT(OUT) :: enabled_
242      LOGICAL (KIND=C_BOOL) :: enabled__tmp
243      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: field_ref_
244      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: freq_offset_
245      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: freq_op_
246      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: grid_ref_
247      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref_
248      INTEGER  , OPTIONAL, INTENT(OUT) :: level_
249      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name_
250      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_
251      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: operation_
252      INTEGER  , OPTIONAL, INTENT(OUT) :: prec_
253      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name_
254      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: unit_
255     
256      IF (PRESENT(axis_ref_)) THEN
257        CALL cxios_get_fieldgroup_axis_ref(fieldgroup_hdl%daddr, axis_ref_, len(axis_ref_))
258      ENDIF
259     
260      IF (PRESENT(default_value_)) THEN
261        CALL cxios_get_fieldgroup_default_value(fieldgroup_hdl%daddr, default_value_)
262      ENDIF
263     
264      IF (PRESENT(domain_ref_)) THEN
265        CALL cxios_get_fieldgroup_domain_ref(fieldgroup_hdl%daddr, domain_ref_, len(domain_ref_))
266      ENDIF
267     
268      IF (PRESENT(enabled_)) THEN
269        CALL cxios_get_fieldgroup_enabled(fieldgroup_hdl%daddr, enabled__tmp)
270        enabled_=enabled__tmp
271      ENDIF
272     
273      IF (PRESENT(field_ref_)) THEN
274        CALL cxios_get_fieldgroup_field_ref(fieldgroup_hdl%daddr, field_ref_, len(field_ref_))
275      ENDIF
276     
277      IF (PRESENT(freq_offset_)) THEN
278        CALL cxios_get_fieldgroup_freq_offset(fieldgroup_hdl%daddr, freq_offset_, len(freq_offset_))
279      ENDIF
280     
281      IF (PRESENT(freq_op_)) THEN
282        CALL cxios_get_fieldgroup_freq_op(fieldgroup_hdl%daddr, freq_op_, len(freq_op_))
283      ENDIF
284     
285      IF (PRESENT(grid_ref_)) THEN
286        CALL cxios_get_fieldgroup_grid_ref(fieldgroup_hdl%daddr, grid_ref_, len(grid_ref_))
287      ENDIF
288     
289      IF (PRESENT(group_ref_)) THEN
290        CALL cxios_get_fieldgroup_group_ref(fieldgroup_hdl%daddr, group_ref_, len(group_ref_))
291      ENDIF
292     
293      IF (PRESENT(level_)) THEN
294        CALL cxios_get_fieldgroup_level(fieldgroup_hdl%daddr, level_)
295      ENDIF
296     
297      IF (PRESENT(long_name_)) THEN
298        CALL cxios_get_fieldgroup_long_name(fieldgroup_hdl%daddr, long_name_, len(long_name_))
299      ENDIF
300     
301      IF (PRESENT(name_)) THEN
302        CALL cxios_get_fieldgroup_name(fieldgroup_hdl%daddr, name_, len(name_))
303      ENDIF
304     
305      IF (PRESENT(operation_)) THEN
306        CALL cxios_get_fieldgroup_operation(fieldgroup_hdl%daddr, operation_, len(operation_))
307      ENDIF
308     
309      IF (PRESENT(prec_)) THEN
310        CALL cxios_get_fieldgroup_prec(fieldgroup_hdl%daddr, prec_)
311      ENDIF
312     
313      IF (PRESENT(standard_name_)) THEN
314        CALL cxios_get_fieldgroup_standard_name(fieldgroup_hdl%daddr, standard_name_, len(standard_name_))
315      ENDIF
316     
317      IF (PRESENT(unit_)) THEN
318        CALL cxios_get_fieldgroup_unit(fieldgroup_hdl%daddr, unit_, len(unit_))
319      ENDIF
320     
321     
322   
323  END SUBROUTINE xios(get_fieldgroup_attr_hdl_)
324 
325END MODULE ifieldgroup_attr
Note: See TracBrowser for help on using the repository browser.