Changeset 550 for XIOS/trunk/src/interface/fortran/icalendar.F90
- Timestamp:
- 02/10/15 14:23:02 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/trunk/src/interface/fortran/icalendar.F90
r549 r550 20 20 CONTAINS ! Fonctions disponibles pour les utilisateurs. 21 21 22 SUBROUTINE xios(define_calendar)(type, timestep, start_date, time_origin) 22 SUBROUTINE xios(define_calendar)(type, timestep, start_date, time_origin, & 23 day_length, month_lengths, year_length, & 24 leap_year_month, leap_year_drift, leap_year_drift_offset) 23 25 USE ICALENDAR_WRAPPER, ONLY : txios(calendar_wrapper), xios(get_default_calendar_wrapper_handle) 24 26 USE icalendar_wrapper_attr, ONLY : xios(set_calendar_wrapper_attr_hdl) … … 30 32 TYPE(txios(date)), OPTIONAL, INTENT(IN) :: start_date 31 33 TYPE(txios(date)), OPTIONAL, INTENT(IN) :: time_origin 34 INTEGER, OPTIONAL, INTENT(IN) :: day_length 35 INTEGER, OPTIONAL, INTENT(IN) :: month_lengths(:) 36 INTEGER, OPTIONAL, INTENT(IN) :: year_length 37 REAL (KIND=8), OPTIONAL, INTENT(IN) :: leap_year_drift 38 REAL (KIND=8), OPTIONAL, INTENT(IN) :: leap_year_drift_offset 39 INTEGER, OPTIONAL, INTENT(IN) :: leap_year_month 32 40 TYPE(txios(calendar_wrapper)) :: calendar_wrapper 33 41 … … 38 46 CALL xios(set_calendar_wrapper_attr_hdl)(calendar_wrapper, timestep=timestep) 39 47 END IF 48 IF (PRESENT(day_length)) THEN 49 CALL xios(set_calendar_wrapper_attr_hdl)(calendar_wrapper, day_length=day_length) 50 END IF 51 IF (PRESENT(month_lengths)) THEN 52 CALL xios(set_calendar_wrapper_attr_hdl)(calendar_wrapper, month_lengths=month_lengths) 53 END IF 54 IF (PRESENT(year_length)) THEN 55 CALL xios(set_calendar_wrapper_attr_hdl)(calendar_wrapper, year_length=year_length) 56 END IF 57 IF (PRESENT(leap_year_month)) THEN 58 CALL xios(set_calendar_wrapper_attr_hdl)(calendar_wrapper, leap_year_month=leap_year_month) 59 END IF 60 IF (PRESENT(leap_year_drift)) THEN 61 CALL xios(set_calendar_wrapper_attr_hdl)(calendar_wrapper, leap_year_drift=leap_year_drift) 62 END IF 63 IF (PRESENT(leap_year_drift_offset)) THEN 64 CALL xios(set_calendar_wrapper_attr_hdl)(calendar_wrapper, leap_year_drift_offset=leap_year_drift_offset) 65 END IF 40 66 41 67 CALL xios(create_calendar)(calendar_wrapper)
Note: See TracChangeset
for help on using the changeset viewer.