Skip to content

GitLab

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

update fortran interface

parent 9c5f955b
Hide whitespace changes
Inline Side-by-side
doc/tex/c_quick_ref.tex
View file @ 8a492e99
......@@ -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}
......
doc/tex/f_quick_ref.tex
View file @ 8a492e99
......@@ -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}
......
src/cdi.inc
View file @ 8a492e99
......@@ -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,
......
src/cdiFortran.c
View file @ 8a492e99
......@@ -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)
......
src/table.h
View file @ 8a492e99
......@@ -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

Imprint | Privacy Policy