source: XIOS/trunk/src/fortran_attr_interface/igrid_attr.F90 @ 314

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

Removing obsolete files and some cleaning...

YM

File size: 4.8 KB
Line 
1! * ************************************************************************** *
2! *               Interface auto generated - do not modify                     *
3! * ************************************************************************** *
4#include "xios_fortran_prefix.hpp"
5
6MODULE igrid_attr
7  USE, INTRINSIC :: ISO_C_BINDING
8  USE igrid
9  USE grid_interface_attr
10 
11CONTAINS
12 
13  SUBROUTINE xios(set_grid_attr)  &
14    ( grid_id, axis_ref, description, domain_ref, name )
15   
16    IMPLICIT NONE
17      TYPE(txios(grid))  :: grid_hdl
18      CHARACTER(LEN=*), INTENT(IN) ::grid_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) :: name
23     
24      CALL xios(get_grid_handle)(grid_id,grid_hdl)
25      CALL xios(set_grid_attr_hdl_)   &
26      ( grid_hdl, axis_ref, description, domain_ref, name )
27   
28  END SUBROUTINE xios(set_grid_attr)
29 
30  SUBROUTINE xios(set_grid_attr_hdl)  &
31    ( grid_hdl, axis_ref, description, domain_ref, name )
32   
33    IMPLICIT NONE
34      TYPE(txios(grid)) , INTENT(IN) :: grid_hdl
35      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref
36      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: description
37      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref
38      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
39     
40      CALL xios(set_grid_attr_hdl_)  &
41      ( grid_hdl, axis_ref, description, domain_ref, name )
42   
43  END SUBROUTINE xios(set_grid_attr_hdl)
44 
45  SUBROUTINE xios(set_grid_attr_hdl_)   &
46    ( grid_hdl, axis_ref_, description_, domain_ref_, name_ )
47   
48    IMPLICIT NONE
49      TYPE(txios(grid)) , INTENT(IN) :: grid_hdl
50      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref_
51      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: description_
52      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref_
53      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_
54     
55      IF (PRESENT(axis_ref_)) THEN
56        CALL cxios_set_grid_axis_ref(grid_hdl%daddr, axis_ref_, len(axis_ref_))
57      ENDIF
58     
59      IF (PRESENT(description_)) THEN
60        CALL cxios_set_grid_description(grid_hdl%daddr, description_, len(description_))
61      ENDIF
62     
63      IF (PRESENT(domain_ref_)) THEN
64        CALL cxios_set_grid_domain_ref(grid_hdl%daddr, domain_ref_, len(domain_ref_))
65      ENDIF
66     
67      IF (PRESENT(name_)) THEN
68        CALL cxios_set_grid_name(grid_hdl%daddr, name_, len(name_))
69      ENDIF
70     
71     
72   
73  END SUBROUTINE xios(set_grid_attr_hdl_)
74 
75  SUBROUTINE xios(get_grid_attr)  &
76    ( grid_id, axis_ref, description, domain_ref, name )
77   
78    IMPLICIT NONE
79      TYPE(txios(grid))  :: grid_hdl
80      CHARACTER(LEN=*), INTENT(IN) ::grid_id
81      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref
82      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: description
83      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref
84      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
85     
86      CALL xios(get_grid_handle)(grid_id,grid_hdl)
87      CALL xios(get_grid_attr_hdl_)   &
88      ( grid_hdl, axis_ref, description, domain_ref, name )
89   
90  END SUBROUTINE xios(get_grid_attr)
91 
92  SUBROUTINE xios(get_grid_attr_hdl)  &
93    ( grid_hdl, axis_ref, description, domain_ref, name )
94   
95    IMPLICIT NONE
96      TYPE(txios(grid)) , INTENT(IN) :: grid_hdl
97      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref
98      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: description
99      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref
100      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
101     
102      CALL xios(get_grid_attr_hdl_)  &
103      ( grid_hdl, axis_ref, description, domain_ref, name )
104   
105  END SUBROUTINE xios(get_grid_attr_hdl)
106 
107  SUBROUTINE xios(get_grid_attr_hdl_)   &
108    ( grid_hdl, axis_ref_, description_, domain_ref_, name_ )
109   
110    IMPLICIT NONE
111      TYPE(txios(grid)) , INTENT(IN) :: grid_hdl
112      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref_
113      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: description_
114      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref_
115      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_
116     
117      IF (PRESENT(axis_ref_)) THEN
118        CALL cxios_get_grid_axis_ref(grid_hdl%daddr, axis_ref_, len(axis_ref_))
119      ENDIF
120     
121      IF (PRESENT(description_)) THEN
122        CALL cxios_get_grid_description(grid_hdl%daddr, description_, len(description_))
123      ENDIF
124     
125      IF (PRESENT(domain_ref_)) THEN
126        CALL cxios_get_grid_domain_ref(grid_hdl%daddr, domain_ref_, len(domain_ref_))
127      ENDIF
128     
129      IF (PRESENT(name_)) THEN
130        CALL cxios_get_grid_name(grid_hdl%daddr, name_, len(name_))
131      ENDIF
132     
133     
134   
135  END SUBROUTINE xios(get_grid_attr_hdl_)
136 
137END MODULE igrid_attr
Note: See TracBrowser for help on using the repository browser.