Commit 855439bc authored by Ralf Mueller's avatar Ralf Mueller
Browse files

updated f2003 interface - compile error with cdi_write_f2003 (missing TIME_VARYING)

parent bf7825bb
! >>> Warning: This is a generated file. If you modify it, you get what you deserve. <<<
!
! Generated by "../../../interfaces/f2003/bindGen.rb" from input file "../../../src/cdi.h".
! Generated by "../interfaces/f2003/bindGen.rb" from input file "../src/cdi.h".
module mo_cdi
use iso_c_binding
......@@ -49,9 +49,10 @@ module mo_cdi
integer(c_int), public, parameter :: CDI_FILETYPE_NC2 = 4
integer(c_int), public, parameter :: CDI_FILETYPE_NC4 = 5
integer(c_int), public, parameter :: CDI_FILETYPE_NC4C = 6
integer(c_int), public, parameter :: CDI_FILETYPE_SRV = 7
integer(c_int), public, parameter :: CDI_FILETYPE_EXT = 8
integer(c_int), public, parameter :: CDI_FILETYPE_IEG = 9
integer(c_int), public, parameter :: CDI_FILETYPE_NC5 = 7
integer(c_int), public, parameter :: CDI_FILETYPE_SRV = 8
integer(c_int), public, parameter :: CDI_FILETYPE_EXT = 9
integer(c_int), public, parameter :: CDI_FILETYPE_IEG = 10
integer(c_int), public, parameter :: FILETYPE_GRB = 1
integer(c_int), public, parameter :: FILETYPE_GRB2 = 2
integer(c_int), public, parameter :: FILETYPE_NC = 3
......@@ -63,10 +64,9 @@ module mo_cdi
integer(c_int), public, parameter :: FILETYPE_IEG = 9
integer(c_int), public, parameter :: CDI_COMPRESS_NONE = 0
integer(c_int), public, parameter :: CDI_COMPRESS_SZIP = 1
integer(c_int), public, parameter :: CDI_COMPRESS_GZIP = 2
integer(c_int), public, parameter :: CDI_COMPRESS_BZIP2 = 3
integer(c_int), public, parameter :: CDI_COMPRESS_ZIP = 4
integer(c_int), public, parameter :: CDI_COMPRESS_JPEG = 5
integer(c_int), public, parameter :: CDI_COMPRESS_AEC = 2
integer(c_int), public, parameter :: CDI_COMPRESS_ZIP = 3
integer(c_int), public, parameter :: CDI_COMPRESS_JPEG = 4
integer(c_int), public, parameter :: CDI_DATATYPE_PACK = 0
integer(c_int), public, parameter :: CDI_DATATYPE_PACK1 = 1
integer(c_int), public, parameter :: CDI_DATATYPE_PACK2 = 2
......@@ -178,8 +178,8 @@ module mo_cdi
integer(c_int), public, parameter :: ZAXIS_CHAR = 26
integer(c_int), public, parameter :: MAX_KV_PAIRS_MATCH = 10
integer(c_int), public, parameter :: TIME_CONSTANT = 0
integer(c_int), public, parameter :: TIME_VARYING = 1
integer(c_int), public, parameter :: TIME_VARIABLE = 1
integer(c_int), public, parameter :: TSTEP_CONSTANT = 0
integer(c_int), public, parameter :: TSTEP_INSTANT = 1
integer(c_int), public, parameter :: TSTEP_AVG = 2
integer(c_int), public, parameter :: TSTEP_ACCUM = 3
......@@ -372,6 +372,8 @@ module mo_cdi
public :: vlistInqVarGrid
public :: vlistInqVarZaxis
public :: vlistInqVarID
public :: vlistDefVarTimetype
public :: vlistInqVarTimetype
public :: vlistDefVarTsteptype
public :: vlistInqVarTsteptype
public :: vlistDefVarCompType
......@@ -620,6 +622,7 @@ module mo_cdi
public :: taxisInqFdate
public :: taxisInqFtime
public :: taxisHasBounds
public :: taxisWithBounds
public :: taxisDeleteBounds
public :: taxisDefVdateBounds
public :: taxisDefVtimeBounds
......@@ -1284,24 +1287,24 @@ module mo_cdi
end function vlistInqModel
function vlistDefVarTiles(vlistID_dummy, gridID_dummy, zaxisID_dummy,&
& tsteptype_dummy, tilesetID_dummy) bind(c, name = 'vlistDefVarTiles')&
& timetype_dummy, tilesetID_dummy) bind(c, name = 'vlistDefVarTiles')&
& result(f_result)
import c_int
integer(c_int), value :: vlistID_dummy
integer(c_int), value :: gridID_dummy
integer(c_int), value :: zaxisID_dummy
integer(c_int), value :: tsteptype_dummy
integer(c_int), value :: timetype_dummy
integer(c_int), value :: tilesetID_dummy
integer(c_int) :: f_result
end function vlistDefVarTiles
function vlistDefVar(vlistID_dummy, gridID_dummy, zaxisID_dummy,&
& tsteptype_dummy) bind(c, name = 'vlistDefVar') result(f_result)
& timetype_dummy) bind(c, name = 'vlistDefVar') result(f_result)
import c_int
integer(c_int), value :: vlistID_dummy
integer(c_int), value :: gridID_dummy
integer(c_int), value :: zaxisID_dummy
integer(c_int), value :: tsteptype_dummy
integer(c_int), value :: timetype_dummy
integer(c_int) :: f_result
end function vlistDefVar
......@@ -1322,13 +1325,13 @@ module mo_cdi
end subroutine vlistChangeVarZaxis
subroutine vlistInqVar(vlistID_dummy, varID_dummy, gridID_dummy,&
& zaxisID_dummy, tsteptype_dummy) bind(c, name = 'vlistInqVar')
& zaxisID_dummy, timetype_dummy) bind(c, name = 'vlistInqVar')
import c_int
integer(c_int), value :: vlistID_dummy
integer(c_int), value :: varID_dummy
integer(c_int), intent(inout) :: gridID_dummy
integer(c_int), intent(inout) :: zaxisID_dummy
integer(c_int), intent(inout) :: tsteptype_dummy
integer(c_int), intent(inout) :: timetype_dummy
end subroutine vlistInqVar
function vlistInqVarGrid(vlistID_dummy, varID_dummy) bind(c, name =&
......@@ -1355,6 +1358,22 @@ module mo_cdi
integer(c_int) :: f_result
end function vlistInqVarID
subroutine vlistDefVarTimetype(vlistID_dummy, varID_dummy, timetype_dummy)&
& bind(c, name = 'vlistDefVarTimetype')
import c_int
integer(c_int), value :: vlistID_dummy
integer(c_int), value :: varID_dummy
integer(c_int), value :: timetype_dummy
end subroutine vlistDefVarTimetype
function vlistInqVarTimetype(vlistID_dummy, varID_dummy) bind(c, name =&
& 'vlistInqVarTimetype') result(f_result)
import c_int
integer(c_int), value :: vlistID_dummy
integer(c_int), value :: varID_dummy
integer(c_int) :: f_result
end function vlistInqVarTimetype
subroutine vlistDefVarTsteptype(vlistID_dummy, varID_dummy,&
& tsteptype_dummy) bind(c, name = 'vlistDefVarTsteptype')
import c_int
......@@ -2658,6 +2677,11 @@ module mo_cdi
integer(c_int) :: f_result
end function taxisHasBounds
subroutine taxisWithBounds(taxisID_dummy) bind(c, name = 'taxisWithBounds')
import c_int
integer(c_int), value :: taxisID_dummy
end subroutine taxisWithBounds
subroutine taxisDeleteBounds(taxisID_dummy) bind(c, name =&
& 'taxisDeleteBounds')
import c_int
......
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