Commit 25f5a4ea authored by Uwe Schulzweida's avatar Uwe Schulzweida
Browse files

Fortran interface update.

parent f752ac6a
......@@ -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
......
......@@ -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 */
......
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment