source: XIOS/trunk/src/interface/fortran_attr/ivariablegroup_attr.F90 @ 1041

Last change on this file since 1041 was 1041, checked in by rlacroix, 5 years ago

Add a new attribute "ts_target" for variables.

It allows choosing the target of the variable when using timeseries. Possible values are:

  • field
  • file
  • both
  • none.

If no value is set then the default behavior is used, that is "field" for field variables and "file" for file variables.

  • 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: 8.0 KB
Line 
1! * ************************************************************************** *
2! *               Interface auto generated - do not modify                     *
3! * ************************************************************************** *
4#include "xios_fortran_prefix.hpp"
5
6MODULE ivariablegroup_attr
7  USE, INTRINSIC :: ISO_C_BINDING
8  USE ivariable
9  USE variablegroup_interface_attr
10
11CONTAINS
12
13  SUBROUTINE xios(set_variablegroup_attr)  &
14    ( variablegroup_id, group_ref, name, ts_target, type )
15
16    IMPLICIT NONE
17      TYPE(txios(variablegroup))  :: variablegroup_hdl
18      CHARACTER(LEN=*), INTENT(IN) ::variablegroup_id
19      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref
20      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
21      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: ts_target
22      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type
23
24      CALL xios(get_variablegroup_handle) &
25      (variablegroup_id,variablegroup_hdl)
26      CALL xios(set_variablegroup_attr_hdl_)   &
27      ( variablegroup_hdl, group_ref, name, ts_target, type )
28
29  END SUBROUTINE xios(set_variablegroup_attr)
30
31  SUBROUTINE xios(set_variablegroup_attr_hdl)  &
32    ( variablegroup_hdl, group_ref, name, ts_target, type )
33
34    IMPLICIT NONE
35      TYPE(txios(variablegroup)) , INTENT(IN) :: variablegroup_hdl
36      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref
37      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
38      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: ts_target
39      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type
40
41      CALL xios(set_variablegroup_attr_hdl_)  &
42      ( variablegroup_hdl, group_ref, name, ts_target, type )
43
44  END SUBROUTINE xios(set_variablegroup_attr_hdl)
45
46  SUBROUTINE xios(set_variablegroup_attr_hdl_)   &
47    ( variablegroup_hdl, group_ref_, name_, ts_target_, type_ )
48
49    IMPLICIT NONE
50      TYPE(txios(variablegroup)) , INTENT(IN) :: variablegroup_hdl
51      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref_
52      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_
53      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: ts_target_
54      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type_
55
56      IF (PRESENT(group_ref_)) THEN
57        CALL cxios_set_variablegroup_group_ref &
58      (variablegroup_hdl%daddr, group_ref_, len(group_ref_))
59      ENDIF
60
61      IF (PRESENT(name_)) THEN
62        CALL cxios_set_variablegroup_name &
63      (variablegroup_hdl%daddr, name_, len(name_))
64      ENDIF
65
66      IF (PRESENT(ts_target_)) THEN
67        CALL cxios_set_variablegroup_ts_target &
68      (variablegroup_hdl%daddr, ts_target_, len(ts_target_))
69      ENDIF
70
71      IF (PRESENT(type_)) THEN
72        CALL cxios_set_variablegroup_type &
73      (variablegroup_hdl%daddr, type_, len(type_))
74      ENDIF
75
76  END SUBROUTINE xios(set_variablegroup_attr_hdl_)
77
78  SUBROUTINE xios(get_variablegroup_attr)  &
79    ( variablegroup_id, group_ref, name, ts_target, type )
80
81    IMPLICIT NONE
82      TYPE(txios(variablegroup))  :: variablegroup_hdl
83      CHARACTER(LEN=*), INTENT(IN) ::variablegroup_id
84      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref
85      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
86      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: ts_target
87      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type
88
89      CALL xios(get_variablegroup_handle) &
90      (variablegroup_id,variablegroup_hdl)
91      CALL xios(get_variablegroup_attr_hdl_)   &
92      ( variablegroup_hdl, group_ref, name, ts_target, type )
93
94  END SUBROUTINE xios(get_variablegroup_attr)
95
96  SUBROUTINE xios(get_variablegroup_attr_hdl)  &
97    ( variablegroup_hdl, group_ref, name, ts_target, type )
98
99    IMPLICIT NONE
100      TYPE(txios(variablegroup)) , INTENT(IN) :: variablegroup_hdl
101      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref
102      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
103      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: ts_target
104      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type
105
106      CALL xios(get_variablegroup_attr_hdl_)  &
107      ( variablegroup_hdl, group_ref, name, ts_target, type )
108
109  END SUBROUTINE xios(get_variablegroup_attr_hdl)
110
111  SUBROUTINE xios(get_variablegroup_attr_hdl_)   &
112    ( variablegroup_hdl, group_ref_, name_, ts_target_, type_ )
113
114    IMPLICIT NONE
115      TYPE(txios(variablegroup)) , INTENT(IN) :: variablegroup_hdl
116      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref_
117      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_
118      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: ts_target_
119      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type_
120
121      IF (PRESENT(group_ref_)) THEN
122        CALL cxios_get_variablegroup_group_ref &
123      (variablegroup_hdl%daddr, group_ref_, len(group_ref_))
124      ENDIF
125
126      IF (PRESENT(name_)) THEN
127        CALL cxios_get_variablegroup_name &
128      (variablegroup_hdl%daddr, name_, len(name_))
129      ENDIF
130
131      IF (PRESENT(ts_target_)) THEN
132        CALL cxios_get_variablegroup_ts_target &
133      (variablegroup_hdl%daddr, ts_target_, len(ts_target_))
134      ENDIF
135
136      IF (PRESENT(type_)) THEN
137        CALL cxios_get_variablegroup_type &
138      (variablegroup_hdl%daddr, type_, len(type_))
139      ENDIF
140
141  END SUBROUTINE xios(get_variablegroup_attr_hdl_)
142
143  SUBROUTINE xios(is_defined_variablegroup_attr)  &
144    ( variablegroup_id, group_ref, name, ts_target, type )
145
146    IMPLICIT NONE
147      TYPE(txios(variablegroup))  :: variablegroup_hdl
148      CHARACTER(LEN=*), INTENT(IN) ::variablegroup_id
149      LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref
150      LOGICAL(KIND=C_BOOL) :: group_ref_tmp
151      LOGICAL, OPTIONAL, INTENT(OUT) :: name
152      LOGICAL(KIND=C_BOOL) :: name_tmp
153      LOGICAL, OPTIONAL, INTENT(OUT) :: ts_target
154      LOGICAL(KIND=C_BOOL) :: ts_target_tmp
155      LOGICAL, OPTIONAL, INTENT(OUT) :: type
156      LOGICAL(KIND=C_BOOL) :: type_tmp
157
158      CALL xios(get_variablegroup_handle) &
159      (variablegroup_id,variablegroup_hdl)
160      CALL xios(is_defined_variablegroup_attr_hdl_)   &
161      ( variablegroup_hdl, group_ref, name, ts_target, type )
162
163  END SUBROUTINE xios(is_defined_variablegroup_attr)
164
165  SUBROUTINE xios(is_defined_variablegroup_attr_hdl)  &
166    ( variablegroup_hdl, group_ref, name, ts_target, type )
167
168    IMPLICIT NONE
169      TYPE(txios(variablegroup)) , INTENT(IN) :: variablegroup_hdl
170      LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref
171      LOGICAL(KIND=C_BOOL) :: group_ref_tmp
172      LOGICAL, OPTIONAL, INTENT(OUT) :: name
173      LOGICAL(KIND=C_BOOL) :: name_tmp
174      LOGICAL, OPTIONAL, INTENT(OUT) :: ts_target
175      LOGICAL(KIND=C_BOOL) :: ts_target_tmp
176      LOGICAL, OPTIONAL, INTENT(OUT) :: type
177      LOGICAL(KIND=C_BOOL) :: type_tmp
178
179      CALL xios(is_defined_variablegroup_attr_hdl_)  &
180      ( variablegroup_hdl, group_ref, name, ts_target, type )
181
182  END SUBROUTINE xios(is_defined_variablegroup_attr_hdl)
183
184  SUBROUTINE xios(is_defined_variablegroup_attr_hdl_)   &
185    ( variablegroup_hdl, group_ref_, name_, ts_target_, type_ )
186
187    IMPLICIT NONE
188      TYPE(txios(variablegroup)) , INTENT(IN) :: variablegroup_hdl
189      LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref_
190      LOGICAL(KIND=C_BOOL) :: group_ref__tmp
191      LOGICAL, OPTIONAL, INTENT(OUT) :: name_
192      LOGICAL(KIND=C_BOOL) :: name__tmp
193      LOGICAL, OPTIONAL, INTENT(OUT) :: ts_target_
194      LOGICAL(KIND=C_BOOL) :: ts_target__tmp
195      LOGICAL, OPTIONAL, INTENT(OUT) :: type_
196      LOGICAL(KIND=C_BOOL) :: type__tmp
197
198      IF (PRESENT(group_ref_)) THEN
199        group_ref__tmp = cxios_is_defined_variablegroup_group_ref &
200      (variablegroup_hdl%daddr)
201        group_ref_ = group_ref__tmp
202      ENDIF
203
204      IF (PRESENT(name_)) THEN
205        name__tmp = cxios_is_defined_variablegroup_name &
206      (variablegroup_hdl%daddr)
207        name_ = name__tmp
208      ENDIF
209
210      IF (PRESENT(ts_target_)) THEN
211        ts_target__tmp = cxios_is_defined_variablegroup_ts_target &
212      (variablegroup_hdl%daddr)
213        ts_target_ = ts_target__tmp
214      ENDIF
215
216      IF (PRESENT(type_)) THEN
217        type__tmp = cxios_is_defined_variablegroup_type &
218      (variablegroup_hdl%daddr)
219        type_ = type__tmp
220      ENDIF
221
222  END SUBROUTINE xios(is_defined_variablegroup_attr_hdl_)
223
224END MODULE ivariablegroup_attr
Note: See TracBrowser for help on using the repository browser.