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

update fortran interface

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