source: XIOS/trunk/src/interface/fortran_attr/icontext_attr.F90 @ 369

Last change on this file since 369 was 369, checked in by ymipsl, 12 years ago

Major Update

  • redesign Type and attribute manipulation
  • add enumerate type and attribute
  • use blitz class array instead of boost class array

YM
File size: 6.0 KB
Line 
1! * ************************************************************************** *
2! *               Interface auto generated - do not modify                     *
3! * ************************************************************************** *
4#include "xios_fortran_prefix.hpp"
5
6MODULE icontext_attr
7  USE, INTRINSIC :: ISO_C_BINDING
8  USE icontext
9  USE context_interface_attr
10 
11CONTAINS
12 
13  SUBROUTINE xios(set_context_attr)  &
14    ( context_id, calendar_type, output_dir, start_date, time_origin, timestep )
15   
16    IMPLICIT NONE
17      TYPE(txios(context))  :: context_hdl
18      CHARACTER(LEN=*), INTENT(IN) ::context_id
19      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: calendar_type
20      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: output_dir
21      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: start_date
22      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_origin
23      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: timestep
24     
25      CALL xios(get_context_handle)(context_id,context_hdl)
26      CALL xios(set_context_attr_hdl_)   &
27      ( context_hdl, calendar_type, output_dir, start_date, time_origin, timestep )
28   
29  END SUBROUTINE xios(set_context_attr)
30 
31  SUBROUTINE xios(set_context_attr_hdl)  &
32    ( context_hdl, calendar_type, output_dir, start_date, time_origin, timestep )
33   
34    IMPLICIT NONE
35      TYPE(txios(context)) , INTENT(IN) :: context_hdl
36      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: calendar_type
37      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: output_dir
38      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: start_date
39      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_origin
40      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: timestep
41     
42      CALL xios(set_context_attr_hdl_)  &
43      ( context_hdl, calendar_type, output_dir, start_date, time_origin, timestep )
44   
45  END SUBROUTINE xios(set_context_attr_hdl)
46 
47  SUBROUTINE xios(set_context_attr_hdl_)   &
48    ( context_hdl, calendar_type_, output_dir_, start_date_, time_origin_, timestep_ )
49   
50    IMPLICIT NONE
51      TYPE(txios(context)) , INTENT(IN) :: context_hdl
52      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: calendar_type_
53      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: output_dir_
54      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: start_date_
55      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_origin_
56      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: timestep_
57     
58      IF (PRESENT(calendar_type_)) THEN
59        CALL cxios_set_context_calendar_type(context_hdl%daddr, calendar_type_, len(calendar_type_))
60      ENDIF
61     
62      IF (PRESENT(output_dir_)) THEN
63        CALL cxios_set_context_output_dir(context_hdl%daddr, output_dir_, len(output_dir_))
64      ENDIF
65     
66      IF (PRESENT(start_date_)) THEN
67        CALL cxios_set_context_start_date(context_hdl%daddr, start_date_, len(start_date_))
68      ENDIF
69     
70      IF (PRESENT(time_origin_)) THEN
71        CALL cxios_set_context_time_origin(context_hdl%daddr, time_origin_, len(time_origin_))
72      ENDIF
73     
74      IF (PRESENT(timestep_)) THEN
75        CALL cxios_set_context_timestep(context_hdl%daddr, timestep_, len(timestep_))
76      ENDIF
77     
78     
79   
80  END SUBROUTINE xios(set_context_attr_hdl_)
81 
82  SUBROUTINE xios(get_context_attr)  &
83    ( context_id, calendar_type, output_dir, start_date, time_origin, timestep )
84   
85    IMPLICIT NONE
86      TYPE(txios(context))  :: context_hdl
87      CHARACTER(LEN=*), INTENT(IN) ::context_id
88      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: calendar_type
89      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: output_dir
90      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: start_date
91      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_origin
92      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: timestep
93     
94      CALL xios(get_context_handle)(context_id,context_hdl)
95      CALL xios(get_context_attr_hdl_)   &
96      ( context_hdl, calendar_type, output_dir, start_date, time_origin, timestep )
97   
98  END SUBROUTINE xios(get_context_attr)
99 
100  SUBROUTINE xios(get_context_attr_hdl)  &
101    ( context_hdl, calendar_type, output_dir, start_date, time_origin, timestep )
102   
103    IMPLICIT NONE
104      TYPE(txios(context)) , INTENT(IN) :: context_hdl
105      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: calendar_type
106      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: output_dir
107      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: start_date
108      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_origin
109      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: timestep
110     
111      CALL xios(get_context_attr_hdl_)  &
112      ( context_hdl, calendar_type, output_dir, start_date, time_origin, timestep )
113   
114  END SUBROUTINE xios(get_context_attr_hdl)
115 
116  SUBROUTINE xios(get_context_attr_hdl_)   &
117    ( context_hdl, calendar_type_, output_dir_, start_date_, time_origin_, timestep_ )
118   
119    IMPLICIT NONE
120      TYPE(txios(context)) , INTENT(IN) :: context_hdl
121      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: calendar_type_
122      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: output_dir_
123      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: start_date_
124      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_origin_
125      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: timestep_
126     
127      IF (PRESENT(calendar_type_)) THEN
128        CALL cxios_get_context_calendar_type(context_hdl%daddr, calendar_type_, len(calendar_type_))
129      ENDIF
130     
131      IF (PRESENT(output_dir_)) THEN
132        CALL cxios_get_context_output_dir(context_hdl%daddr, output_dir_, len(output_dir_))
133      ENDIF
134     
135      IF (PRESENT(start_date_)) THEN
136        CALL cxios_get_context_start_date(context_hdl%daddr, start_date_, len(start_date_))
137      ENDIF
138     
139      IF (PRESENT(time_origin_)) THEN
140        CALL cxios_get_context_time_origin(context_hdl%daddr, time_origin_, len(time_origin_))
141      ENDIF
142     
143      IF (PRESENT(timestep_)) THEN
144        CALL cxios_get_context_timestep(context_hdl%daddr, timestep_, len(timestep_))
145      ENDIF
146     
147     
148   
149  END SUBROUTINE xios(get_context_attr_hdl_)
150 
151END MODULE icontext_attr
Note: See TracBrowser for help on using the repository browser.