Commit 8a492e99 authored by Uwe Schulzweida's avatar Uwe Schulzweida
Browse files

update fortran interface

parent 9c5f955b
......@@ -726,6 +726,15 @@ Define the missing value of a Variable.
Define the name of a Variable.
\section*{\tt \htmlref{vlistDefVarParam}{vlistDefVarParam}}
\begin{verbatim}
void vlistDefVarParam (intvlistID, intvarID, intparam);
\end{verbatim}
Define the parameter number of a Variable.
\section*{\tt \htmlref{vlistDefVarStdname}{vlistDefVarStdname}}
\begin{verbatim}
......@@ -844,6 +853,15 @@ Get the missing value of a Variable.
Get the name of a Variable.
\section*{\tt \htmlref{vlistInqVarParam}{vlistInqVarParam}}
\begin{verbatim}
int vlistInqVarParam (intvlistID, intvarID);
\end{verbatim}
Get the parameter number of a Variable.
\section*{\tt \htmlref{vlistInqVarStdname}{vlistInqVarStdname}}
\begin{verbatim}
......
......@@ -732,6 +732,15 @@ Define the missing value of a Variable.
Define the name of a Variable.
\section*{\tt \htmlref{vlistDefVarParam}{vlistDefVarParam}}
\begin{verbatim}
SUBROUTINE vlistDefVarParam (INTEGER vlistID, INTEGER varID, INTEGER param)
\end{verbatim}
Define the parameter number of a Variable.
\section*{\tt \htmlref{vlistDefVarStdname}{vlistDefVarStdname}}
\begin{verbatim}
......@@ -854,6 +863,15 @@ Get the missing value of a Variable.
Get the name of a Variable.
\section*{\tt \htmlref{vlistInqVarParam}{vlistInqVarParam}}
\begin{verbatim}
INTEGER FUNCTION vlistInqVarParam (INTEGER vlistID, INTEGER varID)
\end{verbatim}
Get the parameter number of a Variable.
\section*{\tt \htmlref{vlistInqVarStdname}{vlistInqVarStdname}}
\begin{verbatim}
......
......@@ -4,13 +4,15 @@
!
! Author:
! -------
! Uwe Schulzweida, MPI-MET, Hamburg, November 2009
! Uwe Schulzweida, MPI-MET, Hamburg, December 2009
!
INTEGER CDI_UNDEFID
PARAMETER (CDI_UNDEFID = -1)
INTEGER CDI_GLOBAL
PARAMETER (CDI_GLOBAL = -1)
INTEGER CDI_UNDEFPARAM
PARAMETER (CDI_UNDEFPARAM = 2147483647)
!
! Byte order
!
......@@ -298,6 +300,48 @@
! INTEGER val)
EXTERNAL cdiDefGlobal
!
! CDI converter routines
!
! cdiDecodeParam
! (INTEGER param,
! INTEGER dis,
! INTEGER cat,
! INTEGER num)
EXTERNAL cdiDecodeParam
INTEGER cdiEncodeParam
! (INTEGER dis,
! INTEGER cat,
! INTEGER num)
EXTERNAL cdiEncodeParam
! cdiDecodeDate
! (INTEGER date,
! INTEGER year,
! INTEGER month,
! INTEGER day)
EXTERNAL cdiDecodeDate
INTEGER cdiEncodeDate
! (INTEGER year,
! INTEGER month,
! INTEGER day)
EXTERNAL cdiEncodeDate
! cdiDecodeTime
! (INTEGER time,
! INTEGER hour,
! INTEGER minute,
! INTEGER second)
EXTERNAL cdiDecodeTime
INTEGER cdiEncodeTime
! (INTEGER hour,
! INTEGER minute,
! INTEGER second)
EXTERNAL cdiEncodeTime
!
! STREAM control routines
!
......@@ -667,6 +711,17 @@
! INTEGER varID)
EXTERNAL vlistInqVarZlevel
! vlistDefVarParam
! (INTEGER vlistID,
! INTEGER varID,
! INTEGER param)
EXTERNAL vlistDefVarParam
INTEGER vlistInqVarParam
! (INTEGER vlistID,
! INTEGER varID)
EXTERNAL vlistInqVarParam
! vlistDefVarCode
! (INTEGER vlistID,
! INTEGER varID,
......
......@@ -59,6 +59,15 @@ FCALLSCSUB1 (cdiDefMissval, CDIDEFMISSVAL, cdidefmissval, DOUBLE)
FCALLSCFUN0 (DOUBLE, cdiInqMissval, CDIINQMISSVAL, cdiinqmissval)
FCALLSCSUB2 (cdiDefGlobal, CDIDEFGLOBAL, cdidefglobal, STRING, INT)
/* CDI converter routines */
FCALLSCSUB4 (cdiDecodeParam, CDIDECODEPARAM, cdidecodeparam, INT, PINT, PINT, PINT)
FCALLSCFUN3 (INT, cdiEncodeParam, CDIENCODEPARAM, cdiencodeparam, INT, INT, INT)
FCALLSCSUB4 (cdiDecodeDate, CDIDECODEDATE, cdidecodedate, INT, PINT, PINT, PINT)
FCALLSCFUN3 (INT, cdiEncodeDate, CDIENCODEDATE, cdiencodedate, INT, INT, INT)
FCALLSCSUB4 (cdiDecodeTime, CDIDECODETIME, cdidecodetime, INT, PINT, PINT, PINT)
FCALLSCFUN3 (INT, cdiEncodeTime, CDIENCODETIME, cdiencodetime, INT, INT, INT)
/* STREAM control routines */
FCALLSCFUN1 (INT, streamOpenRead, STREAMOPENREAD, streamopenread, STRING)
......@@ -144,6 +153,8 @@ FCALLSCSUB3 (vlistDefVarZtype, VLISTDEFVARZTYPE, vlistdefvarztype, INT, INT, INT
FCALLSCFUN2 (INT, vlistInqVarZtype, VLISTINQVARZTYPE, vlistinqvarztype, INT, INT)
FCALLSCSUB3 (vlistDefVarZlevel, VLISTDEFVARZLEVEL, vlistdefvarzlevel, INT, INT, INT)
FCALLSCFUN2 (INT, vlistInqVarZlevel, VLISTINQVARZLEVEL, vlistinqvarzlevel, INT, INT)
FCALLSCSUB3 (vlistDefVarParam, VLISTDEFVARPARAM, vlistdefvarparam, INT, INT, INT)
FCALLSCFUN2 (INT, vlistInqVarParam, VLISTINQVARPARAM, vlistinqvarparam, INT, INT)
FCALLSCSUB3 (vlistDefVarCode, VLISTDEFVARCODE, vlistdefvarcode, INT, INT, INT)
FCALLSCFUN2 (INT, vlistInqVarCode, VLISTINQVARCODE, vlistinqvarcode, INT, INT)
FCALLSCSUB3 (vlistDefVarDatatype, VLISTDEFVARDATATYPE, vlistdefvardatatype, INT, INT, INT)
......
......@@ -190,7 +190,7 @@ static PAR echam5[] = {
{ 149, "velopot", "velocity potential", "m^2/s" },
{ 150, "xivi", "vertically integrated cloud ice", "kg/m^2" },
{ 151, "slp", "mean sea level pressure", "Pa" },
{ 152, "stp", "log surface pressure", NULL },
{ 152, "lsp", "log surface pressure", NULL },
{ 153, "xl", "cloud water", "kg/kg" },
{ 154, "xi", "cloud ice", "kg/kg" },
{ 155, "sd", "divergence", "1/s" },
......
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