Commit f575d4df authored by Uwe Schulzweida's avatar Uwe Schulzweida
Browse files

update fortran interface

parent 6afc69e9
......@@ -13,6 +13,15 @@ CDI library routines:
Create a horizontal Grid.
\section*{\tt \htmlref{gridDefNP}{gridDefNP}}
\begin{verbatim}
void gridDefNP (intgridID, intnp);
\end{verbatim}
Define the number of parallels between a pole and the equator.
\section*{\tt \htmlref{gridDefNvertex}{gridDefNvertex}}
\begin{verbatim}
......@@ -157,6 +166,15 @@ Destroy a horizontal Grid.
Duplicate a Grid.
\section*{\tt \htmlref{gridInqNP}{gridInqNP}}
\begin{verbatim}
int gridInqNP (intgridID);
\end{verbatim}
Get the number of parallels between a pole and the equator.
\section*{\tt \htmlref{gridInqNvertex}{gridInqNvertex}}
\begin{verbatim}
......
......@@ -13,6 +13,15 @@ CDI library routines:
Create a horizontal Grid.
\section*{\tt \htmlref{gridDefNP}{gridDefNP}}
\begin{verbatim}
SUBROUTINE gridDefNP (INTEGER gridID, INTEGER np)
\end{verbatim}
Define the number of parallels between a pole and the equator.
\section*{\tt \htmlref{gridDefNvertex}{gridDefNvertex}}
\begin{verbatim}
......@@ -157,6 +166,15 @@ Destroy a horizontal Grid.
Duplicate a Grid.
\section*{\tt \htmlref{gridInqNP}{gridInqNP}}
\begin{verbatim}
INTEGER FUNCTION gridInqNP (INTEGER gridID)
\end{verbatim}
Get the number of parallels between a pole and the equator.
\section*{\tt \htmlref{gridInqNvertex}{gridInqNvertex}}
\begin{verbatim}
......
......@@ -4,7 +4,7 @@
!
! Author:
! -------
! Uwe Schulzweida, MPI-MET, Hamburg, December 2011
! Uwe Schulzweida, MPI-MET, Hamburg, January 2012
!
INTEGER CDI_MAX_NAME
......@@ -1185,6 +1185,15 @@
! (INTEGER gridID)
EXTERNAL gridInqYsize
! gridDefNP
! (INTEGER gridID,
! INTEGER np)
EXTERNAL gridDefNP
INTEGER gridInqNP
! (INTEGER gridID)
EXTERNAL gridInqNP
! gridDefXvals
! (INTEGER gridID,
! DOUBLEPRECISION xvals_vec)
......
......@@ -240,6 +240,8 @@ FCALLSCSUB2 (gridDefXsize, GRIDDEFXSIZE, griddefxsize, INT, INT)
FCALLSCFUN1 (INT, gridInqXsize, GRIDINQXSIZE, gridinqxsize, INT)
FCALLSCSUB2 (gridDefYsize, GRIDDEFYSIZE, griddefysize, INT, INT)
FCALLSCFUN1 (INT, gridInqYsize, GRIDINQYSIZE, gridinqysize, INT)
FCALLSCSUB2 (gridDefNP, GRIDDEFNP, griddefnp, INT, INT)
FCALLSCFUN1 (INT, gridInqNP, GRIDINQNP, gridinqnp, INT)
FCALLSCSUB2 (gridDefXvals, GRIDDEFXVALS, griddefxvals, INT, PDOUBLE)
FCALLSCFUN2 (INT, gridInqXvals, GRIDINQXVALS, gridinqxvals, INT, PDOUBLE)
FCALLSCSUB2 (gridDefYvals, GRIDDEFYVALS, griddefyvals, INT, PDOUBLE)
......
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