Context Navigation

iaxis_attr.F90 @ 817

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

Adding some attributes for axis and grid (ticket 71, 78)

+) Add index attribute for axis
+) Change mask?d to mask_?d for grid

Test
+) On Curie
+) Test passes

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.1 KB

Rev	Line
[326]	1	! * ************************************************************************** *
	2	! * Interface auto generated - do not modify *
	3	! * ************************************************************************** *
	4	#include "xios_fortran_prefix.hpp"
	5
	6	MODULE iaxis_attr
	7	USE, INTRINSIC :: ISO_C_BINDING
	8	USE iaxis
	9	USE axis_interface_attr
[581]	10
[326]	11	CONTAINS
[581]	12
[326]	13	SUBROUTINE xios(set_axis_attr) &
[817]	14	( axis_id, axis_ref, begin, bounds, data_begin, data_index, data_n, index, long_name, mask, n &
	15	, n_distributed_partition, n_glo, name, positive, standard_name, unit, value )
[581]	16
[326]	17	IMPLICIT NONE
	18	TYPE(txios(axis)) :: axis_hdl
	19	CHARACTER(LEN=*), INTENT(IN) ::axis_id
[546]	20	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref
[666]	21	INTEGER , OPTIONAL, INTENT(IN) :: begin
[609]	22	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds(:,:)
[555]	23	INTEGER , OPTIONAL, INTENT(IN) :: data_begin
	24	INTEGER , OPTIONAL, INTENT(IN) :: data_index(:)
	25	INTEGER , OPTIONAL, INTENT(IN) :: data_n
[817]	26	INTEGER , OPTIONAL, INTENT(IN) :: index(:)
[326]	27	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name
[555]	28	LOGICAL , OPTIONAL, INTENT(IN) :: mask(:)
	29	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_tmp(:)
[666]	30	INTEGER , OPTIONAL, INTENT(IN) :: n
[779]	31	INTEGER , OPTIONAL, INTENT(IN) :: n_distributed_partition
[666]	32	INTEGER , OPTIONAL, INTENT(IN) :: n_glo
[326]	33	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
[415]	34	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: positive
[326]	35	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name
	36	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: unit
	37	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: value(:)
[581]	38
[326]	39	CALL xios(get_axis_handle)(axis_id,axis_hdl)
	40	CALL xios(set_axis_attr_hdl_) &
[817]	41	( axis_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, index, long_name, mask &
	42	, n, n_distributed_partition, n_glo, name, positive, standard_name, unit, value )
[581]	43
[326]	44	END SUBROUTINE xios(set_axis_attr)
[581]	45
[326]	46	SUBROUTINE xios(set_axis_attr_hdl) &
[817]	47	( axis_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, index, long_name, mask &
	48	, n, n_distributed_partition, n_glo, name, positive, standard_name, unit, value )
[581]	49
[326]	50	IMPLICIT NONE
	51	TYPE(txios(axis)) , INTENT(IN) :: axis_hdl
[546]	52	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref
[666]	53	INTEGER , OPTIONAL, INTENT(IN) :: begin
[609]	54	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds(:,:)
[555]	55	INTEGER , OPTIONAL, INTENT(IN) :: data_begin
	56	INTEGER , OPTIONAL, INTENT(IN) :: data_index(:)
	57	INTEGER , OPTIONAL, INTENT(IN) :: data_n
[817]	58	INTEGER , OPTIONAL, INTENT(IN) :: index(:)
[326]	59	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name
[555]	60	LOGICAL , OPTIONAL, INTENT(IN) :: mask(:)
	61	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_tmp(:)
[666]	62	INTEGER , OPTIONAL, INTENT(IN) :: n
[779]	63	INTEGER , OPTIONAL, INTENT(IN) :: n_distributed_partition
[666]	64	INTEGER , OPTIONAL, INTENT(IN) :: n_glo
[326]	65	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
[415]	66	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: positive
[326]	67	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name
	68	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: unit
	69	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: value(:)
[581]	70
[326]	71	CALL xios(set_axis_attr_hdl_) &
[817]	72	( axis_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, index, long_name, mask &
	73	, n, n_distributed_partition, n_glo, name, positive, standard_name, unit, value )
[581]	74
[326]	75	END SUBROUTINE xios(set_axis_attr_hdl)
[581]	76
[326]	77	SUBROUTINE xios(set_axis_attr_hdl_) &
[817]	78	( axis_hdl, axis_ref_, begin_, bounds_, data_begin_, data_index_, data_n_, index_, long_name_ &
	79	, mask_, n_, n_distributed_partition_, n_glo_, name_, positive_, standard_name_, unit_, value_ &
	80	)
[581]	81
[326]	82	IMPLICIT NONE
	83	TYPE(txios(axis)) , INTENT(IN) :: axis_hdl
[546]	84	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref_
[666]	85	INTEGER , OPTIONAL, INTENT(IN) :: begin_
[609]	86	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_(:,:)
[555]	87	INTEGER , OPTIONAL, INTENT(IN) :: data_begin_
	88	INTEGER , OPTIONAL, INTENT(IN) :: data_index_(:)
	89	INTEGER , OPTIONAL, INTENT(IN) :: data_n_
[817]	90	INTEGER , OPTIONAL, INTENT(IN) :: index_(:)
[326]	91	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name_
[555]	92	LOGICAL , OPTIONAL, INTENT(IN) :: mask_(:)
	93	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask__tmp(:)
[666]	94	INTEGER , OPTIONAL, INTENT(IN) :: n_
[779]	95	INTEGER , OPTIONAL, INTENT(IN) :: n_distributed_partition_
[666]	96	INTEGER , OPTIONAL, INTENT(IN) :: n_glo_
[326]	97	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_
[415]	98	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: positive_
[326]	99	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name_
	100	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: unit_
	101	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: value_(:)
[581]	102
[546]	103	IF (PRESENT(axis_ref_)) THEN
	104	CALL cxios_set_axis_axis_ref(axis_hdl%daddr, axis_ref_, len(axis_ref_))
	105	ENDIF
[581]	106
[666]	107	IF (PRESENT(begin_)) THEN
	108	CALL cxios_set_axis_begin(axis_hdl%daddr, begin_)
	109	ENDIF
	110
[609]	111	IF (PRESENT(bounds_)) THEN
[674]	112	CALL cxios_set_axis_bounds(axis_hdl%daddr, bounds_, SHAPE(bounds_))
[609]	113	ENDIF
	114
[555]	115	IF (PRESENT(data_begin_)) THEN
	116	CALL cxios_set_axis_data_begin(axis_hdl%daddr, data_begin_)
	117	ENDIF
[581]	118
[555]	119	IF (PRESENT(data_index_)) THEN
[674]	120	CALL cxios_set_axis_data_index(axis_hdl%daddr, data_index_, SHAPE(data_index_))
[555]	121	ENDIF
[581]	122
[555]	123	IF (PRESENT(data_n_)) THEN
	124	CALL cxios_set_axis_data_n(axis_hdl%daddr, data_n_)
	125	ENDIF
[581]	126
[817]	127	IF (PRESENT(index_)) THEN
	128	CALL cxios_set_axis_index(axis_hdl%daddr, index_, SHAPE(index_))
	129	ENDIF
	130
[326]	131	IF (PRESENT(long_name_)) THEN
	132	CALL cxios_set_axis_long_name(axis_hdl%daddr, long_name_, len(long_name_))
	133	ENDIF
[581]	134
[555]	135	IF (PRESENT(mask_)) THEN
[674]	136	ALLOCATE(mask__tmp(SIZE(mask_,1)))
[581]	137	mask__tmp = mask_
[674]	138	CALL cxios_set_axis_mask(axis_hdl%daddr, mask__tmp, SHAPE(mask_))
[555]	139	ENDIF
[581]	140
[666]	141	IF (PRESENT(n_)) THEN
	142	CALL cxios_set_axis_n(axis_hdl%daddr, n_)
	143	ENDIF
	144
[779]	145	IF (PRESENT(n_distributed_partition_)) THEN
	146	CALL cxios_set_axis_n_distributed_partition(axis_hdl%daddr, n_distributed_partition_)
	147	ENDIF
	148
[666]	149	IF (PRESENT(n_glo_)) THEN
	150	CALL cxios_set_axis_n_glo(axis_hdl%daddr, n_glo_)
	151	ENDIF
	152
[326]	153	IF (PRESENT(name_)) THEN
	154	CALL cxios_set_axis_name(axis_hdl%daddr, name_, len(name_))
	155	ENDIF
[581]	156
[415]	157	IF (PRESENT(positive_)) THEN
	158	CALL cxios_set_axis_positive(axis_hdl%daddr, positive_, len(positive_))
	159	ENDIF
[581]	160
[326]	161	IF (PRESENT(standard_name_)) THEN
	162	CALL cxios_set_axis_standard_name(axis_hdl%daddr, standard_name_, len(standard_name_))
	163	ENDIF
[581]	164
[326]	165	IF (PRESENT(unit_)) THEN
	166	CALL cxios_set_axis_unit(axis_hdl%daddr, unit_, len(unit_))
	167	ENDIF
[581]	168
[326]	169	IF (PRESENT(value_)) THEN
[674]	170	CALL cxios_set_axis_value(axis_hdl%daddr, value_, SHAPE(value_))
[326]	171	ENDIF
[581]	172
[326]	173	END SUBROUTINE xios(set_axis_attr_hdl_)
[581]	174
[326]	175	SUBROUTINE xios(get_axis_attr) &
[817]	176	( axis_id, axis_ref, begin, bounds, data_begin, data_index, data_n, index, long_name, mask, n &
	177	, n_distributed_partition, n_glo, name, positive, standard_name, unit, value )
[581]	178
[326]	179	IMPLICIT NONE
	180	TYPE(txios(axis)) :: axis_hdl
	181	CHARACTER(LEN=*), INTENT(IN) ::axis_id
[546]	182	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref
[666]	183	INTEGER , OPTIONAL, INTENT(OUT) :: begin
[609]	184	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds(:,:)
[555]	185	INTEGER , OPTIONAL, INTENT(OUT) :: data_begin
	186	INTEGER , OPTIONAL, INTENT(OUT) :: data_index(:)
	187	INTEGER , OPTIONAL, INTENT(OUT) :: data_n
[817]	188	INTEGER , OPTIONAL, INTENT(OUT) :: index(:)
[326]	189	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name
[555]	190	LOGICAL , OPTIONAL, INTENT(OUT) :: mask(:)
	191	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_tmp(:)
[666]	192	INTEGER , OPTIONAL, INTENT(OUT) :: n
[779]	193	INTEGER , OPTIONAL, INTENT(OUT) :: n_distributed_partition
[666]	194	INTEGER , OPTIONAL, INTENT(OUT) :: n_glo
[326]	195	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
[415]	196	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: positive
[326]	197	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name
	198	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: unit
	199	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: value(:)
[581]	200
[326]	201	CALL xios(get_axis_handle)(axis_id,axis_hdl)
	202	CALL xios(get_axis_attr_hdl_) &
[817]	203	( axis_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, index, long_name, mask &
	204	, n, n_distributed_partition, n_glo, name, positive, standard_name, unit, value )
[581]	205
[326]	206	END SUBROUTINE xios(get_axis_attr)
[581]	207
[326]	208	SUBROUTINE xios(get_axis_attr_hdl) &
[817]	209	( axis_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, index, long_name, mask &
	210	, n, n_distributed_partition, n_glo, name, positive, standard_name, unit, value )
[581]	211
[326]	212	IMPLICIT NONE
	213	TYPE(txios(axis)) , INTENT(IN) :: axis_hdl
[546]	214	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref
[666]	215	INTEGER , OPTIONAL, INTENT(OUT) :: begin
[609]	216	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds(:,:)
[555]	217	INTEGER , OPTIONAL, INTENT(OUT) :: data_begin
	218	INTEGER , OPTIONAL, INTENT(OUT) :: data_index(:)
	219	INTEGER , OPTIONAL, INTENT(OUT) :: data_n
[817]	220	INTEGER , OPTIONAL, INTENT(OUT) :: index(:)
[326]	221	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name
[555]	222	LOGICAL , OPTIONAL, INTENT(OUT) :: mask(:)
	223	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_tmp(:)
[666]	224	INTEGER , OPTIONAL, INTENT(OUT) :: n
[779]	225	INTEGER , OPTIONAL, INTENT(OUT) :: n_distributed_partition
[666]	226	INTEGER , OPTIONAL, INTENT(OUT) :: n_glo
[326]	227	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
[415]	228	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: positive
[326]	229	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name
	230	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: unit
	231	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: value(:)
[581]	232
[326]	233	CALL xios(get_axis_attr_hdl_) &
[817]	234	( axis_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, index, long_name, mask &
	235	, n, n_distributed_partition, n_glo, name, positive, standard_name, unit, value )
[581]	236
[326]	237	END SUBROUTINE xios(get_axis_attr_hdl)
[581]	238
[326]	239	SUBROUTINE xios(get_axis_attr_hdl_) &
[817]	240	( axis_hdl, axis_ref_, begin_, bounds_, data_begin_, data_index_, data_n_, index_, long_name_ &
	241	, mask_, n_, n_distributed_partition_, n_glo_, name_, positive_, standard_name_, unit_, value_ &
	242	)
[581]	243
[326]	244	IMPLICIT NONE
	245	TYPE(txios(axis)) , INTENT(IN) :: axis_hdl
[546]	246	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref_
[666]	247	INTEGER , OPTIONAL, INTENT(OUT) :: begin_
[609]	248	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_(:,:)
[555]	249	INTEGER , OPTIONAL, INTENT(OUT) :: data_begin_
	250	INTEGER , OPTIONAL, INTENT(OUT) :: data_index_(:)
	251	INTEGER , OPTIONAL, INTENT(OUT) :: data_n_
[817]	252	INTEGER , OPTIONAL, INTENT(OUT) :: index_(:)
[326]	253	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name_
[555]	254	LOGICAL , OPTIONAL, INTENT(OUT) :: mask_(:)
	255	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask__tmp(:)
[666]	256	INTEGER , OPTIONAL, INTENT(OUT) :: n_
[779]	257	INTEGER , OPTIONAL, INTENT(OUT) :: n_distributed_partition_
[666]	258	INTEGER , OPTIONAL, INTENT(OUT) :: n_glo_
[326]	259	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_
[415]	260	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: positive_
[326]	261	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name_
	262	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: unit_
	263	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: value_(:)
[581]	264
[546]	265	IF (PRESENT(axis_ref_)) THEN
	266	CALL cxios_get_axis_axis_ref(axis_hdl%daddr, axis_ref_, len(axis_ref_))
	267	ENDIF
[581]	268
[666]	269	IF (PRESENT(begin_)) THEN
	270	CALL cxios_get_axis_begin(axis_hdl%daddr, begin_)
	271	ENDIF
	272
[609]	273	IF (PRESENT(bounds_)) THEN
[674]	274	CALL cxios_get_axis_bounds(axis_hdl%daddr, bounds_, SHAPE(bounds_))
[609]	275	ENDIF
	276
[555]	277	IF (PRESENT(data_begin_)) THEN
	278	CALL cxios_get_axis_data_begin(axis_hdl%daddr, data_begin_)
	279	ENDIF
[581]	280
[555]	281	IF (PRESENT(data_index_)) THEN
[674]	282	CALL cxios_get_axis_data_index(axis_hdl%daddr, data_index_, SHAPE(data_index_))
[555]	283	ENDIF
[581]	284
[555]	285	IF (PRESENT(data_n_)) THEN
	286	CALL cxios_get_axis_data_n(axis_hdl%daddr, data_n_)
	287	ENDIF
[581]	288
[817]	289	IF (PRESENT(index_)) THEN
	290	CALL cxios_get_axis_index(axis_hdl%daddr, index_, SHAPE(index_))
	291	ENDIF
	292
[326]	293	IF (PRESENT(long_name_)) THEN
	294	CALL cxios_get_axis_long_name(axis_hdl%daddr, long_name_, len(long_name_))
	295	ENDIF
[581]	296
[555]	297	IF (PRESENT(mask_)) THEN
[674]	298	ALLOCATE(mask__tmp(SIZE(mask_,1)))
	299	CALL cxios_get_axis_mask(axis_hdl%daddr, mask__tmp, SHAPE(mask_))
[581]	300	mask_ = mask__tmp
[555]	301	ENDIF
[581]	302
[666]	303	IF (PRESENT(n_)) THEN
	304	CALL cxios_get_axis_n(axis_hdl%daddr, n_)
	305	ENDIF
	306
[779]	307	IF (PRESENT(n_distributed_partition_)) THEN
	308	CALL cxios_get_axis_n_distributed_partition(axis_hdl%daddr, n_distributed_partition_)
	309	ENDIF
	310
[666]	311	IF (PRESENT(n_glo_)) THEN
	312	CALL cxios_get_axis_n_glo(axis_hdl%daddr, n_glo_)
	313	ENDIF
	314
[326]	315	IF (PRESENT(name_)) THEN
	316	CALL cxios_get_axis_name(axis_hdl%daddr, name_, len(name_))
	317	ENDIF
[581]	318
[415]	319	IF (PRESENT(positive_)) THEN
	320	CALL cxios_get_axis_positive(axis_hdl%daddr, positive_, len(positive_))
	321	ENDIF
[581]	322
[326]	323	IF (PRESENT(standard_name_)) THEN
	324	CALL cxios_get_axis_standard_name(axis_hdl%daddr, standard_name_, len(standard_name_))
	325	ENDIF
[581]	326
[326]	327	IF (PRESENT(unit_)) THEN
	328	CALL cxios_get_axis_unit(axis_hdl%daddr, unit_, len(unit_))
	329	ENDIF
[581]	330
[326]	331	IF (PRESENT(value_)) THEN
[674]	332	CALL cxios_get_axis_value(axis_hdl%daddr, value_, SHAPE(value_))
[326]	333	ENDIF
[581]	334
[326]	335	END SUBROUTINE xios(get_axis_attr_hdl_)
[581]	336
[432]	337	SUBROUTINE xios(is_defined_axis_attr) &
[817]	338	( axis_id, axis_ref, begin, bounds, data_begin, data_index, data_n, index, long_name, mask, n &
	339	, n_distributed_partition, n_glo, name, positive, standard_name, unit, value )
[581]	340
[432]	341	IMPLICIT NONE
	342	TYPE(txios(axis)) :: axis_hdl
	343	CHARACTER(LEN=*), INTENT(IN) ::axis_id
[546]	344	LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref
	345	LOGICAL(KIND=C_BOOL) :: axis_ref_tmp
[666]	346	LOGICAL, OPTIONAL, INTENT(OUT) :: begin
	347	LOGICAL(KIND=C_BOOL) :: begin_tmp
[609]	348	LOGICAL, OPTIONAL, INTENT(OUT) :: bounds
	349	LOGICAL(KIND=C_BOOL) :: bounds_tmp
[555]	350	LOGICAL, OPTIONAL, INTENT(OUT) :: data_begin
	351	LOGICAL(KIND=C_BOOL) :: data_begin_tmp
	352	LOGICAL, OPTIONAL, INTENT(OUT) :: data_index
	353	LOGICAL(KIND=C_BOOL) :: data_index_tmp
	354	LOGICAL, OPTIONAL, INTENT(OUT) :: data_n
	355	LOGICAL(KIND=C_BOOL) :: data_n_tmp
[817]	356	LOGICAL, OPTIONAL, INTENT(OUT) :: index
	357	LOGICAL(KIND=C_BOOL) :: index_tmp
[432]	358	LOGICAL, OPTIONAL, INTENT(OUT) :: long_name
	359	LOGICAL(KIND=C_BOOL) :: long_name_tmp
[555]	360	LOGICAL, OPTIONAL, INTENT(OUT) :: mask
	361	LOGICAL(KIND=C_BOOL) :: mask_tmp
[666]	362	LOGICAL, OPTIONAL, INTENT(OUT) :: n
	363	LOGICAL(KIND=C_BOOL) :: n_tmp
[779]	364	LOGICAL, OPTIONAL, INTENT(OUT) :: n_distributed_partition
	365	LOGICAL(KIND=C_BOOL) :: n_distributed_partition_tmp
[666]	366	LOGICAL, OPTIONAL, INTENT(OUT) :: n_glo
	367	LOGICAL(KIND=C_BOOL) :: n_glo_tmp
[432]	368	LOGICAL, OPTIONAL, INTENT(OUT) :: name
	369	LOGICAL(KIND=C_BOOL) :: name_tmp
	370	LOGICAL, OPTIONAL, INTENT(OUT) :: positive
	371	LOGICAL(KIND=C_BOOL) :: positive_tmp
	372	LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name
	373	LOGICAL(KIND=C_BOOL) :: standard_name_tmp
	374	LOGICAL, OPTIONAL, INTENT(OUT) :: unit
	375	LOGICAL(KIND=C_BOOL) :: unit_tmp
	376	LOGICAL, OPTIONAL, INTENT(OUT) :: value
	377	LOGICAL(KIND=C_BOOL) :: value_tmp
[581]	378
[432]	379	CALL xios(get_axis_handle)(axis_id,axis_hdl)
	380	CALL xios(is_defined_axis_attr_hdl_) &
[817]	381	( axis_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, index, long_name, mask &
	382	, n, n_distributed_partition, n_glo, name, positive, standard_name, unit, value )
[581]	383
[432]	384	END SUBROUTINE xios(is_defined_axis_attr)
[581]	385
[432]	386	SUBROUTINE xios(is_defined_axis_attr_hdl) &
[817]	387	( axis_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, index, long_name, mask &
	388	, n, n_distributed_partition, n_glo, name, positive, standard_name, unit, value )
[581]	389
[432]	390	IMPLICIT NONE
	391	TYPE(txios(axis)) , INTENT(IN) :: axis_hdl
[546]	392	LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref
	393	LOGICAL(KIND=C_BOOL) :: axis_ref_tmp
[666]	394	LOGICAL, OPTIONAL, INTENT(OUT) :: begin
	395	LOGICAL(KIND=C_BOOL) :: begin_tmp
[609]	396	LOGICAL, OPTIONAL, INTENT(OUT) :: bounds
	397	LOGICAL(KIND=C_BOOL) :: bounds_tmp
[555]	398	LOGICAL, OPTIONAL, INTENT(OUT) :: data_begin
	399	LOGICAL(KIND=C_BOOL) :: data_begin_tmp
	400	LOGICAL, OPTIONAL, INTENT(OUT) :: data_index
	401	LOGICAL(KIND=C_BOOL) :: data_index_tmp
	402	LOGICAL, OPTIONAL, INTENT(OUT) :: data_n
	403	LOGICAL(KIND=C_BOOL) :: data_n_tmp
[817]	404	LOGICAL, OPTIONAL, INTENT(OUT) :: index
	405	LOGICAL(KIND=C_BOOL) :: index_tmp
[432]	406	LOGICAL, OPTIONAL, INTENT(OUT) :: long_name
	407	LOGICAL(KIND=C_BOOL) :: long_name_tmp
[555]	408	LOGICAL, OPTIONAL, INTENT(OUT) :: mask
	409	LOGICAL(KIND=C_BOOL) :: mask_tmp
[666]	410	LOGICAL, OPTIONAL, INTENT(OUT) :: n
	411	LOGICAL(KIND=C_BOOL) :: n_tmp
[779]	412	LOGICAL, OPTIONAL, INTENT(OUT) :: n_distributed_partition
	413	LOGICAL(KIND=C_BOOL) :: n_distributed_partition_tmp
[666]	414	LOGICAL, OPTIONAL, INTENT(OUT) :: n_glo
	415	LOGICAL(KIND=C_BOOL) :: n_glo_tmp
[432]	416	LOGICAL, OPTIONAL, INTENT(OUT) :: name
	417	LOGICAL(KIND=C_BOOL) :: name_tmp
	418	LOGICAL, OPTIONAL, INTENT(OUT) :: positive
	419	LOGICAL(KIND=C_BOOL) :: positive_tmp
	420	LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name
	421	LOGICAL(KIND=C_BOOL) :: standard_name_tmp
	422	LOGICAL, OPTIONAL, INTENT(OUT) :: unit
	423	LOGICAL(KIND=C_BOOL) :: unit_tmp
	424	LOGICAL, OPTIONAL, INTENT(OUT) :: value
	425	LOGICAL(KIND=C_BOOL) :: value_tmp
[581]	426
[432]	427	CALL xios(is_defined_axis_attr_hdl_) &
[817]	428	( axis_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, index, long_name, mask &
	429	, n, n_distributed_partition, n_glo, name, positive, standard_name, unit, value )
[581]	430
[432]	431	END SUBROUTINE xios(is_defined_axis_attr_hdl)
[581]	432
[432]	433	SUBROUTINE xios(is_defined_axis_attr_hdl_) &
[817]	434	( axis_hdl, axis_ref_, begin_, bounds_, data_begin_, data_index_, data_n_, index_, long_name_ &
	435	, mask_, n_, n_distributed_partition_, n_glo_, name_, positive_, standard_name_, unit_, value_ &
	436	)
[581]	437
[432]	438	IMPLICIT NONE
	439	TYPE(txios(axis)) , INTENT(IN) :: axis_hdl
[546]	440	LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref_
	441	LOGICAL(KIND=C_BOOL) :: axis_ref__tmp
[666]	442	LOGICAL, OPTIONAL, INTENT(OUT) :: begin_
	443	LOGICAL(KIND=C_BOOL) :: begin__tmp
[609]	444	LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_
	445	LOGICAL(KIND=C_BOOL) :: bounds__tmp
[555]	446	LOGICAL, OPTIONAL, INTENT(OUT) :: data_begin_
	447	LOGICAL(KIND=C_BOOL) :: data_begin__tmp
	448	LOGICAL, OPTIONAL, INTENT(OUT) :: data_index_
	449	LOGICAL(KIND=C_BOOL) :: data_index__tmp
	450	LOGICAL, OPTIONAL, INTENT(OUT) :: data_n_
	451	LOGICAL(KIND=C_BOOL) :: data_n__tmp
[817]	452	LOGICAL, OPTIONAL, INTENT(OUT) :: index_
	453	LOGICAL(KIND=C_BOOL) :: index__tmp
[432]	454	LOGICAL, OPTIONAL, INTENT(OUT) :: long_name_
	455	LOGICAL(KIND=C_BOOL) :: long_name__tmp
[555]	456	LOGICAL, OPTIONAL, INTENT(OUT) :: mask_
	457	LOGICAL(KIND=C_BOOL) :: mask__tmp
[666]	458	LOGICAL, OPTIONAL, INTENT(OUT) :: n_
	459	LOGICAL(KIND=C_BOOL) :: n__tmp
[779]	460	LOGICAL, OPTIONAL, INTENT(OUT) :: n_distributed_partition_
	461	LOGICAL(KIND=C_BOOL) :: n_distributed_partition__tmp
[666]	462	LOGICAL, OPTIONAL, INTENT(OUT) :: n_glo_
	463	LOGICAL(KIND=C_BOOL) :: n_glo__tmp
[432]	464	LOGICAL, OPTIONAL, INTENT(OUT) :: name_
	465	LOGICAL(KIND=C_BOOL) :: name__tmp
	466	LOGICAL, OPTIONAL, INTENT(OUT) :: positive_
	467	LOGICAL(KIND=C_BOOL) :: positive__tmp
	468	LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name_
	469	LOGICAL(KIND=C_BOOL) :: standard_name__tmp
	470	LOGICAL, OPTIONAL, INTENT(OUT) :: unit_
	471	LOGICAL(KIND=C_BOOL) :: unit__tmp
	472	LOGICAL, OPTIONAL, INTENT(OUT) :: value_
	473	LOGICAL(KIND=C_BOOL) :: value__tmp
[581]	474
[546]	475	IF (PRESENT(axis_ref_)) THEN
[581]	476	axis_ref__tmp = cxios_is_defined_axis_axis_ref(axis_hdl%daddr)
	477	axis_ref_ = axis_ref__tmp
[546]	478	ENDIF
[581]	479
[666]	480	IF (PRESENT(begin_)) THEN
	481	begin__tmp = cxios_is_defined_axis_begin(axis_hdl%daddr)
	482	begin_ = begin__tmp
	483	ENDIF
	484
[609]	485	IF (PRESENT(bounds_)) THEN
	486	bounds__tmp = cxios_is_defined_axis_bounds(axis_hdl%daddr)
	487	bounds_ = bounds__tmp
	488	ENDIF
	489
[555]	490	IF (PRESENT(data_begin_)) THEN
[581]	491	data_begin__tmp = cxios_is_defined_axis_data_begin(axis_hdl%daddr)
	492	data_begin_ = data_begin__tmp
[555]	493	ENDIF
[581]	494
[555]	495	IF (PRESENT(data_index_)) THEN
[581]	496	data_index__tmp = cxios_is_defined_axis_data_index(axis_hdl%daddr)
	497	data_index_ = data_index__tmp
[555]	498	ENDIF
[581]	499
[555]	500	IF (PRESENT(data_n_)) THEN
[581]	501	data_n__tmp = cxios_is_defined_axis_data_n(axis_hdl%daddr)
	502	data_n_ = data_n__tmp
[555]	503	ENDIF
[581]	504
[817]	505	IF (PRESENT(index_)) THEN
	506	index__tmp = cxios_is_defined_axis_index(axis_hdl%daddr)
	507	index_ = index__tmp
	508	ENDIF
	509
[432]	510	IF (PRESENT(long_name_)) THEN
[581]	511	long_name__tmp = cxios_is_defined_axis_long_name(axis_hdl%daddr)
	512	long_name_ = long_name__tmp
[432]	513	ENDIF
[581]	514
[555]	515	IF (PRESENT(mask_)) THEN
[581]	516	mask__tmp = cxios_is_defined_axis_mask(axis_hdl%daddr)
	517	mask_ = mask__tmp
[555]	518	ENDIF
[581]	519
[666]	520	IF (PRESENT(n_)) THEN
	521	n__tmp = cxios_is_defined_axis_n(axis_hdl%daddr)
	522	n_ = n__tmp
	523	ENDIF
	524
[779]	525	IF (PRESENT(n_distributed_partition_)) THEN
	526	n_distributed_partition__tmp = cxios_is_defined_axis_n_distributed_partition(axis_hdl%daddr)
	527	n_distributed_partition_ = n_distributed_partition__tmp
	528	ENDIF
	529
[666]	530	IF (PRESENT(n_glo_)) THEN
	531	n_glo__tmp = cxios_is_defined_axis_n_glo(axis_hdl%daddr)
	532	n_glo_ = n_glo__tmp
	533	ENDIF
	534
[432]	535	IF (PRESENT(name_)) THEN
[581]	536	name__tmp = cxios_is_defined_axis_name(axis_hdl%daddr)
	537	name_ = name__tmp
[432]	538	ENDIF
[581]	539
[432]	540	IF (PRESENT(positive_)) THEN
[581]	541	positive__tmp = cxios_is_defined_axis_positive(axis_hdl%daddr)
	542	positive_ = positive__tmp
[432]	543	ENDIF
[581]	544
[432]	545	IF (PRESENT(standard_name_)) THEN
[581]	546	standard_name__tmp = cxios_is_defined_axis_standard_name(axis_hdl%daddr)
	547	standard_name_ = standard_name__tmp
[432]	548	ENDIF
[581]	549
[432]	550	IF (PRESENT(unit_)) THEN
[581]	551	unit__tmp = cxios_is_defined_axis_unit(axis_hdl%daddr)
	552	unit_ = unit__tmp
[432]	553	ENDIF
[581]	554
[432]	555	IF (PRESENT(value_)) THEN
[581]	556	value__tmp = cxios_is_defined_axis_value(axis_hdl%daddr)
	557	value_ = value__tmp
[432]	558	ENDIF
[581]	559
[432]	560	END SUBROUTINE xios(is_defined_axis_attr_hdl_)
[581]	561
[326]	562	END MODULE iaxis_attr

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

Context Navigation

source: XIOS/trunk/src/interface/fortran_attr/iaxis_attr.F90 @ 817

Download in other formats: