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
9782736d
Commit
9782736d
authored
Jul 19, 2012
by
Uwe Schulzweida
Browse files
Docu update
parent
568e363a
Changes
8
Hide whitespace changes
Inline
Side-by-side
doc/tex/cdi_cman.tex
View file @
9782736d
...
...
@@ -135,7 +135,7 @@
\end{picture}
\begin{flushright}
\large\bf
{
Climate Data Interface
\\
Version 1.5.
5
\\
Ma
y 2012
}
\large\bf
{
Climate Data Interface
\\
Version 1.5.
6
\\
Jul
y 2012
}
\end{flushright}
\vfill
...
...
doc/tex/cdi_fman.tex
View file @
9782736d
...
...
@@ -132,7 +132,7 @@
\end{picture}
\begin{flushright}
\large\bf
{
Climate Data Interface
\\
Version 1.5.
5
\\
Ma
y 2012
}
\large\bf
{
Climate Data Interface
\\
Version 1.5.
6
\\
Jul
y 2012
}
\end{flushright}
\vfill
...
...
doc/tex/f_grid.tex
View file @
9782736d
...
...
@@ -314,7 +314,7 @@ The function {\tt gridDefXvals} defines all values of the X-axis.
\subsubsection*
{
Usage
}
\begin{verbatim}
SUBROUTINE gridDefXvals(INTEGER gridID,
const
REAL*8 xvals)
SUBROUTINE gridDefXvals(INTEGER gridID, REAL*8 xvals)
\end{verbatim}
\hspace*
{
4mm
}
\begin{minipage}
[]
{
15cm
}
...
...
@@ -368,7 +368,7 @@ The function {\tt gridDefYvals} defines all values of the Y-axis.
\subsubsection*
{
Usage
}
\begin{verbatim}
SUBROUTINE gridDefYvals(INTEGER gridID,
const
REAL*8 yvals)
SUBROUTINE gridDefYvals(INTEGER gridID, REAL*8 yvals)
\end{verbatim}
\hspace*
{
4mm
}
\begin{minipage}
[]
{
15cm
}
...
...
@@ -422,7 +422,7 @@ The function {\tt gridDefXbounds} defines all bounds of the X-axis.
\subsubsection*
{
Usage
}
\begin{verbatim}
SUBROUTINE gridDefXbounds(INTEGER gridID,
const
REAL*8 xbounds)
SUBROUTINE gridDefXbounds(INTEGER gridID, REAL*8 xbounds)
\end{verbatim}
\hspace*
{
4mm
}
\begin{minipage}
[]
{
15cm
}
...
...
@@ -476,7 +476,7 @@ The function {\tt gridDefYbounds} defines all bounds of the Y-axis.
\subsubsection*
{
Usage
}
\begin{verbatim}
SUBROUTINE gridDefYbounds(INTEGER gridID,
const
REAL*8 ybounds)
SUBROUTINE gridDefYbounds(INTEGER gridID, REAL*8 ybounds)
\end{verbatim}
\hspace*
{
4mm
}
\begin{minipage}
[]
{
15cm
}
...
...
doc/tex/f_ref.tex
View file @
9782736d
...
...
@@ -38,7 +38,7 @@ gridDefXbounds
\fi
}
\begin{verbatim}
SUBROUTINE gridDefXbounds(INTEGER gridID,
const
REAL*8 xbounds)
SUBROUTINE gridDefXbounds(INTEGER gridID, REAL*8 xbounds)
\end{verbatim}
Define the bounds of a X-axis
...
...
@@ -113,7 +113,7 @@ gridDefXvals
\fi
}
\begin{verbatim}
SUBROUTINE gridDefXvals(INTEGER gridID,
const
REAL*8 xvals)
SUBROUTINE gridDefXvals(INTEGER gridID, REAL*8 xvals)
\end{verbatim}
Define the values of a X-axis
...
...
@@ -128,7 +128,7 @@ gridDefYbounds
\fi
}
\begin{verbatim}
SUBROUTINE gridDefYbounds(INTEGER gridID,
const
REAL*8 ybounds)
SUBROUTINE gridDefYbounds(INTEGER gridID, REAL*8 ybounds)
\end{verbatim}
Define the bounds of a Y-axis
...
...
@@ -203,7 +203,7 @@ gridDefYvals
\fi
}
\begin{verbatim}
SUBROUTINE gridDefYvals(INTEGER gridID,
const
REAL*8 yvals)
SUBROUTINE gridDefYvals(INTEGER gridID, REAL*8 yvals)
\end{verbatim}
Define the values of a Y-axis
...
...
@@ -655,7 +655,7 @@ streamWriteVar
\fi
}
\begin{verbatim}
SUBROUTINE streamWriteVar(INTEGER streamID, INTEGER varID,
const
REAL*8 data,
SUBROUTINE streamWriteVar(INTEGER streamID, INTEGER varID, REAL*8 data,
INTEGER nmiss)
\end{verbatim}
...
...
@@ -671,7 +671,7 @@ streamWriteVarF
\fi
}
\begin{verbatim}
SUBROUTINE streamWriteVarF(INTEGER streamID, INTEGER varID,
const float *
data,
SUBROUTINE streamWriteVarF(INTEGER streamID, INTEGER varID,
REAL*4
data,
INTEGER nmiss)
\end{verbatim}
...
...
@@ -688,7 +688,7 @@ streamWriteVarSlice
}
\begin{verbatim}
SUBROUTINE streamWriteVarSlice(INTEGER streamID, INTEGER varID, INTEGER levelID,
const
REAL*8 data, INTEGER nmiss)
REAL*8 data, INTEGER nmiss)
\end{verbatim}
Write a horizontal slice of a variable
...
...
@@ -704,7 +704,7 @@ streamWriteVarSliceF
}
\begin{verbatim}
SUBROUTINE streamWriteVarSliceF(INTEGER streamID, INTEGER varID, INTEGER levelID,
const float *
data, INTEGER nmiss)
REAL*4
data, INTEGER nmiss)
\end{verbatim}
Write a horizontal slice of a variable
...
...
@@ -961,7 +961,7 @@ vlistDefAttFlt
\begin{verbatim}
INTEGER FUNCTION vlistDefAttFlt(INTEGER vlistID, INTEGER varID,
CHARACTER*(*) name, INTEGER type, INTEGER len,
const
REAL*8 dp)
REAL*8 dp)
\end{verbatim}
Define a floating point attribute
...
...
@@ -978,7 +978,7 @@ vlistDefAttInt
\begin{verbatim}
INTEGER FUNCTION vlistDefAttInt(INTEGER vlistID, INTEGER varID,
CHARACTER*(*) name, INTEGER type, INTEGER len,
const
INTEGER ip)
INTEGER ip)
\end{verbatim}
Define an integer attribute
...
...
@@ -1469,7 +1469,7 @@ zaxisDefLevels
\fi
}
\begin{verbatim}
SUBROUTINE zaxisDefLevels(INTEGER zaxisID,
const
REAL*8 levels)
SUBROUTINE zaxisDefLevels(INTEGER zaxisID, REAL*8 levels)
\end{verbatim}
Define the levels of a Z-axis
...
...
doc/tex/f_stream.tex
View file @
9782736d
...
...
@@ -341,7 +341,7 @@ The values are converted to the external data type of the variable, if necessary
\subsubsection*
{
Usage
}
\begin{verbatim}
SUBROUTINE streamWriteVar(INTEGER streamID, INTEGER varID,
const
REAL*8 data,
SUBROUTINE streamWriteVar(INTEGER streamID, INTEGER varID, REAL*8 data,
INTEGER nmiss)
\end{verbatim}
...
...
@@ -370,7 +370,7 @@ Only support for netCDF was implemented in this function.
\subsubsection*
{
Usage
}
\begin{verbatim}
SUBROUTINE streamWriteVarF(INTEGER streamID, INTEGER varID,
const float *
data,
SUBROUTINE streamWriteVarF(INTEGER streamID, INTEGER varID,
REAL*4
data,
INTEGER nmiss)
\end{verbatim}
...
...
@@ -428,7 +428,7 @@ The values are converted to the external data type of the variable, if necessary
\begin{verbatim}
SUBROUTINE streamWriteVarSlice(INTEGER streamID, INTEGER varID, INTEGER levelID,
const
REAL*8 data, INTEGER nmiss)
REAL*8 data, INTEGER nmiss)
\end{verbatim}
\hspace*
{
4mm
}
\begin{minipage}
[]
{
15cm
}
...
...
@@ -459,7 +459,7 @@ Only support for netCDF was implemented in this function.
\begin{verbatim}
SUBROUTINE streamWriteVarSliceF(INTEGER streamID, INTEGER varID, INTEGER levelID,
const float *
data, INTEGER nmiss)
REAL*4
data, INTEGER nmiss)
\end{verbatim}
\hspace*
{
4mm
}
\begin{minipage}
[]
{
15cm
}
...
...
doc/tex/f_vlist_att.tex
View file @
9782736d
...
...
@@ -70,7 +70,7 @@ The function {\tt vlistDefAttInt} defines an integer attribute.
\begin{verbatim}
INTEGER FUNCTION vlistDefAttInt(INTEGER vlistID, INTEGER varID,
CHARACTER*(*) name, INTEGER type, INTEGER len,
const
INTEGER ip)
INTEGER ip)
\end{verbatim}
\hspace*
{
4mm
}
\begin{minipage}
[]
{
15cm
}
...
...
@@ -133,7 +133,7 @@ The function {\tt vlistDefAttFlt} defines a floating point attribute.
\begin{verbatim}
INTEGER FUNCTION vlistDefAttFlt(INTEGER vlistID, INTEGER varID,
CHARACTER*(*) name, INTEGER type, INTEGER len,
const
REAL*8 dp)
REAL*8 dp)
\end{verbatim}
\hspace*
{
4mm
}
\begin{minipage}
[]
{
15cm
}
...
...
doc/tex/f_zaxis.tex
View file @
9782736d
...
...
@@ -132,7 +132,7 @@ The function {\tt zaxisDefLevels} defines the levels of a Z-axis.
\subsubsection*
{
Usage
}
\begin{verbatim}
SUBROUTINE zaxisDefLevels(INTEGER zaxisID,
const
REAL*8 levels)
SUBROUTINE zaxisDefLevels(INTEGER zaxisID, REAL*8 levels)
\end{verbatim}
\hspace*
{
4mm
}
\begin{minipage}
[]
{
15cm
}
...
...
doc/tex/makedoc
View file @
9782736d
...
...
@@ -324,6 +324,7 @@ sub printproto {
if
(
"
$ftype
"
eq
"
void
"
)
{
$ftype
=
"
SUBROUTINE
";
}
if
(
"
$ftype
"
eq
"
int
"
)
{
$ftype
=
"
INTEGER FUNCTION
";
}
if
(
"
$ftype
"
eq
"
double
"
)
{
$ftype
=
"
REAL*8 FUNCTION
";
}
if
(
"
$ftype
"
eq
"
float
"
)
{
$ftype
=
"
REAL*4 FUNCTION
";
}
$klen
=
0
;
$klen
+=
length
(
$ftype
)
+
length
(
$fname
)
+
6
;
print
FDOCFILE
"
$ftype
$fname
(
";
...
...
@@ -340,6 +341,9 @@ sub printproto {
$tag
=~
s/int /INTEGER /og
;
$tag
=~
s/double \*/REAL*8 /og
;
$tag
=~
s/double /REAL*8 /og
;
$tag
=~
s/float \*/REAL*4 /og
;
$tag
=~
s/float /REAL*4 /og
;
$tag
=~
s/const //og
;
$len
=
length
(
$tag
);
if
(
$plen
+
$len
>
80
)
{
print
FDOCFILE
"
\n
";
...
...
@@ -370,10 +374,12 @@ sub printfortran {
}
$line
=~
s/ < / .LT. /og
;
$line
=~
s/;$//og
;
$line
=~
s/int /INTEGER /og
;
$line
=~
s/double /REAL*8 /og
;
$line
=~
s/const char \*/CHARACTER\*(\*) /og
;
$line
=~
s/char \*/CHARACTER\*(\*) /og
;
$line
=~
s/int /INTEGER /og
;
$line
=~
s/double /REAL*8 /og
;
$line
=~
s/float /REAL*4 /og
;
$line
=~
s/const //og
;
$line
=~
s/if /IF /og
;
$line
=~
s/#include \"/INCLUDE \'/og
;
$line
=~
s/\"$/\'/og
;
...
...
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