Context Navigation

source: XIOS/dev/dev_ym/XIOS_COUPLING/src/interface/fortran_attr/iinterpolate_axis_attr.F90 @ 2338

Last change on this file since 2338 was 2338, checked in by jderouillat, 2 years ago
Added extract_domain interface. Updated all interfaces, normalize some private attributes names of domain
File size: 11.7 KB

Rev	Line
[786]	1	! * ************************************************************************** *
	2	! * Interface auto generated - do not modify *
	3	! * ************************************************************************** *
	4	#include "xios_fortran_prefix.hpp"
	5
	6	MODULE iinterpolate_axis_attr
	7	USE, INTRINSIC :: ISO_C_BINDING
	8	USE iinterpolate_axis
	9	USE interpolate_axis_interface_attr
	10
	11	CONTAINS
	12
	13	SUBROUTINE xios(set_interpolate_axis_attr) &
[2338]	14	( interpolate_axis_id, coordinate, coordinate_dst, coordinate_src, extrapolate, order, type &
	15	)
[786]	16
	17	IMPLICIT NONE
	18	TYPE(txios(interpolate_axis)) :: interpolate_axis_hdl
	19	CHARACTER(LEN=*), INTENT(IN) ::interpolate_axis_id
[891]	20	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: coordinate
[2338]	21	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: coordinate_dst
	22	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: coordinate_src
	23	LOGICAL , OPTIONAL, INTENT(IN) :: extrapolate
	24	LOGICAL (KIND=C_BOOL) :: extrapolate_tmp
[786]	25	INTEGER , OPTIONAL, INTENT(IN) :: order
	26	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type
	27
[966]	28	CALL xios(get_interpolate_axis_handle) &
	29	(interpolate_axis_id,interpolate_axis_hdl)
[786]	30	CALL xios(set_interpolate_axis_attr_hdl_) &
[2338]	31	( interpolate_axis_hdl, coordinate, coordinate_dst, coordinate_src, extrapolate, order, type &
	32	)
[786]	33
	34	END SUBROUTINE xios(set_interpolate_axis_attr)
	35
	36	SUBROUTINE xios(set_interpolate_axis_attr_hdl) &
[2338]	37	( interpolate_axis_hdl, coordinate, coordinate_dst, coordinate_src, extrapolate, order, type &
	38	)
[786]	39
	40	IMPLICIT NONE
	41	TYPE(txios(interpolate_axis)) , INTENT(IN) :: interpolate_axis_hdl
[891]	42	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: coordinate
[2338]	43	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: coordinate_dst
	44	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: coordinate_src
	45	LOGICAL , OPTIONAL, INTENT(IN) :: extrapolate
	46	LOGICAL (KIND=C_BOOL) :: extrapolate_tmp
[786]	47	INTEGER , OPTIONAL, INTENT(IN) :: order
	48	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type
	49
	50	CALL xios(set_interpolate_axis_attr_hdl_) &
[2338]	51	( interpolate_axis_hdl, coordinate, coordinate_dst, coordinate_src, extrapolate, order, type &
	52	)
[786]	53
	54	END SUBROUTINE xios(set_interpolate_axis_attr_hdl)
	55
	56	SUBROUTINE xios(set_interpolate_axis_attr_hdl_) &
[2338]	57	( interpolate_axis_hdl, coordinate_, coordinate_dst_, coordinate_src_, extrapolate_, order_ &
	58	, type_ )
[786]	59
	60	IMPLICIT NONE
	61	TYPE(txios(interpolate_axis)) , INTENT(IN) :: interpolate_axis_hdl
[891]	62	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: coordinate_
[2338]	63	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: coordinate_dst_
	64	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: coordinate_src_
	65	LOGICAL , OPTIONAL, INTENT(IN) :: extrapolate_
	66	LOGICAL (KIND=C_BOOL) :: extrapolate__tmp
[786]	67	INTEGER , OPTIONAL, INTENT(IN) :: order_
	68	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type_
	69
[891]	70	IF (PRESENT(coordinate_)) THEN
[966]	71	CALL cxios_set_interpolate_axis_coordinate &
	72	(interpolate_axis_hdl%daddr, coordinate_, len(coordinate_))
[891]	73	ENDIF
	74
[2338]	75	IF (PRESENT(coordinate_dst_)) THEN
	76	CALL cxios_set_interpolate_axis_coordinate_dst &
	77	(interpolate_axis_hdl%daddr, coordinate_dst_, len(coordinate_dst_))
	78	ENDIF
	79
	80	IF (PRESENT(coordinate_src_)) THEN
	81	CALL cxios_set_interpolate_axis_coordinate_src &
	82	(interpolate_axis_hdl%daddr, coordinate_src_, len(coordinate_src_))
	83	ENDIF
	84
	85	IF (PRESENT(extrapolate_)) THEN
	86	extrapolate__tmp = extrapolate_
	87	CALL cxios_set_interpolate_axis_extrapolate &
	88	(interpolate_axis_hdl%daddr, extrapolate__tmp)
	89	ENDIF
	90
[786]	91	IF (PRESENT(order_)) THEN
[966]	92	CALL cxios_set_interpolate_axis_order &
	93	(interpolate_axis_hdl%daddr, order_)
[786]	94	ENDIF
	95
	96	IF (PRESENT(type_)) THEN
[966]	97	CALL cxios_set_interpolate_axis_type &
	98	(interpolate_axis_hdl%daddr, type_, len(type_))
[786]	99	ENDIF
	100
	101	END SUBROUTINE xios(set_interpolate_axis_attr_hdl_)
	102
	103	SUBROUTINE xios(get_interpolate_axis_attr) &
[2338]	104	( interpolate_axis_id, coordinate, coordinate_dst, coordinate_src, extrapolate, order, type &
	105	)
[786]	106
	107	IMPLICIT NONE
	108	TYPE(txios(interpolate_axis)) :: interpolate_axis_hdl
	109	CHARACTER(LEN=*), INTENT(IN) ::interpolate_axis_id
[891]	110	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: coordinate
[2338]	111	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: coordinate_dst
	112	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: coordinate_src
	113	LOGICAL , OPTIONAL, INTENT(OUT) :: extrapolate
	114	LOGICAL (KIND=C_BOOL) :: extrapolate_tmp
[786]	115	INTEGER , OPTIONAL, INTENT(OUT) :: order
	116	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type
	117
[966]	118	CALL xios(get_interpolate_axis_handle) &
	119	(interpolate_axis_id,interpolate_axis_hdl)
[786]	120	CALL xios(get_interpolate_axis_attr_hdl_) &
[2338]	121	( interpolate_axis_hdl, coordinate, coordinate_dst, coordinate_src, extrapolate, order, type &
	122	)
[786]	123
	124	END SUBROUTINE xios(get_interpolate_axis_attr)
	125
	126	SUBROUTINE xios(get_interpolate_axis_attr_hdl) &
[2338]	127	( interpolate_axis_hdl, coordinate, coordinate_dst, coordinate_src, extrapolate, order, type &
	128	)
[786]	129
	130	IMPLICIT NONE
	131	TYPE(txios(interpolate_axis)) , INTENT(IN) :: interpolate_axis_hdl
[891]	132	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: coordinate
[2338]	133	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: coordinate_dst
	134	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: coordinate_src
	135	LOGICAL , OPTIONAL, INTENT(OUT) :: extrapolate
	136	LOGICAL (KIND=C_BOOL) :: extrapolate_tmp
[786]	137	INTEGER , OPTIONAL, INTENT(OUT) :: order
	138	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type
	139
	140	CALL xios(get_interpolate_axis_attr_hdl_) &
[2338]	141	( interpolate_axis_hdl, coordinate, coordinate_dst, coordinate_src, extrapolate, order, type &
	142	)
[786]	143
	144	END SUBROUTINE xios(get_interpolate_axis_attr_hdl)
	145
	146	SUBROUTINE xios(get_interpolate_axis_attr_hdl_) &
[2338]	147	( interpolate_axis_hdl, coordinate_, coordinate_dst_, coordinate_src_, extrapolate_, order_ &
	148	, type_ )
[786]	149
	150	IMPLICIT NONE
	151	TYPE(txios(interpolate_axis)) , INTENT(IN) :: interpolate_axis_hdl
[891]	152	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: coordinate_
[2338]	153	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: coordinate_dst_
	154	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: coordinate_src_
	155	LOGICAL , OPTIONAL, INTENT(OUT) :: extrapolate_
	156	LOGICAL (KIND=C_BOOL) :: extrapolate__tmp
[786]	157	INTEGER , OPTIONAL, INTENT(OUT) :: order_
	158	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type_
	159
[891]	160	IF (PRESENT(coordinate_)) THEN
[966]	161	CALL cxios_get_interpolate_axis_coordinate &
	162	(interpolate_axis_hdl%daddr, coordinate_, len(coordinate_))
[891]	163	ENDIF
	164
[2338]	165	IF (PRESENT(coordinate_dst_)) THEN
	166	CALL cxios_get_interpolate_axis_coordinate_dst &
	167	(interpolate_axis_hdl%daddr, coordinate_dst_, len(coordinate_dst_))
	168	ENDIF
	169
	170	IF (PRESENT(coordinate_src_)) THEN
	171	CALL cxios_get_interpolate_axis_coordinate_src &
	172	(interpolate_axis_hdl%daddr, coordinate_src_, len(coordinate_src_))
	173	ENDIF
	174
	175	IF (PRESENT(extrapolate_)) THEN
	176	CALL cxios_get_interpolate_axis_extrapolate &
	177	(interpolate_axis_hdl%daddr, extrapolate__tmp)
	178	extrapolate_ = extrapolate__tmp
	179	ENDIF
	180
[786]	181	IF (PRESENT(order_)) THEN
[966]	182	CALL cxios_get_interpolate_axis_order &
	183	(interpolate_axis_hdl%daddr, order_)
[786]	184	ENDIF
	185
	186	IF (PRESENT(type_)) THEN
[966]	187	CALL cxios_get_interpolate_axis_type &
	188	(interpolate_axis_hdl%daddr, type_, len(type_))
[786]	189	ENDIF
	190
	191	END SUBROUTINE xios(get_interpolate_axis_attr_hdl_)
	192
	193	SUBROUTINE xios(is_defined_interpolate_axis_attr) &
[2338]	194	( interpolate_axis_id, coordinate, coordinate_dst, coordinate_src, extrapolate, order, type &
	195	)
[786]	196
	197	IMPLICIT NONE
	198	TYPE(txios(interpolate_axis)) :: interpolate_axis_hdl
	199	CHARACTER(LEN=*), INTENT(IN) ::interpolate_axis_id
[891]	200	LOGICAL, OPTIONAL, INTENT(OUT) :: coordinate
	201	LOGICAL(KIND=C_BOOL) :: coordinate_tmp
[2338]	202	LOGICAL, OPTIONAL, INTENT(OUT) :: coordinate_dst
	203	LOGICAL(KIND=C_BOOL) :: coordinate_dst_tmp
	204	LOGICAL, OPTIONAL, INTENT(OUT) :: coordinate_src
	205	LOGICAL(KIND=C_BOOL) :: coordinate_src_tmp
	206	LOGICAL, OPTIONAL, INTENT(OUT) :: extrapolate
	207	LOGICAL(KIND=C_BOOL) :: extrapolate_tmp
[786]	208	LOGICAL, OPTIONAL, INTENT(OUT) :: order
	209	LOGICAL(KIND=C_BOOL) :: order_tmp
	210	LOGICAL, OPTIONAL, INTENT(OUT) :: type
	211	LOGICAL(KIND=C_BOOL) :: type_tmp
	212
[966]	213	CALL xios(get_interpolate_axis_handle) &
	214	(interpolate_axis_id,interpolate_axis_hdl)
[786]	215	CALL xios(is_defined_interpolate_axis_attr_hdl_) &
[2338]	216	( interpolate_axis_hdl, coordinate, coordinate_dst, coordinate_src, extrapolate, order, type &
	217	)
[786]	218
	219	END SUBROUTINE xios(is_defined_interpolate_axis_attr)
	220
	221	SUBROUTINE xios(is_defined_interpolate_axis_attr_hdl) &
[2338]	222	( interpolate_axis_hdl, coordinate, coordinate_dst, coordinate_src, extrapolate, order, type &
	223	)
[786]	224
	225	IMPLICIT NONE
	226	TYPE(txios(interpolate_axis)) , INTENT(IN) :: interpolate_axis_hdl
[891]	227	LOGICAL, OPTIONAL, INTENT(OUT) :: coordinate
	228	LOGICAL(KIND=C_BOOL) :: coordinate_tmp
[2338]	229	LOGICAL, OPTIONAL, INTENT(OUT) :: coordinate_dst
	230	LOGICAL(KIND=C_BOOL) :: coordinate_dst_tmp
	231	LOGICAL, OPTIONAL, INTENT(OUT) :: coordinate_src
	232	LOGICAL(KIND=C_BOOL) :: coordinate_src_tmp
	233	LOGICAL, OPTIONAL, INTENT(OUT) :: extrapolate
	234	LOGICAL(KIND=C_BOOL) :: extrapolate_tmp
[786]	235	LOGICAL, OPTIONAL, INTENT(OUT) :: order
	236	LOGICAL(KIND=C_BOOL) :: order_tmp
	237	LOGICAL, OPTIONAL, INTENT(OUT) :: type
	238	LOGICAL(KIND=C_BOOL) :: type_tmp
	239
	240	CALL xios(is_defined_interpolate_axis_attr_hdl_) &
[2338]	241	( interpolate_axis_hdl, coordinate, coordinate_dst, coordinate_src, extrapolate, order, type &
	242	)
[786]	243
	244	END SUBROUTINE xios(is_defined_interpolate_axis_attr_hdl)
	245
	246	SUBROUTINE xios(is_defined_interpolate_axis_attr_hdl_) &
[2338]	247	( interpolate_axis_hdl, coordinate_, coordinate_dst_, coordinate_src_, extrapolate_, order_ &
	248	, type_ )
[786]	249
	250	IMPLICIT NONE
	251	TYPE(txios(interpolate_axis)) , INTENT(IN) :: interpolate_axis_hdl
[891]	252	LOGICAL, OPTIONAL, INTENT(OUT) :: coordinate_
	253	LOGICAL(KIND=C_BOOL) :: coordinate__tmp
[2338]	254	LOGICAL, OPTIONAL, INTENT(OUT) :: coordinate_dst_
	255	LOGICAL(KIND=C_BOOL) :: coordinate_dst__tmp
	256	LOGICAL, OPTIONAL, INTENT(OUT) :: coordinate_src_
	257	LOGICAL(KIND=C_BOOL) :: coordinate_src__tmp
	258	LOGICAL, OPTIONAL, INTENT(OUT) :: extrapolate_
	259	LOGICAL(KIND=C_BOOL) :: extrapolate__tmp
[786]	260	LOGICAL, OPTIONAL, INTENT(OUT) :: order_
	261	LOGICAL(KIND=C_BOOL) :: order__tmp
	262	LOGICAL, OPTIONAL, INTENT(OUT) :: type_
	263	LOGICAL(KIND=C_BOOL) :: type__tmp
	264
[891]	265	IF (PRESENT(coordinate_)) THEN
[966]	266	coordinate__tmp = cxios_is_defined_interpolate_axis_coordinate &
	267	(interpolate_axis_hdl%daddr)
[891]	268	coordinate_ = coordinate__tmp
	269	ENDIF
	270
[2338]	271	IF (PRESENT(coordinate_dst_)) THEN
	272	coordinate_dst__tmp = cxios_is_defined_interpolate_axis_coordinate_dst &
	273	(interpolate_axis_hdl%daddr)
	274	coordinate_dst_ = coordinate_dst__tmp
	275	ENDIF
	276
	277	IF (PRESENT(coordinate_src_)) THEN
	278	coordinate_src__tmp = cxios_is_defined_interpolate_axis_coordinate_src &
	279	(interpolate_axis_hdl%daddr)
	280	coordinate_src_ = coordinate_src__tmp
	281	ENDIF
	282
	283	IF (PRESENT(extrapolate_)) THEN
	284	extrapolate__tmp = cxios_is_defined_interpolate_axis_extrapolate &
	285	(interpolate_axis_hdl%daddr)
	286	extrapolate_ = extrapolate__tmp
	287	ENDIF
	288
[786]	289	IF (PRESENT(order_)) THEN
[966]	290	order__tmp = cxios_is_defined_interpolate_axis_order &
	291	(interpolate_axis_hdl%daddr)
[786]	292	order_ = order__tmp
	293	ENDIF
	294
	295	IF (PRESENT(type_)) THEN
[966]	296	type__tmp = cxios_is_defined_interpolate_axis_type &
	297	(interpolate_axis_hdl%daddr)
[786]	298	type_ = type__tmp
	299	ENDIF
	300
	301	END SUBROUTINE xios(is_defined_interpolate_axis_attr_hdl_)
	302
	303	END MODULE iinterpolate_axis_attr

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

Download in other formats: