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
8618024f
Commit
8618024f
authored
Nov 19, 2013
by
Thomas Jahns
🤸
Browse files
Add function to query current timestep id.
parent
101a4d0d
Changes
4
Hide whitespace changes
Inline
Side-by-side
src/cdi.h
View file @
8618024f
...
...
@@ -330,6 +330,9 @@ int streamInqCompLevel(int streamID);
/* streamDefTimestep: Define time step */
int
streamDefTimestep
(
int
streamID
,
int
tsID
);
/* query currently set timestep id */
int
streamInqCurTimestepID
(
int
streamID
);
/* streamInqTimestep: Get time step */
int
streamInqTimestep
(
int
streamID
,
int
tsID
);
...
...
src/cdi.inc
View file @
8618024f
...
...
@@ -577,6 +577,13 @@
!
INTEGER
tsID
)
EXTERNAL
streamDefTimestep
!
!
query
currently
set
timestep
id
!
INTEGER
streamInqCurTimestepID
!
(
INTEGER
streamID
)
EXTERNAL
streamInqCurTimestepID
INTEGER
streamInqTimestep
!
(
INTEGER
streamID
,
!
INTEGER
tsID
)
...
...
src/cdiFortran.c
View file @
8618024f
...
...
@@ -144,6 +144,10 @@ FCALLSCSUB2 (streamDefCompLevel, STREAMDEFCOMPLEVEL, streamdefcomplevel, INT, IN
FCALLSCFUN1
(
INT
,
streamInqCompType
,
STREAMINQCOMPTYPE
,
streaminqcomptype
,
INT
)
FCALLSCFUN1
(
INT
,
streamInqCompLevel
,
STREAMINQCOMPLEVEL
,
streaminqcomplevel
,
INT
)
FCALLSCFUN2
(
INT
,
streamDefTimestep
,
STREAMDEFTIMESTEP
,
streamdeftimestep
,
INT
,
INT
)
/* query currently set timestep id */
FCALLSCFUN1
(
INT
,
streamInqCurTimestepID
,
STREAMINQCURTIMESTEPID
,
streaminqcurtimestepid
,
INT
)
FCALLSCFUN2
(
INT
,
streamInqTimestep
,
STREAMINQTIMESTEP
,
streaminqtimestep
,
INT
,
INT
)
FCALLSCFUN1
(
STRING
,
streamFilename
,
STREAMFILENAME
,
streamfilename
,
INT
)
FCALLSCFUN1
(
STRING
,
streamFilesuffix
,
STREAMFILESUFFIX
,
streamfilesuffix
,
INT
)
...
...
src/stream.c
View file @
8618024f
...
...
@@ -1383,6 +1383,13 @@ int streamDefTimestep(int streamID, int tsID)
return
myStreamDefTimestep_
(
streamptr
,
tsID
);
}
int
streamInqCurTimestepID
(
int
streamID
)
{
stream_t
*
streamptr
=
stream_to_pointer
(
streamID
);
return
streamptr
->
curTsID
;
}
/*
@Function streamInqTimestep
@Title Get time step
...
...
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