source: LMDZ6/trunk/libf/misc/lmdz_xios.F90 @ 5300

Last change on this file since 5300 was 5084, checked in by Laurent Fairhead, 3 months ago

Reverting to r4065. Updating fortran standard broke too much stuff. Will do it by smaller chunks
AB, LF
File size: 51.3 KB
Line 
1#ifdef CPP_XIOS
2
3MODULE lmdz_xios
4  USE xios
5 
6  LOGICAL,PARAMETER :: using_xios = .TRUE.
7
8END MODULE lmdz_xios
9
10#else
11
12MODULE lmdz_xios
13  !!!! Wrapper XIOS
14  !! => must be replaced latter by official xios wrapper when available
15
16  LOGICAL,PARAMETER :: using_xios = .FALSE.
17
18INTERFACE xios_send_field
19  MODULE PROCEDURE xios_send_field_scalar, xios_send_field_1d, xios_send_field_2d, xios_send_field_3d, &
20                   xios_send_field_4d, xios_send_field_5d
21END INTERFACE  xios_send_field
22
23INTERFACE xios_recv_field
24  MODULE PROCEDURE xios_recv_field_scalar, xios_recv_field_1d, xios_recv_field_2d, xios_recv_field_3d, &
25                   xios_recv_field_4d
26END INTERFACE  xios_recv_field
27
28INTERFACE xios_field_is_active
29  MODULE PROCEDURE xios_field_is_active_id,xios_field_is_active_hdl
30END INTERFACE xios_field_is_active
31
32INTERFACE xios_set_attr
33  MODULE PROCEDURE xios_set_fieldgroup_attr_hdl, xios_set_field_attr_hdl, xios_set_domain_attr_hdl, &
34                   xios_set_axis_attr_hdl, xios_set_file_attr_hdl
35END INTERFACE  xios_set_attr
36
37INTERFACE xios_get_handle
38  MODULE PROCEDURE  xios_get_context_handle, xios_get_field_handle, xios_get_fieldgroup_handle, &
39                    xios_get_domain_handle,xios_get_file_handle, xios_get_filegroup_handle
40END INTERFACE  xios_get_handle
41
42INTERFACE xios_add_child
43  MODULE PROCEDURE xios_fieldgroup_add_child, xios_add_fieldtofile, xios_add_file
44END INTERFACE  xios_add_child
45
46INTERFACE xios_set_current_context
47      MODULE PROCEDURE xios_set_current_context_hdl, xios_set_current_context_id
48END INTERFACE xios_set_current_context
49
50INTERFACE xios_get_current_context
51      MODULE PROCEDURE xios_get_current_context_hdl, xios_get_current_context_id
52END INTERFACE xios_get_current_context
53
54INTERFACE xios_set_start_date
55  MODULE PROCEDURE xios_set_start_date_date, xios_set_start_date_dur
56END INTERFACE xios_set_start_date
57
58INTERFACE xios_set_time_origin
59  MODULE PROCEDURE xios_set_time_origin_date, xios_set_time_origin_dur
60END INTERFACE xios_set_time_origin
61
62INTERFACE xios_is_defined_attr
63  MODULE PROCEDURE xios_is_defined_domain_attr_hdl
64END INTERFACE xios_is_defined_attr
65
66TYPE xios_duration
67  DOUBLE PRECISION :: year=0, month=0, day=0, hour=0, minute=0, second=0, timestep=0
68END TYPE xios_duration
69
70TYPE xios_date
71  INTEGER :: year=0, month=0, day=0, hour=0, minute=0, second=0
72END TYPE xios_date
73
74   
75REAL,PARAMETER :: xios_timestep=1.
76REAL,PARAMETER :: xios_second=1.
77
78TYPE xios_fieldgroup
79END TYPE xios_fieldgroup
80
81TYPE xios_filegroup
82END TYPE xios_filegroup
83
84TYPE xios_context
85END TYPE xios_context
86
87TYPE xios_domain
88END TYPE xios_domain
89
90TYPE xios_axis
91END TYPE xios_axis
92
93TYPE xios_file
94END TYPE xios_file
95
96TYPE xios_field
97END TYPE
98
99
100CONTAINS 
101 
102 
103  SUBROUTINE  xios_initialize(client_id, local_comm, return_comm)
104   IMPLICIT NONE
105   CHARACTER(LEN=*),INTENT(IN) :: client_id
106   INTEGER,INTENT(IN),OPTIONAL         :: local_comm
107   INTEGER,INTENT(OUT),OPTIONAL        :: return_comm
108   INTEGER :: f_local_comm
109   INTEGER :: f_return_comm
110
111  END SUBROUTINE  xios_initialize
112
113SUBROUTINE xios_define_calendar(type, timestep, start_date, time_origin, &
114                                    day_length, month_lengths, year_length, &
115                                    leap_year_month, leap_year_drift, leap_year_drift_offset)
116      IMPLICIT NONE
117      CHARACTER(len = *),              INTENT(IN) :: type
118      TYPE(xios_duration), OPTIONAL, INTENT(IN) :: timestep
119      TYPE(xios_date),     OPTIONAL, INTENT(IN) :: start_date
120      TYPE(xios_date),     OPTIONAL, INTENT(IN) :: time_origin
121      INTEGER,               OPTIONAL, INTENT(IN) :: day_length
122      INTEGER,               OPTIONAL, INTENT(IN) :: month_lengths(:)
123      INTEGER,               OPTIONAL, INTENT(IN) :: year_length
124      REAL (KIND=8),         OPTIONAL, INTENT(IN) :: leap_year_drift
125      REAL (KIND=8),         OPTIONAL, INTENT(IN) :: leap_year_drift_offset
126      INTEGER,               OPTIONAL, INTENT(IN) :: leap_year_month
127
128   END SUBROUTINE xios_define_calendar
129   
130  SUBROUTINE xios_duration_convert_to_string(dur, str)
131    IMPLICIT NONE
132    TYPE(xios_duration), INTENT(IN) :: dur
133    CHARACTER(len = *), INTENT(OUT) :: str
134    str=''
135  END SUBROUTINE xios_duration_convert_to_string
136
137  FUNCTION xios_duration_convert_from_string(str) RESULT(res)
138    IMPLICIT NONE
139    CHARACTER(len = *), INTENT(IN) :: str
140    TYPE(xios_duration) :: res
141
142  END FUNCTION xios_duration_convert_from_string
143
144   SUBROUTINE xios_set_timestep(timestep)
145      IMPLICIT NONE
146      TYPE(xios_duration), INTENT(IN) :: timestep
147   END SUBROUTINE xios_set_timestep
148   
149  SUBROUTINE xios_set_start_date_date(start_date)
150      IMPLICIT NONE
151      TYPE(xios_date), INTENT(IN) :: start_date
152   END SUBROUTINE xios_set_start_date_date
153
154   SUBROUTINE xios_set_start_date_dur(start_date)
155      IMPLICIT NONE
156      TYPE(xios_duration), INTENT(IN) :: start_date
157   END SUBROUTINE xios_set_start_date_dur
158   
159   SUBROUTINE xios_set_time_origin_date(time_origin)
160      IMPLICIT NONE
161      TYPE(xios_date), INTENT(IN) :: time_origin
162   END SUBROUTINE xios_set_time_origin_date
163
164   SUBROUTINE xios_set_time_origin_dur(time_origin)
165      IMPLICIT NONE
166      TYPE(xios_duration), INTENT(IN) :: time_origin
167   END SUBROUTINE xios_set_time_origin_dur
168           
169  SUBROUTINE xios_send_field_scalar(name,field)
170  IMPLICIT NONE
171    CHARACTER(LEN=*),INTENT(IN) :: name
172    REAL,INTENT(IN) :: field
173  END SUBROUTINE xios_send_field_scalar 
174
175  SUBROUTINE xios_send_field_1d(name,field)
176  IMPLICIT NONE
177    CHARACTER(LEN=*),INTENT(IN) :: name
178    REAL,INTENT(IN) :: field(:)
179  END SUBROUTINE xios_send_field_1d 
180
181  SUBROUTINE xios_send_field_2d(name,field)
182  IMPLICIT NONE
183    CHARACTER(LEN=*),INTENT(IN) :: name
184    REAL,INTENT(IN) :: field(:,:)
185  END SUBROUTINE xios_send_field_2d 
186
187  SUBROUTINE xios_send_field_3d(name,field)
188  IMPLICIT NONE
189    CHARACTER(LEN=*),INTENT(IN) :: name
190    REAL,INTENT(IN) :: field(:,:,:)
191  END SUBROUTINE xios_send_field_3d 
192
193  SUBROUTINE xios_send_field_4d(name,field)
194  IMPLICIT NONE
195    CHARACTER(LEN=*),INTENT(IN) :: name
196    REAL,INTENT(IN) :: field(:,:,:,:)
197  END SUBROUTINE xios_send_field_4d 
198
199  SUBROUTINE xios_send_field_5d(name,field)
200  IMPLICIT NONE
201    CHARACTER(LEN=*),INTENT(IN) :: name
202    REAL,INTENT(IN) :: field(:,:,:,:,:)
203  END SUBROUTINE xios_send_field_5d 
204
205
206  SUBROUTINE xios_recv_field_scalar(name,field)
207  IMPLICIT NONE
208    CHARACTER(LEN=*),INTENT(IN) :: name
209    REAL,INTENT(OUT) :: field
210    field=0
211  END SUBROUTINE xios_recv_field_scalar 
212
213  SUBROUTINE xios_recv_field_1d(name,field)
214  IMPLICIT NONE
215    CHARACTER(LEN=*),INTENT(IN) :: name
216    REAL,INTENT(OUT) :: field(:)
217    field=0
218  END SUBROUTINE xios_recv_field_1d 
219
220  SUBROUTINE xios_recv_field_2d(name,field)
221  IMPLICIT NONE
222    CHARACTER(LEN=*),INTENT(IN) :: name
223    REAL,INTENT(OUT) :: field(:,:)
224    field=0
225  END SUBROUTINE xios_recv_field_2d 
226
227  SUBROUTINE xios_recv_field_3d(name,field)
228  IMPLICIT NONE
229    CHARACTER(LEN=*),INTENT(IN) :: name
230    REAL,INTENT(OUT) :: field(:,:,:)
231    field=0
232  END SUBROUTINE xios_recv_field_3d 
233
234  SUBROUTINE xios_recv_field_4d(name,field)
235  IMPLICIT NONE
236    CHARACTER(LEN=*),INTENT(IN) :: name
237    REAL,INTENT(OUT) :: field(:,:,:,:)
238    field=0
239  END SUBROUTINE xios_recv_field_4d 
240
241
242  FUNCTION xios_is_active_field(field_id)
243  IMPLICIT NONE
244   LOGICAL ::  xios_is_active_field
245   CHARACTER(LEN=*) :: field_id
246    xios_is_active_field = .TRUE.
247  END FUNCTION xios_is_active_field
248
249  LOGICAL FUNCTION xios_is_valid_field(idt)
250    IMPLICIT NONE
251    CHARACTER(len  = *)    , INTENT(IN) :: idt
252    xios_is_valid_field = .FALSE.
253  END FUNCTION  xios_is_valid_field
254
255  LOGICAL FUNCTION xios_is_valid_file(idt)
256    IMPLICIT NONE
257    CHARACTER(len  = *)    , INTENT(IN) :: idt
258    xios_is_valid_file = .FALSE.
259  END FUNCTION  xios_is_valid_file
260
261  LOGICAL FUNCTION xios_is_valid_axis(idt)
262    IMPLICIT NONE
263    CHARACTER(len  = *)    , INTENT(IN) :: idt
264    xios_is_valid_axis = .FALSE.
265  END FUNCTION  xios_is_valid_axis
266
267  LOGICAL FUNCTION xios_is_valid_domain(idt)
268    IMPLICIT NONE
269    CHARACTER(len  = *)    , INTENT(IN) :: idt
270    xios_is_valid_domain = .FALSE.
271  END FUNCTION  xios_is_valid_domain
272
273
274   SUBROUTINE  xios_context_initialize(context_id,comm)
275   IMPLICIT NONE
276   CHARACTER(LEN=*),INTENT(IN)  :: context_id
277   INTEGER, INTENT(IN)          :: comm
278
279   END SUBROUTINE  xios_context_initialize
280
281
282   SUBROUTINE  xios_finalize
283   IMPLICIT NONE
284
285   END SUBROUTINE  xios_finalize
286
287
288   SUBROUTINE  xios_oasis_enddef
289   IMPLICIT NONE
290
291   END SUBROUTINE  xios_oasis_enddef
292
293
294   SUBROUTINE xios_close_context_definition
295   IMPLICIT NONE
296
297   END SUBROUTINE xios_close_context_definition
298
299
300   SUBROUTINE xios_set_current_context_hdl(context, withswap)
301      IMPLICIT NONE
302      TYPE(xios_context)          , INTENT(IN) :: context
303      LOGICAL                     , OPTIONAL, INTENT(IN) :: withswap
304   END SUBROUTINE xios_set_current_context_hdl
305   
306   SUBROUTINE xios_set_current_context_id(idt)
307      IMPLICIT NONE
308
309      CHARACTER(len = *) , INTENT(IN) :: idt
310      LOGICAL           :: withswap
311    END SUBROUTINE xios_set_current_context_id
312   
313
314   SUBROUTINE xios_get_current_context_hdl(context)
315      IMPLICIT NONE
316      TYPE(xios_context), INTENT(OUT) :: context
317   END SUBROUTINE xios_get_current_context_hdl
318
319   SUBROUTINE xios_get_current_context_id(idt)
320      IMPLICIT NONE
321      CHARACTER(len = *) , INTENT(OUT) :: idt
322      TYPE(xios_context) :: context
323   END SUBROUTINE xios_get_current_context_id
324
325   SUBROUTINE xios_context_finalize()
326   IMPLICIT NONE
327
328   END SUBROUTINE xios_context_finalize
329
330
331   SUBROUTINE xios_solve_inheritance()
332   IMPLICIT NONE
333
334   END SUBROUTINE xios_solve_inheritance
335
336
337
338
339 
340  SUBROUTINE xios_update_calendar(step)
341  IMPLICIT NONE
342   INTEGER, INTENT(IN):: step 
343  END SUBROUTINE xios_update_calendar
344
345  SUBROUTINE xios_set_filegroup_attr(name,enabled)
346    CHARACTER(LEN=*) :: name
347    LOGICAL,OPTIONAL          :: enabled
348  END SUBROUTINE xios_set_filegroup_attr
349
350  SUBROUTINE xios_get_axis_attr(name,n_glo,value)
351    CHARACTER(LEN=*) :: name
352    INTEGER,OPTIONAL          :: n_glo
353    REAL,OPTIONAL             :: value(:)
354  END SUBROUTINE xios_get_axis_attr
355
356   SUBROUTINE xios_get_context_handle(idt,ret)
357    IMPLICIT NONE
358    CHARACTER(len = *)  , INTENT(IN)  :: idt
359    TYPE(xios_context), INTENT(OUT):: ret
360    TYPE(xios_context)             :: nothing
361     
362      ret=nothing
363   END SUBROUTINE xios_get_context_handle
364
365   SUBROUTINE xios_get_domain_handle(idt,ret)
366      IMPLICIT NONE
367      CHARACTER(len = *) , INTENT(IN) :: idt     
368      TYPE(xios_domain), INTENT(OUT):: ret
369      TYPE(xios_domain)             :: hdl
370      ret=hdl
371   END SUBROUTINE xios_get_domain_handle   
372
373   SUBROUTINE xios_get_field_handle(idt,ret)
374      IMPLICIT NONE
375      CHARACTER(len = *) , INTENT(IN) :: idt     
376      TYPE(xios_field), INTENT(OUT):: ret
377      TYPE(xios_field)             :: hdl
378      ret=hdl
379   END SUBROUTINE xios_get_field_handle   
380
381   SUBROUTINE xios_get_fieldgroup_handle(idt,ret)
382      IMPLICIT NONE
383      CHARACTER(len = *) , INTENT(IN) :: idt     
384      TYPE(xios_fieldgroup), INTENT(OUT):: ret
385      TYPE(xios_fieldgroup)             :: hdl
386      ret=hdl
387   END SUBROUTINE xios_get_fieldgroup_handle   
388
389   SUBROUTINE xios_get_file_handle(idt,ret)
390      IMPLICIT NONE
391      CHARACTER(len = *) , INTENT(IN) :: idt     
392      TYPE(xios_file), INTENT(OUT):: ret
393      TYPE(xios_file)             :: hdl
394      ret=hdl
395   END SUBROUTINE xios_get_file_handle   
396
397   SUBROUTINE xios_get_filegroup_handle(idt,ret)
398      IMPLICIT NONE
399      CHARACTER(len = *) , INTENT(IN) :: idt     
400      TYPE(xios_filegroup), INTENT(OUT):: ret
401      TYPE(xios_filegroup)             :: hdl
402      ret=hdl
403   END SUBROUTINE xios_get_filegroup_handle   
404
405
406
407  SUBROUTINE xios_fieldgroup_add_child(fieldgroup_hdl, field_hdl, id)
408    TYPE(xios_fieldgroup)     :: fieldgroup_hdl
409    TYPE(xios_field)          :: field_hdl
410    CHARACTER(LEN=*),OPTIONAL :: id
411  END SUBROUTINE xios_fieldgroup_add_child
412
413  SUBROUTINE xios_add_file(parent_hdl, child_hdl, child_id)
414      TYPE(xios_filegroup)      , INTENT(IN) :: parent_hdl
415      TYPE(xios_file)           , INTENT(OUT):: child_hdl
416      CHARACTER(len = *), OPTIONAL, INTENT(IN)  :: child_id
417      TYPE(xios_file) :: hdl
418      child_hdl = hdl
419  END SUBROUTINE xios_add_file
420
421  SUBROUTINE xios_add_field(parent_hdl, child_hdl, child_id)
422      TYPE(xios_fieldgroup)      , INTENT(IN) :: parent_hdl
423      TYPE(xios_field)           , INTENT(OUT):: child_hdl
424      CHARACTER(len = *), OPTIONAL, INTENT(IN)  :: child_id
425      TYPE(xios_field) :: hdl
426      child_hdl = hdl
427  END SUBROUTINE xios_add_field
428 
429  SUBROUTINE xios_add_fieldtofile(parent_hdl, child_hdl, child_id)
430    TYPE(xios_file)            , INTENT(IN) :: parent_hdl
431    TYPE(xios_field)           , INTENT(OUT):: child_hdl
432    CHARACTER(len = *), OPTIONAL , INTENT(IN) :: child_id
433    TYPE(xios_field) :: hdl
434    child_hdl = hdl
435
436  END SUBROUTINE xios_add_fieldtofile
437   
438  LOGICAL FUNCTION xios_field_is_active_id(field_id, at_current_timestep_arg)
439      IMPLICIT NONE
440      CHARACTER(len  = *) , INTENT(IN) :: field_id
441      LOGICAL, OPTIONAL   , INTENT(IN) :: at_current_timestep_arg
442
443     xios_field_is_active_id=.FALSE.
444   END FUNCTION xios_field_is_active_id
445
446   LOGICAL FUNCTION xios_field_is_active_hdl(field_hdl, at_current_timestep_arg)
447      IMPLICIT NONE
448      TYPE(xios_field) , INTENT(IN) :: field_hdl
449      LOGICAL, OPTIONAL  , INTENT(IN) :: at_current_timestep_arg
450
451     xios_field_is_active_hdl = .FALSE.
452   END FUNCTION xios_field_is_active_hdl
453   
454
455  SUBROUTINE  xios_set_generate_rectilinear_domain_attr(id, bounds_lon_start, bounds_lon_end,  bounds_lat_start,  bounds_lat_end)
456    CHARACTER(LEN=*) :: id
457    REAL, OPTIONAL :: bounds_lon_start
458    REAL, OPTIONAL :: bounds_lon_end
459    REAL, OPTIONAL :: bounds_lat_start
460    REAL, OPTIONAL :: bounds_lat_end
461  END SUBROUTINE  xios_set_generate_rectilinear_domain_attr   
462
463  SUBROUTINE xios_set_domain_attr  &
464    ( domain_id, area, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d, bounds_lon_2d  &
465    , bounds_lon_name, comment, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni  &
466    , data_nj, dim_i_name, dim_j_name, domain_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d  &
467    , latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo  &
468    , nj, nj_glo, nvertex, prec, radius, standard_name, type )
469
470    IMPLICIT NONE
471      TYPE(xios_domain)  :: domain_hdl
472      CHARACTER(LEN=*), INTENT(IN) ::domain_id
473      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: area(:,:)
474      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_1d(:,:)
475      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_2d(:,:,:)
476      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: bounds_lat_name
477      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon_1d(:,:)
478      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon_2d(:,:,:)
479      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: bounds_lon_name
480      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment
481      INTEGER  , OPTIONAL, INTENT(IN) :: data_dim
482      INTEGER  , OPTIONAL, INTENT(IN) :: data_i_index(:)
483      INTEGER  , OPTIONAL, INTENT(IN) :: data_ibegin
484      INTEGER  , OPTIONAL, INTENT(IN) :: data_j_index(:)
485      INTEGER  , OPTIONAL, INTENT(IN) :: data_jbegin
486      INTEGER  , OPTIONAL, INTENT(IN) :: data_ni
487      INTEGER  , OPTIONAL, INTENT(IN) :: data_nj
488      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: dim_i_name
489      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: dim_j_name
490      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref
491      INTEGER  , OPTIONAL, INTENT(IN) :: i_index(:)
492      INTEGER  , OPTIONAL, INTENT(IN) :: ibegin
493      INTEGER  , OPTIONAL, INTENT(IN) :: j_index(:)
494      INTEGER  , OPTIONAL, INTENT(IN) :: jbegin
495      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: lat_name
496      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: latvalue_1d(:)
497      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: latvalue_2d(:,:)
498      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: lon_name
499      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name
500      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lonvalue_1d(:)
501      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lonvalue_2d(:,:)
502      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_1d(:)
503      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_2d(:,:)
504      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
505      INTEGER  , OPTIONAL, INTENT(IN) :: ni
506      INTEGER  , OPTIONAL, INTENT(IN) :: ni_glo
507      INTEGER  , OPTIONAL, INTENT(IN) :: nj
508      INTEGER  , OPTIONAL, INTENT(IN) :: nj_glo
509      INTEGER  , OPTIONAL, INTENT(IN) :: nvertex
510      INTEGER  , OPTIONAL, INTENT(IN) :: prec
511      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: radius
512      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name
513      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type
514
515  END SUBROUTINE xios_set_domain_attr 
516
517  SUBROUTINE xios_set_domain_attr_hdl  &
518    ( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d, bounds_lon_2d  &
519    , bounds_lon_name, comment, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni  &
520    , data_nj, dim_i_name, dim_j_name, domain_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d  &
521    , latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo  &
522    , nj, nj_glo, nvertex, prec, radius, standard_name, type )
523
524    IMPLICIT NONE
525      TYPE(xios_domain) , INTENT(IN) :: domain_hdl
526      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: area(:,:)
527      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_1d(:,:)
528      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_2d(:,:,:)
529      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: bounds_lat_name
530      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon_1d(:,:)
531      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon_2d(:,:,:)
532      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: bounds_lon_name
533      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment
534      INTEGER  , OPTIONAL, INTENT(IN) :: data_dim
535      INTEGER  , OPTIONAL, INTENT(IN) :: data_i_index(:)
536      INTEGER  , OPTIONAL, INTENT(IN) :: data_ibegin
537      INTEGER  , OPTIONAL, INTENT(IN) :: data_j_index(:)
538      INTEGER  , OPTIONAL, INTENT(IN) :: data_jbegin
539      INTEGER  , OPTIONAL, INTENT(IN) :: data_ni
540      INTEGER  , OPTIONAL, INTENT(IN) :: data_nj
541      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: dim_i_name
542      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: dim_j_name
543      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref
544      INTEGER  , OPTIONAL, INTENT(IN) :: i_index(:)
545      INTEGER  , OPTIONAL, INTENT(IN) :: ibegin
546      INTEGER  , OPTIONAL, INTENT(IN) :: j_index(:)
547      INTEGER  , OPTIONAL, INTENT(IN) :: jbegin
548      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: lat_name
549      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: latvalue_1d(:)
550      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: latvalue_2d(:,:)
551      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: lon_name
552      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name
553      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lonvalue_1d(:)
554      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lonvalue_2d(:,:)
555      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_1d(:)
556      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_2d(:,:)
557      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
558      INTEGER  , OPTIONAL, INTENT(IN) :: ni
559      INTEGER  , OPTIONAL, INTENT(IN) :: ni_glo
560      INTEGER  , OPTIONAL, INTENT(IN) :: nj
561      INTEGER  , OPTIONAL, INTENT(IN) :: nj_glo
562      INTEGER  , OPTIONAL, INTENT(IN) :: nvertex
563      INTEGER  , OPTIONAL, INTENT(IN) :: prec
564      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: radius
565      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name
566      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type
567 
568  END SUBROUTINE xios_set_domain_attr_hdl
569
570
571
572  SUBROUTINE xios_set_axis_attr  &
573    ( axis_id, axis_ref, axis_type, begin, bounds, bounds_name, comment, data_begin, data_index  &
574    , data_n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, index, label  &
575    , long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name, unit  &
576    , value )
577
578    IMPLICIT NONE
579      TYPE(xios_axis)  :: axis_hdl
580      CHARACTER(LEN=*), INTENT(IN) ::axis_id
581      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref
582      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_type
583      INTEGER  , OPTIONAL, INTENT(IN) :: begin
584      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds(:,:)
585      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: bounds_name
586      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment
587      INTEGER  , OPTIONAL, INTENT(IN) :: data_begin
588      INTEGER  , OPTIONAL, INTENT(IN) :: data_index(:)
589      INTEGER  , OPTIONAL, INTENT(IN) :: data_n
590      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: dim_name
591      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: formula
592      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: formula_bounds
593      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: formula_term
594      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: formula_term_bounds
595      INTEGER  , OPTIONAL, INTENT(IN) :: index(:)
596      CHARACTER(len=*) , OPTIONAL, INTENT(IN) :: label(:)
597      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name
598      LOGICAL  , OPTIONAL, INTENT(IN) :: mask(:)
599      INTEGER  , OPTIONAL, INTENT(IN) :: n
600      INTEGER  , OPTIONAL, INTENT(IN) :: n_distributed_partition
601      INTEGER  , OPTIONAL, INTENT(IN) :: n_glo
602      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
603      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: positive
604      INTEGER  , OPTIONAL, INTENT(IN) :: prec
605      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name
606      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: unit
607      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: value(:)
608
609  END SUBROUTINE xios_set_axis_attr
610
611  SUBROUTINE xios_set_axis_attr_hdl  &
612    ( axis_hdl, axis_ref, axis_type, begin, bounds, bounds_name, comment, data_begin, data_index  &
613    , data_n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, index, label  &
614    , long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name, unit  &
615    , value )
616
617    IMPLICIT NONE
618      TYPE(xios_axis) , INTENT(IN) :: axis_hdl
619      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref
620      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_type
621      INTEGER  , OPTIONAL, INTENT(IN) :: begin
622      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds(:,:)
623      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: bounds_name
624      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment
625      INTEGER  , OPTIONAL, INTENT(IN) :: data_begin
626      INTEGER  , OPTIONAL, INTENT(IN) :: data_index(:)
627      INTEGER  , OPTIONAL, INTENT(IN) :: data_n
628      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: dim_name
629      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: formula
630      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: formula_bounds
631      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: formula_term
632      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: formula_term_bounds
633      INTEGER  , OPTIONAL, INTENT(IN) :: index(:)
634      CHARACTER(len=*) , OPTIONAL, INTENT(IN) :: label(:)
635      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name
636      LOGICAL  , OPTIONAL, INTENT(IN) :: mask(:)
637      INTEGER  , OPTIONAL, INTENT(IN) :: n
638      INTEGER  , OPTIONAL, INTENT(IN) :: n_distributed_partition
639      INTEGER  , OPTIONAL, INTENT(IN) :: n_glo
640      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
641      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: positive
642      INTEGER  , OPTIONAL, INTENT(IN) :: prec
643      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name
644      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: unit
645      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: value(:)
646
647  END SUBROUTINE xios_set_axis_attr_hdl
648
649  SUBROUTINE xios_set_field_attr  &
650    ( field_id, add_offset, axis_ref, build_workflow_graph, cell_methods, cell_methods_mode, check_if_active  &
651    , comment, compression_level, default_value, detect_missing_value, domain_ref, enabled, expr  &
652    , field_ref, freq_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name, name  &
653    , operation, prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq  &
654    , unit, valid_max, valid_min )
655
656    IMPLICIT NONE
657      TYPE(xios_field)  :: field_hdl
658      CHARACTER(LEN=*), INTENT(IN) ::field_id
659      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: add_offset
660      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref
661      LOGICAL  , OPTIONAL, INTENT(IN) :: build_workflow_graph
662      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: cell_methods
663      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: cell_methods_mode
664      LOGICAL  , OPTIONAL, INTENT(IN) :: check_if_active
665      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment
666      INTEGER  , OPTIONAL, INTENT(IN) :: compression_level
667      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: default_value
668      LOGICAL  , OPTIONAL, INTENT(IN) :: detect_missing_value
669      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref
670      LOGICAL  , OPTIONAL, INTENT(IN) :: enabled
671      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: expr
672      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: field_ref
673      TYPE(xios_duration)  , OPTIONAL, INTENT(IN) :: freq_offset
674      TYPE(xios_duration)  , OPTIONAL, INTENT(IN) :: freq_op
675      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: grid_path
676      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: grid_ref
677      LOGICAL  , OPTIONAL, INTENT(IN) :: indexed_output
678      INTEGER  , OPTIONAL, INTENT(IN) :: level
679      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name
680      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
681      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: operation
682      INTEGER  , OPTIONAL, INTENT(IN) :: prec
683      LOGICAL  , OPTIONAL, INTENT(IN) :: read_access
684      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: scalar_ref
685      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: scale_factor
686      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name
687      LOGICAL  , OPTIONAL, INTENT(IN) :: ts_enabled
688      TYPE(xios_duration)  , OPTIONAL, INTENT(IN) :: ts_split_freq
689      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: unit
690      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: valid_max
691      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: valid_min
692
693  END SUBROUTINE xios_set_field_attr
694
695  SUBROUTINE xios_set_field_attr_hdl  &
696    ( field_hdl, add_offset, axis_ref, build_workflow_graph, cell_methods, cell_methods_mode, check_if_active  &
697    , comment, compression_level, default_value, detect_missing_value, domain_ref, enabled, expr  &
698    , field_ref, freq_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name, name  &
699    , operation, prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq  &
700    , unit, valid_max, valid_min )
701
702    IMPLICIT NONE
703      TYPE(xios_field) , INTENT(IN) :: field_hdl
704      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: add_offset
705      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref
706      LOGICAL  , OPTIONAL, INTENT(IN) :: build_workflow_graph
707      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: cell_methods
708      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: cell_methods_mode
709      LOGICAL  , OPTIONAL, INTENT(IN) :: check_if_active
710      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment
711      INTEGER  , OPTIONAL, INTENT(IN) :: compression_level
712      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: default_value
713      LOGICAL  , OPTIONAL, INTENT(IN) :: detect_missing_value
714      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref
715      LOGICAL  , OPTIONAL, INTENT(IN) :: enabled
716      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: expr
717      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: field_ref
718      TYPE(xios_duration)  , OPTIONAL, INTENT(IN) :: freq_offset
719      TYPE(xios_duration)  , OPTIONAL, INTENT(IN) :: freq_op
720      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: grid_path
721      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: grid_ref
722      LOGICAL  , OPTIONAL, INTENT(IN) :: indexed_output
723      INTEGER  , OPTIONAL, INTENT(IN) :: level
724      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name
725      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
726      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: operation
727      INTEGER  , OPTIONAL, INTENT(IN) :: prec
728      LOGICAL  , OPTIONAL, INTENT(IN) :: read_access
729      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: scalar_ref
730      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: scale_factor
731      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name
732      LOGICAL  , OPTIONAL, INTENT(IN) :: ts_enabled
733      TYPE(xios_duration)  , OPTIONAL, INTENT(IN) :: ts_split_freq
734      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: unit
735      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: valid_max
736      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: valid_min
737
738
739  END SUBROUTINE xios_set_field_attr_hdl
740
741
742  SUBROUTINE xios_set_fieldgroup_attr  &
743    ( fieldgroup_id, add_offset, axis_ref, build_workflow_graph, cell_methods, cell_methods_mode  &
744    , check_if_active, comment, compression_level, default_value, detect_missing_value, domain_ref  &
745    , enabled, expr, field_ref, freq_offset, freq_op, grid_path, grid_ref, group_ref, indexed_output  &
746    , level, long_name, name, operation, prec, read_access, scalar_ref, scale_factor, standard_name  &
747    , ts_enabled, ts_split_freq, unit, valid_max, valid_min )
748
749    IMPLICIT NONE
750      TYPE(xios_fieldgroup)  :: fieldgroup_hdl
751      CHARACTER(LEN=*), INTENT(IN) ::fieldgroup_id
752      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: add_offset
753      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref
754      LOGICAL  , OPTIONAL, INTENT(IN) :: build_workflow_graph
755      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: cell_methods
756      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: cell_methods_mode
757      LOGICAL  , OPTIONAL, INTENT(IN) :: check_if_active
758      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment
759      INTEGER  , OPTIONAL, INTENT(IN) :: compression_level
760      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: default_value
761      LOGICAL  , OPTIONAL, INTENT(IN) :: detect_missing_value
762      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref
763      LOGICAL  , OPTIONAL, INTENT(IN) :: enabled
764      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: expr
765      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: field_ref
766      TYPE(xios_duration)  , OPTIONAL, INTENT(IN) :: freq_offset
767      TYPE(xios_duration)  , OPTIONAL, INTENT(IN) :: freq_op
768      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: grid_path
769      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: grid_ref
770      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref
771      LOGICAL  , OPTIONAL, INTENT(IN) :: indexed_output
772      INTEGER  , OPTIONAL, INTENT(IN) :: level
773      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name
774      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
775      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: operation
776      INTEGER  , OPTIONAL, INTENT(IN) :: prec
777      LOGICAL  , OPTIONAL, INTENT(IN) :: read_access
778      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: scalar_ref
779      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: scale_factor
780      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name
781      LOGICAL  , OPTIONAL, INTENT(IN) :: ts_enabled
782      TYPE(xios_duration)  , OPTIONAL, INTENT(IN) :: ts_split_freq
783      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: unit
784      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: valid_max
785      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: valid_min
786
787  END SUBROUTINE xios_set_fieldgroup_attr
788
789  SUBROUTINE xios_set_fieldgroup_attr_hdl  &
790    ( fieldgroup_hdl, add_offset, axis_ref, build_workflow_graph, cell_methods, cell_methods_mode  &
791    , check_if_active, comment, compression_level, default_value, detect_missing_value, domain_ref  &
792    , enabled, expr, field_ref, freq_offset, freq_op, grid_path, grid_ref, group_ref, indexed_output  &
793    , level, long_name, name, operation, prec, read_access, scalar_ref, scale_factor, standard_name  &
794    , ts_enabled, ts_split_freq, unit, valid_max, valid_min )
795
796    IMPLICIT NONE
797      TYPE(xios_fieldgroup) , INTENT(IN) :: fieldgroup_hdl
798      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: add_offset
799      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref
800      LOGICAL  , OPTIONAL, INTENT(IN) :: build_workflow_graph
801      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: cell_methods
802      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: cell_methods_mode
803      LOGICAL  , OPTIONAL, INTENT(IN) :: check_if_active
804      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment
805      INTEGER  , OPTIONAL, INTENT(IN) :: compression_level
806      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: default_value
807      LOGICAL  , OPTIONAL, INTENT(IN) :: detect_missing_value
808      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref
809      LOGICAL  , OPTIONAL, INTENT(IN) :: enabled
810      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: expr
811      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: field_ref
812      TYPE(xios_duration)  , OPTIONAL, INTENT(IN) :: freq_offset
813      TYPE(xios_duration)  , OPTIONAL, INTENT(IN) :: freq_op
814      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: grid_path
815      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: grid_ref
816      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref
817      LOGICAL  , OPTIONAL, INTENT(IN) :: indexed_output
818      INTEGER  , OPTIONAL, INTENT(IN) :: level
819      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name
820      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
821      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: operation
822      INTEGER  , OPTIONAL, INTENT(IN) :: prec
823      LOGICAL  , OPTIONAL, INTENT(IN) :: read_access
824      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: scalar_ref
825      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: scale_factor
826      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name
827      LOGICAL  , OPTIONAL, INTENT(IN) :: ts_enabled
828      TYPE(xios_duration)  , OPTIONAL, INTENT(IN) :: ts_split_freq
829      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: unit
830      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: valid_max
831      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: valid_min
832
833  END SUBROUTINE xios_set_fieldgroup_attr_hdl
834
835
836  SUBROUTINE xios_set_file_attr  &
837    ( file_id, append, comment, compression_level, convention, convention_str, cyclic, description  &
838    , enabled, format, min_digits, mode, name, name_suffix, output_freq, output_level, par_access  &
839    , read_metadata_par, record_offset, split_end_offset, split_freq, split_freq_format, split_last_date  &
840    , split_start_offset, sync_freq, time_counter, time_counter_name, time_stamp_format, time_stamp_name  &
841    , time_units, timeseries, ts_prefix, type, uuid_format, uuid_name )
842
843    IMPLICIT NONE
844      TYPE(xios_file)  :: file_hdl
845      CHARACTER(LEN=*), INTENT(IN) ::file_id
846      LOGICAL  , OPTIONAL, INTENT(IN) :: append
847      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment
848      INTEGER  , OPTIONAL, INTENT(IN) :: compression_level
849      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: convention
850      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: convention_str
851      LOGICAL  , OPTIONAL, INTENT(IN) :: cyclic
852      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: description
853      LOGICAL  , OPTIONAL, INTENT(IN) :: enabled
854      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: format
855      INTEGER  , OPTIONAL, INTENT(IN) :: min_digits
856      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: mode
857      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
858      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_suffix
859      TYPE(xios_duration)  , OPTIONAL, INTENT(IN) :: output_freq
860      INTEGER  , OPTIONAL, INTENT(IN) :: output_level
861      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: par_access
862      LOGICAL  , OPTIONAL, INTENT(IN) :: read_metadata_par
863      INTEGER  , OPTIONAL, INTENT(IN) :: record_offset
864      TYPE(xios_duration)  , OPTIONAL, INTENT(IN) :: split_end_offset
865      TYPE(xios_duration)  , OPTIONAL, INTENT(IN) :: split_freq
866      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: split_freq_format
867      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: split_last_date
868      TYPE(xios_duration)  , OPTIONAL, INTENT(IN) :: split_start_offset
869      TYPE(xios_duration)  , OPTIONAL, INTENT(IN) :: sync_freq
870      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_counter
871      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_counter_name
872      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_stamp_format
873      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_stamp_name
874      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_units
875      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: timeseries
876      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: ts_prefix
877      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type
878      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: uuid_format
879      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: uuid_name
880
881  END SUBROUTINE xios_set_file_attr
882
883  SUBROUTINE xios_set_file_attr_hdl  &
884    ( file_hdl, append, comment, compression_level, convention, convention_str, cyclic, description  &
885    , enabled, format, min_digits, mode, name, name_suffix, output_freq, output_level, par_access  &
886    , read_metadata_par, record_offset, split_end_offset, split_freq, split_freq_format, split_last_date  &
887    , split_start_offset, sync_freq, time_counter, time_counter_name, time_stamp_format, time_stamp_name  &
888    , time_units, timeseries, ts_prefix, type, uuid_format, uuid_name )
889
890    IMPLICIT NONE
891      TYPE(xios_file) , INTENT(IN) :: file_hdl
892      LOGICAL  , OPTIONAL, INTENT(IN) :: append
893      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment
894      INTEGER  , OPTIONAL, INTENT(IN) :: compression_level
895      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: convention
896      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: convention_str
897      LOGICAL  , OPTIONAL, INTENT(IN) :: cyclic
898      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: description
899      LOGICAL  , OPTIONAL, INTENT(IN) :: enabled
900      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: format
901      INTEGER  , OPTIONAL, INTENT(IN) :: min_digits
902      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: mode
903      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
904      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_suffix
905      TYPE(xios_duration)  , OPTIONAL, INTENT(IN) :: output_freq
906      INTEGER  , OPTIONAL, INTENT(IN) :: output_level
907      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: par_access
908      LOGICAL  , OPTIONAL, INTENT(IN) :: read_metadata_par
909      INTEGER  , OPTIONAL, INTENT(IN) :: record_offset
910      TYPE(xios_duration)  , OPTIONAL, INTENT(IN) :: split_end_offset
911      TYPE(xios_duration)  , OPTIONAL, INTENT(IN) :: split_freq
912      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: split_freq_format
913      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: split_last_date
914      TYPE(xios_duration)  , OPTIONAL, INTENT(IN) :: split_start_offset
915      TYPE(xios_duration)  , OPTIONAL, INTENT(IN) :: sync_freq
916      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_counter
917      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_counter_name
918      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_stamp_format
919      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_stamp_name
920      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_units
921      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: timeseries
922      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: ts_prefix
923      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type
924      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: uuid_format
925      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: uuid_name
926
927  END SUBROUTINE xios_set_file_attr_hdl
928
929
930  SUBROUTINE xios_is_defined_domain_attr  &
931    ( domain_id, area, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d, bounds_lon_2d  &
932    , bounds_lon_name, comment, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni  &
933    , data_nj, dim_i_name, dim_j_name, domain_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d  &
934    , latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo  &
935    , nj, nj_glo, nvertex, prec, radius, standard_name, type )
936
937    IMPLICIT NONE
938      CHARACTER(LEN=*), INTENT(IN) ::domain_id
939      LOGICAL, OPTIONAL, INTENT(OUT) :: area
940      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_1d
941      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_2d
942      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_name
943      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_1d
944      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_2d
945      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_name
946      LOGICAL, OPTIONAL, INTENT(OUT) :: comment
947      LOGICAL, OPTIONAL, INTENT(OUT) :: data_dim
948      LOGICAL, OPTIONAL, INTENT(OUT) :: data_i_index
949      LOGICAL, OPTIONAL, INTENT(OUT) :: data_ibegin
950      LOGICAL, OPTIONAL, INTENT(OUT) :: data_j_index
951      LOGICAL, OPTIONAL, INTENT(OUT) :: data_jbegin
952      LOGICAL, OPTIONAL, INTENT(OUT) :: data_ni
953      LOGICAL, OPTIONAL, INTENT(OUT) :: data_nj
954      LOGICAL, OPTIONAL, INTENT(OUT) :: dim_i_name
955      LOGICAL, OPTIONAL, INTENT(OUT) :: dim_j_name
956      LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref
957      LOGICAL, OPTIONAL, INTENT(OUT) :: i_index
958      LOGICAL, OPTIONAL, INTENT(OUT) :: ibegin
959      LOGICAL, OPTIONAL, INTENT(OUT) :: j_index
960      LOGICAL, OPTIONAL, INTENT(OUT) :: jbegin
961      LOGICAL, OPTIONAL, INTENT(OUT) :: lat_name
962      LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue_1d
963      LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue_2d
964      LOGICAL, OPTIONAL, INTENT(OUT) :: lon_name
965      LOGICAL, OPTIONAL, INTENT(OUT) :: long_name
966      LOGICAL, OPTIONAL, INTENT(OUT) :: lonvalue_1d
967      LOGICAL, OPTIONAL, INTENT(OUT) :: lonvalue_2d
968      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_1d
969      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_2d
970      LOGICAL, OPTIONAL, INTENT(OUT) :: name
971      LOGICAL, OPTIONAL, INTENT(OUT) :: ni
972      LOGICAL, OPTIONAL, INTENT(OUT) :: ni_glo
973      LOGICAL, OPTIONAL, INTENT(OUT) :: nj
974      LOGICAL, OPTIONAL, INTENT(OUT) :: nj_glo
975      LOGICAL, OPTIONAL, INTENT(OUT) :: nvertex
976      LOGICAL, OPTIONAL, INTENT(OUT) :: prec
977      LOGICAL, OPTIONAL, INTENT(OUT) :: radius
978      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name
979      LOGICAL, OPTIONAL, INTENT(OUT) :: type
980
981      area = .FALSE.
982      bounds_lat_1d = .FALSE.
983      bounds_lat_2d = .FALSE.
984      bounds_lat_name = .FALSE.
985      bounds_lon_1d = .FALSE.
986      bounds_lon_2d = .FALSE.
987      bounds_lon_name = .FALSE.
988      comment = .FALSE.
989      data_dim = .FALSE.
990      data_i_index = .FALSE.
991      data_ibegin = .FALSE.
992      data_j_index = .FALSE.
993      data_jbegin = .FALSE.
994      data_ni = .FALSE.
995      data_nj = .FALSE.
996      dim_i_name = .FALSE.
997      dim_j_name = .FALSE.
998      domain_ref = .FALSE.
999      i_index = .FALSE.
1000      ibegin = .FALSE.
1001      j_index = .FALSE.
1002      jbegin = .FALSE.
1003      lat_name = .FALSE.
1004      latvalue_1d = .FALSE.
1005      latvalue_2d = .FALSE.
1006      lon_name = .FALSE.
1007      long_name = .FALSE.
1008      lonvalue_1d = .FALSE.
1009      lonvalue_2d = .FALSE.
1010      mask_1d = .FALSE.
1011      mask_2d = .FALSE.
1012      name = .FALSE.
1013      ni = .FALSE.
1014      ni_glo = .FALSE.
1015      nj = .FALSE.
1016      nj_glo = .FALSE.
1017      nvertex = .FALSE.
1018      prec = .FALSE.
1019      radius = .FALSE.
1020      standard_name = .FALSE.
1021      type = .FALSE.
1022
1023  END SUBROUTINE xios_is_defined_domain_attr
1024
1025  SUBROUTINE xios_is_defined_domain_attr_hdl  &
1026    ( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d, bounds_lon_2d  &
1027    , bounds_lon_name, comment, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni  &
1028    , data_nj, dim_i_name, dim_j_name, domain_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d  &
1029    , latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo  &
1030    , nj, nj_glo, nvertex, prec, radius, standard_name, type )
1031
1032    IMPLICIT NONE
1033      TYPE(xios_domain), INTENT(IN) :: domain_hdl
1034      LOGICAL, OPTIONAL, INTENT(OUT) :: area
1035      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_1d
1036      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_2d
1037      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_name
1038      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_1d
1039      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_2d
1040      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_name
1041      LOGICAL, OPTIONAL, INTENT(OUT) :: comment
1042      LOGICAL, OPTIONAL, INTENT(OUT) :: data_dim
1043      LOGICAL, OPTIONAL, INTENT(OUT) :: data_i_index
1044      LOGICAL, OPTIONAL, INTENT(OUT) :: data_ibegin
1045      LOGICAL, OPTIONAL, INTENT(OUT) :: data_j_index
1046      LOGICAL, OPTIONAL, INTENT(OUT) :: data_jbegin
1047      LOGICAL, OPTIONAL, INTENT(OUT) :: data_ni
1048      LOGICAL, OPTIONAL, INTENT(OUT) :: data_nj
1049      LOGICAL, OPTIONAL, INTENT(OUT) :: dim_i_name
1050      LOGICAL, OPTIONAL, INTENT(OUT) :: dim_j_name
1051      LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref
1052      LOGICAL, OPTIONAL, INTENT(OUT) :: i_index
1053      LOGICAL, OPTIONAL, INTENT(OUT) :: ibegin
1054      LOGICAL, OPTIONAL, INTENT(OUT) :: j_index
1055      LOGICAL, OPTIONAL, INTENT(OUT) :: jbegin
1056      LOGICAL, OPTIONAL, INTENT(OUT) :: lat_name
1057      LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue_1d
1058      LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue_2d
1059      LOGICAL, OPTIONAL, INTENT(OUT) :: lon_name
1060      LOGICAL, OPTIONAL, INTENT(OUT) :: long_name
1061      LOGICAL, OPTIONAL, INTENT(OUT) :: lonvalue_1d
1062      LOGICAL, OPTIONAL, INTENT(OUT) :: lonvalue_2d
1063      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_1d
1064      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_2d
1065      LOGICAL, OPTIONAL, INTENT(OUT) :: name
1066      LOGICAL, OPTIONAL, INTENT(OUT) :: ni
1067      LOGICAL, OPTIONAL, INTENT(OUT) :: ni_glo
1068      LOGICAL, OPTIONAL, INTENT(OUT) :: nj
1069      LOGICAL, OPTIONAL, INTENT(OUT) :: nj_glo
1070      LOGICAL, OPTIONAL, INTENT(OUT) :: nvertex
1071      LOGICAL, OPTIONAL, INTENT(OUT) :: prec
1072      LOGICAL, OPTIONAL, INTENT(OUT) :: radius
1073      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name
1074      LOGICAL, OPTIONAL, INTENT(OUT) :: type
1075
1076      area = .FALSE.
1077      bounds_lat_1d = .FALSE.
1078      bounds_lat_2d = .FALSE.
1079      bounds_lat_name = .FALSE.
1080      bounds_lon_1d = .FALSE.
1081      bounds_lon_2d = .FALSE.
1082      bounds_lon_name = .FALSE.
1083      comment = .FALSE.
1084      data_dim = .FALSE.
1085      data_i_index = .FALSE.
1086      data_ibegin = .FALSE.
1087      data_j_index = .FALSE.
1088      data_jbegin = .FALSE.
1089      data_ni = .FALSE.
1090      data_nj = .FALSE.
1091      dim_i_name = .FALSE.
1092      dim_j_name = .FALSE.
1093      domain_ref = .FALSE.
1094      i_index = .FALSE.
1095      ibegin = .FALSE.
1096      j_index = .FALSE.
1097      jbegin = .FALSE.
1098      lat_name = .FALSE.
1099      latvalue_1d = .FALSE.
1100      latvalue_2d = .FALSE.
1101      lon_name = .FALSE.
1102      long_name = .FALSE.
1103      lonvalue_1d = .FALSE.
1104      lonvalue_2d = .FALSE.
1105      mask_1d = .FALSE.
1106      mask_2d = .FALSE.
1107      name = .FALSE.
1108      ni = .FALSE.
1109      ni_glo = .FALSE.
1110      nj = .FALSE.
1111      nj_glo = .FALSE.
1112      nvertex = .FALSE.
1113      prec = .FALSE.
1114      radius = .FALSE.
1115      standard_name = .FALSE.
1116      type = .FALSE.
1117
1118  END SUBROUTINE xios_is_defined_domain_attr_hdl
1119
1120  SUBROUTINE xios_get_field_attr  &
1121    ( field_id, add_offset, axis_ref, build_workflow_graph, cell_methods, cell_methods_mode, check_if_active  &
1122    , comment, compression_level, default_value, detect_missing_value, domain_ref, enabled, expr  &
1123    , field_ref, freq_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name, name  &
1124    , operation, prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq  &
1125    , unit, valid_max, valid_min )
1126
1127    IMPLICIT NONE
1128      TYPE(xios_field)  :: field_hdl
1129      CHARACTER(LEN=*), INTENT(IN) ::field_id
1130      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: add_offset
1131      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref
1132      LOGICAL  , OPTIONAL, INTENT(OUT) :: build_workflow_graph
1133      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: cell_methods
1134      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: cell_methods_mode
1135      LOGICAL  , OPTIONAL, INTENT(OUT) :: check_if_active
1136      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment
1137      INTEGER  , OPTIONAL, INTENT(OUT) :: compression_level
1138      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: default_value
1139      LOGICAL  , OPTIONAL, INTENT(OUT) :: detect_missing_value
1140      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref
1141      LOGICAL  , OPTIONAL, INTENT(OUT) :: enabled
1142      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: expr
1143      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: field_ref
1144      TYPE(xios_duration)  , OPTIONAL, INTENT(OUT) :: freq_offset
1145      TYPE(xios_duration)  , OPTIONAL, INTENT(OUT) :: freq_op
1146      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: grid_path
1147      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: grid_ref
1148      LOGICAL  , OPTIONAL, INTENT(OUT) :: indexed_output
1149      INTEGER  , OPTIONAL, INTENT(OUT) :: level
1150      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name
1151      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
1152      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: operation
1153      INTEGER  , OPTIONAL, INTENT(OUT) :: prec
1154      LOGICAL  , OPTIONAL, INTENT(OUT) :: read_access
1155      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: scalar_ref
1156      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: scale_factor
1157      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name
1158      LOGICAL  , OPTIONAL, INTENT(OUT) :: ts_enabled
1159      TYPE(xios_duration)  , OPTIONAL, INTENT(OUT) :: ts_split_freq
1160      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: unit
1161      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: valid_max
1162      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: valid_min
1163
1164  END SUBROUTINE xios_get_field_attr
1165
1166  SUBROUTINE xios_get_field_attr_hdl  &
1167    ( field_hdl, add_offset, axis_ref, build_workflow_graph, cell_methods, cell_methods_mode, check_if_active  &
1168    , comment, compression_level, default_value, detect_missing_value, domain_ref, enabled, expr  &
1169    , field_ref, freq_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name, name  &
1170    , operation, prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq  &
1171    , unit, valid_max, valid_min )
1172
1173    IMPLICIT NONE
1174      TYPE(xios_field) , INTENT(IN) :: field_hdl
1175      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: add_offset
1176      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref
1177      LOGICAL  , OPTIONAL, INTENT(OUT) :: build_workflow_graph
1178      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: cell_methods
1179      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: cell_methods_mode
1180      LOGICAL  , OPTIONAL, INTENT(OUT) :: check_if_active
1181      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment
1182      INTEGER  , OPTIONAL, INTENT(OUT) :: compression_level
1183      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: default_value
1184      LOGICAL  , OPTIONAL, INTENT(OUT) :: detect_missing_value
1185      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref
1186      LOGICAL  , OPTIONAL, INTENT(OUT) :: enabled
1187      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: expr
1188      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: field_ref
1189      TYPE(xios_duration)  , OPTIONAL, INTENT(OUT) :: freq_offset
1190      TYPE(xios_duration)  , OPTIONAL, INTENT(OUT) :: freq_op
1191      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: grid_path
1192      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: grid_ref
1193      LOGICAL  , OPTIONAL, INTENT(OUT) :: indexed_output
1194      INTEGER  , OPTIONAL, INTENT(OUT) :: level
1195      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name
1196      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
1197      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: operation
1198      INTEGER  , OPTIONAL, INTENT(OUT) :: prec
1199      LOGICAL  , OPTIONAL, INTENT(OUT) :: read_access
1200      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: scalar_ref
1201      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: scale_factor
1202      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name
1203      LOGICAL  , OPTIONAL, INTENT(OUT) :: ts_enabled
1204      TYPE(xios_duration)  , OPTIONAL, INTENT(OUT) :: ts_split_freq
1205      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: unit
1206      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: valid_max
1207      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: valid_min
1208
1209  END SUBROUTINE xios_get_field_attr_hdl
1210     
1211END MODULE lmdz_xios
1212
1213#endif
Note: See TracBrowser for help on using the repository browser.