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
5796e930
Commit
5796e930
authored
Oct 28, 2009
by
Uwe Schulzweida
Browse files
example/cdi_write update
parent
aad1f826
Changes
2
Hide whitespace changes
Inline
Side-by-side
examples/cdi_write.c
View file @
5796e930
...
...
@@ -65,8 +65,8 @@ int main(void)
{
/* Set the verification date to 1985-01-01 + tsID */
taxisDefVdate
(
taxisID
,
19850101
+
tsID
);
/* Set the verification time to 12:00 */
taxisDefVtime
(
taxisID
,
1200
);
/* Set the verification time to 12:00
:00
*/
taxisDefVtime
(
taxisID
,
1200
00
);
/* Define the time step */
streamDefTimestep
(
streamID
,
tsID
);
...
...
examples/cdi_write_f.f
View file @
5796e930
...
...
@@ -67,8 +67,8 @@
DO
tsID
=
0
,
NTIME
-1
! Set the verification date to 1985-01-01 + tsID
CALL
taxisDefVdate
(
taxisID
,
19850101
+
tsID
)
! Set the verification time to 12:00
CALL
taxisDefVtime
(
taxisID
,
1200
)
! Set the verification time to 12:00
:00
CALL
taxisDefVtime
(
taxisID
,
1200
00
)
! Define the time step
status
=
streamDefTimestep
(
streamID
,
tsID
)
...
...
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