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.
ifilegroup_attr.F90 in vendors/XIOS/current/src/interface/fortran_attr – NEMO

source: vendors/XIOS/current/src/interface/fortran_attr/ifilegroup_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: 9.9 KB
Line 
1! * ************************************************************************** *
2! *               Interface auto generated - do not modify                     *
3! * ************************************************************************** *
4#include "xios_fortran_prefix.hpp"
5
6MODULE ifilegroup_attr
7  USE, INTRINSIC :: ISO_C_BINDING
8  USE ifile
9  USE filegroup_interface_attr
10 
11CONTAINS
12 
13  SUBROUTINE xios(set_filegroup_attr)  &
14    ( filegroup_id, description, enabled, group_ref, name, name_suffix, output_freq, output_level  &
15    , split_freq, sync_freq, type )
16   
17    IMPLICIT NONE
18      TYPE(txios(filegroup))  :: filegroup_hdl
19      CHARACTER(LEN=*), INTENT(IN) ::filegroup_id
20      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: description
21      LOGICAL  , OPTIONAL, INTENT(IN) :: enabled
22      LOGICAL (KIND=C_BOOL) :: enabled_tmp
23      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref
24      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
25      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_suffix
26      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: output_freq
27      INTEGER  , OPTIONAL, INTENT(IN) :: output_level
28      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: split_freq
29      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: sync_freq
30      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type
31     
32      CALL xios(get_filegroup_handle)(filegroup_id,filegroup_hdl)
33      CALL xios(set_filegroup_attr_hdl_)   &
34      ( filegroup_hdl, description, enabled, group_ref, name, name_suffix, output_freq, output_level  &
35      , split_freq, sync_freq, type )
36   
37  END SUBROUTINE xios(set_filegroup_attr)
38 
39  SUBROUTINE xios(set_filegroup_attr_hdl)  &
40    ( filegroup_hdl, description, enabled, group_ref, name, name_suffix, output_freq, output_level  &
41    , split_freq, sync_freq, type )
42   
43    IMPLICIT NONE
44      TYPE(txios(filegroup)) , INTENT(IN) :: filegroup_hdl
45      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: description
46      LOGICAL  , OPTIONAL, INTENT(IN) :: enabled
47      LOGICAL (KIND=C_BOOL) :: enabled_tmp
48      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref
49      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
50      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_suffix
51      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: output_freq
52      INTEGER  , OPTIONAL, INTENT(IN) :: output_level
53      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: split_freq
54      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: sync_freq
55      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type
56     
57      CALL xios(set_filegroup_attr_hdl_)  &
58      ( filegroup_hdl, description, enabled, group_ref, name, name_suffix, output_freq, output_level  &
59      , split_freq, sync_freq, type )
60   
61  END SUBROUTINE xios(set_filegroup_attr_hdl)
62 
63  SUBROUTINE xios(set_filegroup_attr_hdl_)   &
64    ( filegroup_hdl, description_, enabled_, group_ref_, name_, name_suffix_, output_freq_, output_level_  &
65    , split_freq_, sync_freq_, type_ )
66   
67    IMPLICIT NONE
68      TYPE(txios(filegroup)) , INTENT(IN) :: filegroup_hdl
69      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: description_
70      LOGICAL  , OPTIONAL, INTENT(IN) :: enabled_
71      LOGICAL (KIND=C_BOOL) :: enabled__tmp
72      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref_
73      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_
74      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_suffix_
75      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: output_freq_
76      INTEGER  , OPTIONAL, INTENT(IN) :: output_level_
77      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: split_freq_
78      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: sync_freq_
79      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type_
80     
81      IF (PRESENT(description_)) THEN
82        CALL cxios_set_filegroup_description(filegroup_hdl%daddr, description_, len(description_))
83      ENDIF
84     
85      IF (PRESENT(enabled_)) THEN
86        enabled__tmp=enabled_
87        CALL cxios_set_filegroup_enabled(filegroup_hdl%daddr, enabled__tmp)
88      ENDIF
89     
90      IF (PRESENT(group_ref_)) THEN
91        CALL cxios_set_filegroup_group_ref(filegroup_hdl%daddr, group_ref_, len(group_ref_))
92      ENDIF
93     
94      IF (PRESENT(name_)) THEN
95        CALL cxios_set_filegroup_name(filegroup_hdl%daddr, name_, len(name_))
96      ENDIF
97     
98      IF (PRESENT(name_suffix_)) THEN
99        CALL cxios_set_filegroup_name_suffix(filegroup_hdl%daddr, name_suffix_, len(name_suffix_))
100      ENDIF
101     
102      IF (PRESENT(output_freq_)) THEN
103        CALL cxios_set_filegroup_output_freq(filegroup_hdl%daddr, output_freq_, len(output_freq_))
104      ENDIF
105     
106      IF (PRESENT(output_level_)) THEN
107        CALL cxios_set_filegroup_output_level(filegroup_hdl%daddr, output_level_)
108      ENDIF
109     
110      IF (PRESENT(split_freq_)) THEN
111        CALL cxios_set_filegroup_split_freq(filegroup_hdl%daddr, split_freq_, len(split_freq_))
112      ENDIF
113     
114      IF (PRESENT(sync_freq_)) THEN
115        CALL cxios_set_filegroup_sync_freq(filegroup_hdl%daddr, sync_freq_, len(sync_freq_))
116      ENDIF
117     
118      IF (PRESENT(type_)) THEN
119        CALL cxios_set_filegroup_type(filegroup_hdl%daddr, type_, len(type_))
120      ENDIF
121     
122     
123   
124  END SUBROUTINE xios(set_filegroup_attr_hdl_)
125 
126  SUBROUTINE xios(get_filegroup_attr)  &
127    ( filegroup_id, description, enabled, group_ref, name, name_suffix, output_freq, output_level  &
128    , split_freq, sync_freq, type )
129   
130    IMPLICIT NONE
131      TYPE(txios(filegroup))  :: filegroup_hdl
132      CHARACTER(LEN=*), INTENT(IN) ::filegroup_id
133      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: description
134      LOGICAL  , OPTIONAL, INTENT(OUT) :: enabled
135      LOGICAL (KIND=C_BOOL) :: enabled_tmp
136      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref
137      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
138      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_suffix
139      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: output_freq
140      INTEGER  , OPTIONAL, INTENT(OUT) :: output_level
141      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: split_freq
142      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: sync_freq
143      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type
144     
145      CALL xios(get_filegroup_handle)(filegroup_id,filegroup_hdl)
146      CALL xios(get_filegroup_attr_hdl_)   &
147      ( filegroup_hdl, description, enabled, group_ref, name, name_suffix, output_freq, output_level  &
148      , split_freq, sync_freq, type )
149   
150  END SUBROUTINE xios(get_filegroup_attr)
151 
152  SUBROUTINE xios(get_filegroup_attr_hdl)  &
153    ( filegroup_hdl, description, enabled, group_ref, name, name_suffix, output_freq, output_level  &
154    , split_freq, sync_freq, type )
155   
156    IMPLICIT NONE
157      TYPE(txios(filegroup)) , INTENT(IN) :: filegroup_hdl
158      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: description
159      LOGICAL  , OPTIONAL, INTENT(OUT) :: enabled
160      LOGICAL (KIND=C_BOOL) :: enabled_tmp
161      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref
162      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
163      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_suffix
164      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: output_freq
165      INTEGER  , OPTIONAL, INTENT(OUT) :: output_level
166      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: split_freq
167      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: sync_freq
168      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type
169     
170      CALL xios(get_filegroup_attr_hdl_)  &
171      ( filegroup_hdl, description, enabled, group_ref, name, name_suffix, output_freq, output_level  &
172      , split_freq, sync_freq, type )
173   
174  END SUBROUTINE xios(get_filegroup_attr_hdl)
175 
176  SUBROUTINE xios(get_filegroup_attr_hdl_)   &
177    ( filegroup_hdl, description_, enabled_, group_ref_, name_, name_suffix_, output_freq_, output_level_  &
178    , split_freq_, sync_freq_, type_ )
179   
180    IMPLICIT NONE
181      TYPE(txios(filegroup)) , INTENT(IN) :: filegroup_hdl
182      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: description_
183      LOGICAL  , OPTIONAL, INTENT(OUT) :: enabled_
184      LOGICAL (KIND=C_BOOL) :: enabled__tmp
185      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref_
186      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_
187      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_suffix_
188      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: output_freq_
189      INTEGER  , OPTIONAL, INTENT(OUT) :: output_level_
190      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: split_freq_
191      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: sync_freq_
192      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type_
193     
194      IF (PRESENT(description_)) THEN
195        CALL cxios_get_filegroup_description(filegroup_hdl%daddr, description_, len(description_))
196      ENDIF
197     
198      IF (PRESENT(enabled_)) THEN
199        CALL cxios_get_filegroup_enabled(filegroup_hdl%daddr, enabled__tmp)
200        enabled_=enabled__tmp
201      ENDIF
202     
203      IF (PRESENT(group_ref_)) THEN
204        CALL cxios_get_filegroup_group_ref(filegroup_hdl%daddr, group_ref_, len(group_ref_))
205      ENDIF
206     
207      IF (PRESENT(name_)) THEN
208        CALL cxios_get_filegroup_name(filegroup_hdl%daddr, name_, len(name_))
209      ENDIF
210     
211      IF (PRESENT(name_suffix_)) THEN
212        CALL cxios_get_filegroup_name_suffix(filegroup_hdl%daddr, name_suffix_, len(name_suffix_))
213      ENDIF
214     
215      IF (PRESENT(output_freq_)) THEN
216        CALL cxios_get_filegroup_output_freq(filegroup_hdl%daddr, output_freq_, len(output_freq_))
217      ENDIF
218     
219      IF (PRESENT(output_level_)) THEN
220        CALL cxios_get_filegroup_output_level(filegroup_hdl%daddr, output_level_)
221      ENDIF
222     
223      IF (PRESENT(split_freq_)) THEN
224        CALL cxios_get_filegroup_split_freq(filegroup_hdl%daddr, split_freq_, len(split_freq_))
225      ENDIF
226     
227      IF (PRESENT(sync_freq_)) THEN
228        CALL cxios_get_filegroup_sync_freq(filegroup_hdl%daddr, sync_freq_, len(sync_freq_))
229      ENDIF
230     
231      IF (PRESENT(type_)) THEN
232        CALL cxios_get_filegroup_type(filegroup_hdl%daddr, type_, len(type_))
233      ENDIF
234     
235     
236   
237  END SUBROUTINE xios(get_filegroup_attr_hdl_)
238 
239END MODULE ifilegroup_attr
Note: See TracBrowser for help on using the repository browser.