Changeset 312 for XIOS/trunk/src/fortran/igrid.F90

Timestamp:

02/14/12 15:36:14 (12 years ago)

Author:

ymipsl

Message:

suppress old fortran interface

YM

File:

• XIOS/trunk/src/fortran/igrid.F90 (modified) (3 diffs)

XIOS/trunk/src/fortran/igrid.F90

@@ -5 +5 @@
    USE GRID_INTERFACE
    USE GRIDGROUP_INTERFACE
-   
-   TYPE XGridHandle
-      INTEGER(kind = C_INTPTR_T) :: daddr
-   END TYPE XGridHandle
-   
-   TYPE XGridGroupHandle
-      INTEGER(kind = C_INTPTR_T) :: daddr
-   END TYPE XGridGroupHandle
 
    TYPE txios(grid)
@@ -22 +14 @@
    END TYPE txios(gridgroup)
    
-   !----------------------------------------------------------------------------
-   INTERFACE set_grid_attributes
-      MODULE PROCEDURE set_grid_attributes_id,set_grid_attributes_hdl
-   END INTERFACE  
-   
-   INTERFACE set_grid_group_attributes
-      MODULE PROCEDURE set_gridgroup_attributes_id,set_gridgroup_attributes_hdl
-   END INTERFACE  
-   !----------------------------------------------------------------------------
    
    CONTAINS ! Fonctions disponibles pour les utilisateurs.
@@ -175 +158 @@
    END FUNCTION  xios(is_valid_gridgroup)
 
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-!!!!!!!!!!!!!!!!!!!!  Anciennes interfaces !!!!!!!!!!!!!!!!!!!!!!!!!!!!
-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-   
-   SUBROUTINE set_grid_attributes_id(grid_id, name_, description_, domain_ref_, axis_ref_)
-      IMPLICIT NONE
-      TYPE(XGridHandle)                             :: grid_hdl
-      CHARACTER(len = *)               , INTENT(IN) :: grid_id
-      CHARACTER(len = *)     , OPTIONAL, INTENT(IN) :: name_
-      CHARACTER(len = *)     , OPTIONAL, INTENT(IN) :: description_
-      CHARACTER(len = *)     , OPTIONAL, INTENT(IN) :: domain_ref_
-      CHARACTER(len = *)     , OPTIONAL, INTENT(IN) :: axis_ref_
-      
-      CALL grid_handle_create(grid_hdl, grid_id)
-      CALL set_grid_attributes_hdl(grid_hdl, name_, description_, domain_ref_, axis_ref_)
-
-   END SUBROUTINE set_grid_attributes_id
-
-   SUBROUTINE set_grid_attributes_hdl(grid_hdl, name_, description_, domain_ref_, axis_ref_)
-      IMPLICIT NONE
-      TYPE      (XGridHandle)                       :: grid_hdl
-      CHARACTER(len = *)     , OPTIONAL, INTENT(IN) :: name_
-      CHARACTER(len = *)     , OPTIONAL, INTENT(IN) :: description_
-      CHARACTER(len = *)     , OPTIONAL, INTENT(IN) :: domain_ref_
-      CHARACTER(len = *)     , OPTIONAL, INTENT(IN) :: axis_ref_
-      
-      IF (PRESENT(name_))        THEN
-       CALL cxios_set_grid_name(grid_hdl%daddr, name_, len(name_))
-      END IF
-      IF (PRESENT(description_)) THEN
-       CALL cxios_set_grid_description(grid_hdl%daddr, description_, len(description_))
-      END IF
-      IF (PRESENT(domain_ref_))  THEN
-       CALL cxios_set_grid_domain_ref(grid_hdl%daddr, domain_ref_, len(domain_ref_))
-      END IF
-      IF (PRESENT(axis_ref_))    THEN
-       CALL cxios_set_grid_axis_ref(grid_hdl%daddr, axis_ref_, len(axis_ref_))
-      END IF
-   END SUBROUTINE set_grid_attributes_hdl
-   
-   SUBROUTINE set_gridgroup_attributes_id(gridgroup_id, name_, description_, domain_ref_, axis_ref_)
-      IMPLICIT NONE
-      TYPE(XGridGroupHandle)                        :: gridgroup_hdl
-      CHARACTER(len = *)               , INTENT(IN) :: gridgroup_id
-      CHARACTER(len = *)     , OPTIONAL, INTENT(IN) :: name_
-      CHARACTER(len = *)     , OPTIONAL, INTENT(IN) :: description_
-      CHARACTER(len = *)     , OPTIONAL, INTENT(IN) :: domain_ref_
-      CHARACTER(len = *)     , OPTIONAL, INTENT(IN) :: axis_ref_
-      
-      CALL gridgroup_handle_create(gridgroup_hdl, gridgroup_id)
-      CALL set_gridgroup_attributes_hdl(gridgroup_hdl, name_, description_, domain_ref_, axis_ref_)
-
-   END SUBROUTINE set_gridgroup_attributes_id
-
-   SUBROUTINE set_gridgroup_attributes_hdl(gridgroup_hdl, name_, description_, domain_ref_, axis_ref_)
-      IMPLICIT NONE
-      TYPE      (XGridGroupHandle)                  :: gridgroup_hdl
-      CHARACTER(len = *)     , OPTIONAL, INTENT(IN) :: name_
-      CHARACTER(len = *)     , OPTIONAL, INTENT(IN) :: description_
-      CHARACTER(len = *)     , OPTIONAL, INTENT(IN) :: domain_ref_
-      CHARACTER(len = *)     , OPTIONAL, INTENT(IN) :: axis_ref_
-      
-      IF (PRESENT(name_))        THEN
-       CALL cxios_set_gridgroup_name(gridgroup_hdl%daddr, name_, len(name_))
-      END IF
-      IF (PRESENT(description_)) THEN
-       CALL cxios_set_gridgroup_description(gridgroup_hdl%daddr, description_, len(description_))
-      END IF
-      IF (PRESENT(domain_ref_))  THEN
-       CALL cxios_set_gridgroup_domain_ref(gridgroup_hdl%daddr, domain_ref_, len(domain_ref_))
-      END IF
-      IF (PRESENT(axis_ref_))    THEN
-       CALL cxios_set_gridgroup_axis_ref(gridgroup_hdl%daddr, axis_ref_, len(axis_ref_))
-      END IF
-   END SUBROUTINE set_gridgroup_attributes_hdl
-
-   SUBROUTINE grid_handle_create(ret, idt)
-      IMPLICIT NONE
-      TYPE(XGridHandle), INTENT(OUT):: ret
-      CHARACTER(len = *), INTENT(IN) :: idt      
-      CALL cxios_grid_handle_create(ret%daddr, idt, len(idt))            
-   END SUBROUTINE grid_handle_create
-   
-   SUBROUTINE gridgroup_handle_create(ret, idt)
-      IMPLICIT NONE
-      TYPE(XGridGroupHandle), INTENT(OUT):: ret
-      CHARACTER(len = *)     , INTENT(IN) :: idt      
-      CALL cxios_gridgroup_handle_create(ret%daddr, idt, len(idt))            
-   END SUBROUTINE gridgroup_handle_create
-
-   LOGICAL FUNCTION grid_valid_id(idt)
-      IMPLICIT NONE
-      CHARACTER(len  = *)    , INTENT(IN) :: idt
-      LOGICAL  (kind = 1)                 :: val
-      CALL cxios_grid_valid_id(val, idt, len(idt));
-      grid_valid_id = val
-   END FUNCTION  grid_valid_id
-
-   LOGICAL FUNCTION gridgroup_valid_id(idt)
-      IMPLICIT NONE
-      CHARACTER(len  = *)    , INTENT(IN) :: idt
-      LOGICAL  (kind = 1)                 :: val
-      CALL cxios_gridgroup_valid_id(val, idt, len(idt));
-      gridgroup_valid_id = val
-   END FUNCTION  gridgroup_valid_id
    
 END MODULE IGRID