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
a3196ad3
Commit
a3196ad3
authored
Jun 06, 2012
by
Uwe Schulzweida
Browse files
renamed vlistInqVarTime() to vlistInqVarTsteptype()
parent
9b08aa33
Changes
5
Hide whitespace changes
Inline
Side-by-side
app/cdi.c
View file @
a3196ad3
...
...
@@ -995,7 +995,7 @@ int main(int argc, char *argv[])
{
for
(
varID
=
0
;
varID
<
nvars
;
varID
++
)
{
if
(
vlistInqVarT
im
e
(
vlistID1
,
varID
)
==
T
IME
_CONSTANT
&&
tsID
>
0
)
continue
;
if
(
vlistInqVarT
steptyp
e
(
vlistID1
,
varID
)
==
T
STEP
_CONSTANT
&&
tsID
>
0
)
continue
;
number
=
vlistInqVarNumber
(
vlistID1
,
varID
);
gridID
=
vlistInqVarGrid
(
vlistID1
,
varID
);
...
...
src/cdi.h
View file @
a3196ad3
...
...
@@ -390,10 +390,8 @@ void vlistChangeVarZaxis(int vlistID, int varID, int zaxisID);
void
vlistInqVar
(
int
vlistID
,
int
varID
,
int
*
gridID
,
int
*
zaxisID
,
int
*
tsteptype
);
int
vlistInqVarGrid
(
int
vlistID
,
int
varID
);
int
vlistInqVarZaxis
(
int
vlistID
,
int
varID
);
int
vlistInqVarTime
(
int
vlistID
,
int
varID
);
int
vlistInqVarTsteptype
(
int
vlistID
,
int
varID
);
void
vlistDefVarTsteptype
(
int
vlistID
,
int
varID
,
int
tsteptype
);
void
vlistDefVarCompType
(
int
vlistID
,
int
varID
,
int
comptype
);
...
...
src/cdi.inc
View file @
a3196ad3
...
...
@@ -781,11 +781,6 @@
!
INTEGER
varID
)
EXTERNAL
vlistInqVarZaxis
INTEGER
vlistInqVarTime
!
(
INTEGER
vlistID
,
!
INTEGER
varID
)
EXTERNAL
vlistInqVarTime
INTEGER
vlistInqVarTsteptype
!
(
INTEGER
vlistID
,
!
INTEGER
varID
)
...
...
src/cdiFortran.c
View file @
a3196ad3
...
...
@@ -162,7 +162,6 @@ FCALLSCSUB3 (vlistChangeVarZaxis, VLISTCHANGEVARZAXIS, vlistchangevarzaxis, INT,
FCALLSCSUB5
(
vlistInqVar
,
VLISTINQVAR
,
vlistinqvar
,
INT
,
INT
,
PINT
,
PINT
,
PINT
)
FCALLSCFUN2
(
INT
,
vlistInqVarGrid
,
VLISTINQVARGRID
,
vlistinqvargrid
,
INT
,
INT
)
FCALLSCFUN2
(
INT
,
vlistInqVarZaxis
,
VLISTINQVARZAXIS
,
vlistinqvarzaxis
,
INT
,
INT
)
FCALLSCFUN2
(
INT
,
vlistInqVarTime
,
VLISTINQVARTIME
,
vlistinqvartime
,
INT
,
INT
)
FCALLSCFUN2
(
INT
,
vlistInqVarTsteptype
,
VLISTINQVARTSTEPTYPE
,
vlistinqvartsteptype
,
INT
,
INT
)
FCALLSCSUB3
(
vlistDefVarTsteptype
,
VLISTDEFVARTSTEPTYPE
,
vlistdefvartsteptype
,
INT
,
INT
,
INT
)
FCALLSCSUB3
(
vlistDefVarCompType
,
VLISTDEFVARCOMPTYPE
,
vlistdefvarcomptype
,
INT
,
INT
,
INT
)
...
...
src/vlist_var.c
View file @
a3196ad3
...
...
@@ -372,18 +372,6 @@ int vlistInqVarZaxis(int vlistID, int varID)
return
(
vlistptr
->
vars
[
varID
].
zaxisID
);
}
int
vlistInqVarTime
(
int
vlistID
,
int
varID
)
{
vlist_t
*
vlistptr
;
vlistptr
=
vlist_to_pointer
(
vlistID
);
vlistCheckVarID
(
__func__
,
vlistID
,
varID
);
return
(
vlistptr
->
vars
[
varID
].
tsteptype
);
}
/*
@Function vlistInqVarParam
@Title Get the parameter number of a Variable
...
...
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