Changeset 532 for XIOS/trunk/src/interface/fortran/idate.F90

Timestamp:

12/10/14 14:27:09 (10 years ago)

Author:

rlacroix

Message:

Add a new attribute type for dates and use it for the context's start_date and time_origin.

The "xios_date" type should now be used to get/set date attributes through the Fortran interface. This avoids using strings to manipulate dates.

File:

• XIOS/trunk/src/interface/fortran/idate.F90 (modified) (1 diff)

XIOS/trunk/src/interface/fortran/idate.F90

@@ -6 +6 @@
    INTEGER(kind = C_INT), PARAMETER :: D360 = 0 , ALLLEAP = 1 , NOLEAP = 2 , JULIAN = 3 , GREGORIAN = 4
 
-   TYPE txios(date)
-      INTEGER :: year, month, day, hour, minute, second
+   TYPE, BIND(C) :: txios(date)
+      INTEGER(kind = C_INT) :: year, month, day, hour, minute, second
    END TYPE txios(date)