Context Navigation

icalendar_wrapper_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

File size: 17.3 KB

Rev	Line
[549]	1	! * ************************************************************************** *
	2	! * Interface auto generated - do not modify *
	3	! * ************************************************************************** *
	4	#include "xios_fortran_prefix.hpp"
	5
	6	MODULE icalendar_wrapper_attr
	7	USE, INTRINSIC :: ISO_C_BINDING
	8	USE icalendar_wrapper
	9	USE calendar_wrapper_interface_attr
[581]	10
[549]	11	CONTAINS
[581]	12
[549]	13	SUBROUTINE xios(set_calendar_wrapper_attr) &
[550]	14	( calendar_wrapper_id, day_length, leap_year_drift, leap_year_drift_offset, leap_year_month &
	15	, month_lengths, start_date, time_origin, timestep, type, year_length )
[581]	16
[549]	17	IMPLICIT NONE
	18	TYPE(txios(calendar_wrapper)) :: calendar_wrapper_hdl
	19	CHARACTER(LEN=*), INTENT(IN) ::calendar_wrapper_id
[550]	20	INTEGER , OPTIONAL, INTENT(IN) :: day_length
	21	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: leap_year_drift
	22	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: leap_year_drift_offset
	23	INTEGER , OPTIONAL, INTENT(IN) :: leap_year_month
	24	INTEGER , OPTIONAL, INTENT(IN) :: month_lengths(:)
[549]	25	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: start_date
	26	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_origin
	27	TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: timestep
	28	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type
[550]	29	INTEGER , OPTIONAL, INTENT(IN) :: year_length
[581]	30
[966]	31	CALL xios(get_calendar_wrapper_handle) &
	32	(calendar_wrapper_id,calendar_wrapper_hdl)
[549]	33	CALL xios(set_calendar_wrapper_attr_hdl_) &
[550]	34	( calendar_wrapper_hdl, day_length, leap_year_drift, leap_year_drift_offset, leap_year_month &
	35	, month_lengths, start_date, time_origin, timestep, type, year_length )
[581]	36
[549]	37	END SUBROUTINE xios(set_calendar_wrapper_attr)
[581]	38
[549]	39	SUBROUTINE xios(set_calendar_wrapper_attr_hdl) &
[550]	40	( calendar_wrapper_hdl, day_length, leap_year_drift, leap_year_drift_offset, leap_year_month &
	41	, month_lengths, start_date, time_origin, timestep, type, year_length )
[581]	42
[549]	43	IMPLICIT NONE
	44	TYPE(txios(calendar_wrapper)) , INTENT(IN) :: calendar_wrapper_hdl
[550]	45	INTEGER , OPTIONAL, INTENT(IN) :: day_length
	46	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: leap_year_drift
	47	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: leap_year_drift_offset
	48	INTEGER , OPTIONAL, INTENT(IN) :: leap_year_month
	49	INTEGER , OPTIONAL, INTENT(IN) :: month_lengths(:)
[549]	50	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: start_date
	51	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_origin
	52	TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: timestep
	53	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type
[550]	54	INTEGER , OPTIONAL, INTENT(IN) :: year_length
[581]	55
[549]	56	CALL xios(set_calendar_wrapper_attr_hdl_) &
[550]	57	( calendar_wrapper_hdl, day_length, leap_year_drift, leap_year_drift_offset, leap_year_month &
	58	, month_lengths, start_date, time_origin, timestep, type, year_length )
[581]	59
[549]	60	END SUBROUTINE xios(set_calendar_wrapper_attr_hdl)
[581]	61
[549]	62	SUBROUTINE xios(set_calendar_wrapper_attr_hdl_) &
[550]	63	( calendar_wrapper_hdl, day_length_, leap_year_drift_, leap_year_drift_offset_, leap_year_month_ &
	64	, month_lengths_, start_date_, time_origin_, timestep_, type_, year_length_ )
[581]	65
[549]	66	IMPLICIT NONE
	67	TYPE(txios(calendar_wrapper)) , INTENT(IN) :: calendar_wrapper_hdl
[550]	68	INTEGER , OPTIONAL, INTENT(IN) :: day_length_
	69	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: leap_year_drift_
	70	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: leap_year_drift_offset_
	71	INTEGER , OPTIONAL, INTENT(IN) :: leap_year_month_
	72	INTEGER , OPTIONAL, INTENT(IN) :: month_lengths_(:)
[549]	73	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: start_date_
	74	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_origin_
	75	TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: timestep_
	76	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type_
[550]	77	INTEGER , OPTIONAL, INTENT(IN) :: year_length_
[581]	78
[550]	79	IF (PRESENT(day_length_)) THEN
[966]	80	CALL cxios_set_calendar_wrapper_day_length &
	81	(calendar_wrapper_hdl%daddr, day_length_)
[550]	82	ENDIF
[581]	83
[550]	84	IF (PRESENT(leap_year_drift_)) THEN
[966]	85	CALL cxios_set_calendar_wrapper_leap_year_drift &
	86	(calendar_wrapper_hdl%daddr, leap_year_drift_)
[550]	87	ENDIF
[581]	88
[550]	89	IF (PRESENT(leap_year_drift_offset_)) THEN
[966]	90	CALL cxios_set_calendar_wrapper_leap_year_drift_offset &
	91	(calendar_wrapper_hdl%daddr, leap_year_drift_offset_)
[550]	92	ENDIF
[581]	93
[550]	94	IF (PRESENT(leap_year_month_)) THEN
[966]	95	CALL cxios_set_calendar_wrapper_leap_year_month &
	96	(calendar_wrapper_hdl%daddr, leap_year_month_)
[550]	97	ENDIF
[581]	98
[550]	99	IF (PRESENT(month_lengths_)) THEN
[966]	100	CALL cxios_set_calendar_wrapper_month_lengths &
	101	(calendar_wrapper_hdl%daddr, month_lengths_, SHAPE(month_lengths_))
[550]	102	ENDIF
[581]	103
[549]	104	IF (PRESENT(start_date_)) THEN
[966]	105	CALL cxios_set_calendar_wrapper_start_date &
	106	(calendar_wrapper_hdl%daddr, start_date_, len(start_date_))
[549]	107	ENDIF
[581]	108
[549]	109	IF (PRESENT(time_origin_)) THEN
[966]	110	CALL cxios_set_calendar_wrapper_time_origin &
	111	(calendar_wrapper_hdl%daddr, time_origin_, len(time_origin_))
[549]	112	ENDIF
[581]	113
[549]	114	IF (PRESENT(timestep_)) THEN
[966]	115	CALL cxios_set_calendar_wrapper_timestep &
	116	(calendar_wrapper_hdl%daddr, timestep_)
[549]	117	ENDIF
[581]	118
[549]	119	IF (PRESENT(type_)) THEN
[966]	120	CALL cxios_set_calendar_wrapper_type &
	121	(calendar_wrapper_hdl%daddr, type_, len(type_))
[549]	122	ENDIF
[581]	123
[550]	124	IF (PRESENT(year_length_)) THEN
[966]	125	CALL cxios_set_calendar_wrapper_year_length &
	126	(calendar_wrapper_hdl%daddr, year_length_)
[550]	127	ENDIF
[581]	128
[549]	129	END SUBROUTINE xios(set_calendar_wrapper_attr_hdl_)
[581]	130
[549]	131	SUBROUTINE xios(get_calendar_wrapper_attr) &
[550]	132	( calendar_wrapper_id, day_length, leap_year_drift, leap_year_drift_offset, leap_year_month &
	133	, month_lengths, start_date, time_origin, timestep, type, year_length )
[581]	134
[549]	135	IMPLICIT NONE
	136	TYPE(txios(calendar_wrapper)) :: calendar_wrapper_hdl
	137	CHARACTER(LEN=*), INTENT(IN) ::calendar_wrapper_id
[550]	138	INTEGER , OPTIONAL, INTENT(OUT) :: day_length
	139	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: leap_year_drift
	140	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: leap_year_drift_offset
	141	INTEGER , OPTIONAL, INTENT(OUT) :: leap_year_month
	142	INTEGER , OPTIONAL, INTENT(OUT) :: month_lengths(:)
[549]	143	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: start_date
	144	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_origin
	145	TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: timestep
	146	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type
[550]	147	INTEGER , OPTIONAL, INTENT(OUT) :: year_length
[581]	148
[966]	149	CALL xios(get_calendar_wrapper_handle) &
	150	(calendar_wrapper_id,calendar_wrapper_hdl)
[549]	151	CALL xios(get_calendar_wrapper_attr_hdl_) &
[550]	152	( calendar_wrapper_hdl, day_length, leap_year_drift, leap_year_drift_offset, leap_year_month &
	153	, month_lengths, start_date, time_origin, timestep, type, year_length )
[581]	154
[549]	155	END SUBROUTINE xios(get_calendar_wrapper_attr)
[581]	156
[549]	157	SUBROUTINE xios(get_calendar_wrapper_attr_hdl) &
[550]	158	( calendar_wrapper_hdl, day_length, leap_year_drift, leap_year_drift_offset, leap_year_month &
	159	, month_lengths, start_date, time_origin, timestep, type, year_length )
[581]	160
[549]	161	IMPLICIT NONE
	162	TYPE(txios(calendar_wrapper)) , INTENT(IN) :: calendar_wrapper_hdl
[550]	163	INTEGER , OPTIONAL, INTENT(OUT) :: day_length
	164	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: leap_year_drift
	165	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: leap_year_drift_offset
	166	INTEGER , OPTIONAL, INTENT(OUT) :: leap_year_month
	167	INTEGER , OPTIONAL, INTENT(OUT) :: month_lengths(:)
[549]	168	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: start_date
	169	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_origin
	170	TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: timestep
	171	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type
[550]	172	INTEGER , OPTIONAL, INTENT(OUT) :: year_length
[581]	173
[549]	174	CALL xios(get_calendar_wrapper_attr_hdl_) &
[550]	175	( calendar_wrapper_hdl, day_length, leap_year_drift, leap_year_drift_offset, leap_year_month &
	176	, month_lengths, start_date, time_origin, timestep, type, year_length )
[581]	177
[549]	178	END SUBROUTINE xios(get_calendar_wrapper_attr_hdl)
[581]	179
[549]	180	SUBROUTINE xios(get_calendar_wrapper_attr_hdl_) &
[550]	181	( calendar_wrapper_hdl, day_length_, leap_year_drift_, leap_year_drift_offset_, leap_year_month_ &
	182	, month_lengths_, start_date_, time_origin_, timestep_, type_, year_length_ )
[581]	183
[549]	184	IMPLICIT NONE
	185	TYPE(txios(calendar_wrapper)) , INTENT(IN) :: calendar_wrapper_hdl
[550]	186	INTEGER , OPTIONAL, INTENT(OUT) :: day_length_
	187	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: leap_year_drift_
	188	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: leap_year_drift_offset_
	189	INTEGER , OPTIONAL, INTENT(OUT) :: leap_year_month_
	190	INTEGER , OPTIONAL, INTENT(OUT) :: month_lengths_(:)
[549]	191	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: start_date_
	192	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_origin_
	193	TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: timestep_
	194	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type_
[550]	195	INTEGER , OPTIONAL, INTENT(OUT) :: year_length_
[581]	196
[550]	197	IF (PRESENT(day_length_)) THEN
[966]	198	CALL cxios_get_calendar_wrapper_day_length &
	199	(calendar_wrapper_hdl%daddr, day_length_)
[550]	200	ENDIF
[581]	201
[550]	202	IF (PRESENT(leap_year_drift_)) THEN
[966]	203	CALL cxios_get_calendar_wrapper_leap_year_drift &
	204	(calendar_wrapper_hdl%daddr, leap_year_drift_)
[550]	205	ENDIF
[581]	206
[550]	207	IF (PRESENT(leap_year_drift_offset_)) THEN
[966]	208	CALL cxios_get_calendar_wrapper_leap_year_drift_offset &
	209	(calendar_wrapper_hdl%daddr, leap_year_drift_offset_)
[550]	210	ENDIF
[581]	211
[550]	212	IF (PRESENT(leap_year_month_)) THEN
[966]	213	CALL cxios_get_calendar_wrapper_leap_year_month &
	214	(calendar_wrapper_hdl%daddr, leap_year_month_)
[550]	215	ENDIF
[581]	216
[550]	217	IF (PRESENT(month_lengths_)) THEN
[966]	218	CALL cxios_get_calendar_wrapper_month_lengths &
	219	(calendar_wrapper_hdl%daddr, month_lengths_, SHAPE(month_lengths_))
[550]	220	ENDIF
[581]	221
[549]	222	IF (PRESENT(start_date_)) THEN
[966]	223	CALL cxios_get_calendar_wrapper_start_date &
	224	(calendar_wrapper_hdl%daddr, start_date_, len(start_date_))
[549]	225	ENDIF
[581]	226
[549]	227	IF (PRESENT(time_origin_)) THEN
[966]	228	CALL cxios_get_calendar_wrapper_time_origin &
	229	(calendar_wrapper_hdl%daddr, time_origin_, len(time_origin_))
[549]	230	ENDIF
[581]	231
[549]	232	IF (PRESENT(timestep_)) THEN
[966]	233	CALL cxios_get_calendar_wrapper_timestep &
	234	(calendar_wrapper_hdl%daddr, timestep_)
[549]	235	ENDIF
[581]	236
[549]	237	IF (PRESENT(type_)) THEN
[966]	238	CALL cxios_get_calendar_wrapper_type &
	239	(calendar_wrapper_hdl%daddr, type_, len(type_))
[549]	240	ENDIF
[581]	241
[550]	242	IF (PRESENT(year_length_)) THEN
[966]	243	CALL cxios_get_calendar_wrapper_year_length &
	244	(calendar_wrapper_hdl%daddr, year_length_)
[550]	245	ENDIF
[581]	246
[549]	247	END SUBROUTINE xios(get_calendar_wrapper_attr_hdl_)
[581]	248
[549]	249	SUBROUTINE xios(is_defined_calendar_wrapper_attr) &
[550]	250	( calendar_wrapper_id, day_length, leap_year_drift, leap_year_drift_offset, leap_year_month &
	251	, month_lengths, start_date, time_origin, timestep, type, year_length )
[581]	252
[549]	253	IMPLICIT NONE
	254	TYPE(txios(calendar_wrapper)) :: calendar_wrapper_hdl
	255	CHARACTER(LEN=*), INTENT(IN) ::calendar_wrapper_id
[550]	256	LOGICAL, OPTIONAL, INTENT(OUT) :: day_length
	257	LOGICAL(KIND=C_BOOL) :: day_length_tmp
	258	LOGICAL, OPTIONAL, INTENT(OUT) :: leap_year_drift
	259	LOGICAL(KIND=C_BOOL) :: leap_year_drift_tmp
	260	LOGICAL, OPTIONAL, INTENT(OUT) :: leap_year_drift_offset
	261	LOGICAL(KIND=C_BOOL) :: leap_year_drift_offset_tmp
	262	LOGICAL, OPTIONAL, INTENT(OUT) :: leap_year_month
	263	LOGICAL(KIND=C_BOOL) :: leap_year_month_tmp
	264	LOGICAL, OPTIONAL, INTENT(OUT) :: month_lengths
	265	LOGICAL(KIND=C_BOOL) :: month_lengths_tmp
[549]	266	LOGICAL, OPTIONAL, INTENT(OUT) :: start_date
	267	LOGICAL(KIND=C_BOOL) :: start_date_tmp
	268	LOGICAL, OPTIONAL, INTENT(OUT) :: time_origin
	269	LOGICAL(KIND=C_BOOL) :: time_origin_tmp
	270	LOGICAL, OPTIONAL, INTENT(OUT) :: timestep
	271	LOGICAL(KIND=C_BOOL) :: timestep_tmp
	272	LOGICAL, OPTIONAL, INTENT(OUT) :: type
	273	LOGICAL(KIND=C_BOOL) :: type_tmp
[550]	274	LOGICAL, OPTIONAL, INTENT(OUT) :: year_length
	275	LOGICAL(KIND=C_BOOL) :: year_length_tmp
[581]	276
[966]	277	CALL xios(get_calendar_wrapper_handle) &
	278	(calendar_wrapper_id,calendar_wrapper_hdl)
[549]	279	CALL xios(is_defined_calendar_wrapper_attr_hdl_) &
[550]	280	( calendar_wrapper_hdl, day_length, leap_year_drift, leap_year_drift_offset, leap_year_month &
	281	, month_lengths, start_date, time_origin, timestep, type, year_length )
[581]	282
[549]	283	END SUBROUTINE xios(is_defined_calendar_wrapper_attr)
[581]	284
[549]	285	SUBROUTINE xios(is_defined_calendar_wrapper_attr_hdl) &
[550]	286	( calendar_wrapper_hdl, day_length, leap_year_drift, leap_year_drift_offset, leap_year_month &
	287	, month_lengths, start_date, time_origin, timestep, type, year_length )
[581]	288
[549]	289	IMPLICIT NONE
	290	TYPE(txios(calendar_wrapper)) , INTENT(IN) :: calendar_wrapper_hdl
[550]	291	LOGICAL, OPTIONAL, INTENT(OUT) :: day_length
	292	LOGICAL(KIND=C_BOOL) :: day_length_tmp
	293	LOGICAL, OPTIONAL, INTENT(OUT) :: leap_year_drift
	294	LOGICAL(KIND=C_BOOL) :: leap_year_drift_tmp
	295	LOGICAL, OPTIONAL, INTENT(OUT) :: leap_year_drift_offset
	296	LOGICAL(KIND=C_BOOL) :: leap_year_drift_offset_tmp
	297	LOGICAL, OPTIONAL, INTENT(OUT) :: leap_year_month
	298	LOGICAL(KIND=C_BOOL) :: leap_year_month_tmp
	299	LOGICAL, OPTIONAL, INTENT(OUT) :: month_lengths
	300	LOGICAL(KIND=C_BOOL) :: month_lengths_tmp
[549]	301	LOGICAL, OPTIONAL, INTENT(OUT) :: start_date
	302	LOGICAL(KIND=C_BOOL) :: start_date_tmp
	303	LOGICAL, OPTIONAL, INTENT(OUT) :: time_origin
	304	LOGICAL(KIND=C_BOOL) :: time_origin_tmp
	305	LOGICAL, OPTIONAL, INTENT(OUT) :: timestep
	306	LOGICAL(KIND=C_BOOL) :: timestep_tmp
	307	LOGICAL, OPTIONAL, INTENT(OUT) :: type
	308	LOGICAL(KIND=C_BOOL) :: type_tmp
[550]	309	LOGICAL, OPTIONAL, INTENT(OUT) :: year_length
	310	LOGICAL(KIND=C_BOOL) :: year_length_tmp
[581]	311
[549]	312	CALL xios(is_defined_calendar_wrapper_attr_hdl_) &
[550]	313	( calendar_wrapper_hdl, day_length, leap_year_drift, leap_year_drift_offset, leap_year_month &
	314	, month_lengths, start_date, time_origin, timestep, type, year_length )
[581]	315
[549]	316	END SUBROUTINE xios(is_defined_calendar_wrapper_attr_hdl)
[581]	317
[549]	318	SUBROUTINE xios(is_defined_calendar_wrapper_attr_hdl_) &
[550]	319	( calendar_wrapper_hdl, day_length_, leap_year_drift_, leap_year_drift_offset_, leap_year_month_ &
	320	, month_lengths_, start_date_, time_origin_, timestep_, type_, year_length_ )
[581]	321
[549]	322	IMPLICIT NONE
	323	TYPE(txios(calendar_wrapper)) , INTENT(IN) :: calendar_wrapper_hdl
[550]	324	LOGICAL, OPTIONAL, INTENT(OUT) :: day_length_
	325	LOGICAL(KIND=C_BOOL) :: day_length__tmp
	326	LOGICAL, OPTIONAL, INTENT(OUT) :: leap_year_drift_
	327	LOGICAL(KIND=C_BOOL) :: leap_year_drift__tmp
	328	LOGICAL, OPTIONAL, INTENT(OUT) :: leap_year_drift_offset_
	329	LOGICAL(KIND=C_BOOL) :: leap_year_drift_offset__tmp
	330	LOGICAL, OPTIONAL, INTENT(OUT) :: leap_year_month_
	331	LOGICAL(KIND=C_BOOL) :: leap_year_month__tmp
	332	LOGICAL, OPTIONAL, INTENT(OUT) :: month_lengths_
	333	LOGICAL(KIND=C_BOOL) :: month_lengths__tmp
[549]	334	LOGICAL, OPTIONAL, INTENT(OUT) :: start_date_
	335	LOGICAL(KIND=C_BOOL) :: start_date__tmp
	336	LOGICAL, OPTIONAL, INTENT(OUT) :: time_origin_
	337	LOGICAL(KIND=C_BOOL) :: time_origin__tmp
	338	LOGICAL, OPTIONAL, INTENT(OUT) :: timestep_
	339	LOGICAL(KIND=C_BOOL) :: timestep__tmp
	340	LOGICAL, OPTIONAL, INTENT(OUT) :: type_
	341	LOGICAL(KIND=C_BOOL) :: type__tmp
[550]	342	LOGICAL, OPTIONAL, INTENT(OUT) :: year_length_
	343	LOGICAL(KIND=C_BOOL) :: year_length__tmp
[581]	344
[550]	345	IF (PRESENT(day_length_)) THEN
[966]	346	day_length__tmp = cxios_is_defined_calendar_wrapper_day_length &
	347	(calendar_wrapper_hdl%daddr)
[581]	348	day_length_ = day_length__tmp
[550]	349	ENDIF
[581]	350
[550]	351	IF (PRESENT(leap_year_drift_)) THEN
[966]	352	leap_year_drift__tmp = cxios_is_defined_calendar_wrapper_leap_year_drift &
	353	(calendar_wrapper_hdl%daddr)
[581]	354	leap_year_drift_ = leap_year_drift__tmp
[550]	355	ENDIF
[581]	356
[550]	357	IF (PRESENT(leap_year_drift_offset_)) THEN
[966]	358	leap_year_drift_offset__tmp = cxios_is_defined_calendar_wrapper_leap_year_drift_offset &
	359	(calendar_wrapper_hdl%daddr)
[581]	360	leap_year_drift_offset_ = leap_year_drift_offset__tmp
[550]	361	ENDIF
[581]	362
[550]	363	IF (PRESENT(leap_year_month_)) THEN
[966]	364	leap_year_month__tmp = cxios_is_defined_calendar_wrapper_leap_year_month &
	365	(calendar_wrapper_hdl%daddr)
[581]	366	leap_year_month_ = leap_year_month__tmp
[550]	367	ENDIF
[581]	368
[550]	369	IF (PRESENT(month_lengths_)) THEN
[966]	370	month_lengths__tmp = cxios_is_defined_calendar_wrapper_month_lengths &
	371	(calendar_wrapper_hdl%daddr)
[581]	372	month_lengths_ = month_lengths__tmp
[550]	373	ENDIF
[581]	374
[549]	375	IF (PRESENT(start_date_)) THEN
[966]	376	start_date__tmp = cxios_is_defined_calendar_wrapper_start_date &
	377	(calendar_wrapper_hdl%daddr)
[581]	378	start_date_ = start_date__tmp
[549]	379	ENDIF
[581]	380
[549]	381	IF (PRESENT(time_origin_)) THEN
[966]	382	time_origin__tmp = cxios_is_defined_calendar_wrapper_time_origin &
	383	(calendar_wrapper_hdl%daddr)
[581]	384	time_origin_ = time_origin__tmp
[549]	385	ENDIF
[581]	386
[549]	387	IF (PRESENT(timestep_)) THEN
[966]	388	timestep__tmp = cxios_is_defined_calendar_wrapper_timestep &
	389	(calendar_wrapper_hdl%daddr)
[581]	390	timestep_ = timestep__tmp
[549]	391	ENDIF
[581]	392
[549]	393	IF (PRESENT(type_)) THEN
[966]	394	type__tmp = cxios_is_defined_calendar_wrapper_type &
	395	(calendar_wrapper_hdl%daddr)
[581]	396	type_ = type__tmp
[549]	397	ENDIF
[581]	398
[550]	399	IF (PRESENT(year_length_)) THEN
[966]	400	year_length__tmp = cxios_is_defined_calendar_wrapper_year_length &
	401	(calendar_wrapper_hdl%daddr)
[581]	402	year_length_ = year_length__tmp
[550]	403	ENDIF
[581]	404
[549]	405	END SUBROUTINE xios(is_defined_calendar_wrapper_attr_hdl_)
[581]	406
[549]	407	END MODULE icalendar_wrapper_attr

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

Context Navigation

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

Download in other formats: