Fortran interface update.

src/cdi.inc

@@ -4,7 +4,7 @@
 !
 ! Author:
 ! -------
-! Uwe Schulzweida, MPI-MET, Hamburg,   April 2019
+! Uwe Schulzweida, MPI-MET, Hamburg,   May 2019
 !
 
       INTEGER    CDI_MAX_NAME
@@ -312,9 +312,6 @@
 !  key-value pairs in combination.
 !  
 !  Currently, only multiple pairs combined by AND are supported.
-!
-!
-!  TIME types
 !
       INTEGER    TIME_CONSTANT
       PARAMETER (TIME_CONSTANT          =  0)
@@ -322,9 +319,6 @@
       PARAMETER (TIME_VARYING           =  1)
       INTEGER    TIME_VARIABLE
       PARAMETER (TIME_VARIABLE          =  1)
-!
-!  TSTEP types
-!
       INTEGER    TSTEP_INSTANT
       PARAMETER (TSTEP_INSTANT          =  1)
       INTEGER    TSTEP_AVG
@@ -351,18 +345,14 @@
       PARAMETER (TSTEP_INSTANT2         = 12)
       INTEGER    TSTEP_INSTANT3
       PARAMETER (TSTEP_INSTANT3         = 13)
-!
-!  TAXIS types
-!
+      INTEGER    TSTEP_SUM
+      PARAMETER (TSTEP_SUM              = 14)
       INTEGER    TAXIS_ABSOLUTE
       PARAMETER (TAXIS_ABSOLUTE         =  1)
       INTEGER    TAXIS_RELATIVE
       PARAMETER (TAXIS_RELATIVE         =  2)
       INTEGER    TAXIS_FORECAST
       PARAMETER (TAXIS_FORECAST         =  3)
-!
-!  TUNIT types
-!
       INTEGER    TUNIT_SECOND
       PARAMETER (TUNIT_SECOND           =  1)
       INTEGER    TUNIT_MINUTE
@@ -385,9 +375,6 @@
       PARAMETER (TUNIT_MONTH            = 10)
       INTEGER    TUNIT_YEAR
       PARAMETER (TUNIT_YEAR             = 11)
-!
-!  CALENDAR types
-!
       INTEGER    CALENDAR_STANDARD
       PARAMETER (CALENDAR_STANDARD      =  0)
       INTEGER    CALENDAR_GREGORIAN

src/cdiFortran.c

@@ -80,21 +80,6 @@ int size_t_c2f(size_t value_size_t)
    Currently, only multiple pairs combined by AND are supported.  */
 
 
-/*  TIME types  */
-
-
-/*  TSTEP types  */
-
-
-/*  TAXIS types  */
-
-
-/*  TUNIT types  */
-
-
-/*  CALENDAR types  */
-
-
 /*  number of unsigned char needed to store UUID  */
 
 

src/mo_cdi.f90

@@ -173,6 +173,7 @@ module mo_cdi
   integer(c_int), public, parameter :: TSTEP_RANGE = 11
   integer(c_int), public, parameter :: TSTEP_INSTANT2 = 12
   integer(c_int), public, parameter :: TSTEP_INSTANT3 = 13
+  integer(c_int), public, parameter :: TSTEP_SUM = 14
   integer(c_int), public, parameter :: TAXIS_ABSOLUTE = 1
   integer(c_int), public, parameter :: TAXIS_RELATIVE = 2
   integer(c_int), public, parameter :: TAXIS_FORECAST = 3