Context Navigation

igrid_attr.F90 @ 1205

Last change on this file since 1205 was 966, checked in by mhnguyen, 8 years ago

Reducing length of line of auto-generate Fortran interface

+) Break line into smaller ones to make sure each line is not longer than 132 character

Test
+) Local with gcc4.8
+) Compilation passed

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

Rev	Line
[326]	1	! * ************************************************************************** *
	2	! * Interface auto generated - do not modify *
	3	! * ************************************************************************** *
	4	#include "xios_fortran_prefix.hpp"
	5
	6	MODULE igrid_attr
	7	USE, INTRINSIC :: ISO_C_BINDING
	8	USE igrid
	9	USE grid_interface_attr
[581]	10
[326]	11	CONTAINS
[581]	12
[326]	13	SUBROUTINE xios(set_grid_attr) &
[932]	14	( grid_id, description, mask_1d, mask_2d, mask_3d, mask_4d, mask_5d, mask_6d, mask_7d, name &
	15	)
[581]	16
[326]	17	IMPLICIT NONE
	18	TYPE(txios(grid)) :: grid_hdl
	19	CHARACTER(LEN=*), INTENT(IN) ::grid_id
	20	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: description
[817]	21	LOGICAL , OPTIONAL, INTENT(IN) :: mask_1d(:)
	22	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_1d_tmp(:)
	23	LOGICAL , OPTIONAL, INTENT(IN) :: mask_2d(:,:)
	24	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_2d_tmp(:,:)
	25	LOGICAL , OPTIONAL, INTENT(IN) :: mask_3d(:,:,:)
	26	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_3d_tmp(:,:,:)
[932]	27	LOGICAL , OPTIONAL, INTENT(IN) :: mask_4d(:,:,:,:)
	28	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_4d_tmp(:,:,:,:)
	29	LOGICAL , OPTIONAL, INTENT(IN) :: mask_5d(:,:,:,:,:)
	30	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_5d_tmp(:,:,:,:,:)
	31	LOGICAL , OPTIONAL, INTENT(IN) :: mask_6d(:,:,:,:,:,:)
	32	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_6d_tmp(:,:,:,:,:,:)
	33	LOGICAL , OPTIONAL, INTENT(IN) :: mask_7d(:,:,:,:,:,:,:)
	34	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_7d_tmp(:,:,:,:,:,:,:)
[326]	35	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
[581]	36
[966]	37	CALL xios(get_grid_handle) &
	38	(grid_id,grid_hdl)
[326]	39	CALL xios(set_grid_attr_hdl_) &
[932]	40	( grid_hdl, description, mask_1d, mask_2d, mask_3d, mask_4d, mask_5d, mask_6d, mask_7d, name &
	41	)
[581]	42
[326]	43	END SUBROUTINE xios(set_grid_attr)
[581]	44
[326]	45	SUBROUTINE xios(set_grid_attr_hdl) &
[932]	46	( grid_hdl, description, mask_1d, mask_2d, mask_3d, mask_4d, mask_5d, mask_6d, mask_7d, name &
	47	)
[581]	48
[326]	49	IMPLICIT NONE
	50	TYPE(txios(grid)) , INTENT(IN) :: grid_hdl
	51	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: description
[817]	52	LOGICAL , OPTIONAL, INTENT(IN) :: mask_1d(:)
	53	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_1d_tmp(:)
	54	LOGICAL , OPTIONAL, INTENT(IN) :: mask_2d(:,:)
	55	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_2d_tmp(:,:)
	56	LOGICAL , OPTIONAL, INTENT(IN) :: mask_3d(:,:,:)
	57	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_3d_tmp(:,:,:)
[932]	58	LOGICAL , OPTIONAL, INTENT(IN) :: mask_4d(:,:,:,:)
	59	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_4d_tmp(:,:,:,:)
	60	LOGICAL , OPTIONAL, INTENT(IN) :: mask_5d(:,:,:,:,:)
	61	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_5d_tmp(:,:,:,:,:)
	62	LOGICAL , OPTIONAL, INTENT(IN) :: mask_6d(:,:,:,:,:,:)
	63	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_6d_tmp(:,:,:,:,:,:)
	64	LOGICAL , OPTIONAL, INTENT(IN) :: mask_7d(:,:,:,:,:,:,:)
	65	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_7d_tmp(:,:,:,:,:,:,:)
[326]	66	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
[581]	67
[326]	68	CALL xios(set_grid_attr_hdl_) &
[932]	69	( grid_hdl, description, mask_1d, mask_2d, mask_3d, mask_4d, mask_5d, mask_6d, mask_7d, name &
	70	)
[581]	71
[326]	72	END SUBROUTINE xios(set_grid_attr_hdl)
[581]	73
[326]	74	SUBROUTINE xios(set_grid_attr_hdl_) &
[932]	75	( grid_hdl, description_, mask_1d_, mask_2d_, mask_3d_, mask_4d_, mask_5d_, mask_6d_, mask_7d_ &
	76	, name_ )
[581]	77
[326]	78	IMPLICIT NONE
	79	TYPE(txios(grid)) , INTENT(IN) :: grid_hdl
	80	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: description_
[817]	81	LOGICAL , OPTIONAL, INTENT(IN) :: mask_1d_(:)
	82	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_1d__tmp(:)
	83	LOGICAL , OPTIONAL, INTENT(IN) :: mask_2d_(:,:)
	84	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_2d__tmp(:,:)
	85	LOGICAL , OPTIONAL, INTENT(IN) :: mask_3d_(:,:,:)
	86	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_3d__tmp(:,:,:)
[932]	87	LOGICAL , OPTIONAL, INTENT(IN) :: mask_4d_(:,:,:,:)
	88	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_4d__tmp(:,:,:,:)
	89	LOGICAL , OPTIONAL, INTENT(IN) :: mask_5d_(:,:,:,:,:)
	90	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_5d__tmp(:,:,:,:,:)
	91	LOGICAL , OPTIONAL, INTENT(IN) :: mask_6d_(:,:,:,:,:,:)
	92	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_6d__tmp(:,:,:,:,:,:)
	93	LOGICAL , OPTIONAL, INTENT(IN) :: mask_7d_(:,:,:,:,:,:,:)
	94	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_7d__tmp(:,:,:,:,:,:,:)
[326]	95	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_
[581]	96
[326]	97	IF (PRESENT(description_)) THEN
[966]	98	CALL cxios_set_grid_description &
	99	(grid_hdl%daddr, description_, len(description_))
[326]	100	ENDIF
[581]	101
[817]	102	IF (PRESENT(mask_1d_)) THEN
	103	ALLOCATE(mask_1d__tmp(SIZE(mask_1d_,1)))
	104	mask_1d__tmp = mask_1d_
[966]	105	CALL cxios_set_grid_mask_1d &
	106	(grid_hdl%daddr, mask_1d__tmp, SHAPE(mask_1d_))
[415]	107	ENDIF
[581]	108
[817]	109	IF (PRESENT(mask_2d_)) THEN
	110	ALLOCATE(mask_2d__tmp(SIZE(mask_2d_,1), SIZE(mask_2d_,2)))
	111	mask_2d__tmp = mask_2d_
[966]	112	CALL cxios_set_grid_mask_2d &
	113	(grid_hdl%daddr, mask_2d__tmp, SHAPE(mask_2d_))
[567]	114	ENDIF
[581]	115
[817]	116	IF (PRESENT(mask_3d_)) THEN
	117	ALLOCATE(mask_3d__tmp(SIZE(mask_3d_,1), SIZE(mask_3d_,2), SIZE(mask_3d_,3)))
	118	mask_3d__tmp = mask_3d_
[966]	119	CALL cxios_set_grid_mask_3d &
	120	(grid_hdl%daddr, mask_3d__tmp, SHAPE(mask_3d_))
[567]	121	ENDIF
[581]	122
[932]	123	IF (PRESENT(mask_4d_)) THEN
[966]	124	ALLOCATE(mask_4d__tmp(SIZE(mask_4d_,1), SIZE(mask_4d_,2), SIZE(mask_4d_,3), &
	125	SIZE(mask_4d_,4)))
[932]	126	mask_4d__tmp = mask_4d_
[966]	127	CALL cxios_set_grid_mask_4d &
	128	(grid_hdl%daddr, mask_4d__tmp, SHAPE(mask_4d_))
[932]	129	ENDIF
	130
	131	IF (PRESENT(mask_5d_)) THEN
[966]	132	ALLOCATE(mask_5d__tmp(SIZE(mask_5d_,1), SIZE(mask_5d_,2), SIZE(mask_5d_,3), &
	133	SIZE(mask_5d_,4), SIZE(mask_5d_,5)))
[932]	134	mask_5d__tmp = mask_5d_
[966]	135	CALL cxios_set_grid_mask_5d &
	136	(grid_hdl%daddr, mask_5d__tmp, SHAPE(mask_5d_))
[932]	137	ENDIF
	138
	139	IF (PRESENT(mask_6d_)) THEN
[966]	140	ALLOCATE(mask_6d__tmp(SIZE(mask_6d_,1), SIZE(mask_6d_,2), SIZE(mask_6d_,3), &
	141	SIZE(mask_6d_,4), SIZE(mask_6d_,5), SIZE(mask_6d_,6)))
[932]	142	mask_6d__tmp = mask_6d_
[966]	143	CALL cxios_set_grid_mask_6d &
	144	(grid_hdl%daddr, mask_6d__tmp, SHAPE(mask_6d_))
[932]	145	ENDIF
	146
	147	IF (PRESENT(mask_7d_)) THEN
[966]	148	ALLOCATE(mask_7d__tmp(SIZE(mask_7d_,1), SIZE(mask_7d_,2), SIZE(mask_7d_,3), &
	149	SIZE(mask_7d_,4), SIZE(mask_7d_,5), SIZE(mask_7d_,6), &
	150	SIZE(mask_7d_,7)))
[932]	151	mask_7d__tmp = mask_7d_
[966]	152	CALL cxios_set_grid_mask_7d &
	153	(grid_hdl%daddr, mask_7d__tmp, SHAPE(mask_7d_))
[932]	154	ENDIF
	155
[326]	156	IF (PRESENT(name_)) THEN
[966]	157	CALL cxios_set_grid_name &
	158	(grid_hdl%daddr, name_, len(name_))
[326]	159	ENDIF
[581]	160
[326]	161	END SUBROUTINE xios(set_grid_attr_hdl_)
[581]	162
[326]	163	SUBROUTINE xios(get_grid_attr) &
[932]	164	( grid_id, description, mask_1d, mask_2d, mask_3d, mask_4d, mask_5d, mask_6d, mask_7d, name &
	165	)
[581]	166
[326]	167	IMPLICIT NONE
	168	TYPE(txios(grid)) :: grid_hdl
	169	CHARACTER(LEN=*), INTENT(IN) ::grid_id
	170	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: description
[817]	171	LOGICAL , OPTIONAL, INTENT(OUT) :: mask_1d(:)
	172	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_1d_tmp(:)
	173	LOGICAL , OPTIONAL, INTENT(OUT) :: mask_2d(:,:)
	174	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_2d_tmp(:,:)
	175	LOGICAL , OPTIONAL, INTENT(OUT) :: mask_3d(:,:,:)
	176	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_3d_tmp(:,:,:)
[932]	177	LOGICAL , OPTIONAL, INTENT(OUT) :: mask_4d(:,:,:,:)
	178	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_4d_tmp(:,:,:,:)
	179	LOGICAL , OPTIONAL, INTENT(OUT) :: mask_5d(:,:,:,:,:)
	180	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_5d_tmp(:,:,:,:,:)
	181	LOGICAL , OPTIONAL, INTENT(OUT) :: mask_6d(:,:,:,:,:,:)
	182	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_6d_tmp(:,:,:,:,:,:)
	183	LOGICAL , OPTIONAL, INTENT(OUT) :: mask_7d(:,:,:,:,:,:,:)
	184	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_7d_tmp(:,:,:,:,:,:,:)
[326]	185	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
[581]	186
[966]	187	CALL xios(get_grid_handle) &
	188	(grid_id,grid_hdl)
[326]	189	CALL xios(get_grid_attr_hdl_) &
[932]	190	( grid_hdl, description, mask_1d, mask_2d, mask_3d, mask_4d, mask_5d, mask_6d, mask_7d, name &
	191	)
[581]	192
[326]	193	END SUBROUTINE xios(get_grid_attr)
[581]	194
[326]	195	SUBROUTINE xios(get_grid_attr_hdl) &
[932]	196	( grid_hdl, description, mask_1d, mask_2d, mask_3d, mask_4d, mask_5d, mask_6d, mask_7d, name &
	197	)
[581]	198
[326]	199	IMPLICIT NONE
	200	TYPE(txios(grid)) , INTENT(IN) :: grid_hdl
	201	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: description
[817]	202	LOGICAL , OPTIONAL, INTENT(OUT) :: mask_1d(:)
	203	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_1d_tmp(:)
	204	LOGICAL , OPTIONAL, INTENT(OUT) :: mask_2d(:,:)
	205	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_2d_tmp(:,:)
	206	LOGICAL , OPTIONAL, INTENT(OUT) :: mask_3d(:,:,:)
	207	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_3d_tmp(:,:,:)
[932]	208	LOGICAL , OPTIONAL, INTENT(OUT) :: mask_4d(:,:,:,:)
	209	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_4d_tmp(:,:,:,:)
	210	LOGICAL , OPTIONAL, INTENT(OUT) :: mask_5d(:,:,:,:,:)
	211	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_5d_tmp(:,:,:,:,:)
	212	LOGICAL , OPTIONAL, INTENT(OUT) :: mask_6d(:,:,:,:,:,:)
	213	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_6d_tmp(:,:,:,:,:,:)
	214	LOGICAL , OPTIONAL, INTENT(OUT) :: mask_7d(:,:,:,:,:,:,:)
	215	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_7d_tmp(:,:,:,:,:,:,:)
[326]	216	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
[581]	217
[326]	218	CALL xios(get_grid_attr_hdl_) &
[932]	219	( grid_hdl, description, mask_1d, mask_2d, mask_3d, mask_4d, mask_5d, mask_6d, mask_7d, name &
	220	)
[581]	221
[326]	222	END SUBROUTINE xios(get_grid_attr_hdl)
[581]	223
[326]	224	SUBROUTINE xios(get_grid_attr_hdl_) &
[932]	225	( grid_hdl, description_, mask_1d_, mask_2d_, mask_3d_, mask_4d_, mask_5d_, mask_6d_, mask_7d_ &
	226	, name_ )
[581]	227
[326]	228	IMPLICIT NONE
	229	TYPE(txios(grid)) , INTENT(IN) :: grid_hdl
	230	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: description_
[817]	231	LOGICAL , OPTIONAL, INTENT(OUT) :: mask_1d_(:)
	232	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_1d__tmp(:)
	233	LOGICAL , OPTIONAL, INTENT(OUT) :: mask_2d_(:,:)
	234	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_2d__tmp(:,:)
	235	LOGICAL , OPTIONAL, INTENT(OUT) :: mask_3d_(:,:,:)
	236	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_3d__tmp(:,:,:)
[932]	237	LOGICAL , OPTIONAL, INTENT(OUT) :: mask_4d_(:,:,:,:)
	238	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_4d__tmp(:,:,:,:)
	239	LOGICAL , OPTIONAL, INTENT(OUT) :: mask_5d_(:,:,:,:,:)
	240	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_5d__tmp(:,:,:,:,:)
	241	LOGICAL , OPTIONAL, INTENT(OUT) :: mask_6d_(:,:,:,:,:,:)
	242	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_6d__tmp(:,:,:,:,:,:)
	243	LOGICAL , OPTIONAL, INTENT(OUT) :: mask_7d_(:,:,:,:,:,:,:)
	244	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_7d__tmp(:,:,:,:,:,:,:)
[326]	245	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_
[581]	246
[326]	247	IF (PRESENT(description_)) THEN
[966]	248	CALL cxios_get_grid_description &
	249	(grid_hdl%daddr, description_, len(description_))
[326]	250	ENDIF
[581]	251
[817]	252	IF (PRESENT(mask_1d_)) THEN
	253	ALLOCATE(mask_1d__tmp(SIZE(mask_1d_,1)))
[966]	254	CALL cxios_get_grid_mask_1d &
	255	(grid_hdl%daddr, mask_1d__tmp, SHAPE(mask_1d_))
[817]	256	mask_1d_ = mask_1d__tmp
[415]	257	ENDIF
[581]	258
[817]	259	IF (PRESENT(mask_2d_)) THEN
	260	ALLOCATE(mask_2d__tmp(SIZE(mask_2d_,1), SIZE(mask_2d_,2)))
[966]	261	CALL cxios_get_grid_mask_2d &
	262	(grid_hdl%daddr, mask_2d__tmp, SHAPE(mask_2d_))
[817]	263	mask_2d_ = mask_2d__tmp
[567]	264	ENDIF
[581]	265
[817]	266	IF (PRESENT(mask_3d_)) THEN
	267	ALLOCATE(mask_3d__tmp(SIZE(mask_3d_,1), SIZE(mask_3d_,2), SIZE(mask_3d_,3)))
[966]	268	CALL cxios_get_grid_mask_3d &
	269	(grid_hdl%daddr, mask_3d__tmp, SHAPE(mask_3d_))
[817]	270	mask_3d_ = mask_3d__tmp
[567]	271	ENDIF
[581]	272
[932]	273	IF (PRESENT(mask_4d_)) THEN
[966]	274	ALLOCATE(mask_4d__tmp(SIZE(mask_4d_,1), SIZE(mask_4d_,2), SIZE(mask_4d_,3), &
	275	SIZE(mask_4d_,4)))
	276	CALL cxios_get_grid_mask_4d &
	277	(grid_hdl%daddr, mask_4d__tmp, SHAPE(mask_4d_))
[932]	278	mask_4d_ = mask_4d__tmp
	279	ENDIF
	280
	281	IF (PRESENT(mask_5d_)) THEN
[966]	282	ALLOCATE(mask_5d__tmp(SIZE(mask_5d_,1), SIZE(mask_5d_,2), SIZE(mask_5d_,3), &
	283	SIZE(mask_5d_,4), SIZE(mask_5d_,5)))
	284	CALL cxios_get_grid_mask_5d &
	285	(grid_hdl%daddr, mask_5d__tmp, SHAPE(mask_5d_))
[932]	286	mask_5d_ = mask_5d__tmp
	287	ENDIF
	288
	289	IF (PRESENT(mask_6d_)) THEN
[966]	290	ALLOCATE(mask_6d__tmp(SIZE(mask_6d_,1), SIZE(mask_6d_,2), SIZE(mask_6d_,3), &
	291	SIZE(mask_6d_,4), SIZE(mask_6d_,5), SIZE(mask_6d_,6)))
	292	CALL cxios_get_grid_mask_6d &
	293	(grid_hdl%daddr, mask_6d__tmp, SHAPE(mask_6d_))
[932]	294	mask_6d_ = mask_6d__tmp
	295	ENDIF
	296
	297	IF (PRESENT(mask_7d_)) THEN
[966]	298	ALLOCATE(mask_7d__tmp(SIZE(mask_7d_,1), SIZE(mask_7d_,2), SIZE(mask_7d_,3), &
	299	SIZE(mask_7d_,4), SIZE(mask_7d_,5), SIZE(mask_7d_,6), &
	300	SIZE(mask_7d_,7)))
	301	CALL cxios_get_grid_mask_7d &
	302	(grid_hdl%daddr, mask_7d__tmp, SHAPE(mask_7d_))
[932]	303	mask_7d_ = mask_7d__tmp
	304	ENDIF
	305
[326]	306	IF (PRESENT(name_)) THEN
[966]	307	CALL cxios_get_grid_name &
	308	(grid_hdl%daddr, name_, len(name_))
[326]	309	ENDIF
[581]	310
[326]	311	END SUBROUTINE xios(get_grid_attr_hdl_)
[581]	312
[432]	313	SUBROUTINE xios(is_defined_grid_attr) &
[932]	314	( grid_id, description, mask_1d, mask_2d, mask_3d, mask_4d, mask_5d, mask_6d, mask_7d, name &
	315	)
[581]	316
[432]	317	IMPLICIT NONE
	318	TYPE(txios(grid)) :: grid_hdl
	319	CHARACTER(LEN=*), INTENT(IN) ::grid_id
	320	LOGICAL, OPTIONAL, INTENT(OUT) :: description
	321	LOGICAL(KIND=C_BOOL) :: description_tmp
[817]	322	LOGICAL, OPTIONAL, INTENT(OUT) :: mask_1d
	323	LOGICAL(KIND=C_BOOL) :: mask_1d_tmp
	324	LOGICAL, OPTIONAL, INTENT(OUT) :: mask_2d
	325	LOGICAL(KIND=C_BOOL) :: mask_2d_tmp
	326	LOGICAL, OPTIONAL, INTENT(OUT) :: mask_3d
	327	LOGICAL(KIND=C_BOOL) :: mask_3d_tmp
[932]	328	LOGICAL, OPTIONAL, INTENT(OUT) :: mask_4d
	329	LOGICAL(KIND=C_BOOL) :: mask_4d_tmp
	330	LOGICAL, OPTIONAL, INTENT(OUT) :: mask_5d
	331	LOGICAL(KIND=C_BOOL) :: mask_5d_tmp
	332	LOGICAL, OPTIONAL, INTENT(OUT) :: mask_6d
	333	LOGICAL(KIND=C_BOOL) :: mask_6d_tmp
	334	LOGICAL, OPTIONAL, INTENT(OUT) :: mask_7d
	335	LOGICAL(KIND=C_BOOL) :: mask_7d_tmp
[432]	336	LOGICAL, OPTIONAL, INTENT(OUT) :: name
	337	LOGICAL(KIND=C_BOOL) :: name_tmp
[581]	338
[966]	339	CALL xios(get_grid_handle) &
	340	(grid_id,grid_hdl)
[432]	341	CALL xios(is_defined_grid_attr_hdl_) &
[932]	342	( grid_hdl, description, mask_1d, mask_2d, mask_3d, mask_4d, mask_5d, mask_6d, mask_7d, name &
	343	)
[581]	344
[432]	345	END SUBROUTINE xios(is_defined_grid_attr)
[581]	346
[432]	347	SUBROUTINE xios(is_defined_grid_attr_hdl) &
[932]	348	( grid_hdl, description, mask_1d, mask_2d, mask_3d, mask_4d, mask_5d, mask_6d, mask_7d, name &
	349	)
[581]	350
[432]	351	IMPLICIT NONE
	352	TYPE(txios(grid)) , INTENT(IN) :: grid_hdl
	353	LOGICAL, OPTIONAL, INTENT(OUT) :: description
	354	LOGICAL(KIND=C_BOOL) :: description_tmp
[817]	355	LOGICAL, OPTIONAL, INTENT(OUT) :: mask_1d
	356	LOGICAL(KIND=C_BOOL) :: mask_1d_tmp
	357	LOGICAL, OPTIONAL, INTENT(OUT) :: mask_2d
	358	LOGICAL(KIND=C_BOOL) :: mask_2d_tmp
	359	LOGICAL, OPTIONAL, INTENT(OUT) :: mask_3d
	360	LOGICAL(KIND=C_BOOL) :: mask_3d_tmp
[932]	361	LOGICAL, OPTIONAL, INTENT(OUT) :: mask_4d
	362	LOGICAL(KIND=C_BOOL) :: mask_4d_tmp
	363	LOGICAL, OPTIONAL, INTENT(OUT) :: mask_5d
	364	LOGICAL(KIND=C_BOOL) :: mask_5d_tmp
	365	LOGICAL, OPTIONAL, INTENT(OUT) :: mask_6d
	366	LOGICAL(KIND=C_BOOL) :: mask_6d_tmp
	367	LOGICAL, OPTIONAL, INTENT(OUT) :: mask_7d
	368	LOGICAL(KIND=C_BOOL) :: mask_7d_tmp
[432]	369	LOGICAL, OPTIONAL, INTENT(OUT) :: name
	370	LOGICAL(KIND=C_BOOL) :: name_tmp
[581]	371
[432]	372	CALL xios(is_defined_grid_attr_hdl_) &
[932]	373	( grid_hdl, description, mask_1d, mask_2d, mask_3d, mask_4d, mask_5d, mask_6d, mask_7d, name &
	374	)
[581]	375
[432]	376	END SUBROUTINE xios(is_defined_grid_attr_hdl)
[581]	377
[432]	378	SUBROUTINE xios(is_defined_grid_attr_hdl_) &
[932]	379	( grid_hdl, description_, mask_1d_, mask_2d_, mask_3d_, mask_4d_, mask_5d_, mask_6d_, mask_7d_ &
	380	, name_ )
[581]	381
[432]	382	IMPLICIT NONE
	383	TYPE(txios(grid)) , INTENT(IN) :: grid_hdl
	384	LOGICAL, OPTIONAL, INTENT(OUT) :: description_
	385	LOGICAL(KIND=C_BOOL) :: description__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
[432]	403	IF (PRESENT(description_)) THEN
[966]	404	description__tmp = cxios_is_defined_grid_description &
	405	(grid_hdl%daddr)
[581]	406	description_ = description__tmp
[432]	407	ENDIF
[581]	408
[817]	409	IF (PRESENT(mask_1d_)) THEN
[966]	410	mask_1d__tmp = cxios_is_defined_grid_mask_1d &
	411	(grid_hdl%daddr)
[817]	412	mask_1d_ = mask_1d__tmp
[432]	413	ENDIF
[581]	414
[817]	415	IF (PRESENT(mask_2d_)) THEN
[966]	416	mask_2d__tmp = cxios_is_defined_grid_mask_2d &
	417	(grid_hdl%daddr)
[817]	418	mask_2d_ = mask_2d__tmp
[567]	419	ENDIF
[581]	420
[817]	421	IF (PRESENT(mask_3d_)) THEN
[966]	422	mask_3d__tmp = cxios_is_defined_grid_mask_3d &
	423	(grid_hdl%daddr)
[817]	424	mask_3d_ = mask_3d__tmp
[567]	425	ENDIF
[581]	426
[932]	427	IF (PRESENT(mask_4d_)) THEN
[966]	428	mask_4d__tmp = cxios_is_defined_grid_mask_4d &
	429	(grid_hdl%daddr)
[932]	430	mask_4d_ = mask_4d__tmp
	431	ENDIF
	432
	433	IF (PRESENT(mask_5d_)) THEN
[966]	434	mask_5d__tmp = cxios_is_defined_grid_mask_5d &
	435	(grid_hdl%daddr)
[932]	436	mask_5d_ = mask_5d__tmp
	437	ENDIF
	438
	439	IF (PRESENT(mask_6d_)) THEN
[966]	440	mask_6d__tmp = cxios_is_defined_grid_mask_6d &
	441	(grid_hdl%daddr)
[932]	442	mask_6d_ = mask_6d__tmp
	443	ENDIF
	444
	445	IF (PRESENT(mask_7d_)) THEN
[966]	446	mask_7d__tmp = cxios_is_defined_grid_mask_7d &
	447	(grid_hdl%daddr)
[932]	448	mask_7d_ = mask_7d__tmp
	449	ENDIF
	450
[432]	451	IF (PRESENT(name_)) THEN
[966]	452	name__tmp = cxios_is_defined_grid_name &
	453	(grid_hdl%daddr)
[581]	454	name_ = name__tmp
[432]	455	ENDIF
[581]	456
[432]	457	END SUBROUTINE xios(is_defined_grid_attr_hdl_)
[581]	458
[326]	459	END MODULE igrid_attr

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

Context Navigation

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

Download in other formats: