Fortran interface update

doc/tex/c_quick_ref.tex

@@ -4,15 +4,6 @@
 This appendix provide a brief listing of the C language bindings of the
 CDI library routines:
 
-\section*{\tt \htmlref{cdiClearAdditionalKeys}{cdiClearAdditionalKeys}}
-
-\begin{verbatim}
-    void cdiClearAdditionalKeys ();
-\end{verbatim}
-
-Clear the list of additional GRIB keys..
-
-
 \section*{\tt \htmlref{cdiDefAdditionalKey}{cdiDefAdditionalKey}}
 
 \begin{verbatim}
@@ -766,7 +757,7 @@ Copy some entries of a variable list.
 \section*{\tt \htmlref{vlistCreate}{vlistCreate}}
 
 \begin{verbatim}
-    int vlistCreate ();
+    int vlistCreate (
 \end{verbatim}
 
 Create a variable list.
@@ -1193,6 +1184,15 @@ Define the longname of a Z-axis.
 Define the name of a Z-axis.
 
 
+\section*{\tt \htmlref{zaxisDefNlevRef}{zaxisDefNlevRef}}
+
+\begin{verbatim}
+    void zaxisDefNlevRef (int gridID, int nhlev);
+\end{verbatim}
+
+Define the number of half levels of a generalized Z-axis.
+
+
 \section*{\tt \htmlref{zaxisDefNumber}{zaxisDefNumber}}
 
 \begin{verbatim}
@@ -1274,6 +1274,15 @@ Get the longname of a Z-axis.
 Get the name of a Z-axis.
 
 
+\section*{\tt \htmlref{zaxisInqNlevRef}{zaxisInqNlevRef}}
+
+\begin{verbatim}
+    int zaxisInqNlevRef (int gridID);
+\end{verbatim}
+
+Get the number of half levels of a generalized Z-axis.
+
+
 \section*{\tt \htmlref{zaxisInqNumber}{zaxisInqNumber}}
 
 \begin{verbatim}

doc/tex/f_quick_ref.tex

@@ -4,15 +4,6 @@
 This appendix provide a brief listing of the Fortran language bindings of the
 CDI library routines:
 
-\section*{\tt \htmlref{cdiClearAdditionalKeys}{cdiClearAdditionalKeys}}
-
-\begin{verbatim}
-    SUBROUTINE cdiClearAdditionalKeys
-\end{verbatim}
-
-Clear the list of additional GRIB keys..
-
-
 \section*{\tt \htmlref{cdiDefAdditionalKey}{cdiDefAdditionalKey}}
 
 \begin{verbatim}
@@ -768,7 +759,7 @@ Copy some entries of a variable list.
 \section*{\tt \htmlref{vlistCreate}{vlistCreate}}
 
 \begin{verbatim}
-    INTEGER FUNCTION vlistCreate
+    INTEGER FUNCTION vlistCreate (
 \end{verbatim}
 
 Create a variable list.
@@ -1213,6 +1204,15 @@ Define the longname of a Z-axis.
 Define the name of a Z-axis.
 
 
+\section*{\tt \htmlref{zaxisDefNlevRef}{zaxisDefNlevRef}}
+
+\begin{verbatim}
+    SUBROUTINE zaxisDefNlevRef (INTEGER gridID, INTEGER nhlev)
+\end{verbatim}
+
+Define the number of half levels of a generalized Z-axis.
+
+
 \section*{\tt \htmlref{zaxisDefNumber}{zaxisDefNumber}}
 
 \begin{verbatim}
@@ -1294,6 +1294,15 @@ Get the longname of a Z-axis.
 Get the name of a Z-axis.
 
 
+\section*{\tt \htmlref{zaxisInqNlevRef}{zaxisInqNlevRef}}
+
+\begin{verbatim}
+    INTEGER FUNCTION zaxisInqNlevRef (INTEGER gridID)
+\end{verbatim}
+
+Get the number of half levels of a generalized Z-axis.
+
+
 \section*{\tt \htmlref{zaxisInqNumber}{zaxisInqNumber}}
 
 \begin{verbatim}

src/cdi.inc

@@ -396,9 +396,6 @@
 !                                     REAL            partInflate)
       EXTERNAL        pioInit
 
-!                     pioWriteTimestep
-      EXTERNAL        pioWriteTimestep
-
 !                     streamWriteVarPart
 !                                    (INTEGER         streamID,
 !                                     INTEGER         varID,
@@ -1225,9 +1222,6 @@
 !                                     INTEGER         forecast_type)
       EXTERNAL        vlistInqVarEnsemble
 
-!                     cdiClearAdditionalKeys
-      EXTERNAL        cdiClearAdditionalKeys
-
 !                     cdiDefAdditionalKey
 !                                    (CHARACTER*(*)   string)
       EXTERNAL        cdiDefAdditionalKey
@@ -1862,6 +1856,15 @@
 !                                     INTEGER         levelID)
       EXTERNAL        zaxisInqLevel
 
+!                     zaxisDefNlevRef
+!                                    (INTEGER         gridID,
+!                                     INTEGER         nhlev)
+      EXTERNAL        zaxisDefNlevRef
+
+      INTEGER         zaxisInqNlevRef
+!                                    (INTEGER         gridID)
+      EXTERNAL        zaxisInqNlevRef
+
 !                     zaxisDefNumber
 !                                    (INTEGER         gridID,
 !                                     INTEGER         number)

src/cdiFortran.c

@@ -86,7 +86,6 @@ static int pioInit_fwrap(int commSuper, int nProcsIO, int IOMode, int * pioNames
   return MPI_Comm_c2f(v);
 }
 FCALLSCFUN5 (INT, pioInit_fwrap, PIOINIT, pioinit, INT, INT, INT, PINT, FLOAT)
-FCALLSCSUB0 (pioWriteTimestep, PIOWRITETIMESTEP, piowritetimestep)
 static void streamWriteVarPart_fwrap(int streamID, int varID, const void * data, int nmiss, void * partDesc)
 {
   streamWriteVarPart( streamID,  varID,  data,  nmiss, (*(Xt_idxlist *)partDesc));
@@ -277,7 +276,6 @@ FCALLSCFUN3 (INT, vlistMergedLevel, VLISTMERGEDLEVEL, vlistmergedlevel, INT, INT
 
 FCALLSCSUB5 (vlistDefVarEnsemble, VLISTDEFVARENSEMBLE, vlistdefvarensemble, INT, INT, INT, INT, INT)
 FCALLSCFUN5 (INT, vlistInqVarEnsemble, VLISTINQVARENSEMBLE, vlistinqvarensemble, INT, INT, PINT, PINT, PINT)
-FCALLSCSUB0 (cdiClearAdditionalKeys, CDICLEARADDITIONALKEYS, cdiclearadditionalkeys)
 FCALLSCSUB1 (cdiDefAdditionalKey, CDIDEFADDITIONALKEY, cdidefadditionalkey, STRING)
 FCALLSCSUB4 (vlistDefVarIntKey, VLISTDEFVARINTKEY, vlistdefvarintkey, INT, INT, STRING, INT)
 FCALLSCSUB4 (vlistDefVarDblKey, VLISTDEFVARDBLKEY, vlistdefvardblkey, INT, INT, STRING, DOUBLE)
@@ -418,6 +416,8 @@ FCALLSCSUB2 (zaxisDefLevels, ZAXISDEFLEVELS, zaxisdeflevels, INT, PDOUBLE)
 FCALLSCSUB2 (zaxisInqLevels, ZAXISINQLEVELS, zaxisinqlevels, INT, PDOUBLE)
 FCALLSCSUB3 (zaxisDefLevel, ZAXISDEFLEVEL, zaxisdeflevel, INT, INT, DOUBLE)
 FCALLSCFUN2 (DOUBLE, zaxisInqLevel, ZAXISINQLEVEL, zaxisinqlevel, INT, INT)
+FCALLSCSUB2 (zaxisDefNlevRef, ZAXISDEFNLEVREF, zaxisdefnlevref, INT, INT)
+FCALLSCFUN1 (INT, zaxisInqNlevRef, ZAXISINQNLEVREF, zaxisinqnlevref, INT)
 FCALLSCSUB2 (zaxisDefNumber, ZAXISDEFNUMBER, zaxisdefnumber, INT, INT)
 FCALLSCFUN1 (INT, zaxisInqNumber, ZAXISINQNUMBER, zaxisinqnumber, INT)
 FCALLSCSUB2 (zaxisDefUUID, ZAXISDEFUUID, zaxisdefuuid, INT, CBUF)