Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
mpim-sw
libcdi
Commits
855439bc
Commit
855439bc
authored
Nov 15, 2017
by
Ralf Mueller
Browse files
updated f2003 interface - compile error with cdi_write_f2003 (missing TIME_VARYING)
parent
bf7825bb
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/mo_cdi.f90
View file @
855439bc
! >>> 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
,&
&
t
step
type_dummy
,
tilesetID_dummy
)
bind
(
c
,
name
=
'vlistDefVarTiles'
)&
&
t
ime
type_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
::
t
step
type_dummy
integer
(
c_int
),
value
::
t
ime
type_dummy
integer
(
c_int
),
value
::
tilesetID_dummy
integer
(
c_int
)
::
f_result
end
function
vlistDefVarTiles
function
vlistDefVar
(
vlistID_dummy
,
gridID_dummy
,
zaxisID_dummy
,&
&
t
step
type_dummy
)
bind
(
c
,
name
=
'vlistDefVar'
)
result
(
f_result
)
&
t
ime
type_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
::
t
step
type_dummy
integer
(
c_int
),
value
::
t
ime
type_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
,
t
step
type_dummy
)
bind
(
c
,
name
=
'vlistInqVar'
)
&
zaxisID_dummy
,
t
ime
type_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
)
::
t
step
type_dummy
integer
(
c_int
),
intent
(
inout
)
::
t
ime
type_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
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment