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

Timestamp:

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

Author:

ymipsl

Message:

suppress old fortran interface

YM

File:

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

XIOS/trunk/src/fortran/idate.F90

@@ -5 +5 @@
    ! enum XCalendarType
    INTEGER(kind = C_INT), PARAMETER :: D360 = 0 , ALLLEAP = 1 , NOLEAP = 2 , JULIAN = 3 , GREGORIAN = 4
-
-   TYPE XDate
-      INTEGER :: year, month, day, hour, minute, second
-   END TYPE XDate
-
-   TYPE XDuration
-      REAL(kind = 8) :: year, month, day, hour, minute, second
-   END TYPE XDuration
 
    TYPE txios(date)
@@ -63 +55 @@
    END SUBROUTINE xios(update_calendar)
 
-
-!!!!!!!!!!!! anciennes interfaces !!!!!!!!!!!!!!!!
-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-   
-   SUBROUTINE set_timestep(timestep)
-      TYPE(XDuration), INTENT(IN):: timestep
-      CALL cxios_set_timestep(timestep%year, timestep%month , timestep%day, &
-                             timestep%hour, timestep%minute, timestep%second)
-   END SUBROUTINE set_timestep
-   
-   SUBROUTINE update_calendar(step)
-      INTEGER, INTENT(IN):: step
-      IF (step < 0) THEN
-         PRINT *, "L'argument 'step' ne peut être négatif"
-         STOP
-      END IF
-      CALL cxios_update_calendar(step)
-   END SUBROUTINE update_calendar
    
 END MODULE IDATE