Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
mpim-sw
libcdi
Commits
8a492e99
Commit
8a492e99
authored
Dec 10, 2009
by
Uwe Schulzweida
Browse files
update fortran interface
parent
9c5f955b
Changes
5
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
,
Nov
ember
2009
!
Uwe
Schulzweida
,
MPI
-
MET
,
Hamburg
,
Dec
ember
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
,
"s
t
p"
,
"log surface pressure"
,
NULL
},
{
152
,
"
l
sp"
,
"log surface pressure"
,
NULL
},
{
153
,
"xl"
,
"cloud water"
,
"kg/kg"
},
{
154
,
"xi"
,
"cloud ice"
,
"kg/kg"
},
{
155
,
"sd"
,
"divergence"
,
"1/s"
},
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment