cdi.h: added vlistDefVarTime()

462990e6 · Uwe Schulzweida · 8504eb43 · 462990e6 · 462990e6 · 462990e6
Commit 462990e6 authored May 02, 2012 by Uwe Schulzweida
Hide whitespace changes
Inline Side-by-side

Showing with 14 additions and 1 deletion

ChangeLog ChangeLog +4 -0

src/cdi.h src/cdi.h +2 -0

src/cdi.inc src/cdi.inc +7 -1

src/cdiFortran.c src/cdiFortran.c +1 -0

No files found.
--- a/ChangeLog
+++ b/ChangeLog
@@ -3,6 +3,10 @@
 	* Version 1.5.5 released
 	* using CGRIBEX library version 1.5.2

+2012-05-02 Uwe Schulzweida  <Uwe.Schulzweida@zmaw.de>
+
+	* cdi.h: added vlistDefVarTime() [request: Florian Prill]
+
 2012-05-02 Uwe Schulzweida  <Uwe.Schulzweida@zmaw.de>

 	* stream_gribapi: bug fix for validation date and time

--- a/src/cdi.h
+++ b/src/cdi.h
@@ -391,6 +391,8 @@ int     vlistInqVarGrid(int vlistID, int varID);
 int     vlistInqVarZaxis(int vlistID, int varID);
 int     vlistInqVarTime(int vlistID, int varID);

+void    vlistDefVarTime(int vlistID, int varID, int timeID);
+
 void    vlistDefVarCompType(int vlistID, int varID, int comptype);
 int     vlistInqVarCompType(int vlistID, int varID);
 void    vlistDefVarCompLevel(int vlistID, int varID, int complevel);

--- a/src/cdi.inc
+++ b/src/cdi.inc
@@ -4,7 +4,7 @@
 !
 ! Author:
 ! -------
-! Uwe Schulzweida, MPI-MET, Hamburg,   April 2012
+! Uwe Schulzweida, MPI-MET, Hamburg,   May 2012
 !

      INTEGER    CDI_MAX_NAME          
@@ -784,6 +784,12 @@
 !                                     INTEGER         varID)
      EXTERNAL        vlistInqVarTime

+!                     vlistDefVarTime
+!                                    (INTEGER         vlistID,
+!                                     INTEGER         varID,
+!                                     INTEGER         timeID)
+      EXTERNAL        vlistDefVarTime
+
 !                     vlistDefVarCompType
 !                                    (INTEGER         vlistID,
 !                                     INTEGER         varID,

--- a/src/cdiFortran.c
+++ b/src/cdiFortran.c
@@ -163,6 +163,7 @@ 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)
+FCALLSCSUB3 (vlistDefVarTime, VLISTDEFVARTIME, vlistdefvartime, INT, INT, INT)
 FCALLSCSUB3 (vlistDefVarCompType, VLISTDEFVARCOMPTYPE, vlistdefvarcomptype, INT, INT, INT)
 FCALLSCFUN2 (INT, vlistInqVarCompType, VLISTINQVARCOMPTYPE, vlistinqvarcomptype, INT, INT)
 FCALLSCSUB3 (vlistDefVarCompLevel, VLISTDEFVARCOMPLEVEL, vlistdefvarcomplevel, INT, INT, INT)