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

source: vendors/XIOS/current/src/interface/fortran_attr/ifile_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: 8.7 KB
Line 
1! * ************************************************************************** *
2! *               Interface auto generated - do not modify                     *
3! * ************************************************************************** *
4#include "xios_fortran_prefix.hpp"
5
6MODULE ifile_attr
7  USE, INTRINSIC :: ISO_C_BINDING
8  USE ifile
9  USE file_interface_attr
10 
11CONTAINS
12 
13  SUBROUTINE xios(set_file_attr)  &
14    ( file_id, description, enabled, name, name_suffix, output_freq, output_level, split_freq, sync_freq  &
15    , type )
16   
17    IMPLICIT NONE
18      TYPE(txios(file))  :: file_hdl
19      CHARACTER(LEN=*), INTENT(IN) ::file_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) :: name
24      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_suffix
25      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: output_freq
26      INTEGER  , OPTIONAL, INTENT(IN) :: output_level
27      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: split_freq
28      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: sync_freq
29      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type
30     
31      CALL xios(get_file_handle)(file_id,file_hdl)
32      CALL xios(set_file_attr_hdl_)   &
33      ( file_hdl, description, enabled, name, name_suffix, output_freq, output_level, split_freq, sync_freq  &
34      , type )
35   
36  END SUBROUTINE xios(set_file_attr)
37 
38  SUBROUTINE xios(set_file_attr_hdl)  &
39    ( file_hdl, description, enabled, name, name_suffix, output_freq, output_level, split_freq, sync_freq  &
40    , type )
41   
42    IMPLICIT NONE
43      TYPE(txios(file)) , INTENT(IN) :: file_hdl
44      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: description
45      LOGICAL  , OPTIONAL, INTENT(IN) :: enabled
46      LOGICAL (KIND=C_BOOL) :: enabled_tmp
47      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
48      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_suffix
49      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: output_freq
50      INTEGER  , OPTIONAL, INTENT(IN) :: output_level
51      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: split_freq
52      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: sync_freq
53      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type
54     
55      CALL xios(set_file_attr_hdl_)  &
56      ( file_hdl, description, enabled, name, name_suffix, output_freq, output_level, split_freq, sync_freq  &
57      , type )
58   
59  END SUBROUTINE xios(set_file_attr_hdl)
60 
61  SUBROUTINE xios(set_file_attr_hdl_)   &
62    ( file_hdl, description_, enabled_, name_, name_suffix_, output_freq_, output_level_, split_freq_  &
63    , sync_freq_, type_ )
64   
65    IMPLICIT NONE
66      TYPE(txios(file)) , INTENT(IN) :: file_hdl
67      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: description_
68      LOGICAL  , OPTIONAL, INTENT(IN) :: enabled_
69      LOGICAL (KIND=C_BOOL) :: enabled__tmp
70      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_
71      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_suffix_
72      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: output_freq_
73      INTEGER  , OPTIONAL, INTENT(IN) :: output_level_
74      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: split_freq_
75      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: sync_freq_
76      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type_
77     
78      IF (PRESENT(description_)) THEN
79        CALL cxios_set_file_description(file_hdl%daddr, description_, len(description_))
80      ENDIF
81     
82      IF (PRESENT(enabled_)) THEN
83        enabled__tmp=enabled_
84        CALL cxios_set_file_enabled(file_hdl%daddr, enabled__tmp)
85      ENDIF
86     
87      IF (PRESENT(name_)) THEN
88        CALL cxios_set_file_name(file_hdl%daddr, name_, len(name_))
89      ENDIF
90     
91      IF (PRESENT(name_suffix_)) THEN
92        CALL cxios_set_file_name_suffix(file_hdl%daddr, name_suffix_, len(name_suffix_))
93      ENDIF
94     
95      IF (PRESENT(output_freq_)) THEN
96        CALL cxios_set_file_output_freq(file_hdl%daddr, output_freq_, len(output_freq_))
97      ENDIF
98     
99      IF (PRESENT(output_level_)) THEN
100        CALL cxios_set_file_output_level(file_hdl%daddr, output_level_)
101      ENDIF
102     
103      IF (PRESENT(split_freq_)) THEN
104        CALL cxios_set_file_split_freq(file_hdl%daddr, split_freq_, len(split_freq_))
105      ENDIF
106     
107      IF (PRESENT(sync_freq_)) THEN
108        CALL cxios_set_file_sync_freq(file_hdl%daddr, sync_freq_, len(sync_freq_))
109      ENDIF
110     
111      IF (PRESENT(type_)) THEN
112        CALL cxios_set_file_type(file_hdl%daddr, type_, len(type_))
113      ENDIF
114     
115     
116   
117  END SUBROUTINE xios(set_file_attr_hdl_)
118 
119  SUBROUTINE xios(get_file_attr)  &
120    ( file_id, description, enabled, name, name_suffix, output_freq, output_level, split_freq, sync_freq  &
121    , type )
122   
123    IMPLICIT NONE
124      TYPE(txios(file))  :: file_hdl
125      CHARACTER(LEN=*), INTENT(IN) ::file_id
126      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: description
127      LOGICAL  , OPTIONAL, INTENT(OUT) :: enabled
128      LOGICAL (KIND=C_BOOL) :: enabled_tmp
129      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
130      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_suffix
131      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: output_freq
132      INTEGER  , OPTIONAL, INTENT(OUT) :: output_level
133      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: split_freq
134      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: sync_freq
135      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type
136     
137      CALL xios(get_file_handle)(file_id,file_hdl)
138      CALL xios(get_file_attr_hdl_)   &
139      ( file_hdl, description, enabled, name, name_suffix, output_freq, output_level, split_freq, sync_freq  &
140      , type )
141   
142  END SUBROUTINE xios(get_file_attr)
143 
144  SUBROUTINE xios(get_file_attr_hdl)  &
145    ( file_hdl, description, enabled, name, name_suffix, output_freq, output_level, split_freq, sync_freq  &
146    , type )
147   
148    IMPLICIT NONE
149      TYPE(txios(file)) , INTENT(IN) :: file_hdl
150      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: description
151      LOGICAL  , OPTIONAL, INTENT(OUT) :: enabled
152      LOGICAL (KIND=C_BOOL) :: enabled_tmp
153      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
154      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_suffix
155      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: output_freq
156      INTEGER  , OPTIONAL, INTENT(OUT) :: output_level
157      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: split_freq
158      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: sync_freq
159      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type
160     
161      CALL xios(get_file_attr_hdl_)  &
162      ( file_hdl, description, enabled, name, name_suffix, output_freq, output_level, split_freq, sync_freq  &
163      , type )
164   
165  END SUBROUTINE xios(get_file_attr_hdl)
166 
167  SUBROUTINE xios(get_file_attr_hdl_)   &
168    ( file_hdl, description_, enabled_, name_, name_suffix_, output_freq_, output_level_, split_freq_  &
169    , sync_freq_, type_ )
170   
171    IMPLICIT NONE
172      TYPE(txios(file)) , INTENT(IN) :: file_hdl
173      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: description_
174      LOGICAL  , OPTIONAL, INTENT(OUT) :: enabled_
175      LOGICAL (KIND=C_BOOL) :: enabled__tmp
176      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_
177      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_suffix_
178      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: output_freq_
179      INTEGER  , OPTIONAL, INTENT(OUT) :: output_level_
180      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: split_freq_
181      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: sync_freq_
182      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type_
183     
184      IF (PRESENT(description_)) THEN
185        CALL cxios_get_file_description(file_hdl%daddr, description_, len(description_))
186      ENDIF
187     
188      IF (PRESENT(enabled_)) THEN
189        CALL cxios_get_file_enabled(file_hdl%daddr, enabled__tmp)
190        enabled_=enabled__tmp
191      ENDIF
192     
193      IF (PRESENT(name_)) THEN
194        CALL cxios_get_file_name(file_hdl%daddr, name_, len(name_))
195      ENDIF
196     
197      IF (PRESENT(name_suffix_)) THEN
198        CALL cxios_get_file_name_suffix(file_hdl%daddr, name_suffix_, len(name_suffix_))
199      ENDIF
200     
201      IF (PRESENT(output_freq_)) THEN
202        CALL cxios_get_file_output_freq(file_hdl%daddr, output_freq_, len(output_freq_))
203      ENDIF
204     
205      IF (PRESENT(output_level_)) THEN
206        CALL cxios_get_file_output_level(file_hdl%daddr, output_level_)
207      ENDIF
208     
209      IF (PRESENT(split_freq_)) THEN
210        CALL cxios_get_file_split_freq(file_hdl%daddr, split_freq_, len(split_freq_))
211      ENDIF
212     
213      IF (PRESENT(sync_freq_)) THEN
214        CALL cxios_get_file_sync_freq(file_hdl%daddr, sync_freq_, len(sync_freq_))
215      ENDIF
216     
217      IF (PRESENT(type_)) THEN
218        CALL cxios_get_file_type(file_hdl%daddr, type_, len(type_))
219      ENDIF
220     
221     
222   
223  END SUBROUTINE xios(get_file_attr_hdl_)
224 
225END MODULE ifile_attr
Note: See TracBrowser for help on using the repository browser.