source: vendor/nemo/current/NEMOGCM/EXTERNAL/XIOS/src/interface/fortran_attr/iaxis_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.9 KB
Line 
1! * ************************************************************************** *
2! *               Interface auto generated - do not modify                     *
3! * ************************************************************************** *
4#include "xios_fortran_prefix.hpp"
5
6MODULE iaxis_attr
7  USE, INTRINSIC :: ISO_C_BINDING
8  USE iaxis
9  USE axis_interface_attr
10 
11CONTAINS
12 
13  SUBROUTINE xios(set_axis_attr)  &
14    ( axis_id, long_name, name, size, standard_name, unit, value )
15   
16    IMPLICIT NONE
17      TYPE(txios(axis))  :: axis_hdl
18      CHARACTER(LEN=*), INTENT(IN) ::axis_id
19      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name
20      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
21      INTEGER  , OPTIONAL, INTENT(IN) :: size
22      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name
23      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: unit
24      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: value(:)
25     
26      CALL xios(get_axis_handle)(axis_id,axis_hdl)
27      CALL xios(set_axis_attr_hdl_)   &
28      ( axis_hdl, long_name, name, size, standard_name, unit, value )
29   
30  END SUBROUTINE xios(set_axis_attr)
31 
32  SUBROUTINE xios(set_axis_attr_hdl)  &
33    ( axis_hdl, long_name, name, size, standard_name, unit, value )
34   
35    IMPLICIT NONE
36      TYPE(txios(axis)) , INTENT(IN) :: axis_hdl
37      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name
38      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
39      INTEGER  , OPTIONAL, INTENT(IN) :: size
40      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name
41      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: unit
42      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: value(:)
43     
44      CALL xios(set_axis_attr_hdl_)  &
45      ( axis_hdl, long_name, name, size, standard_name, unit, value )
46   
47  END SUBROUTINE xios(set_axis_attr_hdl)
48 
49  SUBROUTINE xios(set_axis_attr_hdl_)   &
50    ( axis_hdl, long_name_, name_, size_, standard_name_, unit_, value_ )
51   
52    IMPLICIT NONE
53      TYPE(txios(axis)) , INTENT(IN) :: axis_hdl
54      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name_
55      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_
56      INTEGER  , OPTIONAL, INTENT(IN) :: size_
57      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name_
58      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: unit_
59      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: value_(:)
60     
61      IF (PRESENT(long_name_)) THEN
62        CALL cxios_set_axis_long_name(axis_hdl%daddr, long_name_, len(long_name_))
63      ENDIF
64     
65      IF (PRESENT(name_)) THEN
66        CALL cxios_set_axis_name(axis_hdl%daddr, name_, len(name_))
67      ENDIF
68     
69      IF (PRESENT(size_)) THEN
70        CALL cxios_set_axis_size(axis_hdl%daddr, size_)
71      ENDIF
72     
73      IF (PRESENT(standard_name_)) THEN
74        CALL cxios_set_axis_standard_name(axis_hdl%daddr, standard_name_, len(standard_name_))
75      ENDIF
76     
77      IF (PRESENT(unit_)) THEN
78        CALL cxios_set_axis_unit(axis_hdl%daddr, unit_, len(unit_))
79      ENDIF
80     
81      IF (PRESENT(value_)) THEN
82        CALL cxios_set_axis_value(axis_hdl%daddr, value_,size(value_,1))
83      ENDIF
84     
85     
86   
87  END SUBROUTINE xios(set_axis_attr_hdl_)
88 
89  SUBROUTINE xios(get_axis_attr)  &
90    ( axis_id, long_name, name, size, standard_name, unit, value )
91   
92    IMPLICIT NONE
93      TYPE(txios(axis))  :: axis_hdl
94      CHARACTER(LEN=*), INTENT(IN) ::axis_id
95      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name
96      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
97      INTEGER  , OPTIONAL, INTENT(OUT) :: size
98      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name
99      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: unit
100      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: value(:)
101     
102      CALL xios(get_axis_handle)(axis_id,axis_hdl)
103      CALL xios(get_axis_attr_hdl_)   &
104      ( axis_hdl, long_name, name, size, standard_name, unit, value )
105   
106  END SUBROUTINE xios(get_axis_attr)
107 
108  SUBROUTINE xios(get_axis_attr_hdl)  &
109    ( axis_hdl, long_name, name, size, standard_name, unit, value )
110   
111    IMPLICIT NONE
112      TYPE(txios(axis)) , INTENT(IN) :: axis_hdl
113      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name
114      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
115      INTEGER  , OPTIONAL, INTENT(OUT) :: size
116      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name
117      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: unit
118      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: value(:)
119     
120      CALL xios(get_axis_attr_hdl_)  &
121      ( axis_hdl, long_name, name, size, standard_name, unit, value )
122   
123  END SUBROUTINE xios(get_axis_attr_hdl)
124 
125  SUBROUTINE xios(get_axis_attr_hdl_)   &
126    ( axis_hdl, long_name_, name_, size_, standard_name_, unit_, value_ )
127   
128    IMPLICIT NONE
129      TYPE(txios(axis)) , INTENT(IN) :: axis_hdl
130      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name_
131      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_
132      INTEGER  , OPTIONAL, INTENT(OUT) :: size_
133      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name_
134      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: unit_
135      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: value_(:)
136     
137      IF (PRESENT(long_name_)) THEN
138        CALL cxios_get_axis_long_name(axis_hdl%daddr, long_name_, len(long_name_))
139      ENDIF
140     
141      IF (PRESENT(name_)) THEN
142        CALL cxios_get_axis_name(axis_hdl%daddr, name_, len(name_))
143      ENDIF
144     
145      IF (PRESENT(size_)) THEN
146        CALL cxios_get_axis_size(axis_hdl%daddr, size_)
147      ENDIF
148     
149      IF (PRESENT(standard_name_)) THEN
150        CALL cxios_get_axis_standard_name(axis_hdl%daddr, standard_name_, len(standard_name_))
151      ENDIF
152     
153      IF (PRESENT(unit_)) THEN
154        CALL cxios_get_axis_unit(axis_hdl%daddr, unit_, len(unit_))
155      ENDIF
156     
157      IF (PRESENT(value_)) THEN
158        CALL cxios_get_axis_value(axis_hdl%daddr, value_,size(value_,1))
159      ENDIF
160     
161     
162   
163  END SUBROUTINE xios(get_axis_attr_hdl_)
164 
165END MODULE iaxis_attr
Note: See TracBrowser for help on using the repository browser.