source: XIOS/trunk/src/interface/fortran_attr/idomain_attr.F90 @ 326

Last change on this file since 326 was 326, checked in by ymipsl, 10 years ago

port to gfortran/g++

YM

File size: 23.6 KB
Line 
1! * ************************************************************************** *
2! *               Interface auto generated - do not modify                     *
3! * ************************************************************************** *
4#include "xios_fortran_prefix.hpp"
5
6MODULE idomain_attr
7  USE, INTRINSIC :: ISO_C_BINDING
8  USE idomain
9  USE domain_interface_attr
10 
11CONTAINS
12 
13  SUBROUTINE xios(set_domain_attr)  &
14    ( domain_id, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_n_index, data_ni  &
15    , data_nj, domain_group_ref, ibegin, iend, jbegin, jend, latvalue, long_name, lonvalue, mask  &
16    , name, ni, ni_glo, nj, nj_glo, standard_name, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc  &
17    , zoom_ni, zoom_ni_loc, zoom_nj, zoom_nj_loc )
18   
19    IMPLICIT NONE
20      TYPE(txios(domain))  :: domain_hdl
21      CHARACTER(LEN=*), INTENT(IN) ::domain_id
22      INTEGER  , OPTIONAL, INTENT(IN) :: data_dim
23      INTEGER  , OPTIONAL, INTENT(IN) :: data_i_index(:)
24      INTEGER  , OPTIONAL, INTENT(IN) :: data_ibegin
25      INTEGER  , OPTIONAL, INTENT(IN) :: data_j_index(:)
26      INTEGER  , OPTIONAL, INTENT(IN) :: data_jbegin
27      INTEGER  , OPTIONAL, INTENT(IN) :: data_n_index
28      INTEGER  , OPTIONAL, INTENT(IN) :: data_ni
29      INTEGER  , OPTIONAL, INTENT(IN) :: data_nj
30      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_group_ref
31      INTEGER  , OPTIONAL, INTENT(IN) :: ibegin
32      INTEGER  , OPTIONAL, INTENT(IN) :: iend
33      INTEGER  , OPTIONAL, INTENT(IN) :: jbegin
34      INTEGER  , OPTIONAL, INTENT(IN) :: jend
35      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: latvalue(:)
36      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name
37      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lonvalue(:)
38      LOGICAL  , OPTIONAL, INTENT(IN) :: mask(:,:)
39      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_tmp(:,:)
40      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
41      INTEGER  , OPTIONAL, INTENT(IN) :: ni
42      INTEGER  , OPTIONAL, INTENT(IN) :: ni_glo
43      INTEGER  , OPTIONAL, INTENT(IN) :: nj
44      INTEGER  , OPTIONAL, INTENT(IN) :: nj_glo
45      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name
46      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_ibegin
47      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_ibegin_loc
48      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_jbegin
49      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_jbegin_loc
50      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_ni
51      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_ni_loc
52      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_nj
53      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_nj_loc
54     
55      CALL xios(get_domain_handle)(domain_id,domain_hdl)
56      CALL xios(set_domain_attr_hdl_)   &
57      ( domain_hdl, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_n_index, data_ni  &
58      , data_nj, domain_group_ref, ibegin, iend, jbegin, jend, latvalue, long_name, lonvalue, mask  &
59      , name, ni, ni_glo, nj, nj_glo, standard_name, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc  &
60      , zoom_ni, zoom_ni_loc, zoom_nj, zoom_nj_loc )
61   
62  END SUBROUTINE xios(set_domain_attr)
63 
64  SUBROUTINE xios(set_domain_attr_hdl)  &
65    ( domain_hdl, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_n_index, data_ni  &
66    , data_nj, domain_group_ref, ibegin, iend, jbegin, jend, latvalue, long_name, lonvalue, mask  &
67    , name, ni, ni_glo, nj, nj_glo, standard_name, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc  &
68    , zoom_ni, zoom_ni_loc, zoom_nj, zoom_nj_loc )
69   
70    IMPLICIT NONE
71      TYPE(txios(domain)) , INTENT(IN) :: domain_hdl
72      INTEGER  , OPTIONAL, INTENT(IN) :: data_dim
73      INTEGER  , OPTIONAL, INTENT(IN) :: data_i_index(:)
74      INTEGER  , OPTIONAL, INTENT(IN) :: data_ibegin
75      INTEGER  , OPTIONAL, INTENT(IN) :: data_j_index(:)
76      INTEGER  , OPTIONAL, INTENT(IN) :: data_jbegin
77      INTEGER  , OPTIONAL, INTENT(IN) :: data_n_index
78      INTEGER  , OPTIONAL, INTENT(IN) :: data_ni
79      INTEGER  , OPTIONAL, INTENT(IN) :: data_nj
80      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_group_ref
81      INTEGER  , OPTIONAL, INTENT(IN) :: ibegin
82      INTEGER  , OPTIONAL, INTENT(IN) :: iend
83      INTEGER  , OPTIONAL, INTENT(IN) :: jbegin
84      INTEGER  , OPTIONAL, INTENT(IN) :: jend
85      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: latvalue(:)
86      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name
87      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lonvalue(:)
88      LOGICAL  , OPTIONAL, INTENT(IN) :: mask(:,:)
89      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_tmp(:,:)
90      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
91      INTEGER  , OPTIONAL, INTENT(IN) :: ni
92      INTEGER  , OPTIONAL, INTENT(IN) :: ni_glo
93      INTEGER  , OPTIONAL, INTENT(IN) :: nj
94      INTEGER  , OPTIONAL, INTENT(IN) :: nj_glo
95      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name
96      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_ibegin
97      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_ibegin_loc
98      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_jbegin
99      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_jbegin_loc
100      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_ni
101      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_ni_loc
102      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_nj
103      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_nj_loc
104     
105      CALL xios(set_domain_attr_hdl_)  &
106      ( domain_hdl, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_n_index, data_ni  &
107      , data_nj, domain_group_ref, ibegin, iend, jbegin, jend, latvalue, long_name, lonvalue, mask  &
108      , name, ni, ni_glo, nj, nj_glo, standard_name, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc  &
109      , zoom_ni, zoom_ni_loc, zoom_nj, zoom_nj_loc )
110   
111  END SUBROUTINE xios(set_domain_attr_hdl)
112 
113  SUBROUTINE xios(set_domain_attr_hdl_)   &
114    ( domain_hdl, data_dim_, data_i_index_, data_ibegin_, data_j_index_, data_jbegin_, data_n_index_  &
115    , data_ni_, data_nj_, domain_group_ref_, ibegin_, iend_, jbegin_, jend_, latvalue_, long_name_  &
116    , lonvalue_, mask_, name_, ni_, ni_glo_, nj_, nj_glo_, standard_name_, zoom_ibegin_, zoom_ibegin_loc_  &
117    , zoom_jbegin_, zoom_jbegin_loc_, zoom_ni_, zoom_ni_loc_, zoom_nj_, zoom_nj_loc_ )
118   
119    IMPLICIT NONE
120      TYPE(txios(domain)) , INTENT(IN) :: domain_hdl
121      INTEGER  , OPTIONAL, INTENT(IN) :: data_dim_
122      INTEGER  , OPTIONAL, INTENT(IN) :: data_i_index_(:)
123      INTEGER  , OPTIONAL, INTENT(IN) :: data_ibegin_
124      INTEGER  , OPTIONAL, INTENT(IN) :: data_j_index_(:)
125      INTEGER  , OPTIONAL, INTENT(IN) :: data_jbegin_
126      INTEGER  , OPTIONAL, INTENT(IN) :: data_n_index_
127      INTEGER  , OPTIONAL, INTENT(IN) :: data_ni_
128      INTEGER  , OPTIONAL, INTENT(IN) :: data_nj_
129      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_group_ref_
130      INTEGER  , OPTIONAL, INTENT(IN) :: ibegin_
131      INTEGER  , OPTIONAL, INTENT(IN) :: iend_
132      INTEGER  , OPTIONAL, INTENT(IN) :: jbegin_
133      INTEGER  , OPTIONAL, INTENT(IN) :: jend_
134      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: latvalue_(:)
135      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name_
136      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lonvalue_(:)
137      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_(:,:)
138      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask__tmp(:,:)
139      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_
140      INTEGER  , OPTIONAL, INTENT(IN) :: ni_
141      INTEGER  , OPTIONAL, INTENT(IN) :: ni_glo_
142      INTEGER  , OPTIONAL, INTENT(IN) :: nj_
143      INTEGER  , OPTIONAL, INTENT(IN) :: nj_glo_
144      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name_
145      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_ibegin_
146      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_ibegin_loc_
147      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_jbegin_
148      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_jbegin_loc_
149      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_ni_
150      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_ni_loc_
151      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_nj_
152      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_nj_loc_
153     
154      IF (PRESENT(data_dim_)) THEN
155        CALL cxios_set_domain_data_dim(domain_hdl%daddr, data_dim_)
156      ENDIF
157     
158      IF (PRESENT(data_i_index_)) THEN
159        CALL cxios_set_domain_data_i_index(domain_hdl%daddr, data_i_index_,size(data_i_index_,1))
160      ENDIF
161     
162      IF (PRESENT(data_ibegin_)) THEN
163        CALL cxios_set_domain_data_ibegin(domain_hdl%daddr, data_ibegin_)
164      ENDIF
165     
166      IF (PRESENT(data_j_index_)) THEN
167        CALL cxios_set_domain_data_j_index(domain_hdl%daddr, data_j_index_,size(data_j_index_,1))
168      ENDIF
169     
170      IF (PRESENT(data_jbegin_)) THEN
171        CALL cxios_set_domain_data_jbegin(domain_hdl%daddr, data_jbegin_)
172      ENDIF
173     
174      IF (PRESENT(data_n_index_)) THEN
175        CALL cxios_set_domain_data_n_index(domain_hdl%daddr, data_n_index_)
176      ENDIF
177     
178      IF (PRESENT(data_ni_)) THEN
179        CALL cxios_set_domain_data_ni(domain_hdl%daddr, data_ni_)
180      ENDIF
181     
182      IF (PRESENT(data_nj_)) THEN
183        CALL cxios_set_domain_data_nj(domain_hdl%daddr, data_nj_)
184      ENDIF
185     
186      IF (PRESENT(domain_group_ref_)) THEN
187        CALL cxios_set_domain_domain_group_ref(domain_hdl%daddr, domain_group_ref_, len(domain_group_ref_))
188      ENDIF
189     
190      IF (PRESENT(ibegin_)) THEN
191        CALL cxios_set_domain_ibegin(domain_hdl%daddr, ibegin_)
192      ENDIF
193     
194      IF (PRESENT(iend_)) THEN
195        CALL cxios_set_domain_iend(domain_hdl%daddr, iend_)
196      ENDIF
197     
198      IF (PRESENT(jbegin_)) THEN
199        CALL cxios_set_domain_jbegin(domain_hdl%daddr, jbegin_)
200      ENDIF
201     
202      IF (PRESENT(jend_)) THEN
203        CALL cxios_set_domain_jend(domain_hdl%daddr, jend_)
204      ENDIF
205     
206      IF (PRESENT(latvalue_)) THEN
207        CALL cxios_set_domain_latvalue(domain_hdl%daddr, latvalue_,size(latvalue_,1))
208      ENDIF
209     
210      IF (PRESENT(long_name_)) THEN
211        CALL cxios_set_domain_long_name(domain_hdl%daddr, long_name_, len(long_name_))
212      ENDIF
213     
214      IF (PRESENT(lonvalue_)) THEN
215        CALL cxios_set_domain_lonvalue(domain_hdl%daddr, lonvalue_,size(lonvalue_,1))
216      ENDIF
217     
218      IF (PRESENT(mask_)) THEN
219        ALLOCATE(mask__tmp(size(mask_,1),size(mask_,2)))
220        mask__tmp=mask_
221        CALL cxios_set_domain_mask(domain_hdl%daddr, mask__tmp,size(mask_,1),size(mask_,2))
222      ENDIF
223     
224      IF (PRESENT(name_)) THEN
225        CALL cxios_set_domain_name(domain_hdl%daddr, name_, len(name_))
226      ENDIF
227     
228      IF (PRESENT(ni_)) THEN
229        CALL cxios_set_domain_ni(domain_hdl%daddr, ni_)
230      ENDIF
231     
232      IF (PRESENT(ni_glo_)) THEN
233        CALL cxios_set_domain_ni_glo(domain_hdl%daddr, ni_glo_)
234      ENDIF
235     
236      IF (PRESENT(nj_)) THEN
237        CALL cxios_set_domain_nj(domain_hdl%daddr, nj_)
238      ENDIF
239     
240      IF (PRESENT(nj_glo_)) THEN
241        CALL cxios_set_domain_nj_glo(domain_hdl%daddr, nj_glo_)
242      ENDIF
243     
244      IF (PRESENT(standard_name_)) THEN
245        CALL cxios_set_domain_standard_name(domain_hdl%daddr, standard_name_, len(standard_name_))
246      ENDIF
247     
248      IF (PRESENT(zoom_ibegin_)) THEN
249        CALL cxios_set_domain_zoom_ibegin(domain_hdl%daddr, zoom_ibegin_)
250      ENDIF
251     
252      IF (PRESENT(zoom_ibegin_loc_)) THEN
253        CALL cxios_set_domain_zoom_ibegin_loc(domain_hdl%daddr, zoom_ibegin_loc_)
254      ENDIF
255     
256      IF (PRESENT(zoom_jbegin_)) THEN
257        CALL cxios_set_domain_zoom_jbegin(domain_hdl%daddr, zoom_jbegin_)
258      ENDIF
259     
260      IF (PRESENT(zoom_jbegin_loc_)) THEN
261        CALL cxios_set_domain_zoom_jbegin_loc(domain_hdl%daddr, zoom_jbegin_loc_)
262      ENDIF
263     
264      IF (PRESENT(zoom_ni_)) THEN
265        CALL cxios_set_domain_zoom_ni(domain_hdl%daddr, zoom_ni_)
266      ENDIF
267     
268      IF (PRESENT(zoom_ni_loc_)) THEN
269        CALL cxios_set_domain_zoom_ni_loc(domain_hdl%daddr, zoom_ni_loc_)
270      ENDIF
271     
272      IF (PRESENT(zoom_nj_)) THEN
273        CALL cxios_set_domain_zoom_nj(domain_hdl%daddr, zoom_nj_)
274      ENDIF
275     
276      IF (PRESENT(zoom_nj_loc_)) THEN
277        CALL cxios_set_domain_zoom_nj_loc(domain_hdl%daddr, zoom_nj_loc_)
278      ENDIF
279     
280     
281   
282  END SUBROUTINE xios(set_domain_attr_hdl_)
283 
284  SUBROUTINE xios(get_domain_attr)  &
285    ( domain_id, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_n_index, data_ni  &
286    , data_nj, domain_group_ref, ibegin, iend, jbegin, jend, latvalue, long_name, lonvalue, mask  &
287    , name, ni, ni_glo, nj, nj_glo, standard_name, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc  &
288    , zoom_ni, zoom_ni_loc, zoom_nj, zoom_nj_loc )
289   
290    IMPLICIT NONE
291      TYPE(txios(domain))  :: domain_hdl
292      CHARACTER(LEN=*), INTENT(IN) ::domain_id
293      INTEGER  , OPTIONAL, INTENT(OUT) :: data_dim
294      INTEGER  , OPTIONAL, INTENT(OUT) :: data_i_index(:)
295      INTEGER  , OPTIONAL, INTENT(OUT) :: data_ibegin
296      INTEGER  , OPTIONAL, INTENT(OUT) :: data_j_index(:)
297      INTEGER  , OPTIONAL, INTENT(OUT) :: data_jbegin
298      INTEGER  , OPTIONAL, INTENT(OUT) :: data_n_index
299      INTEGER  , OPTIONAL, INTENT(OUT) :: data_ni
300      INTEGER  , OPTIONAL, INTENT(OUT) :: data_nj
301      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_group_ref
302      INTEGER  , OPTIONAL, INTENT(OUT) :: ibegin
303      INTEGER  , OPTIONAL, INTENT(OUT) :: iend
304      INTEGER  , OPTIONAL, INTENT(OUT) :: jbegin
305      INTEGER  , OPTIONAL, INTENT(OUT) :: jend
306      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: latvalue(:)
307      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name
308      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lonvalue(:)
309      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask(:,:)
310      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_tmp(:,:)
311      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
312      INTEGER  , OPTIONAL, INTENT(OUT) :: ni
313      INTEGER  , OPTIONAL, INTENT(OUT) :: ni_glo
314      INTEGER  , OPTIONAL, INTENT(OUT) :: nj
315      INTEGER  , OPTIONAL, INTENT(OUT) :: nj_glo
316      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name
317      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_ibegin
318      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_ibegin_loc
319      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_jbegin
320      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_jbegin_loc
321      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_ni
322      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_ni_loc
323      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_nj
324      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_nj_loc
325     
326      CALL xios(get_domain_handle)(domain_id,domain_hdl)
327      CALL xios(get_domain_attr_hdl_)   &
328      ( domain_hdl, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_n_index, data_ni  &
329      , data_nj, domain_group_ref, ibegin, iend, jbegin, jend, latvalue, long_name, lonvalue, mask  &
330      , name, ni, ni_glo, nj, nj_glo, standard_name, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc  &
331      , zoom_ni, zoom_ni_loc, zoom_nj, zoom_nj_loc )
332   
333  END SUBROUTINE xios(get_domain_attr)
334 
335  SUBROUTINE xios(get_domain_attr_hdl)  &
336    ( domain_hdl, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_n_index, data_ni  &
337    , data_nj, domain_group_ref, ibegin, iend, jbegin, jend, latvalue, long_name, lonvalue, mask  &
338    , name, ni, ni_glo, nj, nj_glo, standard_name, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc  &
339    , zoom_ni, zoom_ni_loc, zoom_nj, zoom_nj_loc )
340   
341    IMPLICIT NONE
342      TYPE(txios(domain)) , INTENT(IN) :: domain_hdl
343      INTEGER  , OPTIONAL, INTENT(OUT) :: data_dim
344      INTEGER  , OPTIONAL, INTENT(OUT) :: data_i_index(:)
345      INTEGER  , OPTIONAL, INTENT(OUT) :: data_ibegin
346      INTEGER  , OPTIONAL, INTENT(OUT) :: data_j_index(:)
347      INTEGER  , OPTIONAL, INTENT(OUT) :: data_jbegin
348      INTEGER  , OPTIONAL, INTENT(OUT) :: data_n_index
349      INTEGER  , OPTIONAL, INTENT(OUT) :: data_ni
350      INTEGER  , OPTIONAL, INTENT(OUT) :: data_nj
351      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_group_ref
352      INTEGER  , OPTIONAL, INTENT(OUT) :: ibegin
353      INTEGER  , OPTIONAL, INTENT(OUT) :: iend
354      INTEGER  , OPTIONAL, INTENT(OUT) :: jbegin
355      INTEGER  , OPTIONAL, INTENT(OUT) :: jend
356      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: latvalue(:)
357      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name
358      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lonvalue(:)
359      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask(:,:)
360      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_tmp(:,:)
361      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
362      INTEGER  , OPTIONAL, INTENT(OUT) :: ni
363      INTEGER  , OPTIONAL, INTENT(OUT) :: ni_glo
364      INTEGER  , OPTIONAL, INTENT(OUT) :: nj
365      INTEGER  , OPTIONAL, INTENT(OUT) :: nj_glo
366      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name
367      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_ibegin
368      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_ibegin_loc
369      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_jbegin
370      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_jbegin_loc
371      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_ni
372      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_ni_loc
373      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_nj
374      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_nj_loc
375     
376      CALL xios(get_domain_attr_hdl_)  &
377      ( domain_hdl, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_n_index, data_ni  &
378      , data_nj, domain_group_ref, ibegin, iend, jbegin, jend, latvalue, long_name, lonvalue, mask  &
379      , name, ni, ni_glo, nj, nj_glo, standard_name, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc  &
380      , zoom_ni, zoom_ni_loc, zoom_nj, zoom_nj_loc )
381   
382  END SUBROUTINE xios(get_domain_attr_hdl)
383 
384  SUBROUTINE xios(get_domain_attr_hdl_)   &
385    ( domain_hdl, data_dim_, data_i_index_, data_ibegin_, data_j_index_, data_jbegin_, data_n_index_  &
386    , data_ni_, data_nj_, domain_group_ref_, ibegin_, iend_, jbegin_, jend_, latvalue_, long_name_  &
387    , lonvalue_, mask_, name_, ni_, ni_glo_, nj_, nj_glo_, standard_name_, zoom_ibegin_, zoom_ibegin_loc_  &
388    , zoom_jbegin_, zoom_jbegin_loc_, zoom_ni_, zoom_ni_loc_, zoom_nj_, zoom_nj_loc_ )
389   
390    IMPLICIT NONE
391      TYPE(txios(domain)) , INTENT(IN) :: domain_hdl
392      INTEGER  , OPTIONAL, INTENT(OUT) :: data_dim_
393      INTEGER  , OPTIONAL, INTENT(OUT) :: data_i_index_(:)
394      INTEGER  , OPTIONAL, INTENT(OUT) :: data_ibegin_
395      INTEGER  , OPTIONAL, INTENT(OUT) :: data_j_index_(:)
396      INTEGER  , OPTIONAL, INTENT(OUT) :: data_jbegin_
397      INTEGER  , OPTIONAL, INTENT(OUT) :: data_n_index_
398      INTEGER  , OPTIONAL, INTENT(OUT) :: data_ni_
399      INTEGER  , OPTIONAL, INTENT(OUT) :: data_nj_
400      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_group_ref_
401      INTEGER  , OPTIONAL, INTENT(OUT) :: ibegin_
402      INTEGER  , OPTIONAL, INTENT(OUT) :: iend_
403      INTEGER  , OPTIONAL, INTENT(OUT) :: jbegin_
404      INTEGER  , OPTIONAL, INTENT(OUT) :: jend_
405      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: latvalue_(:)
406      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name_
407      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lonvalue_(:)
408      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_(:,:)
409      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask__tmp(:,:)
410      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_
411      INTEGER  , OPTIONAL, INTENT(OUT) :: ni_
412      INTEGER  , OPTIONAL, INTENT(OUT) :: ni_glo_
413      INTEGER  , OPTIONAL, INTENT(OUT) :: nj_
414      INTEGER  , OPTIONAL, INTENT(OUT) :: nj_glo_
415      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name_
416      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_ibegin_
417      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_ibegin_loc_
418      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_jbegin_
419      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_jbegin_loc_
420      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_ni_
421      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_ni_loc_
422      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_nj_
423      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_nj_loc_
424     
425      IF (PRESENT(data_dim_)) THEN
426        CALL cxios_get_domain_data_dim(domain_hdl%daddr, data_dim_)
427      ENDIF
428     
429      IF (PRESENT(data_i_index_)) THEN
430        CALL cxios_get_domain_data_i_index(domain_hdl%daddr, data_i_index_,size(data_i_index_,1))
431      ENDIF
432     
433      IF (PRESENT(data_ibegin_)) THEN
434        CALL cxios_get_domain_data_ibegin(domain_hdl%daddr, data_ibegin_)
435      ENDIF
436     
437      IF (PRESENT(data_j_index_)) THEN
438        CALL cxios_get_domain_data_j_index(domain_hdl%daddr, data_j_index_,size(data_j_index_,1))
439      ENDIF
440     
441      IF (PRESENT(data_jbegin_)) THEN
442        CALL cxios_get_domain_data_jbegin(domain_hdl%daddr, data_jbegin_)
443      ENDIF
444     
445      IF (PRESENT(data_n_index_)) THEN
446        CALL cxios_get_domain_data_n_index(domain_hdl%daddr, data_n_index_)
447      ENDIF
448     
449      IF (PRESENT(data_ni_)) THEN
450        CALL cxios_get_domain_data_ni(domain_hdl%daddr, data_ni_)
451      ENDIF
452     
453      IF (PRESENT(data_nj_)) THEN
454        CALL cxios_get_domain_data_nj(domain_hdl%daddr, data_nj_)
455      ENDIF
456     
457      IF (PRESENT(domain_group_ref_)) THEN
458        CALL cxios_get_domain_domain_group_ref(domain_hdl%daddr, domain_group_ref_, len(domain_group_ref_))
459      ENDIF
460     
461      IF (PRESENT(ibegin_)) THEN
462        CALL cxios_get_domain_ibegin(domain_hdl%daddr, ibegin_)
463      ENDIF
464     
465      IF (PRESENT(iend_)) THEN
466        CALL cxios_get_domain_iend(domain_hdl%daddr, iend_)
467      ENDIF
468     
469      IF (PRESENT(jbegin_)) THEN
470        CALL cxios_get_domain_jbegin(domain_hdl%daddr, jbegin_)
471      ENDIF
472     
473      IF (PRESENT(jend_)) THEN
474        CALL cxios_get_domain_jend(domain_hdl%daddr, jend_)
475      ENDIF
476     
477      IF (PRESENT(latvalue_)) THEN
478        CALL cxios_get_domain_latvalue(domain_hdl%daddr, latvalue_,size(latvalue_,1))
479      ENDIF
480     
481      IF (PRESENT(long_name_)) THEN
482        CALL cxios_get_domain_long_name(domain_hdl%daddr, long_name_, len(long_name_))
483      ENDIF
484     
485      IF (PRESENT(lonvalue_)) THEN
486        CALL cxios_get_domain_lonvalue(domain_hdl%daddr, lonvalue_,size(lonvalue_,1))
487      ENDIF
488     
489      IF (PRESENT(mask_)) THEN
490        ALLOCATE(mask__tmp(size(mask_,1),size(mask_,2)))
491        CALL cxios_get_domain_mask(domain_hdl%daddr, mask__tmp,size(mask_,1),size(mask_,2))
492        mask_=mask__tmp
493      ENDIF
494     
495      IF (PRESENT(name_)) THEN
496        CALL cxios_get_domain_name(domain_hdl%daddr, name_, len(name_))
497      ENDIF
498     
499      IF (PRESENT(ni_)) THEN
500        CALL cxios_get_domain_ni(domain_hdl%daddr, ni_)
501      ENDIF
502     
503      IF (PRESENT(ni_glo_)) THEN
504        CALL cxios_get_domain_ni_glo(domain_hdl%daddr, ni_glo_)
505      ENDIF
506     
507      IF (PRESENT(nj_)) THEN
508        CALL cxios_get_domain_nj(domain_hdl%daddr, nj_)
509      ENDIF
510     
511      IF (PRESENT(nj_glo_)) THEN
512        CALL cxios_get_domain_nj_glo(domain_hdl%daddr, nj_glo_)
513      ENDIF
514     
515      IF (PRESENT(standard_name_)) THEN
516        CALL cxios_get_domain_standard_name(domain_hdl%daddr, standard_name_, len(standard_name_))
517      ENDIF
518     
519      IF (PRESENT(zoom_ibegin_)) THEN
520        CALL cxios_get_domain_zoom_ibegin(domain_hdl%daddr, zoom_ibegin_)
521      ENDIF
522     
523      IF (PRESENT(zoom_ibegin_loc_)) THEN
524        CALL cxios_get_domain_zoom_ibegin_loc(domain_hdl%daddr, zoom_ibegin_loc_)
525      ENDIF
526     
527      IF (PRESENT(zoom_jbegin_)) THEN
528        CALL cxios_get_domain_zoom_jbegin(domain_hdl%daddr, zoom_jbegin_)
529      ENDIF
530     
531      IF (PRESENT(zoom_jbegin_loc_)) THEN
532        CALL cxios_get_domain_zoom_jbegin_loc(domain_hdl%daddr, zoom_jbegin_loc_)
533      ENDIF
534     
535      IF (PRESENT(zoom_ni_)) THEN
536        CALL cxios_get_domain_zoom_ni(domain_hdl%daddr, zoom_ni_)
537      ENDIF
538     
539      IF (PRESENT(zoom_ni_loc_)) THEN
540        CALL cxios_get_domain_zoom_ni_loc(domain_hdl%daddr, zoom_ni_loc_)
541      ENDIF
542     
543      IF (PRESENT(zoom_nj_)) THEN
544        CALL cxios_get_domain_zoom_nj(domain_hdl%daddr, zoom_nj_)
545      ENDIF
546     
547      IF (PRESENT(zoom_nj_loc_)) THEN
548        CALL cxios_get_domain_zoom_nj_loc(domain_hdl%daddr, zoom_nj_loc_)
549      ENDIF
550     
551     
552   
553  END SUBROUTINE xios(get_domain_attr_hdl_)
554 
555END MODULE idomain_attr
Note: See TracBrowser for help on using the repository browser.