Context Navigation

source: XIOS/dev/XIOS_DEV_CMIP6/src/interface/fortran_attr/igridgroup_attr.F90 @ 2338

Last change on this file since 2338 was 1492, checked in by oabramkina, 6 years ago

Updating fortran interface for attributes that have been recently introduced and the following filters:

duplicate_scalar_to_axis
reduce_axis_to_axis
reduce_scalar_to_scalar
reorder_domain
temporal_splitting.

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: 22.6 KB

Rev	Line
[326]	1	! * ************************************************************************** *
	2	! * Interface auto generated - do not modify *
	3	! * ************************************************************************** *
	4	#include "xios_fortran_prefix.hpp"
	5
	6	MODULE igridgroup_attr
	7	USE, INTRINSIC :: ISO_C_BINDING
	8	USE igrid
	9	USE gridgroup_interface_attr
[581]	10
[326]	11	CONTAINS
[581]	12
[326]	13	SUBROUTINE xios(set_gridgroup_attr) &
[1492]	14	( gridgroup_id, comment, description, group_ref, mask_0d, mask_1d, mask_2d, mask_3d, mask_4d &
	15	, mask_5d, mask_6d, mask_7d, name )
[581]	16
[326]	17	IMPLICIT NONE
	18	TYPE(txios(gridgroup)) :: gridgroup_hdl
	19	CHARACTER(LEN=*), INTENT(IN) ::gridgroup_id
[1492]	20	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment
[326]	21	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: description
	22	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref
[1492]	23	LOGICAL , OPTIONAL, INTENT(IN) :: mask_0d(:)
	24	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_0d_tmp(:)
[817]	25	LOGICAL , OPTIONAL, INTENT(IN) :: mask_1d(:)
	26	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_1d_tmp(:)
	27	LOGICAL , OPTIONAL, INTENT(IN) :: mask_2d(:,:)
	28	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_2d_tmp(:,:)
	29	LOGICAL , OPTIONAL, INTENT(IN) :: mask_3d(:,:,:)
	30	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_3d_tmp(:,:,:)
[932]	31	LOGICAL , OPTIONAL, INTENT(IN) :: mask_4d(:,:,:,:)
	32	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_4d_tmp(:,:,:,:)
	33	LOGICAL , OPTIONAL, INTENT(IN) :: mask_5d(:,:,:,:,:)
	34	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_5d_tmp(:,:,:,:,:)
	35	LOGICAL , OPTIONAL, INTENT(IN) :: mask_6d(:,:,:,:,:,:)
	36	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_6d_tmp(:,:,:,:,:,:)
	37	LOGICAL , OPTIONAL, INTENT(IN) :: mask_7d(:,:,:,:,:,:,:)
	38	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_7d_tmp(:,:,:,:,:,:,:)
[326]	39	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
[581]	40
[966]	41	CALL xios(get_gridgroup_handle) &
	42	(gridgroup_id,gridgroup_hdl)
[326]	43	CALL xios(set_gridgroup_attr_hdl_) &
[1492]	44	( gridgroup_hdl, comment, description, group_ref, mask_0d, mask_1d, mask_2d, mask_3d, mask_4d &
	45	, mask_5d, mask_6d, mask_7d, name )
[581]	46
[326]	47	END SUBROUTINE xios(set_gridgroup_attr)
[581]	48
[326]	49	SUBROUTINE xios(set_gridgroup_attr_hdl) &
[1492]	50	( gridgroup_hdl, comment, description, group_ref, mask_0d, mask_1d, mask_2d, mask_3d, mask_4d &
	51	, mask_5d, mask_6d, mask_7d, name )
[581]	52
[326]	53	IMPLICIT NONE
	54	TYPE(txios(gridgroup)) , INTENT(IN) :: gridgroup_hdl
[1492]	55	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment
[326]	56	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: description
	57	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref
[1492]	58	LOGICAL , OPTIONAL, INTENT(IN) :: mask_0d(:)
	59	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_0d_tmp(:)
[817]	60	LOGICAL , OPTIONAL, INTENT(IN) :: mask_1d(:)
	61	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_1d_tmp(:)
	62	LOGICAL , OPTIONAL, INTENT(IN) :: mask_2d(:,:)
	63	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_2d_tmp(:,:)
	64	LOGICAL , OPTIONAL, INTENT(IN) :: mask_3d(:,:,:)
	65	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_3d_tmp(:,:,:)
[932]	66	LOGICAL , OPTIONAL, INTENT(IN) :: mask_4d(:,:,:,:)
	67	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_4d_tmp(:,:,:,:)
	68	LOGICAL , OPTIONAL, INTENT(IN) :: mask_5d(:,:,:,:,:)
	69	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_5d_tmp(:,:,:,:,:)
	70	LOGICAL , OPTIONAL, INTENT(IN) :: mask_6d(:,:,:,:,:,:)
	71	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_6d_tmp(:,:,:,:,:,:)
	72	LOGICAL , OPTIONAL, INTENT(IN) :: mask_7d(:,:,:,:,:,:,:)
	73	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_7d_tmp(:,:,:,:,:,:,:)
[326]	74	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
[581]	75
[326]	76	CALL xios(set_gridgroup_attr_hdl_) &
[1492]	77	( gridgroup_hdl, comment, description, group_ref, mask_0d, mask_1d, mask_2d, mask_3d, mask_4d &
	78	, mask_5d, mask_6d, mask_7d, name )
[581]	79
[326]	80	END SUBROUTINE xios(set_gridgroup_attr_hdl)
[581]	81
[326]	82	SUBROUTINE xios(set_gridgroup_attr_hdl_) &
[1492]	83	( gridgroup_hdl, comment_, description_, group_ref_, mask_0d_, mask_1d_, mask_2d_, mask_3d_ &
	84	, mask_4d_, mask_5d_, mask_6d_, mask_7d_, name_ )
[581]	85
[326]	86	IMPLICIT NONE
	87	TYPE(txios(gridgroup)) , INTENT(IN) :: gridgroup_hdl
[1492]	88	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment_
[326]	89	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: description_
	90	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref_
[1492]	91	LOGICAL , OPTIONAL, INTENT(IN) :: mask_0d_(:)
	92	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_0d__tmp(:)
[817]	93	LOGICAL , OPTIONAL, INTENT(IN) :: mask_1d_(:)
	94	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_1d__tmp(:)
	95	LOGICAL , OPTIONAL, INTENT(IN) :: mask_2d_(:,:)
	96	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_2d__tmp(:,:)
	97	LOGICAL , OPTIONAL, INTENT(IN) :: mask_3d_(:,:,:)
	98	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_3d__tmp(:,:,:)
[932]	99	LOGICAL , OPTIONAL, INTENT(IN) :: mask_4d_(:,:,:,:)
	100	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_4d__tmp(:,:,:,:)
	101	LOGICAL , OPTIONAL, INTENT(IN) :: mask_5d_(:,:,:,:,:)
	102	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_5d__tmp(:,:,:,:,:)
	103	LOGICAL , OPTIONAL, INTENT(IN) :: mask_6d_(:,:,:,:,:,:)
	104	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_6d__tmp(:,:,:,:,:,:)
	105	LOGICAL , OPTIONAL, INTENT(IN) :: mask_7d_(:,:,:,:,:,:,:)
	106	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_7d__tmp(:,:,:,:,:,:,:)
[326]	107	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_
[581]	108
[1492]	109	IF (PRESENT(comment_)) THEN
	110	CALL cxios_set_gridgroup_comment &
	111	(gridgroup_hdl%daddr, comment_, len(comment_))
	112	ENDIF
	113
[326]	114	IF (PRESENT(description_)) THEN
[966]	115	CALL cxios_set_gridgroup_description &
	116	(gridgroup_hdl%daddr, description_, len(description_))
[326]	117	ENDIF
[581]	118
[326]	119	IF (PRESENT(group_ref_)) THEN
[966]	120	CALL cxios_set_gridgroup_group_ref &
	121	(gridgroup_hdl%daddr, group_ref_, len(group_ref_))
[326]	122	ENDIF
[581]	123
[1492]	124	IF (PRESENT(mask_0d_)) THEN
	125	ALLOCATE(mask_0d__tmp(SIZE(mask_0d_,1)))
	126	mask_0d__tmp = mask_0d_
	127	CALL cxios_set_gridgroup_mask_0d &
	128	(gridgroup_hdl%daddr, mask_0d__tmp, SHAPE(mask_0d_))
	129	ENDIF
	130
[817]	131	IF (PRESENT(mask_1d_)) THEN
	132	ALLOCATE(mask_1d__tmp(SIZE(mask_1d_,1)))
	133	mask_1d__tmp = mask_1d_
[966]	134	CALL cxios_set_gridgroup_mask_1d &
	135	(gridgroup_hdl%daddr, mask_1d__tmp, SHAPE(mask_1d_))
[415]	136	ENDIF
[581]	137
[817]	138	IF (PRESENT(mask_2d_)) THEN
	139	ALLOCATE(mask_2d__tmp(SIZE(mask_2d_,1), SIZE(mask_2d_,2)))
	140	mask_2d__tmp = mask_2d_
[966]	141	CALL cxios_set_gridgroup_mask_2d &
	142	(gridgroup_hdl%daddr, mask_2d__tmp, SHAPE(mask_2d_))
[567]	143	ENDIF
[581]	144
[817]	145	IF (PRESENT(mask_3d_)) THEN
	146	ALLOCATE(mask_3d__tmp(SIZE(mask_3d_,1), SIZE(mask_3d_,2), SIZE(mask_3d_,3)))
	147	mask_3d__tmp = mask_3d_
[966]	148	CALL cxios_set_gridgroup_mask_3d &
	149	(gridgroup_hdl%daddr, mask_3d__tmp, SHAPE(mask_3d_))
[567]	150	ENDIF
[581]	151
[932]	152	IF (PRESENT(mask_4d_)) THEN
[966]	153	ALLOCATE(mask_4d__tmp(SIZE(mask_4d_,1), SIZE(mask_4d_,2), SIZE(mask_4d_,3), &
	154	SIZE(mask_4d_,4)))
[932]	155	mask_4d__tmp = mask_4d_
[966]	156	CALL cxios_set_gridgroup_mask_4d &
	157	(gridgroup_hdl%daddr, mask_4d__tmp, SHAPE(mask_4d_))
[932]	158	ENDIF
	159
	160	IF (PRESENT(mask_5d_)) THEN
[966]	161	ALLOCATE(mask_5d__tmp(SIZE(mask_5d_,1), SIZE(mask_5d_,2), SIZE(mask_5d_,3), &
	162	SIZE(mask_5d_,4), SIZE(mask_5d_,5)))
[932]	163	mask_5d__tmp = mask_5d_
[966]	164	CALL cxios_set_gridgroup_mask_5d &
	165	(gridgroup_hdl%daddr, mask_5d__tmp, SHAPE(mask_5d_))
[932]	166	ENDIF
	167
	168	IF (PRESENT(mask_6d_)) THEN
[966]	169	ALLOCATE(mask_6d__tmp(SIZE(mask_6d_,1), SIZE(mask_6d_,2), SIZE(mask_6d_,3), &
	170	SIZE(mask_6d_,4), SIZE(mask_6d_,5), SIZE(mask_6d_,6)))
[932]	171	mask_6d__tmp = mask_6d_
[966]	172	CALL cxios_set_gridgroup_mask_6d &
	173	(gridgroup_hdl%daddr, mask_6d__tmp, SHAPE(mask_6d_))
[932]	174	ENDIF
	175
	176	IF (PRESENT(mask_7d_)) THEN
[966]	177	ALLOCATE(mask_7d__tmp(SIZE(mask_7d_,1), SIZE(mask_7d_,2), SIZE(mask_7d_,3), &
	178	SIZE(mask_7d_,4), SIZE(mask_7d_,5), SIZE(mask_7d_,6), &
	179	SIZE(mask_7d_,7)))
[932]	180	mask_7d__tmp = mask_7d_
[966]	181	CALL cxios_set_gridgroup_mask_7d &
	182	(gridgroup_hdl%daddr, mask_7d__tmp, SHAPE(mask_7d_))
[932]	183	ENDIF
	184
[326]	185	IF (PRESENT(name_)) THEN
[966]	186	CALL cxios_set_gridgroup_name &
	187	(gridgroup_hdl%daddr, name_, len(name_))
[326]	188	ENDIF
[581]	189
[326]	190	END SUBROUTINE xios(set_gridgroup_attr_hdl_)
[581]	191
[326]	192	SUBROUTINE xios(get_gridgroup_attr) &
[1492]	193	( gridgroup_id, comment, description, group_ref, mask_0d, mask_1d, mask_2d, mask_3d, mask_4d &
	194	, mask_5d, mask_6d, mask_7d, name )
[581]	195
[326]	196	IMPLICIT NONE
	197	TYPE(txios(gridgroup)) :: gridgroup_hdl
	198	CHARACTER(LEN=*), INTENT(IN) ::gridgroup_id
[1492]	199	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment
[326]	200	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: description
	201	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref
[1492]	202	LOGICAL , OPTIONAL, INTENT(OUT) :: mask_0d(:)
	203	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_0d_tmp(:)
[817]	204	LOGICAL , OPTIONAL, INTENT(OUT) :: mask_1d(:)
	205	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_1d_tmp(:)
	206	LOGICAL , OPTIONAL, INTENT(OUT) :: mask_2d(:,:)
	207	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_2d_tmp(:,:)
	208	LOGICAL , OPTIONAL, INTENT(OUT) :: mask_3d(:,:,:)
	209	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_3d_tmp(:,:,:)
[932]	210	LOGICAL , OPTIONAL, INTENT(OUT) :: mask_4d(:,:,:,:)
	211	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_4d_tmp(:,:,:,:)
	212	LOGICAL , OPTIONAL, INTENT(OUT) :: mask_5d(:,:,:,:,:)
	213	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_5d_tmp(:,:,:,:,:)
	214	LOGICAL , OPTIONAL, INTENT(OUT) :: mask_6d(:,:,:,:,:,:)
	215	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_6d_tmp(:,:,:,:,:,:)
	216	LOGICAL , OPTIONAL, INTENT(OUT) :: mask_7d(:,:,:,:,:,:,:)
	217	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_7d_tmp(:,:,:,:,:,:,:)
[326]	218	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
[581]	219
[966]	220	CALL xios(get_gridgroup_handle) &
	221	(gridgroup_id,gridgroup_hdl)
[326]	222	CALL xios(get_gridgroup_attr_hdl_) &
[1492]	223	( gridgroup_hdl, comment, description, group_ref, mask_0d, mask_1d, mask_2d, mask_3d, mask_4d &
	224	, mask_5d, mask_6d, mask_7d, name )
[581]	225
[326]	226	END SUBROUTINE xios(get_gridgroup_attr)
[581]	227
[326]	228	SUBROUTINE xios(get_gridgroup_attr_hdl) &
[1492]	229	( gridgroup_hdl, comment, description, group_ref, mask_0d, mask_1d, mask_2d, mask_3d, mask_4d &
	230	, mask_5d, mask_6d, mask_7d, name )
[581]	231
[326]	232	IMPLICIT NONE
	233	TYPE(txios(gridgroup)) , INTENT(IN) :: gridgroup_hdl
[1492]	234	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment
[326]	235	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: description
	236	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref
[1492]	237	LOGICAL , OPTIONAL, INTENT(OUT) :: mask_0d(:)
	238	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_0d_tmp(:)
[817]	239	LOGICAL , OPTIONAL, INTENT(OUT) :: mask_1d(:)
	240	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_1d_tmp(:)
	241	LOGICAL , OPTIONAL, INTENT(OUT) :: mask_2d(:,:)
	242	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_2d_tmp(:,:)
	243	LOGICAL , OPTIONAL, INTENT(OUT) :: mask_3d(:,:,:)
	244	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_3d_tmp(:,:,:)
[932]	245	LOGICAL , OPTIONAL, INTENT(OUT) :: mask_4d(:,:,:,:)
	246	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_4d_tmp(:,:,:,:)
	247	LOGICAL , OPTIONAL, INTENT(OUT) :: mask_5d(:,:,:,:,:)
	248	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_5d_tmp(:,:,:,:,:)
	249	LOGICAL , OPTIONAL, INTENT(OUT) :: mask_6d(:,:,:,:,:,:)
	250	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_6d_tmp(:,:,:,:,:,:)
	251	LOGICAL , OPTIONAL, INTENT(OUT) :: mask_7d(:,:,:,:,:,:,:)
	252	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_7d_tmp(:,:,:,:,:,:,:)
[326]	253	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
[581]	254
[326]	255	CALL xios(get_gridgroup_attr_hdl_) &
[1492]	256	( gridgroup_hdl, comment, description, group_ref, mask_0d, mask_1d, mask_2d, mask_3d, mask_4d &
	257	, mask_5d, mask_6d, mask_7d, name )
[581]	258
[326]	259	END SUBROUTINE xios(get_gridgroup_attr_hdl)
[581]	260
[326]	261	SUBROUTINE xios(get_gridgroup_attr_hdl_) &
[1492]	262	( gridgroup_hdl, comment_, description_, group_ref_, mask_0d_, mask_1d_, mask_2d_, mask_3d_ &
	263	, mask_4d_, mask_5d_, mask_6d_, mask_7d_, name_ )
[581]	264
[326]	265	IMPLICIT NONE
	266	TYPE(txios(gridgroup)) , INTENT(IN) :: gridgroup_hdl
[1492]	267	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment_
[326]	268	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: description_
	269	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref_
[1492]	270	LOGICAL , OPTIONAL, INTENT(OUT) :: mask_0d_(:)
	271	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_0d__tmp(:)
[817]	272	LOGICAL , OPTIONAL, INTENT(OUT) :: mask_1d_(:)
	273	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_1d__tmp(:)
	274	LOGICAL , OPTIONAL, INTENT(OUT) :: mask_2d_(:,:)
	275	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_2d__tmp(:,:)
	276	LOGICAL , OPTIONAL, INTENT(OUT) :: mask_3d_(:,:,:)
	277	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_3d__tmp(:,:,:)
[932]	278	LOGICAL , OPTIONAL, INTENT(OUT) :: mask_4d_(:,:,:,:)
	279	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_4d__tmp(:,:,:,:)
	280	LOGICAL , OPTIONAL, INTENT(OUT) :: mask_5d_(:,:,:,:,:)
	281	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_5d__tmp(:,:,:,:,:)
	282	LOGICAL , OPTIONAL, INTENT(OUT) :: mask_6d_(:,:,:,:,:,:)
	283	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_6d__tmp(:,:,:,:,:,:)
	284	LOGICAL , OPTIONAL, INTENT(OUT) :: mask_7d_(:,:,:,:,:,:,:)
	285	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_7d__tmp(:,:,:,:,:,:,:)
[326]	286	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_
[581]	287
[1492]	288	IF (PRESENT(comment_)) THEN
	289	CALL cxios_get_gridgroup_comment &
	290	(gridgroup_hdl%daddr, comment_, len(comment_))
	291	ENDIF
	292
[326]	293	IF (PRESENT(description_)) THEN
[966]	294	CALL cxios_get_gridgroup_description &
	295	(gridgroup_hdl%daddr, description_, len(description_))
[326]	296	ENDIF
[581]	297
[326]	298	IF (PRESENT(group_ref_)) THEN
[966]	299	CALL cxios_get_gridgroup_group_ref &
	300	(gridgroup_hdl%daddr, group_ref_, len(group_ref_))
[326]	301	ENDIF
[581]	302
[1492]	303	IF (PRESENT(mask_0d_)) THEN
	304	ALLOCATE(mask_0d__tmp(SIZE(mask_0d_,1)))
	305	CALL cxios_get_gridgroup_mask_0d &
	306	(gridgroup_hdl%daddr, mask_0d__tmp, SHAPE(mask_0d_))
	307	mask_0d_ = mask_0d__tmp
	308	ENDIF
	309
[817]	310	IF (PRESENT(mask_1d_)) THEN
	311	ALLOCATE(mask_1d__tmp(SIZE(mask_1d_,1)))
[966]	312	CALL cxios_get_gridgroup_mask_1d &
	313	(gridgroup_hdl%daddr, mask_1d__tmp, SHAPE(mask_1d_))
[817]	314	mask_1d_ = mask_1d__tmp
[415]	315	ENDIF
[581]	316
[817]	317	IF (PRESENT(mask_2d_)) THEN
	318	ALLOCATE(mask_2d__tmp(SIZE(mask_2d_,1), SIZE(mask_2d_,2)))
[966]	319	CALL cxios_get_gridgroup_mask_2d &
	320	(gridgroup_hdl%daddr, mask_2d__tmp, SHAPE(mask_2d_))
[817]	321	mask_2d_ = mask_2d__tmp
[567]	322	ENDIF
[581]	323
[817]	324	IF (PRESENT(mask_3d_)) THEN
	325	ALLOCATE(mask_3d__tmp(SIZE(mask_3d_,1), SIZE(mask_3d_,2), SIZE(mask_3d_,3)))
[966]	326	CALL cxios_get_gridgroup_mask_3d &
	327	(gridgroup_hdl%daddr, mask_3d__tmp, SHAPE(mask_3d_))
[817]	328	mask_3d_ = mask_3d__tmp
[567]	329	ENDIF
[581]	330
[932]	331	IF (PRESENT(mask_4d_)) THEN
[966]	332	ALLOCATE(mask_4d__tmp(SIZE(mask_4d_,1), SIZE(mask_4d_,2), SIZE(mask_4d_,3), &
	333	SIZE(mask_4d_,4)))
	334	CALL cxios_get_gridgroup_mask_4d &
	335	(gridgroup_hdl%daddr, mask_4d__tmp, SHAPE(mask_4d_))
[932]	336	mask_4d_ = mask_4d__tmp
	337	ENDIF
	338
	339	IF (PRESENT(mask_5d_)) THEN
[966]	340	ALLOCATE(mask_5d__tmp(SIZE(mask_5d_,1), SIZE(mask_5d_,2), SIZE(mask_5d_,3), &
	341	SIZE(mask_5d_,4), SIZE(mask_5d_,5)))
	342	CALL cxios_get_gridgroup_mask_5d &
	343	(gridgroup_hdl%daddr, mask_5d__tmp, SHAPE(mask_5d_))
[932]	344	mask_5d_ = mask_5d__tmp
	345	ENDIF
	346
	347	IF (PRESENT(mask_6d_)) THEN
[966]	348	ALLOCATE(mask_6d__tmp(SIZE(mask_6d_,1), SIZE(mask_6d_,2), SIZE(mask_6d_,3), &
	349	SIZE(mask_6d_,4), SIZE(mask_6d_,5), SIZE(mask_6d_,6)))
	350	CALL cxios_get_gridgroup_mask_6d &
	351	(gridgroup_hdl%daddr, mask_6d__tmp, SHAPE(mask_6d_))
[932]	352	mask_6d_ = mask_6d__tmp
	353	ENDIF
	354
	355	IF (PRESENT(mask_7d_)) THEN
[966]	356	ALLOCATE(mask_7d__tmp(SIZE(mask_7d_,1), SIZE(mask_7d_,2), SIZE(mask_7d_,3), &
	357	SIZE(mask_7d_,4), SIZE(mask_7d_,5), SIZE(mask_7d_,6), &
	358	SIZE(mask_7d_,7)))
	359	CALL cxios_get_gridgroup_mask_7d &
	360	(gridgroup_hdl%daddr, mask_7d__tmp, SHAPE(mask_7d_))
[932]	361	mask_7d_ = mask_7d__tmp
	362	ENDIF
	363
[326]	364	IF (PRESENT(name_)) THEN
[966]	365	CALL cxios_get_gridgroup_name &
	366	(gridgroup_hdl%daddr, name_, len(name_))
[326]	367	ENDIF
[581]	368
[326]	369	END SUBROUTINE xios(get_gridgroup_attr_hdl_)
[581]	370
[432]	371	SUBROUTINE xios(is_defined_gridgroup_attr) &
[1492]	372	( gridgroup_id, comment, description, group_ref, mask_0d, mask_1d, mask_2d, mask_3d, mask_4d &
	373	, mask_5d, mask_6d, mask_7d, name )
[581]	374
[432]	375	IMPLICIT NONE
	376	TYPE(txios(gridgroup)) :: gridgroup_hdl
	377	CHARACTER(LEN=*), INTENT(IN) ::gridgroup_id
[1492]	378	LOGICAL, OPTIONAL, INTENT(OUT) :: comment
	379	LOGICAL(KIND=C_BOOL) :: comment_tmp
[432]	380	LOGICAL, OPTIONAL, INTENT(OUT) :: description
	381	LOGICAL(KIND=C_BOOL) :: description_tmp
	382	LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref
	383	LOGICAL(KIND=C_BOOL) :: group_ref_tmp
[1492]	384	LOGICAL, OPTIONAL, INTENT(OUT) :: mask_0d
	385	LOGICAL(KIND=C_BOOL) :: mask_0d_tmp
[817]	386	LOGICAL, OPTIONAL, INTENT(OUT) :: mask_1d
	387	LOGICAL(KIND=C_BOOL) :: mask_1d_tmp
	388	LOGICAL, OPTIONAL, INTENT(OUT) :: mask_2d
	389	LOGICAL(KIND=C_BOOL) :: mask_2d_tmp
	390	LOGICAL, OPTIONAL, INTENT(OUT) :: mask_3d
	391	LOGICAL(KIND=C_BOOL) :: mask_3d_tmp
[932]	392	LOGICAL, OPTIONAL, INTENT(OUT) :: mask_4d
	393	LOGICAL(KIND=C_BOOL) :: mask_4d_tmp
	394	LOGICAL, OPTIONAL, INTENT(OUT) :: mask_5d
	395	LOGICAL(KIND=C_BOOL) :: mask_5d_tmp
	396	LOGICAL, OPTIONAL, INTENT(OUT) :: mask_6d
	397	LOGICAL(KIND=C_BOOL) :: mask_6d_tmp
	398	LOGICAL, OPTIONAL, INTENT(OUT) :: mask_7d
	399	LOGICAL(KIND=C_BOOL) :: mask_7d_tmp
[432]	400	LOGICAL, OPTIONAL, INTENT(OUT) :: name
	401	LOGICAL(KIND=C_BOOL) :: name_tmp
[581]	402
[966]	403	CALL xios(get_gridgroup_handle) &
	404	(gridgroup_id,gridgroup_hdl)
[432]	405	CALL xios(is_defined_gridgroup_attr_hdl_) &
[1492]	406	( gridgroup_hdl, comment, description, group_ref, mask_0d, mask_1d, mask_2d, mask_3d, mask_4d &
	407	, mask_5d, mask_6d, mask_7d, name )
[581]	408
[432]	409	END SUBROUTINE xios(is_defined_gridgroup_attr)
[581]	410
[432]	411	SUBROUTINE xios(is_defined_gridgroup_attr_hdl) &
[1492]	412	( gridgroup_hdl, comment, description, group_ref, mask_0d, mask_1d, mask_2d, mask_3d, mask_4d &
	413	, mask_5d, mask_6d, mask_7d, name )
[581]	414
[432]	415	IMPLICIT NONE
	416	TYPE(txios(gridgroup)) , INTENT(IN) :: gridgroup_hdl
[1492]	417	LOGICAL, OPTIONAL, INTENT(OUT) :: comment
	418	LOGICAL(KIND=C_BOOL) :: comment_tmp
[432]	419	LOGICAL, OPTIONAL, INTENT(OUT) :: description
	420	LOGICAL(KIND=C_BOOL) :: description_tmp
	421	LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref
	422	LOGICAL(KIND=C_BOOL) :: group_ref_tmp
[1492]	423	LOGICAL, OPTIONAL, INTENT(OUT) :: mask_0d
	424	LOGICAL(KIND=C_BOOL) :: mask_0d_tmp
[817]	425	LOGICAL, OPTIONAL, INTENT(OUT) :: mask_1d
	426	LOGICAL(KIND=C_BOOL) :: mask_1d_tmp
	427	LOGICAL, OPTIONAL, INTENT(OUT) :: mask_2d
	428	LOGICAL(KIND=C_BOOL) :: mask_2d_tmp
	429	LOGICAL, OPTIONAL, INTENT(OUT) :: mask_3d
	430	LOGICAL(KIND=C_BOOL) :: mask_3d_tmp
[932]	431	LOGICAL, OPTIONAL, INTENT(OUT) :: mask_4d
	432	LOGICAL(KIND=C_BOOL) :: mask_4d_tmp
	433	LOGICAL, OPTIONAL, INTENT(OUT) :: mask_5d
	434	LOGICAL(KIND=C_BOOL) :: mask_5d_tmp
	435	LOGICAL, OPTIONAL, INTENT(OUT) :: mask_6d
	436	LOGICAL(KIND=C_BOOL) :: mask_6d_tmp
	437	LOGICAL, OPTIONAL, INTENT(OUT) :: mask_7d
	438	LOGICAL(KIND=C_BOOL) :: mask_7d_tmp
[432]	439	LOGICAL, OPTIONAL, INTENT(OUT) :: name
	440	LOGICAL(KIND=C_BOOL) :: name_tmp
[581]	441
[432]	442	CALL xios(is_defined_gridgroup_attr_hdl_) &
[1492]	443	( gridgroup_hdl, comment, description, group_ref, mask_0d, mask_1d, mask_2d, mask_3d, mask_4d &
	444	, mask_5d, mask_6d, mask_7d, name )
[581]	445
[432]	446	END SUBROUTINE xios(is_defined_gridgroup_attr_hdl)
[581]	447
[432]	448	SUBROUTINE xios(is_defined_gridgroup_attr_hdl_) &
[1492]	449	( gridgroup_hdl, comment_, description_, group_ref_, mask_0d_, mask_1d_, mask_2d_, mask_3d_ &
	450	, mask_4d_, mask_5d_, mask_6d_, mask_7d_, name_ )
[581]	451
[432]	452	IMPLICIT NONE
	453	TYPE(txios(gridgroup)) , INTENT(IN) :: gridgroup_hdl
[1492]	454	LOGICAL, OPTIONAL, INTENT(OUT) :: comment_
	455	LOGICAL(KIND=C_BOOL) :: comment__tmp
[432]	456	LOGICAL, OPTIONAL, INTENT(OUT) :: description_
	457	LOGICAL(KIND=C_BOOL) :: description__tmp
	458	LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref_
	459	LOGICAL(KIND=C_BOOL) :: group_ref__tmp
[1492]	460	LOGICAL, OPTIONAL, INTENT(OUT) :: mask_0d_
	461	LOGICAL(KIND=C_BOOL) :: mask_0d__tmp
[817]	462	LOGICAL, OPTIONAL, INTENT(OUT) :: mask_1d_
	463	LOGICAL(KIND=C_BOOL) :: mask_1d__tmp
	464	LOGICAL, OPTIONAL, INTENT(OUT) :: mask_2d_
	465	LOGICAL(KIND=C_BOOL) :: mask_2d__tmp
	466	LOGICAL, OPTIONAL, INTENT(OUT) :: mask_3d_
	467	LOGICAL(KIND=C_BOOL) :: mask_3d__tmp
[932]	468	LOGICAL, OPTIONAL, INTENT(OUT) :: mask_4d_
	469	LOGICAL(KIND=C_BOOL) :: mask_4d__tmp
	470	LOGICAL, OPTIONAL, INTENT(OUT) :: mask_5d_
	471	LOGICAL(KIND=C_BOOL) :: mask_5d__tmp
	472	LOGICAL, OPTIONAL, INTENT(OUT) :: mask_6d_
	473	LOGICAL(KIND=C_BOOL) :: mask_6d__tmp
	474	LOGICAL, OPTIONAL, INTENT(OUT) :: mask_7d_
	475	LOGICAL(KIND=C_BOOL) :: mask_7d__tmp
[432]	476	LOGICAL, OPTIONAL, INTENT(OUT) :: name_
	477	LOGICAL(KIND=C_BOOL) :: name__tmp
[581]	478
[1492]	479	IF (PRESENT(comment_)) THEN
	480	comment__tmp = cxios_is_defined_gridgroup_comment &
	481	(gridgroup_hdl%daddr)
	482	comment_ = comment__tmp
	483	ENDIF
	484
[432]	485	IF (PRESENT(description_)) THEN
[966]	486	description__tmp = cxios_is_defined_gridgroup_description &
	487	(gridgroup_hdl%daddr)
[581]	488	description_ = description__tmp
[432]	489	ENDIF
[581]	490
[432]	491	IF (PRESENT(group_ref_)) THEN
[966]	492	group_ref__tmp = cxios_is_defined_gridgroup_group_ref &
	493	(gridgroup_hdl%daddr)
[581]	494	group_ref_ = group_ref__tmp
[432]	495	ENDIF
[581]	496
[1492]	497	IF (PRESENT(mask_0d_)) THEN
	498	mask_0d__tmp = cxios_is_defined_gridgroup_mask_0d &
	499	(gridgroup_hdl%daddr)
	500	mask_0d_ = mask_0d__tmp
	501	ENDIF
	502
[817]	503	IF (PRESENT(mask_1d_)) THEN
[966]	504	mask_1d__tmp = cxios_is_defined_gridgroup_mask_1d &
	505	(gridgroup_hdl%daddr)
[817]	506	mask_1d_ = mask_1d__tmp
[432]	507	ENDIF
[581]	508
[817]	509	IF (PRESENT(mask_2d_)) THEN
[966]	510	mask_2d__tmp = cxios_is_defined_gridgroup_mask_2d &
	511	(gridgroup_hdl%daddr)
[817]	512	mask_2d_ = mask_2d__tmp
[567]	513	ENDIF
[581]	514
[817]	515	IF (PRESENT(mask_3d_)) THEN
[966]	516	mask_3d__tmp = cxios_is_defined_gridgroup_mask_3d &
	517	(gridgroup_hdl%daddr)
[817]	518	mask_3d_ = mask_3d__tmp
[567]	519	ENDIF
[581]	520
[932]	521	IF (PRESENT(mask_4d_)) THEN
[966]	522	mask_4d__tmp = cxios_is_defined_gridgroup_mask_4d &
	523	(gridgroup_hdl%daddr)
[932]	524	mask_4d_ = mask_4d__tmp
	525	ENDIF
	526
	527	IF (PRESENT(mask_5d_)) THEN
[966]	528	mask_5d__tmp = cxios_is_defined_gridgroup_mask_5d &
	529	(gridgroup_hdl%daddr)
[932]	530	mask_5d_ = mask_5d__tmp
	531	ENDIF
	532
	533	IF (PRESENT(mask_6d_)) THEN
[966]	534	mask_6d__tmp = cxios_is_defined_gridgroup_mask_6d &
	535	(gridgroup_hdl%daddr)
[932]	536	mask_6d_ = mask_6d__tmp
	537	ENDIF
	538
	539	IF (PRESENT(mask_7d_)) THEN
[966]	540	mask_7d__tmp = cxios_is_defined_gridgroup_mask_7d &
	541	(gridgroup_hdl%daddr)
[932]	542	mask_7d_ = mask_7d__tmp
	543	ENDIF
	544
[432]	545	IF (PRESENT(name_)) THEN
[966]	546	name__tmp = cxios_is_defined_gridgroup_name &
	547	(gridgroup_hdl%daddr)
[581]	548	name_ = name__tmp
[432]	549	ENDIF
[581]	550
[432]	551	END SUBROUTINE xios(is_defined_gridgroup_attr_hdl_)
[581]	552
[326]	553	END MODULE igridgroup_attr

Note: See TracBrowser for help on using the repository browser.

Download in other formats: