Context Navigation

source: XIOS/trunk/src/interface/fortran_attr/iinterpolate_domain_attr.F90 @ 1040

Last change on this file since 1040 was 1040, checked in by rlacroix, 7 years ago
Update the Fortran interface (some files were forgotten in r1014).
File size: 10.7 KB

Rev	Line
[786]	1	! * ************************************************************************** *
	2	! * Interface auto generated - do not modify *
	3	! * ************************************************************************** *
	4	#include "xios_fortran_prefix.hpp"
	5
	6	MODULE iinterpolate_domain_attr
	7	USE, INTRINSIC :: ISO_C_BINDING
	8	USE iinterpolate_domain
	9	USE interpolate_domain_interface_attr
	10
	11	CONTAINS
	12
	13	SUBROUTINE xios(set_interpolate_domain_attr) &
[1040]	14	( interpolate_domain_id, mode, order, renormalize, weight_filename, write_weight )
[786]	15
	16	IMPLICIT NONE
	17	TYPE(txios(interpolate_domain)) :: interpolate_domain_hdl
	18	CHARACTER(LEN=*), INTENT(IN) ::interpolate_domain_id
[991]	19	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: mode
[786]	20	INTEGER , OPTIONAL, INTENT(IN) :: order
[891]	21	LOGICAL , OPTIONAL, INTENT(IN) :: renormalize
	22	LOGICAL (KIND=C_BOOL) :: renormalize_tmp
[1005]	23	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: weight_filename
	24	LOGICAL , OPTIONAL, INTENT(IN) :: write_weight
	25	LOGICAL (KIND=C_BOOL) :: write_weight_tmp
[786]	26
[966]	27	CALL xios(get_interpolate_domain_handle) &
	28	(interpolate_domain_id,interpolate_domain_hdl)
[786]	29	CALL xios(set_interpolate_domain_attr_hdl_) &
[1040]	30	( interpolate_domain_hdl, mode, order, renormalize, weight_filename, write_weight )
[786]	31
	32	END SUBROUTINE xios(set_interpolate_domain_attr)
	33
	34	SUBROUTINE xios(set_interpolate_domain_attr_hdl) &
[1040]	35	( interpolate_domain_hdl, mode, order, renormalize, weight_filename, write_weight )
[786]	36
	37	IMPLICIT NONE
	38	TYPE(txios(interpolate_domain)) , INTENT(IN) :: interpolate_domain_hdl
[991]	39	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: mode
[786]	40	INTEGER , OPTIONAL, INTENT(IN) :: order
[891]	41	LOGICAL , OPTIONAL, INTENT(IN) :: renormalize
	42	LOGICAL (KIND=C_BOOL) :: renormalize_tmp
[1005]	43	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: weight_filename
	44	LOGICAL , OPTIONAL, INTENT(IN) :: write_weight
	45	LOGICAL (KIND=C_BOOL) :: write_weight_tmp
[786]	46
	47	CALL xios(set_interpolate_domain_attr_hdl_) &
[1040]	48	( interpolate_domain_hdl, mode, order, renormalize, weight_filename, write_weight )
[786]	49
	50	END SUBROUTINE xios(set_interpolate_domain_attr_hdl)
	51
	52	SUBROUTINE xios(set_interpolate_domain_attr_hdl_) &
[1040]	53	( interpolate_domain_hdl, mode_, order_, renormalize_, weight_filename_, write_weight_ )
[786]	54
	55	IMPLICIT NONE
	56	TYPE(txios(interpolate_domain)) , INTENT(IN) :: interpolate_domain_hdl
[991]	57	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: mode_
[786]	58	INTEGER , OPTIONAL, INTENT(IN) :: order_
[891]	59	LOGICAL , OPTIONAL, INTENT(IN) :: renormalize_
	60	LOGICAL (KIND=C_BOOL) :: renormalize__tmp
[1005]	61	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: weight_filename_
	62	LOGICAL , OPTIONAL, INTENT(IN) :: write_weight_
	63	LOGICAL (KIND=C_BOOL) :: write_weight__tmp
[786]	64
[991]	65	IF (PRESENT(mode_)) THEN
	66	CALL cxios_set_interpolate_domain_mode &
	67	(interpolate_domain_hdl%daddr, mode_, len(mode_))
	68	ENDIF
	69
[786]	70	IF (PRESENT(order_)) THEN
[966]	71	CALL cxios_set_interpolate_domain_order &
	72	(interpolate_domain_hdl%daddr, order_)
[786]	73	ENDIF
	74
[891]	75	IF (PRESENT(renormalize_)) THEN
	76	renormalize__tmp = renormalize_
[966]	77	CALL cxios_set_interpolate_domain_renormalize &
	78	(interpolate_domain_hdl%daddr, renormalize__tmp)
[891]	79	ENDIF
	80
[1005]	81	IF (PRESENT(weight_filename_)) THEN
	82	CALL cxios_set_interpolate_domain_weight_filename &
	83	(interpolate_domain_hdl%daddr, weight_filename_, len(weight_filename_))
	84	ENDIF
	85
	86	IF (PRESENT(write_weight_)) THEN
	87	write_weight__tmp = write_weight_
	88	CALL cxios_set_interpolate_domain_write_weight &
	89	(interpolate_domain_hdl%daddr, write_weight__tmp)
	90	ENDIF
	91
[786]	92	END SUBROUTINE xios(set_interpolate_domain_attr_hdl_)
	93
	94	SUBROUTINE xios(get_interpolate_domain_attr) &
[1040]	95	( interpolate_domain_id, mode, order, renormalize, weight_filename, write_weight )
[786]	96
	97	IMPLICIT NONE
	98	TYPE(txios(interpolate_domain)) :: interpolate_domain_hdl
	99	CHARACTER(LEN=*), INTENT(IN) ::interpolate_domain_id
[991]	100	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: mode
[786]	101	INTEGER , OPTIONAL, INTENT(OUT) :: order
[891]	102	LOGICAL , OPTIONAL, INTENT(OUT) :: renormalize
	103	LOGICAL (KIND=C_BOOL) :: renormalize_tmp
[1005]	104	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: weight_filename
	105	LOGICAL , OPTIONAL, INTENT(OUT) :: write_weight
	106	LOGICAL (KIND=C_BOOL) :: write_weight_tmp
[786]	107
[966]	108	CALL xios(get_interpolate_domain_handle) &
	109	(interpolate_domain_id,interpolate_domain_hdl)
[786]	110	CALL xios(get_interpolate_domain_attr_hdl_) &
[1040]	111	( interpolate_domain_hdl, mode, order, renormalize, weight_filename, write_weight )
[786]	112
	113	END SUBROUTINE xios(get_interpolate_domain_attr)
	114
	115	SUBROUTINE xios(get_interpolate_domain_attr_hdl) &
[1040]	116	( interpolate_domain_hdl, mode, order, renormalize, weight_filename, write_weight )
[786]	117
	118	IMPLICIT NONE
	119	TYPE(txios(interpolate_domain)) , INTENT(IN) :: interpolate_domain_hdl
[991]	120	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: mode
[786]	121	INTEGER , OPTIONAL, INTENT(OUT) :: order
[891]	122	LOGICAL , OPTIONAL, INTENT(OUT) :: renormalize
	123	LOGICAL (KIND=C_BOOL) :: renormalize_tmp
[1005]	124	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: weight_filename
	125	LOGICAL , OPTIONAL, INTENT(OUT) :: write_weight
	126	LOGICAL (KIND=C_BOOL) :: write_weight_tmp
[786]	127
	128	CALL xios(get_interpolate_domain_attr_hdl_) &
[1040]	129	( interpolate_domain_hdl, mode, order, renormalize, weight_filename, write_weight )
[786]	130
	131	END SUBROUTINE xios(get_interpolate_domain_attr_hdl)
	132
	133	SUBROUTINE xios(get_interpolate_domain_attr_hdl_) &
[1040]	134	( interpolate_domain_hdl, mode_, order_, renormalize_, weight_filename_, write_weight_ )
[786]	135
	136	IMPLICIT NONE
	137	TYPE(txios(interpolate_domain)) , INTENT(IN) :: interpolate_domain_hdl
[991]	138	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: mode_
[786]	139	INTEGER , OPTIONAL, INTENT(OUT) :: order_
[891]	140	LOGICAL , OPTIONAL, INTENT(OUT) :: renormalize_
	141	LOGICAL (KIND=C_BOOL) :: renormalize__tmp
[1005]	142	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: weight_filename_
	143	LOGICAL , OPTIONAL, INTENT(OUT) :: write_weight_
	144	LOGICAL (KIND=C_BOOL) :: write_weight__tmp
[786]	145
[991]	146	IF (PRESENT(mode_)) THEN
	147	CALL cxios_get_interpolate_domain_mode &
	148	(interpolate_domain_hdl%daddr, mode_, len(mode_))
	149	ENDIF
	150
[786]	151	IF (PRESENT(order_)) THEN
[966]	152	CALL cxios_get_interpolate_domain_order &
	153	(interpolate_domain_hdl%daddr, order_)
[786]	154	ENDIF
	155
[891]	156	IF (PRESENT(renormalize_)) THEN
[966]	157	CALL cxios_get_interpolate_domain_renormalize &
	158	(interpolate_domain_hdl%daddr, renormalize__tmp)
[891]	159	renormalize_ = renormalize__tmp
	160	ENDIF
	161
[1005]	162	IF (PRESENT(weight_filename_)) THEN
	163	CALL cxios_get_interpolate_domain_weight_filename &
	164	(interpolate_domain_hdl%daddr, weight_filename_, len(weight_filename_))
	165	ENDIF
	166
	167	IF (PRESENT(write_weight_)) THEN
	168	CALL cxios_get_interpolate_domain_write_weight &
	169	(interpolate_domain_hdl%daddr, write_weight__tmp)
	170	write_weight_ = write_weight__tmp
	171	ENDIF
	172
[786]	173	END SUBROUTINE xios(get_interpolate_domain_attr_hdl_)
	174
	175	SUBROUTINE xios(is_defined_interpolate_domain_attr) &
[1040]	176	( interpolate_domain_id, mode, order, renormalize, weight_filename, write_weight )
[786]	177
	178	IMPLICIT NONE
	179	TYPE(txios(interpolate_domain)) :: interpolate_domain_hdl
	180	CHARACTER(LEN=*), INTENT(IN) ::interpolate_domain_id
[991]	181	LOGICAL, OPTIONAL, INTENT(OUT) :: mode
	182	LOGICAL(KIND=C_BOOL) :: mode_tmp
[786]	183	LOGICAL, OPTIONAL, INTENT(OUT) :: order
	184	LOGICAL(KIND=C_BOOL) :: order_tmp
[891]	185	LOGICAL, OPTIONAL, INTENT(OUT) :: renormalize
	186	LOGICAL(KIND=C_BOOL) :: renormalize_tmp
[1005]	187	LOGICAL, OPTIONAL, INTENT(OUT) :: weight_filename
	188	LOGICAL(KIND=C_BOOL) :: weight_filename_tmp
	189	LOGICAL, OPTIONAL, INTENT(OUT) :: write_weight
	190	LOGICAL(KIND=C_BOOL) :: write_weight_tmp
[786]	191
[966]	192	CALL xios(get_interpolate_domain_handle) &
	193	(interpolate_domain_id,interpolate_domain_hdl)
[786]	194	CALL xios(is_defined_interpolate_domain_attr_hdl_) &
[1040]	195	( interpolate_domain_hdl, mode, order, renormalize, weight_filename, write_weight )
[786]	196
	197	END SUBROUTINE xios(is_defined_interpolate_domain_attr)
	198
	199	SUBROUTINE xios(is_defined_interpolate_domain_attr_hdl) &
[1040]	200	( interpolate_domain_hdl, mode, order, renormalize, weight_filename, write_weight )
[786]	201
	202	IMPLICIT NONE
	203	TYPE(txios(interpolate_domain)) , INTENT(IN) :: interpolate_domain_hdl
[991]	204	LOGICAL, OPTIONAL, INTENT(OUT) :: mode
	205	LOGICAL(KIND=C_BOOL) :: mode_tmp
[786]	206	LOGICAL, OPTIONAL, INTENT(OUT) :: order
	207	LOGICAL(KIND=C_BOOL) :: order_tmp
[891]	208	LOGICAL, OPTIONAL, INTENT(OUT) :: renormalize
	209	LOGICAL(KIND=C_BOOL) :: renormalize_tmp
[1005]	210	LOGICAL, OPTIONAL, INTENT(OUT) :: weight_filename
	211	LOGICAL(KIND=C_BOOL) :: weight_filename_tmp
	212	LOGICAL, OPTIONAL, INTENT(OUT) :: write_weight
	213	LOGICAL(KIND=C_BOOL) :: write_weight_tmp
[786]	214
	215	CALL xios(is_defined_interpolate_domain_attr_hdl_) &
[1040]	216	( interpolate_domain_hdl, mode, order, renormalize, weight_filename, write_weight )
[786]	217
	218	END SUBROUTINE xios(is_defined_interpolate_domain_attr_hdl)
	219
	220	SUBROUTINE xios(is_defined_interpolate_domain_attr_hdl_) &
[1040]	221	( interpolate_domain_hdl, mode_, order_, renormalize_, weight_filename_, write_weight_ )
[786]	222
	223	IMPLICIT NONE
	224	TYPE(txios(interpolate_domain)) , INTENT(IN) :: interpolate_domain_hdl
[991]	225	LOGICAL, OPTIONAL, INTENT(OUT) :: mode_
	226	LOGICAL(KIND=C_BOOL) :: mode__tmp
[786]	227	LOGICAL, OPTIONAL, INTENT(OUT) :: order_
	228	LOGICAL(KIND=C_BOOL) :: order__tmp
[891]	229	LOGICAL, OPTIONAL, INTENT(OUT) :: renormalize_
	230	LOGICAL(KIND=C_BOOL) :: renormalize__tmp
[1005]	231	LOGICAL, OPTIONAL, INTENT(OUT) :: weight_filename_
	232	LOGICAL(KIND=C_BOOL) :: weight_filename__tmp
	233	LOGICAL, OPTIONAL, INTENT(OUT) :: write_weight_
	234	LOGICAL(KIND=C_BOOL) :: write_weight__tmp
[786]	235
[991]	236	IF (PRESENT(mode_)) THEN
	237	mode__tmp = cxios_is_defined_interpolate_domain_mode &
	238	(interpolate_domain_hdl%daddr)
	239	mode_ = mode__tmp
	240	ENDIF
	241
[786]	242	IF (PRESENT(order_)) THEN
[966]	243	order__tmp = cxios_is_defined_interpolate_domain_order &
	244	(interpolate_domain_hdl%daddr)
[786]	245	order_ = order__tmp
	246	ENDIF
	247
[891]	248	IF (PRESENT(renormalize_)) THEN
[966]	249	renormalize__tmp = cxios_is_defined_interpolate_domain_renormalize &
	250	(interpolate_domain_hdl%daddr)
[891]	251	renormalize_ = renormalize__tmp
	252	ENDIF
	253
[1005]	254	IF (PRESENT(weight_filename_)) THEN
	255	weight_filename__tmp = cxios_is_defined_interpolate_domain_weight_filename &
	256	(interpolate_domain_hdl%daddr)
	257	weight_filename_ = weight_filename__tmp
	258	ENDIF
	259
	260	IF (PRESENT(write_weight_)) THEN
	261	write_weight__tmp = cxios_is_defined_interpolate_domain_write_weight &
	262	(interpolate_domain_hdl%daddr)
	263	write_weight_ = write_weight__tmp
	264	ENDIF
	265
[786]	266	END SUBROUTINE xios(is_defined_interpolate_domain_attr_hdl_)
	267
	268	END MODULE iinterpolate_domain_attr

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

Download in other formats: