Commit a3196ad3 authored by Uwe Schulzweida's avatar Uwe Schulzweida
Browse files

renamed vlistInqVarTime() to vlistInqVarTsteptype()

parent 9b08aa33
...@@ -995,7 +995,7 @@ int main(int argc, char *argv[]) ...@@ -995,7 +995,7 @@ int main(int argc, char *argv[])
{ {
for ( varID = 0; varID < nvars; varID++ ) for ( varID = 0; varID < nvars; varID++ )
{ {
if ( vlistInqVarTime(vlistID1, varID) == TIME_CONSTANT && tsID > 0 ) continue; if ( vlistInqVarTsteptype(vlistID1, varID) == TSTEP_CONSTANT && tsID > 0 ) continue;
number = vlistInqVarNumber(vlistID1, varID); number = vlistInqVarNumber(vlistID1, varID);
gridID = vlistInqVarGrid(vlistID1, varID); gridID = vlistInqVarGrid(vlistID1, varID);
......
...@@ -390,10 +390,8 @@ void vlistChangeVarZaxis(int vlistID, int varID, int zaxisID); ...@@ -390,10 +390,8 @@ void vlistChangeVarZaxis(int vlistID, int varID, int zaxisID);
void vlistInqVar(int vlistID, int varID, int *gridID, int *zaxisID, int *tsteptype); void vlistInqVar(int vlistID, int varID, int *gridID, int *zaxisID, int *tsteptype);
int vlistInqVarGrid(int vlistID, int varID); int vlistInqVarGrid(int vlistID, int varID);
int vlistInqVarZaxis(int vlistID, int varID); int vlistInqVarZaxis(int vlistID, int varID);
int vlistInqVarTime(int vlistID, int varID);
int vlistInqVarTsteptype(int vlistID, int varID); int vlistInqVarTsteptype(int vlistID, int varID);
void vlistDefVarTsteptype(int vlistID, int varID, int tsteptype); void vlistDefVarTsteptype(int vlistID, int varID, int tsteptype);
void vlistDefVarCompType(int vlistID, int varID, int comptype); void vlistDefVarCompType(int vlistID, int varID, int comptype);
......
...@@ -781,11 +781,6 @@ ...@@ -781,11 +781,6 @@
! INTEGER varID) ! INTEGER varID)
EXTERNAL vlistInqVarZaxis EXTERNAL vlistInqVarZaxis
INTEGER vlistInqVarTime
! (INTEGER vlistID,
! INTEGER varID)
EXTERNAL vlistInqVarTime
INTEGER vlistInqVarTsteptype INTEGER vlistInqVarTsteptype
! (INTEGER vlistID, ! (INTEGER vlistID,
! INTEGER varID) ! INTEGER varID)
......
...@@ -162,7 +162,6 @@ FCALLSCSUB3 (vlistChangeVarZaxis, VLISTCHANGEVARZAXIS, vlistchangevarzaxis, INT, ...@@ -162,7 +162,6 @@ FCALLSCSUB3 (vlistChangeVarZaxis, VLISTCHANGEVARZAXIS, vlistchangevarzaxis, INT,
FCALLSCSUB5 (vlistInqVar, VLISTINQVAR, vlistinqvar, INT, INT, PINT, PINT, PINT) FCALLSCSUB5 (vlistInqVar, VLISTINQVAR, vlistinqvar, INT, INT, PINT, PINT, PINT)
FCALLSCFUN2 (INT, vlistInqVarGrid, VLISTINQVARGRID, vlistinqvargrid, INT, INT) FCALLSCFUN2 (INT, vlistInqVarGrid, VLISTINQVARGRID, vlistinqvargrid, INT, INT)
FCALLSCFUN2 (INT, vlistInqVarZaxis, VLISTINQVARZAXIS, vlistinqvarzaxis, INT, INT) FCALLSCFUN2 (INT, vlistInqVarZaxis, VLISTINQVARZAXIS, vlistinqvarzaxis, INT, INT)
FCALLSCFUN2 (INT, vlistInqVarTime, VLISTINQVARTIME, vlistinqvartime, INT, INT)
FCALLSCFUN2 (INT, vlistInqVarTsteptype, VLISTINQVARTSTEPTYPE, vlistinqvartsteptype, INT, INT) FCALLSCFUN2 (INT, vlistInqVarTsteptype, VLISTINQVARTSTEPTYPE, vlistinqvartsteptype, INT, INT)
FCALLSCSUB3 (vlistDefVarTsteptype, VLISTDEFVARTSTEPTYPE, vlistdefvartsteptype, INT, INT, INT) FCALLSCSUB3 (vlistDefVarTsteptype, VLISTDEFVARTSTEPTYPE, vlistdefvartsteptype, INT, INT, INT)
FCALLSCSUB3 (vlistDefVarCompType, VLISTDEFVARCOMPTYPE, vlistdefvarcomptype, INT, INT, INT) FCALLSCSUB3 (vlistDefVarCompType, VLISTDEFVARCOMPTYPE, vlistdefvarcomptype, INT, INT, INT)
......
...@@ -372,18 +372,6 @@ int vlistInqVarZaxis(int vlistID, int varID) ...@@ -372,18 +372,6 @@ int vlistInqVarZaxis(int vlistID, int varID)
return (vlistptr->vars[varID].zaxisID); 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 @Function vlistInqVarParam
@Title Get the parameter number of a Variable @Title Get the parameter number of a Variable
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment