renamed vlistInqVarTime() to vlistInqVarTsteptype()

app/cdi.c

@@ -995,7 +995,7 @@ int main(int argc, char *argv[])
 	    {
 	      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);
 		  gridID   = vlistInqVarGrid(vlistID1, varID);

src/cdi.h

@@ -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

@@ -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

@@ -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

@@ -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