source: vendor/nemo/current/NEMOGCM/EXTERNAL/XIOS/src/interface/fortran_attr/icontext_attr.F90 @ 44

Last change on this file since 44 was 44, checked in by cholod, 12 years ago

Load NEMO_TMP into vendor/nemo/current.
File size: 5.2 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, 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) :: timestep
23     
24      CALL xios(get_context_handle)(context_id,context_hdl)
25      CALL xios(set_context_attr_hdl_)   &
26      ( context_hdl, calendar_type, output_dir, start_date, timestep )
27   
28  END SUBROUTINE xios(set_context_attr)
29 
30  SUBROUTINE xios(set_context_attr_hdl)  &
31    ( context_hdl, calendar_type, output_dir, start_date, timestep )
32   
33    IMPLICIT NONE
34      TYPE(txios(context)) , INTENT(IN) :: context_hdl
35      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: calendar_type
36      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: output_dir
37      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: start_date
38      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: timestep
39     
40      CALL xios(set_context_attr_hdl_)  &
41      ( context_hdl, calendar_type, output_dir, start_date, timestep )
42   
43  END SUBROUTINE xios(set_context_attr_hdl)
44 
45  SUBROUTINE xios(set_context_attr_hdl_)   &
46    ( context_hdl, calendar_type_, output_dir_, start_date_, timestep_ )
47   
48    IMPLICIT NONE
49      TYPE(txios(context)) , INTENT(IN) :: context_hdl
50      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: calendar_type_
51      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: output_dir_
52      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: start_date_
53      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: timestep_
54     
55      IF (PRESENT(calendar_type_)) THEN
56        CALL cxios_set_context_calendar_type(context_hdl%daddr, calendar_type_, len(calendar_type_))
57      ENDIF
58     
59      IF (PRESENT(output_dir_)) THEN
60        CALL cxios_set_context_output_dir(context_hdl%daddr, output_dir_, len(output_dir_))
61      ENDIF
62     
63      IF (PRESENT(start_date_)) THEN
64        CALL cxios_set_context_start_date(context_hdl%daddr, start_date_, len(start_date_))
65      ENDIF
66     
67      IF (PRESENT(timestep_)) THEN
68        CALL cxios_set_context_timestep(context_hdl%daddr, timestep_, len(timestep_))
69      ENDIF
70     
71     
72   
73  END SUBROUTINE xios(set_context_attr_hdl_)
74 
75  SUBROUTINE xios(get_context_attr)  &
76    ( context_id, calendar_type, output_dir, start_date, timestep )
77   
78    IMPLICIT NONE
79      TYPE(txios(context))  :: context_hdl
80      CHARACTER(LEN=*), INTENT(IN) ::context_id
81      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: calendar_type
82      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: output_dir
83      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: start_date
84      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: timestep
85     
86      CALL xios(get_context_handle)(context_id,context_hdl)
87      CALL xios(get_context_attr_hdl_)   &
88      ( context_hdl, calendar_type, output_dir, start_date, timestep )
89   
90  END SUBROUTINE xios(get_context_attr)
91 
92  SUBROUTINE xios(get_context_attr_hdl)  &
93    ( context_hdl, calendar_type, output_dir, start_date, timestep )
94   
95    IMPLICIT NONE
96      TYPE(txios(context)) , INTENT(IN) :: context_hdl
97      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: calendar_type
98      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: output_dir
99      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: start_date
100      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: timestep
101     
102      CALL xios(get_context_attr_hdl_)  &
103      ( context_hdl, calendar_type, output_dir, start_date, timestep )
104   
105  END SUBROUTINE xios(get_context_attr_hdl)
106 
107  SUBROUTINE xios(get_context_attr_hdl_)   &
108    ( context_hdl, calendar_type_, output_dir_, start_date_, timestep_ )
109   
110    IMPLICIT NONE
111      TYPE(txios(context)) , INTENT(IN) :: context_hdl
112      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: calendar_type_
113      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: output_dir_
114      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: start_date_
115      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: timestep_
116     
117      IF (PRESENT(calendar_type_)) THEN
118        CALL cxios_get_context_calendar_type(context_hdl%daddr, calendar_type_, len(calendar_type_))
119      ENDIF
120     
121      IF (PRESENT(output_dir_)) THEN
122        CALL cxios_get_context_output_dir(context_hdl%daddr, output_dir_, len(output_dir_))
123      ENDIF
124     
125      IF (PRESENT(start_date_)) THEN
126        CALL cxios_get_context_start_date(context_hdl%daddr, start_date_, len(start_date_))
127      ENDIF
128     
129      IF (PRESENT(timestep_)) THEN
130        CALL cxios_get_context_timestep(context_hdl%daddr, timestep_, len(timestep_))
131      ENDIF
132     
133     
134   
135  END SUBROUTINE xios(get_context_attr_hdl_)
136 
137END MODULE icontext_attr
Note: See TracBrowser for help on using the repository browser.