New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
idomaingroup_attr.F90 in vendors/XIOS/current/src/interface/fortran_attr – NEMO

source: vendors/XIOS/current/src/interface/fortran_attr/idomaingroup_attr.F90 @ 3408

Last change on this file since 3408 was 3408, checked in by rblod, 12 years ago

importing initial XIOS vendor drop
  • Property svn:keywords set to Id
File size: 25.2 KB
Line 
1! * ************************************************************************** *
2! *               Interface auto generated - do not modify                     *
3! * ************************************************************************** *
4#include "xios_fortran_prefix.hpp"
5
6MODULE idomaingroup_attr
7  USE, INTRINSIC :: ISO_C_BINDING
8  USE idomain
9  USE domaingroup_interface_attr
10 
11CONTAINS
12 
13  SUBROUTINE xios(set_domaingroup_attr)  &
14    ( domaingroup_id, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_n_index  &
15    , data_ni, data_nj, domain_group_ref, group_ref, ibegin, iend, jbegin, jend, latvalue, long_name  &
16    , lonvalue, mask, name, ni, ni_glo, nj, nj_glo, standard_name, zoom_ibegin, zoom_ibegin_loc  &
17    , zoom_jbegin, zoom_jbegin_loc, zoom_ni, zoom_ni_loc, zoom_nj, zoom_nj_loc )
18   
19    IMPLICIT NONE
20      TYPE(txios(domaingroup))  :: domaingroup_hdl
21      CHARACTER(LEN=*), INTENT(IN) ::domaingroup_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      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref
32      INTEGER  , OPTIONAL, INTENT(IN) :: ibegin
33      INTEGER  , OPTIONAL, INTENT(IN) :: iend
34      INTEGER  , OPTIONAL, INTENT(IN) :: jbegin
35      INTEGER  , OPTIONAL, INTENT(IN) :: jend
36      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: latvalue(:)
37      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name
38      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lonvalue(:)
39      LOGICAL  , OPTIONAL, INTENT(IN) :: mask(:,:)
40      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_tmp(:,:)
41      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
42      INTEGER  , OPTIONAL, INTENT(IN) :: ni
43      INTEGER  , OPTIONAL, INTENT(IN) :: ni_glo
44      INTEGER  , OPTIONAL, INTENT(IN) :: nj
45      INTEGER  , OPTIONAL, INTENT(IN) :: nj_glo
46      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name
47      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_ibegin
48      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_ibegin_loc
49      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_jbegin
50      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_jbegin_loc
51      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_ni
52      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_ni_loc
53      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_nj
54      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_nj_loc
55     
56      CALL xios(get_domaingroup_handle)(domaingroup_id,domaingroup_hdl)
57      CALL xios(set_domaingroup_attr_hdl_)   &
58      ( domaingroup_hdl, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_n_index  &
59      , data_ni, data_nj, domain_group_ref, group_ref, ibegin, iend, jbegin, jend, latvalue, long_name  &
60      , lonvalue, mask, name, ni, ni_glo, nj, nj_glo, standard_name, zoom_ibegin, zoom_ibegin_loc  &
61      , zoom_jbegin, zoom_jbegin_loc, zoom_ni, zoom_ni_loc, zoom_nj, zoom_nj_loc )
62   
63  END SUBROUTINE xios(set_domaingroup_attr)
64 
65  SUBROUTINE xios(set_domaingroup_attr_hdl)  &
66    ( domaingroup_hdl, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_n_index  &
67    , data_ni, data_nj, domain_group_ref, group_ref, ibegin, iend, jbegin, jend, latvalue, long_name  &
68    , lonvalue, mask, name, ni, ni_glo, nj, nj_glo, standard_name, zoom_ibegin, zoom_ibegin_loc  &
69    , zoom_jbegin, zoom_jbegin_loc, zoom_ni, zoom_ni_loc, zoom_nj, zoom_nj_loc )
70   
71    IMPLICIT NONE
72      TYPE(txios(domaingroup)) , INTENT(IN) :: domaingroup_hdl
73      INTEGER  , OPTIONAL, INTENT(IN) :: data_dim
74      INTEGER  , OPTIONAL, INTENT(IN) :: data_i_index(:)
75      INTEGER  , OPTIONAL, INTENT(IN) :: data_ibegin
76      INTEGER  , OPTIONAL, INTENT(IN) :: data_j_index(:)
77      INTEGER  , OPTIONAL, INTENT(IN) :: data_jbegin
78      INTEGER  , OPTIONAL, INTENT(IN) :: data_n_index
79      INTEGER  , OPTIONAL, INTENT(IN) :: data_ni
80      INTEGER  , OPTIONAL, INTENT(IN) :: data_nj
81      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_group_ref
82      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref
83      INTEGER  , OPTIONAL, INTENT(IN) :: ibegin
84      INTEGER  , OPTIONAL, INTENT(IN) :: iend
85      INTEGER  , OPTIONAL, INTENT(IN) :: jbegin
86      INTEGER  , OPTIONAL, INTENT(IN) :: jend
87      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: latvalue(:)
88      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name
89      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lonvalue(:)
90      LOGICAL  , OPTIONAL, INTENT(IN) :: mask(:,:)
91      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_tmp(:,:)
92      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
93      INTEGER  , OPTIONAL, INTENT(IN) :: ni
94      INTEGER  , OPTIONAL, INTENT(IN) :: ni_glo
95      INTEGER  , OPTIONAL, INTENT(IN) :: nj
96      INTEGER  , OPTIONAL, INTENT(IN) :: nj_glo
97      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name
98      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_ibegin
99      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_ibegin_loc
100      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_jbegin
101      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_jbegin_loc
102      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_ni
103      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_ni_loc
104      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_nj
105      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_nj_loc
106     
107      CALL xios(set_domaingroup_attr_hdl_)  &
108      ( domaingroup_hdl, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_n_index  &
109      , data_ni, data_nj, domain_group_ref, group_ref, ibegin, iend, jbegin, jend, latvalue, long_name  &
110      , lonvalue, mask, name, ni, ni_glo, nj, nj_glo, standard_name, zoom_ibegin, zoom_ibegin_loc  &
111      , zoom_jbegin, zoom_jbegin_loc, zoom_ni, zoom_ni_loc, zoom_nj, zoom_nj_loc )
112   
113  END SUBROUTINE xios(set_domaingroup_attr_hdl)
114 
115  SUBROUTINE xios(set_domaingroup_attr_hdl_)   &
116    ( domaingroup_hdl, data_dim_, data_i_index_, data_ibegin_, data_j_index_, data_jbegin_, data_n_index_  &
117    , data_ni_, data_nj_, domain_group_ref_, group_ref_, ibegin_, iend_, jbegin_, jend_, latvalue_  &
118    , long_name_, lonvalue_, mask_, name_, ni_, ni_glo_, nj_, nj_glo_, standard_name_, zoom_ibegin_  &
119    , zoom_ibegin_loc_, zoom_jbegin_, zoom_jbegin_loc_, zoom_ni_, zoom_ni_loc_, zoom_nj_, zoom_nj_loc_  &
120     )
121   
122    IMPLICIT NONE
123      TYPE(txios(domaingroup)) , INTENT(IN) :: domaingroup_hdl
124      INTEGER  , OPTIONAL, INTENT(IN) :: data_dim_
125      INTEGER  , OPTIONAL, INTENT(IN) :: data_i_index_(:)
126      INTEGER  , OPTIONAL, INTENT(IN) :: data_ibegin_
127      INTEGER  , OPTIONAL, INTENT(IN) :: data_j_index_(:)
128      INTEGER  , OPTIONAL, INTENT(IN) :: data_jbegin_
129      INTEGER  , OPTIONAL, INTENT(IN) :: data_n_index_
130      INTEGER  , OPTIONAL, INTENT(IN) :: data_ni_
131      INTEGER  , OPTIONAL, INTENT(IN) :: data_nj_
132      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_group_ref_
133      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref_
134      INTEGER  , OPTIONAL, INTENT(IN) :: ibegin_
135      INTEGER  , OPTIONAL, INTENT(IN) :: iend_
136      INTEGER  , OPTIONAL, INTENT(IN) :: jbegin_
137      INTEGER  , OPTIONAL, INTENT(IN) :: jend_
138      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: latvalue_(:)
139      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name_
140      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lonvalue_(:)
141      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_(:,:)
142      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask__tmp(:,:)
143      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_
144      INTEGER  , OPTIONAL, INTENT(IN) :: ni_
145      INTEGER  , OPTIONAL, INTENT(IN) :: ni_glo_
146      INTEGER  , OPTIONAL, INTENT(IN) :: nj_
147      INTEGER  , OPTIONAL, INTENT(IN) :: nj_glo_
148      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name_
149      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_ibegin_
150      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_ibegin_loc_
151      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_jbegin_
152      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_jbegin_loc_
153      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_ni_
154      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_ni_loc_
155      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_nj_
156      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_nj_loc_
157     
158      IF (PRESENT(data_dim_)) THEN
159        CALL cxios_set_domaingroup_data_dim(domaingroup_hdl%daddr, data_dim_)
160      ENDIF
161     
162      IF (PRESENT(data_i_index_)) THEN
163        CALL cxios_set_domaingroup_data_i_index(domaingroup_hdl%daddr, data_i_index_,size(data_i_index_,1))
164      ENDIF
165     
166      IF (PRESENT(data_ibegin_)) THEN
167        CALL cxios_set_domaingroup_data_ibegin(domaingroup_hdl%daddr, data_ibegin_)
168      ENDIF
169     
170      IF (PRESENT(data_j_index_)) THEN
171        CALL cxios_set_domaingroup_data_j_index(domaingroup_hdl%daddr, data_j_index_,size(data_j_index_,1))
172      ENDIF
173     
174      IF (PRESENT(data_jbegin_)) THEN
175        CALL cxios_set_domaingroup_data_jbegin(domaingroup_hdl%daddr, data_jbegin_)
176      ENDIF
177     
178      IF (PRESENT(data_n_index_)) THEN
179        CALL cxios_set_domaingroup_data_n_index(domaingroup_hdl%daddr, data_n_index_)
180      ENDIF
181     
182      IF (PRESENT(data_ni_)) THEN
183        CALL cxios_set_domaingroup_data_ni(domaingroup_hdl%daddr, data_ni_)
184      ENDIF
185     
186      IF (PRESENT(data_nj_)) THEN
187        CALL cxios_set_domaingroup_data_nj(domaingroup_hdl%daddr, data_nj_)
188      ENDIF
189     
190      IF (PRESENT(domain_group_ref_)) THEN
191        CALL cxios_set_domaingroup_domain_group_ref(domaingroup_hdl%daddr, domain_group_ref_, len(domain_group_ref_))
192      ENDIF
193     
194      IF (PRESENT(group_ref_)) THEN
195        CALL cxios_set_domaingroup_group_ref(domaingroup_hdl%daddr, group_ref_, len(group_ref_))
196      ENDIF
197     
198      IF (PRESENT(ibegin_)) THEN
199        CALL cxios_set_domaingroup_ibegin(domaingroup_hdl%daddr, ibegin_)
200      ENDIF
201     
202      IF (PRESENT(iend_)) THEN
203        CALL cxios_set_domaingroup_iend(domaingroup_hdl%daddr, iend_)
204      ENDIF
205     
206      IF (PRESENT(jbegin_)) THEN
207        CALL cxios_set_domaingroup_jbegin(domaingroup_hdl%daddr, jbegin_)
208      ENDIF
209     
210      IF (PRESENT(jend_)) THEN
211        CALL cxios_set_domaingroup_jend(domaingroup_hdl%daddr, jend_)
212      ENDIF
213     
214      IF (PRESENT(latvalue_)) THEN
215        CALL cxios_set_domaingroup_latvalue(domaingroup_hdl%daddr, latvalue_,size(latvalue_,1))
216      ENDIF
217     
218      IF (PRESENT(long_name_)) THEN
219        CALL cxios_set_domaingroup_long_name(domaingroup_hdl%daddr, long_name_, len(long_name_))
220      ENDIF
221     
222      IF (PRESENT(lonvalue_)) THEN
223        CALL cxios_set_domaingroup_lonvalue(domaingroup_hdl%daddr, lonvalue_,size(lonvalue_,1))
224      ENDIF
225     
226      IF (PRESENT(mask_)) THEN
227        ALLOCATE(mask__tmp(size(mask_,1),size(mask_,2)))
228        mask__tmp=mask_
229        CALL cxios_set_domaingroup_mask(domaingroup_hdl%daddr, mask__tmp,size(mask_,1),size(mask_,2))
230      ENDIF
231     
232      IF (PRESENT(name_)) THEN
233        CALL cxios_set_domaingroup_name(domaingroup_hdl%daddr, name_, len(name_))
234      ENDIF
235     
236      IF (PRESENT(ni_)) THEN
237        CALL cxios_set_domaingroup_ni(domaingroup_hdl%daddr, ni_)
238      ENDIF
239     
240      IF (PRESENT(ni_glo_)) THEN
241        CALL cxios_set_domaingroup_ni_glo(domaingroup_hdl%daddr, ni_glo_)
242      ENDIF
243     
244      IF (PRESENT(nj_)) THEN
245        CALL cxios_set_domaingroup_nj(domaingroup_hdl%daddr, nj_)
246      ENDIF
247     
248      IF (PRESENT(nj_glo_)) THEN
249        CALL cxios_set_domaingroup_nj_glo(domaingroup_hdl%daddr, nj_glo_)
250      ENDIF
251     
252      IF (PRESENT(standard_name_)) THEN
253        CALL cxios_set_domaingroup_standard_name(domaingroup_hdl%daddr, standard_name_, len(standard_name_))
254      ENDIF
255     
256      IF (PRESENT(zoom_ibegin_)) THEN
257        CALL cxios_set_domaingroup_zoom_ibegin(domaingroup_hdl%daddr, zoom_ibegin_)
258      ENDIF
259     
260      IF (PRESENT(zoom_ibegin_loc_)) THEN
261        CALL cxios_set_domaingroup_zoom_ibegin_loc(domaingroup_hdl%daddr, zoom_ibegin_loc_)
262      ENDIF
263     
264      IF (PRESENT(zoom_jbegin_)) THEN
265        CALL cxios_set_domaingroup_zoom_jbegin(domaingroup_hdl%daddr, zoom_jbegin_)
266      ENDIF
267     
268      IF (PRESENT(zoom_jbegin_loc_)) THEN
269        CALL cxios_set_domaingroup_zoom_jbegin_loc(domaingroup_hdl%daddr, zoom_jbegin_loc_)
270      ENDIF
271     
272      IF (PRESENT(zoom_ni_)) THEN
273        CALL cxios_set_domaingroup_zoom_ni(domaingroup_hdl%daddr, zoom_ni_)
274      ENDIF
275     
276      IF (PRESENT(zoom_ni_loc_)) THEN
277        CALL cxios_set_domaingroup_zoom_ni_loc(domaingroup_hdl%daddr, zoom_ni_loc_)
278      ENDIF
279     
280      IF (PRESENT(zoom_nj_)) THEN
281        CALL cxios_set_domaingroup_zoom_nj(domaingroup_hdl%daddr, zoom_nj_)
282      ENDIF
283     
284      IF (PRESENT(zoom_nj_loc_)) THEN
285        CALL cxios_set_domaingroup_zoom_nj_loc(domaingroup_hdl%daddr, zoom_nj_loc_)
286      ENDIF
287     
288     
289   
290  END SUBROUTINE xios(set_domaingroup_attr_hdl_)
291 
292  SUBROUTINE xios(get_domaingroup_attr)  &
293    ( domaingroup_id, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_n_index  &
294    , data_ni, data_nj, domain_group_ref, group_ref, ibegin, iend, jbegin, jend, latvalue, long_name  &
295    , lonvalue, mask, name, ni, ni_glo, nj, nj_glo, standard_name, zoom_ibegin, zoom_ibegin_loc  &
296    , zoom_jbegin, zoom_jbegin_loc, zoom_ni, zoom_ni_loc, zoom_nj, zoom_nj_loc )
297   
298    IMPLICIT NONE
299      TYPE(txios(domaingroup))  :: domaingroup_hdl
300      CHARACTER(LEN=*), INTENT(IN) ::domaingroup_id
301      INTEGER  , OPTIONAL, INTENT(OUT) :: data_dim
302      INTEGER  , OPTIONAL, INTENT(OUT) :: data_i_index(:)
303      INTEGER  , OPTIONAL, INTENT(OUT) :: data_ibegin
304      INTEGER  , OPTIONAL, INTENT(OUT) :: data_j_index(:)
305      INTEGER  , OPTIONAL, INTENT(OUT) :: data_jbegin
306      INTEGER  , OPTIONAL, INTENT(OUT) :: data_n_index
307      INTEGER  , OPTIONAL, INTENT(OUT) :: data_ni
308      INTEGER  , OPTIONAL, INTENT(OUT) :: data_nj
309      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_group_ref
310      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref
311      INTEGER  , OPTIONAL, INTENT(OUT) :: ibegin
312      INTEGER  , OPTIONAL, INTENT(OUT) :: iend
313      INTEGER  , OPTIONAL, INTENT(OUT) :: jbegin
314      INTEGER  , OPTIONAL, INTENT(OUT) :: jend
315      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: latvalue(:)
316      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name
317      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lonvalue(:)
318      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask(:,:)
319      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_tmp(:,:)
320      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
321      INTEGER  , OPTIONAL, INTENT(OUT) :: ni
322      INTEGER  , OPTIONAL, INTENT(OUT) :: ni_glo
323      INTEGER  , OPTIONAL, INTENT(OUT) :: nj
324      INTEGER  , OPTIONAL, INTENT(OUT) :: nj_glo
325      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name
326      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_ibegin
327      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_ibegin_loc
328      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_jbegin
329      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_jbegin_loc
330      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_ni
331      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_ni_loc
332      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_nj
333      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_nj_loc
334     
335      CALL xios(get_domaingroup_handle)(domaingroup_id,domaingroup_hdl)
336      CALL xios(get_domaingroup_attr_hdl_)   &
337      ( domaingroup_hdl, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_n_index  &
338      , data_ni, data_nj, domain_group_ref, group_ref, ibegin, iend, jbegin, jend, latvalue, long_name  &
339      , lonvalue, mask, name, ni, ni_glo, nj, nj_glo, standard_name, zoom_ibegin, zoom_ibegin_loc  &
340      , zoom_jbegin, zoom_jbegin_loc, zoom_ni, zoom_ni_loc, zoom_nj, zoom_nj_loc )
341   
342  END SUBROUTINE xios(get_domaingroup_attr)
343 
344  SUBROUTINE xios(get_domaingroup_attr_hdl)  &
345    ( domaingroup_hdl, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_n_index  &
346    , data_ni, data_nj, domain_group_ref, group_ref, ibegin, iend, jbegin, jend, latvalue, long_name  &
347    , lonvalue, mask, name, ni, ni_glo, nj, nj_glo, standard_name, zoom_ibegin, zoom_ibegin_loc  &
348    , zoom_jbegin, zoom_jbegin_loc, zoom_ni, zoom_ni_loc, zoom_nj, zoom_nj_loc )
349   
350    IMPLICIT NONE
351      TYPE(txios(domaingroup)) , INTENT(IN) :: domaingroup_hdl
352      INTEGER  , OPTIONAL, INTENT(OUT) :: data_dim
353      INTEGER  , OPTIONAL, INTENT(OUT) :: data_i_index(:)
354      INTEGER  , OPTIONAL, INTENT(OUT) :: data_ibegin
355      INTEGER  , OPTIONAL, INTENT(OUT) :: data_j_index(:)
356      INTEGER  , OPTIONAL, INTENT(OUT) :: data_jbegin
357      INTEGER  , OPTIONAL, INTENT(OUT) :: data_n_index
358      INTEGER  , OPTIONAL, INTENT(OUT) :: data_ni
359      INTEGER  , OPTIONAL, INTENT(OUT) :: data_nj
360      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_group_ref
361      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref
362      INTEGER  , OPTIONAL, INTENT(OUT) :: ibegin
363      INTEGER  , OPTIONAL, INTENT(OUT) :: iend
364      INTEGER  , OPTIONAL, INTENT(OUT) :: jbegin
365      INTEGER  , OPTIONAL, INTENT(OUT) :: jend
366      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: latvalue(:)
367      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name
368      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lonvalue(:)
369      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask(:,:)
370      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_tmp(:,:)
371      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
372      INTEGER  , OPTIONAL, INTENT(OUT) :: ni
373      INTEGER  , OPTIONAL, INTENT(OUT) :: ni_glo
374      INTEGER  , OPTIONAL, INTENT(OUT) :: nj
375      INTEGER  , OPTIONAL, INTENT(OUT) :: nj_glo
376      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name
377      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_ibegin
378      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_ibegin_loc
379      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_jbegin
380      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_jbegin_loc
381      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_ni
382      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_ni_loc
383      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_nj
384      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_nj_loc
385     
386      CALL xios(get_domaingroup_attr_hdl_)  &
387      ( domaingroup_hdl, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_n_index  &
388      , data_ni, data_nj, domain_group_ref, group_ref, ibegin, iend, jbegin, jend, latvalue, long_name  &
389      , lonvalue, mask, name, ni, ni_glo, nj, nj_glo, standard_name, zoom_ibegin, zoom_ibegin_loc  &
390      , zoom_jbegin, zoom_jbegin_loc, zoom_ni, zoom_ni_loc, zoom_nj, zoom_nj_loc )
391   
392  END SUBROUTINE xios(get_domaingroup_attr_hdl)
393 
394  SUBROUTINE xios(get_domaingroup_attr_hdl_)   &
395    ( domaingroup_hdl, data_dim_, data_i_index_, data_ibegin_, data_j_index_, data_jbegin_, data_n_index_  &
396    , data_ni_, data_nj_, domain_group_ref_, group_ref_, ibegin_, iend_, jbegin_, jend_, latvalue_  &
397    , long_name_, lonvalue_, mask_, name_, ni_, ni_glo_, nj_, nj_glo_, standard_name_, zoom_ibegin_  &
398    , zoom_ibegin_loc_, zoom_jbegin_, zoom_jbegin_loc_, zoom_ni_, zoom_ni_loc_, zoom_nj_, zoom_nj_loc_  &
399     )
400   
401    IMPLICIT NONE
402      TYPE(txios(domaingroup)) , INTENT(IN) :: domaingroup_hdl
403      INTEGER  , OPTIONAL, INTENT(OUT) :: data_dim_
404      INTEGER  , OPTIONAL, INTENT(OUT) :: data_i_index_(:)
405      INTEGER  , OPTIONAL, INTENT(OUT) :: data_ibegin_
406      INTEGER  , OPTIONAL, INTENT(OUT) :: data_j_index_(:)
407      INTEGER  , OPTIONAL, INTENT(OUT) :: data_jbegin_
408      INTEGER  , OPTIONAL, INTENT(OUT) :: data_n_index_
409      INTEGER  , OPTIONAL, INTENT(OUT) :: data_ni_
410      INTEGER  , OPTIONAL, INTENT(OUT) :: data_nj_
411      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_group_ref_
412      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref_
413      INTEGER  , OPTIONAL, INTENT(OUT) :: ibegin_
414      INTEGER  , OPTIONAL, INTENT(OUT) :: iend_
415      INTEGER  , OPTIONAL, INTENT(OUT) :: jbegin_
416      INTEGER  , OPTIONAL, INTENT(OUT) :: jend_
417      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: latvalue_(:)
418      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name_
419      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lonvalue_(:)
420      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_(:,:)
421      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask__tmp(:,:)
422      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_
423      INTEGER  , OPTIONAL, INTENT(OUT) :: ni_
424      INTEGER  , OPTIONAL, INTENT(OUT) :: ni_glo_
425      INTEGER  , OPTIONAL, INTENT(OUT) :: nj_
426      INTEGER  , OPTIONAL, INTENT(OUT) :: nj_glo_
427      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name_
428      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_ibegin_
429      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_ibegin_loc_
430      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_jbegin_
431      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_jbegin_loc_
432      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_ni_
433      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_ni_loc_
434      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_nj_
435      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_nj_loc_
436     
437      IF (PRESENT(data_dim_)) THEN
438        CALL cxios_get_domaingroup_data_dim(domaingroup_hdl%daddr, data_dim_)
439      ENDIF
440     
441      IF (PRESENT(data_i_index_)) THEN
442        CALL cxios_get_domaingroup_data_i_index(domaingroup_hdl%daddr, data_i_index_,size(data_i_index_,1))
443      ENDIF
444     
445      IF (PRESENT(data_ibegin_)) THEN
446        CALL cxios_get_domaingroup_data_ibegin(domaingroup_hdl%daddr, data_ibegin_)
447      ENDIF
448     
449      IF (PRESENT(data_j_index_)) THEN
450        CALL cxios_get_domaingroup_data_j_index(domaingroup_hdl%daddr, data_j_index_,size(data_j_index_,1))
451      ENDIF
452     
453      IF (PRESENT(data_jbegin_)) THEN
454        CALL cxios_get_domaingroup_data_jbegin(domaingroup_hdl%daddr, data_jbegin_)
455      ENDIF
456     
457      IF (PRESENT(data_n_index_)) THEN
458        CALL cxios_get_domaingroup_data_n_index(domaingroup_hdl%daddr, data_n_index_)
459      ENDIF
460     
461      IF (PRESENT(data_ni_)) THEN
462        CALL cxios_get_domaingroup_data_ni(domaingroup_hdl%daddr, data_ni_)
463      ENDIF
464     
465      IF (PRESENT(data_nj_)) THEN
466        CALL cxios_get_domaingroup_data_nj(domaingroup_hdl%daddr, data_nj_)
467      ENDIF
468     
469      IF (PRESENT(domain_group_ref_)) THEN
470        CALL cxios_get_domaingroup_domain_group_ref(domaingroup_hdl%daddr, domain_group_ref_, len(domain_group_ref_))
471      ENDIF
472     
473      IF (PRESENT(group_ref_)) THEN
474        CALL cxios_get_domaingroup_group_ref(domaingroup_hdl%daddr, group_ref_, len(group_ref_))
475      ENDIF
476     
477      IF (PRESENT(ibegin_)) THEN
478        CALL cxios_get_domaingroup_ibegin(domaingroup_hdl%daddr, ibegin_)
479      ENDIF
480     
481      IF (PRESENT(iend_)) THEN
482        CALL cxios_get_domaingroup_iend(domaingroup_hdl%daddr, iend_)
483      ENDIF
484     
485      IF (PRESENT(jbegin_)) THEN
486        CALL cxios_get_domaingroup_jbegin(domaingroup_hdl%daddr, jbegin_)
487      ENDIF
488     
489      IF (PRESENT(jend_)) THEN
490        CALL cxios_get_domaingroup_jend(domaingroup_hdl%daddr, jend_)
491      ENDIF
492     
493      IF (PRESENT(latvalue_)) THEN
494        CALL cxios_get_domaingroup_latvalue(domaingroup_hdl%daddr, latvalue_,size(latvalue_,1))
495      ENDIF
496     
497      IF (PRESENT(long_name_)) THEN
498        CALL cxios_get_domaingroup_long_name(domaingroup_hdl%daddr, long_name_, len(long_name_))
499      ENDIF
500     
501      IF (PRESENT(lonvalue_)) THEN
502        CALL cxios_get_domaingroup_lonvalue(domaingroup_hdl%daddr, lonvalue_,size(lonvalue_,1))
503      ENDIF
504     
505      IF (PRESENT(mask_)) THEN
506        ALLOCATE(mask__tmp(size(mask_,1),size(mask_,2)))
507        CALL cxios_get_domaingroup_mask(domaingroup_hdl%daddr, mask__tmp,size(mask_,1),size(mask_,2))
508        mask_=mask__tmp
509      ENDIF
510     
511      IF (PRESENT(name_)) THEN
512        CALL cxios_get_domaingroup_name(domaingroup_hdl%daddr, name_, len(name_))
513      ENDIF
514     
515      IF (PRESENT(ni_)) THEN
516        CALL cxios_get_domaingroup_ni(domaingroup_hdl%daddr, ni_)
517      ENDIF
518     
519      IF (PRESENT(ni_glo_)) THEN
520        CALL cxios_get_domaingroup_ni_glo(domaingroup_hdl%daddr, ni_glo_)
521      ENDIF
522     
523      IF (PRESENT(nj_)) THEN
524        CALL cxios_get_domaingroup_nj(domaingroup_hdl%daddr, nj_)
525      ENDIF
526     
527      IF (PRESENT(nj_glo_)) THEN
528        CALL cxios_get_domaingroup_nj_glo(domaingroup_hdl%daddr, nj_glo_)
529      ENDIF
530     
531      IF (PRESENT(standard_name_)) THEN
532        CALL cxios_get_domaingroup_standard_name(domaingroup_hdl%daddr, standard_name_, len(standard_name_))
533      ENDIF
534     
535      IF (PRESENT(zoom_ibegin_)) THEN
536        CALL cxios_get_domaingroup_zoom_ibegin(domaingroup_hdl%daddr, zoom_ibegin_)
537      ENDIF
538     
539      IF (PRESENT(zoom_ibegin_loc_)) THEN
540        CALL cxios_get_domaingroup_zoom_ibegin_loc(domaingroup_hdl%daddr, zoom_ibegin_loc_)
541      ENDIF
542     
543      IF (PRESENT(zoom_jbegin_)) THEN
544        CALL cxios_get_domaingroup_zoom_jbegin(domaingroup_hdl%daddr, zoom_jbegin_)
545      ENDIF
546     
547      IF (PRESENT(zoom_jbegin_loc_)) THEN
548        CALL cxios_get_domaingroup_zoom_jbegin_loc(domaingroup_hdl%daddr, zoom_jbegin_loc_)
549      ENDIF
550     
551      IF (PRESENT(zoom_ni_)) THEN
552        CALL cxios_get_domaingroup_zoom_ni(domaingroup_hdl%daddr, zoom_ni_)
553      ENDIF
554     
555      IF (PRESENT(zoom_ni_loc_)) THEN
556        CALL cxios_get_domaingroup_zoom_ni_loc(domaingroup_hdl%daddr, zoom_ni_loc_)
557      ENDIF
558     
559      IF (PRESENT(zoom_nj_)) THEN
560        CALL cxios_get_domaingroup_zoom_nj(domaingroup_hdl%daddr, zoom_nj_)
561      ENDIF
562     
563      IF (PRESENT(zoom_nj_loc_)) THEN
564        CALL cxios_get_domaingroup_zoom_nj_loc(domaingroup_hdl%daddr, zoom_nj_loc_)
565      ENDIF
566     
567     
568   
569  END SUBROUTINE xios(get_domaingroup_attr_hdl_)
570 
571END MODULE idomaingroup_attr
Note: See TracBrowser for help on using the repository browser.