source: XIOS2/trunk/src/interface/fortran/icalendar_wrapper.F90 @ 2623

#include "xios_fortran_prefix.hpp"

MODULE ICALENDAR_WRAPPER
   USE, INTRINSIC :: ISO_C_BINDING
   USE CALENDAR_WRAPPER_INTERFACE
   USE IDATE
   USE IDURATION
   USE LOGICAL_BOOL_CONVERSION

   TYPE txios(calendar_wrapper)
      INTEGER(kind = C_INTPTR_T) :: daddr
   END TYPE txios(calendar_wrapper)

   CONTAINS ! Fonctions disponibles pour les utilisateurs.

   SUBROUTINE xios(get_calendar_wrapper_handle)(idt, ret)
      IMPLICIT NONE
      CHARACTER(len = *),            INTENT(IN)  :: idt
      TYPE(txios(calendar_wrapper)), INTENT(OUT) :: ret

      CALL cxios_calendar_wrapper_handle_create(ret%daddr, idt, len(idt))
   END SUBROUTINE xios(get_calendar_wrapper_handle)

   SUBROUTINE xios(get_default_calendar_wrapper_handle)(ret)
      IMPLICIT NONE
      TYPE(txios(calendar_wrapper)), INTENT(OUT) :: ret

      CALL cxios_get_current_calendar_wrapper(ret%daddr)
   END SUBROUTINE xios(get_default_calendar_wrapper_handle)

   LOGICAL FUNCTION xios(is_valid_calendar_wrapper)(idt)
      IMPLICIT NONE
      CHARACTER(len  = *), INTENT(IN) :: idt
      LOGICAL  (kind = 1)             :: val

      CALL cxios_calendar_wrapper_valid_id(val, idt, len(idt));
      CALL xios_bool_to_logical_0d(val)
      xios(is_valid_calendar_wrapper) = val
   END FUNCTION  xios(is_valid_calendar_wrapper)

   SUBROUTINE xios(create_calendar)(hdl)
      IMPLICIT NONE
      TYPE(txios(calendar_wrapper)), INTENT(IN) :: hdl

      CALL cxios_create_calendar(hdl%daddr)
   END SUBROUTINE xios(create_calendar)

   SUBROUTINE xios(update_calendar_timestep)(hdl)
      IMPLICIT NONE
      TYPE(txios(calendar_wrapper)), INTENT(IN) :: hdl

      CALL cxios_update_calendar_timestep(hdl%daddr)
   END SUBROUTINE xios(update_calendar_timestep)

   SUBROUTINE xios(set_start_date_hdl)(hdl, start_date)
      USE IDATE
      IMPLICIT NONE
      TYPE(txios(calendar_wrapper)), INTENT(IN) :: hdl
      TYPE(txios(date)),             INTENT(IN) :: start_date

      CALL cxios_set_calendar_wrapper_date_start_date(hdl%daddr, start_date)
   END SUBROUTINE xios(set_start_date_hdl)

   SUBROUTINE xios(get_start_date_hdl)(hdl, start_date)
      USE IDATE
      IMPLICIT NONE
      TYPE(txios(calendar_wrapper)), INTENT(IN)  :: hdl
      TYPE(txios(date)),             INTENT(OUT) :: start_date

      CALL cxios_get_calendar_wrapper_date_start_date(hdl%daddr, start_date)
   END SUBROUTINE xios(get_start_date_hdl)

   SUBROUTINE xios(set_time_origin_hdl)(hdl, time_origin)
      USE IDATE
      IMPLICIT NONE
      TYPE(txios(calendar_wrapper)), INTENT(IN) :: hdl
      TYPE(txios(date)),             INTENT(IN) :: time_origin

      CALL cxios_set_calendar_wrapper_date_time_origin(hdl%daddr, time_origin)
   END SUBROUTINE xios(set_time_origin_hdl)

   SUBROUTINE xios(get_time_origin_hdl)(hdl, time_origin)
      USE IDATE
      IMPLICIT NONE
      TYPE(txios(calendar_wrapper)), INTENT(IN)  :: hdl
      TYPE(txios(date)),             INTENT(OUT) :: time_origin

      CALL cxios_get_calendar_wrapper_date_time_origin(hdl%daddr, time_origin)
   END SUBROUTINE xios(get_time_origin_hdl)

END MODULE ICALENDAR_WRAPPER