Changeset 313 for XIOS/trunk/src/fortran/icontext.F90

Timestamp:

02/18/12 22:43:24 (12 years ago)

Author:

ymipsl

Message:

Fortran attribut interface are now automaticaly generated.
Add get attribut fonctionnality from fortran.

YM

File:

• XIOS/trunk/src/fortran/icontext.F90 (modified) (2 diffs)

XIOS/trunk/src/fortran/icontext.F90

@@ -4 +4 @@
    USE, INTRINSIC :: ISO_C_BINDING
    USE CONTEXT_INTERFACE
+!   USE icontext_attr
    USE IDATE
 
@@ -14 +15 @@
    CONTAINS ! Fonctions disponibles pour les utilisateurs.
    
-   SUBROUTINE xios(set_context_attr)( context_id, calendar_type, start_date, output_dir)
-      IMPLICIT NONE
-      CHARACTER(len = *)            , INTENT(IN) :: context_id
-      CHARACTER(len = *)  , OPTIONAL, INTENT(IN) :: calendar_type
-      CHARACTER(len = *)  , OPTIONAL, INTENT(IN) :: start_date
-      CHARACTER(len = *)  , OPTIONAL, INTENT(IN) :: output_dir
-         
-      CALL xios(set_context_attr_)( context_id, calendar_type, start_date, output_dir)
-   END SUBROUTINE xios(set_context_attr)
-
-
-   SUBROUTINE xios(set_context_attr_)( context_id, calendar_type_, start_date_, output_dir_)
-      IMPLICIT NONE
-      CHARACTER(len = *)            , INTENT(IN) :: context_id
-      CHARACTER(len = *)  , OPTIONAL, INTENT(IN) :: calendar_type_
-      CHARACTER(len = *)  , OPTIONAL, INTENT(IN) :: start_date_
-      CHARACTER(len = *)  , OPTIONAL, INTENT(IN) :: output_dir_
-      TYPE(txios(context))                      :: context_hdl
-         
-      CALL xios(get_context_handle)(context_id,context_hdl)
-      CALL xios(set_context_attr_hdl_)( context_hdl, calendar_type_, start_date_, output_dir_)
-   END SUBROUTINE xios(set_context_attr_)
-
-
-   SUBROUTINE xios(set_context_attr_hdl)( context_hdl, calendar_type, start_date, output_dir)
-      IMPLICIT NONE
-      TYPE(txios(context))          , INTENT(IN) :: context_hdl
-      CHARACTER(len = *)  , OPTIONAL, INTENT(IN) :: calendar_type
-      CHARACTER(len = *)  , OPTIONAL, INTENT(IN) :: start_date
-      CHARACTER(len = *)  , OPTIONAL, INTENT(IN) :: output_dir   
-        
-      CALL  xios(set_context_attr_hdl_)( context_hdl, calendar_type, start_date, output_dir)  
-
-   END SUBROUTINE xios(set_context_attr_hdl)
-
-   SUBROUTINE xios(set_context_attr_hdl_)( context_hdl, calendar_type_, start_date_, output_dir_)
-      IMPLICIT NONE
-      TYPE(txios(context))          , INTENT(IN) :: context_hdl
-      CHARACTER(len = *)  , OPTIONAL, INTENT(IN) :: calendar_type_
-      CHARACTER(len = *)  , OPTIONAL, INTENT(IN) :: start_date_
-      CHARACTER(len = *)  , OPTIONAL, INTENT(IN) :: output_dir_   
-         
-      IF (PRESENT(calendar_type_)) THEN
-         CALL cxios_set_context_calendar_type(context_hdl%daddr, calendar_type_, len(calendar_type_))
-      END IF
-      IF (PRESENT(start_date_))    THEN
-         CALL cxios_set_context_start_date(context_hdl%daddr, start_date_, len(start_date_))
-      END IF
-      IF (PRESENT(output_dir_))    THEN
-         CALL cxios_set_context_output_dir(context_hdl%daddr, output_dir_, len(output_dir_))
-      END IF
-   END SUBROUTINE xios(set_context_attr_hdl_)
-
-
-
    SUBROUTINE xios(get_context_handle)(idt,ret)
       IMPLICIT NONE