Skip to content
GitLab
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
23addafb
Commit
23addafb
authored
Jun 07, 2019
by
Uwe Schulzweida
Browse files
Fortran90 interface update.
parent
d313d13b
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/mo_cdi.f90
View file @
23addafb
...
...
@@ -170,10 +170,10 @@ module mo_cdi
integer
(
c_int
),
public
,
parameter
::
TSTEP_SD
=
8
integer
(
c_int
),
public
,
parameter
::
TSTEP_COV
=
9
integer
(
c_int
),
public
,
parameter
::
TSTEP_RATIO
=
10
integer
(
c_int
),
public
,
parameter
::
TSTEP_
RANGE
=
11
integer
(
c_int
),
public
,
parameter
::
TSTEP_
INSTANT2
=
12
integer
(
c_int
),
public
,
parameter
::
TSTEP_INSTANT
3
=
13
integer
(
c_int
),
public
,
parameter
::
TSTEP_
SUM
=
14
integer
(
c_int
),
public
,
parameter
::
TSTEP_
SUM
=
11
integer
(
c_int
),
public
,
parameter
::
TSTEP_
RANGE
=
12
integer
(
c_int
),
public
,
parameter
::
TSTEP_INSTANT
2
=
13
integer
(
c_int
),
public
,
parameter
::
TSTEP_
INSTANT3
=
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
...
...
@@ -240,6 +240,7 @@ module mo_cdi
public
::
streamOpenAppend
public
::
streamClose
public
::
streamSync
public
::
streamDefNumWorker
public
::
streamDefVlist
public
::
streamInqVlist
public
::
streamInqFiletype
...
...
@@ -476,6 +477,7 @@ module mo_cdi
integer
(
c_int
),
public
,
parameter
::
CDI_KEY_SECTION2PADDINGLENGTH
=
819
integer
(
c_int
),
public
,
parameter
::
CDI_KEY_SECTION2PADDING
=
820
integer
(
c_int
),
public
,
parameter
::
CDI_KEY_UVRELATIVETOGRID
=
821
integer
(
c_int
),
public
,
parameter
::
CDI_KEY_CONSTITUENTTYPE
=
822
public
::
cdiDefKeyInt
public
::
cdiInqKeyInt
public
::
cdiDefKeyBytes
...
...
@@ -807,6 +809,13 @@ module mo_cdi
integer
(
c_int
),
value
::
streamID_dummy
end
subroutine
streamSync
subroutine
streamDefNumWorker
(
streamID_dummy
,
numWorker_dummy
)
bind
(
c
,
name
&
&
=
'streamDefNumWorker'
)
import
c_int
integer
(
c_int
),
value
::
streamID_dummy
integer
(
c_int
),
value
::
numWorker_dummy
end
subroutine
streamDefNumWorker
subroutine
streamDefVlist
(
streamID_dummy
,
vlistID_dummy
)
bind
(
c
,
name
=
&
&
'streamDefVlist'
)
import
c_int
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new 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