Commit 5595338d authored by Uwe Schulzweida's avatar Uwe Schulzweida
Browse files

Fortran interface update

parent 875d140e
......@@ -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}
......
......@@ -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}
......
......@@ -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)
......
......@@ -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)
......
Supports Markdown
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