source: vendor/nemo/current/NEMOGCM/EXTERNAL/XIOS/src/interface/fortran_attr/igridgroup_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.8 KB
Line 
1! * ************************************************************************** *
2! *               Interface auto generated - do not modify                     *
3! * ************************************************************************** *
4#include "xios_fortran_prefix.hpp"
5
6MODULE igridgroup_attr
7  USE, INTRINSIC :: ISO_C_BINDING
8  USE igrid
9  USE gridgroup_interface_attr
10 
11CONTAINS
12 
13  SUBROUTINE xios(set_gridgroup_attr)  &
14    ( gridgroup_id, axis_ref, description, domain_ref, group_ref, name )
15   
16    IMPLICIT NONE
17      TYPE(txios(gridgroup))  :: gridgroup_hdl
18      CHARACTER(LEN=*), INTENT(IN) ::gridgroup_id
19      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref
20      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: description
21      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref
22      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref
23      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
24     
25      CALL xios(get_gridgroup_handle)(gridgroup_id,gridgroup_hdl)
26      CALL xios(set_gridgroup_attr_hdl_)   &
27      ( gridgroup_hdl, axis_ref, description, domain_ref, group_ref, name )
28   
29  END SUBROUTINE xios(set_gridgroup_attr)
30 
31  SUBROUTINE xios(set_gridgroup_attr_hdl)  &
32    ( gridgroup_hdl, axis_ref, description, domain_ref, group_ref, name )
33   
34    IMPLICIT NONE
35      TYPE(txios(gridgroup)) , INTENT(IN) :: gridgroup_hdl
36      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref
37      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: description
38      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref
39      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref
40      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
41     
42      CALL xios(set_gridgroup_attr_hdl_)  &
43      ( gridgroup_hdl, axis_ref, description, domain_ref, group_ref, name )
44   
45  END SUBROUTINE xios(set_gridgroup_attr_hdl)
46 
47  SUBROUTINE xios(set_gridgroup_attr_hdl_)   &
48    ( gridgroup_hdl, axis_ref_, description_, domain_ref_, group_ref_, name_ )
49   
50    IMPLICIT NONE
51      TYPE(txios(gridgroup)) , INTENT(IN) :: gridgroup_hdl
52      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref_
53      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: description_
54      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref_
55      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref_
56      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_
57     
58      IF (PRESENT(axis_ref_)) THEN
59        CALL cxios_set_gridgroup_axis_ref(gridgroup_hdl%daddr, axis_ref_, len(axis_ref_))
60      ENDIF
61     
62      IF (PRESENT(description_)) THEN
63        CALL cxios_set_gridgroup_description(gridgroup_hdl%daddr, description_, len(description_))
64      ENDIF
65     
66      IF (PRESENT(domain_ref_)) THEN
67        CALL cxios_set_gridgroup_domain_ref(gridgroup_hdl%daddr, domain_ref_, len(domain_ref_))
68      ENDIF
69     
70      IF (PRESENT(group_ref_)) THEN
71        CALL cxios_set_gridgroup_group_ref(gridgroup_hdl%daddr, group_ref_, len(group_ref_))
72      ENDIF
73     
74      IF (PRESENT(name_)) THEN
75        CALL cxios_set_gridgroup_name(gridgroup_hdl%daddr, name_, len(name_))
76      ENDIF
77     
78     
79   
80  END SUBROUTINE xios(set_gridgroup_attr_hdl_)
81 
82  SUBROUTINE xios(get_gridgroup_attr)  &
83    ( gridgroup_id, axis_ref, description, domain_ref, group_ref, name )
84   
85    IMPLICIT NONE
86      TYPE(txios(gridgroup))  :: gridgroup_hdl
87      CHARACTER(LEN=*), INTENT(IN) ::gridgroup_id
88      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref
89      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: description
90      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref
91      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref
92      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
93     
94      CALL xios(get_gridgroup_handle)(gridgroup_id,gridgroup_hdl)
95      CALL xios(get_gridgroup_attr_hdl_)   &
96      ( gridgroup_hdl, axis_ref, description, domain_ref, group_ref, name )
97   
98  END SUBROUTINE xios(get_gridgroup_attr)
99 
100  SUBROUTINE xios(get_gridgroup_attr_hdl)  &
101    ( gridgroup_hdl, axis_ref, description, domain_ref, group_ref, name )
102   
103    IMPLICIT NONE
104      TYPE(txios(gridgroup)) , INTENT(IN) :: gridgroup_hdl
105      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref
106      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: description
107      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref
108      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref
109      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
110     
111      CALL xios(get_gridgroup_attr_hdl_)  &
112      ( gridgroup_hdl, axis_ref, description, domain_ref, group_ref, name )
113   
114  END SUBROUTINE xios(get_gridgroup_attr_hdl)
115 
116  SUBROUTINE xios(get_gridgroup_attr_hdl_)   &
117    ( gridgroup_hdl, axis_ref_, description_, domain_ref_, group_ref_, name_ )
118   
119    IMPLICIT NONE
120      TYPE(txios(gridgroup)) , INTENT(IN) :: gridgroup_hdl
121      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref_
122      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: description_
123      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref_
124      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref_
125      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_
126     
127      IF (PRESENT(axis_ref_)) THEN
128        CALL cxios_get_gridgroup_axis_ref(gridgroup_hdl%daddr, axis_ref_, len(axis_ref_))
129      ENDIF
130     
131      IF (PRESENT(description_)) THEN
132        CALL cxios_get_gridgroup_description(gridgroup_hdl%daddr, description_, len(description_))
133      ENDIF
134     
135      IF (PRESENT(domain_ref_)) THEN
136        CALL cxios_get_gridgroup_domain_ref(gridgroup_hdl%daddr, domain_ref_, len(domain_ref_))
137      ENDIF
138     
139      IF (PRESENT(group_ref_)) THEN
140        CALL cxios_get_gridgroup_group_ref(gridgroup_hdl%daddr, group_ref_, len(group_ref_))
141      ENDIF
142     
143      IF (PRESENT(name_)) THEN
144        CALL cxios_get_gridgroup_name(gridgroup_hdl%daddr, name_, len(name_))
145      ENDIF
146     
147     
148   
149  END SUBROUTINE xios(get_gridgroup_attr_hdl_)
150 
151END MODULE igridgroup_attr
Note: See TracBrowser for help on using the repository browser.