source: XIOS/trunk/src/interface/fortran_attr/igrid_attr.F90 @ 555

Last change on this file since 555 was 555, checked in by mhnguyen, 9 years ago

Updating some Fortran interface files

+) Update some Fortran interface files generated by generate_fortran_interface.exe

Test
+) No test
  • Property copyright set to
    Software name : XIOS (Xml I/O Server)
    http://forge.ipsl.jussieu.fr/ioserver
    Creation date : January 2009
    Licence : CeCCIL version2
    see license file in root directory : Licence_CeCILL_V2-en.txt
    or http://www.cecill.info/licences/Licence_CeCILL_V2-en.html
    Holder : CEA/LSCE (Laboratoire des Sciences du CLimat et de l'Environnement)
    CNRS/IPSL (Institut Pierre Simon Laplace)
    Project Manager : Yann Meurdesoif
    yann.meurdesoif@cea.fr
File size: 8.7 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, axisDomainOrder, description, mask, name )
15   
16    IMPLICIT NONE
17      TYPE(txios(grid))  :: grid_hdl
18      CHARACTER(LEN=*), INTENT(IN) ::grid_id
19      LOGICAL  , OPTIONAL, INTENT(IN) :: axisDomainOrder(:)
20      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: axisDomainOrder_tmp(:)
21      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: description
22      LOGICAL  , OPTIONAL, INTENT(IN) :: mask(:,:,:)
23      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_tmp(:,:,:)
24      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
25     
26      CALL xios(get_grid_handle)(grid_id,grid_hdl)
27      CALL xios(set_grid_attr_hdl_)   &
28      ( grid_hdl, axisDomainOrder, description, mask, name )
29   
30  END SUBROUTINE xios(set_grid_attr)
31 
32  SUBROUTINE xios(set_grid_attr_hdl)  &
33    ( grid_hdl, axisDomainOrder, description, mask, name )
34   
35    IMPLICIT NONE
36      TYPE(txios(grid)) , INTENT(IN) :: grid_hdl
37      LOGICAL  , OPTIONAL, INTENT(IN) :: axisDomainOrder(:)
38      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: axisDomainOrder_tmp(:)
39      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: description
40      LOGICAL  , OPTIONAL, INTENT(IN) :: mask(:,:,:)
41      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_tmp(:,:,:)
42      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
43     
44      CALL xios(set_grid_attr_hdl_)  &
45      ( grid_hdl, axisDomainOrder, description, mask, name )
46   
47  END SUBROUTINE xios(set_grid_attr_hdl)
48 
49  SUBROUTINE xios(set_grid_attr_hdl_)   &
50    ( grid_hdl, axisDomainOrder_, description_, mask_, name_ )
51   
52    IMPLICIT NONE
53      TYPE(txios(grid)) , INTENT(IN) :: grid_hdl
54      LOGICAL  , OPTIONAL, INTENT(IN) :: axisDomainOrder_(:)
55      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: axisDomainOrder__tmp(:)
56      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: description_
57      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_(:,:,:)
58      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask__tmp(:,:,:)
59      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_
60     
61      IF (PRESENT(axisDomainOrder_)) THEN
62        ALLOCATE(axisDomainOrder__tmp(size(axisDomainOrder_,1)))
63        axisDomainOrder__tmp=axisDomainOrder_
64        CALL cxios_set_grid_axisDomainOrder(grid_hdl%daddr, axisDomainOrder__tmp,size(axisDomainOrder_,1))
65      ENDIF
66     
67      IF (PRESENT(description_)) THEN
68        CALL cxios_set_grid_description(grid_hdl%daddr, description_, len(description_))
69      ENDIF
70     
71      IF (PRESENT(mask_)) THEN
72        ALLOCATE(mask__tmp(size(mask_,1),size(mask_,2),size(mask_,3)))
73        mask__tmp=mask_
74        CALL cxios_set_grid_mask(grid_hdl%daddr, mask__tmp,size(mask_,1),size(mask_,2),size(mask_,3))
75      ENDIF
76     
77      IF (PRESENT(name_)) THEN
78        CALL cxios_set_grid_name(grid_hdl%daddr, name_, len(name_))
79      ENDIF
80     
81     
82   
83  END SUBROUTINE xios(set_grid_attr_hdl_)
84 
85  SUBROUTINE xios(get_grid_attr)  &
86    ( grid_id, axisDomainOrder, description, mask, name )
87   
88    IMPLICIT NONE
89      TYPE(txios(grid))  :: grid_hdl
90      CHARACTER(LEN=*), INTENT(IN) ::grid_id
91      LOGICAL  , OPTIONAL, INTENT(OUT) :: axisDomainOrder(:)
92      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: axisDomainOrder_tmp(:)
93      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: description
94      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask(:,:,:)
95      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_tmp(:,:,:)
96      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
97     
98      CALL xios(get_grid_handle)(grid_id,grid_hdl)
99      CALL xios(get_grid_attr_hdl_)   &
100      ( grid_hdl, axisDomainOrder, description, mask, name )
101   
102  END SUBROUTINE xios(get_grid_attr)
103 
104  SUBROUTINE xios(get_grid_attr_hdl)  &
105    ( grid_hdl, axisDomainOrder, description, mask, name )
106   
107    IMPLICIT NONE
108      TYPE(txios(grid)) , INTENT(IN) :: grid_hdl
109      LOGICAL  , OPTIONAL, INTENT(OUT) :: axisDomainOrder(:)
110      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: axisDomainOrder_tmp(:)
111      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: description
112      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask(:,:,:)
113      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_tmp(:,:,:)
114      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
115     
116      CALL xios(get_grid_attr_hdl_)  &
117      ( grid_hdl, axisDomainOrder, description, mask, name )
118   
119  END SUBROUTINE xios(get_grid_attr_hdl)
120 
121  SUBROUTINE xios(get_grid_attr_hdl_)   &
122    ( grid_hdl, axisDomainOrder_, description_, mask_, name_ )
123   
124    IMPLICIT NONE
125      TYPE(txios(grid)) , INTENT(IN) :: grid_hdl
126      LOGICAL  , OPTIONAL, INTENT(OUT) :: axisDomainOrder_(:)
127      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: axisDomainOrder__tmp(:)
128      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: description_
129      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_(:,:,:)
130      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask__tmp(:,:,:)
131      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_
132     
133      IF (PRESENT(axisDomainOrder_)) THEN
134        ALLOCATE(axisDomainOrder__tmp(size(axisDomainOrder_,1)))
135        CALL cxios_get_grid_axisDomainOrder(grid_hdl%daddr, axisDomainOrder__tmp,size(axisDomainOrder_,1))
136        axisDomainOrder_=axisDomainOrder__tmp_
137      ENDIF
138     
139      IF (PRESENT(description_)) THEN
140        CALL cxios_get_grid_description(grid_hdl%daddr, description_, len(description_))
141      ENDIF
142     
143      IF (PRESENT(mask_)) THEN
144        ALLOCATE(mask__tmp(size(mask_,1),size(mask_,2),size(mask_,3)))
145        CALL cxios_get_grid_mask(grid_hdl%daddr, mask__tmp,size(mask_,1),size(mask_,2),size(mask_,3))
146        mask_=mask__tmp
147      ENDIF
148     
149      IF (PRESENT(name_)) THEN
150        CALL cxios_get_grid_name(grid_hdl%daddr, name_, len(name_))
151      ENDIF
152     
153     
154   
155  END SUBROUTINE xios(get_grid_attr_hdl_)
156 
157  SUBROUTINE xios(is_defined_grid_attr)  &
158    ( grid_id, axisDomainOrder, description, mask, name )
159   
160    IMPLICIT NONE
161      TYPE(txios(grid))  :: grid_hdl
162      CHARACTER(LEN=*), INTENT(IN) ::grid_id
163      LOGICAL, OPTIONAL, INTENT(OUT) :: axisDomainOrder
164      LOGICAL(KIND=C_BOOL) :: axisDomainOrder_tmp
165      LOGICAL, OPTIONAL, INTENT(OUT) :: description
166      LOGICAL(KIND=C_BOOL) :: description_tmp
167      LOGICAL, OPTIONAL, INTENT(OUT) :: mask
168      LOGICAL(KIND=C_BOOL) :: mask_tmp
169      LOGICAL, OPTIONAL, INTENT(OUT) :: name
170      LOGICAL(KIND=C_BOOL) :: name_tmp
171     
172      CALL xios(get_grid_handle)(grid_id,grid_hdl)
173      CALL xios(is_defined_grid_attr_hdl_)   &
174      ( grid_hdl, axisDomainOrder, description, mask, name )
175   
176  END SUBROUTINE xios(is_defined_grid_attr)
177 
178  SUBROUTINE xios(is_defined_grid_attr_hdl)  &
179    ( grid_hdl, axisDomainOrder, description, mask, name )
180   
181    IMPLICIT NONE
182      TYPE(txios(grid)) , INTENT(IN) :: grid_hdl
183      LOGICAL, OPTIONAL, INTENT(OUT) :: axisDomainOrder
184      LOGICAL(KIND=C_BOOL) :: axisDomainOrder_tmp
185      LOGICAL, OPTIONAL, INTENT(OUT) :: description
186      LOGICAL(KIND=C_BOOL) :: description_tmp
187      LOGICAL, OPTIONAL, INTENT(OUT) :: mask
188      LOGICAL(KIND=C_BOOL) :: mask_tmp
189      LOGICAL, OPTIONAL, INTENT(OUT) :: name
190      LOGICAL(KIND=C_BOOL) :: name_tmp
191     
192      CALL xios(is_defined_grid_attr_hdl_)  &
193      ( grid_hdl, axisDomainOrder, description, mask, name )
194   
195  END SUBROUTINE xios(is_defined_grid_attr_hdl)
196 
197  SUBROUTINE xios(is_defined_grid_attr_hdl_)   &
198    ( grid_hdl, axisDomainOrder_, description_, mask_, name_ )
199   
200    IMPLICIT NONE
201      TYPE(txios(grid)) , INTENT(IN) :: grid_hdl
202      LOGICAL, OPTIONAL, INTENT(OUT) :: axisDomainOrder_
203      LOGICAL(KIND=C_BOOL) :: axisDomainOrder__tmp
204      LOGICAL, OPTIONAL, INTENT(OUT) :: description_
205      LOGICAL(KIND=C_BOOL) :: description__tmp
206      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_
207      LOGICAL(KIND=C_BOOL) :: mask__tmp
208      LOGICAL, OPTIONAL, INTENT(OUT) :: name_
209      LOGICAL(KIND=C_BOOL) :: name__tmp
210     
211      IF (PRESENT(axisDomainOrder_)) THEN
212        axisDomainOrder__tmp=cxios_is_defined_grid_axisDomainOrder(grid_hdl%daddr)
213        axisDomainOrder_=axisDomainOrder__tmp
214      ENDIF
215     
216      IF (PRESENT(description_)) THEN
217        description__tmp=cxios_is_defined_grid_description(grid_hdl%daddr)
218        description_=description__tmp
219      ENDIF
220     
221      IF (PRESENT(mask_)) THEN
222        mask__tmp=cxios_is_defined_grid_mask(grid_hdl%daddr)
223        mask_=mask__tmp
224      ENDIF
225     
226      IF (PRESENT(name_)) THEN
227        name__tmp=cxios_is_defined_grid_name(grid_hdl%daddr)
228        name_=name__tmp
229      ENDIF
230     
231     
232   
233  END SUBROUTINE xios(is_defined_grid_attr_hdl_)
234 
235END MODULE igrid_attr
Note: See TracBrowser for help on using the repository browser.