Commit 906a0846 authored by Uwe Schulzweida's avatar Uwe Schulzweida
Browse files

Fortran interface update.

parent 2f876506
......@@ -1014,7 +1014,7 @@ Define the time axis of a variable list.
\section*{\tt \htmlref{vlistDefVar}{vlistDefVar}}
\begin{verbatim}
int vlistDefVar (int vlistID, int gridID, int zaxisID, int tsteptype);
int vlistDefVar (int vlistID, int gridID, int zaxisID, int timetype);
\end{verbatim}
Create a new variable.
......@@ -1113,7 +1113,7 @@ Define the standard name of a Variable.
\section*{\tt \htmlref{vlistDefVarTiles}{vlistDefVarTiles}}
\begin{verbatim}
int vlistDefVarTiles (int vlistID, int gridID, int zaxisID, int tsteptype,
int vlistDefVarTiles (int vlistID, int gridID, int zaxisID, int timetype,
int tilesetID);
\end{verbatim}
......
......@@ -1020,7 +1020,7 @@ Define the time axis of a variable list.
\begin{verbatim}
INTEGER FUNCTION vlistDefVar (INTEGER vlistID, INTEGER gridID, INTEGER zaxisID,
INTEGER tsteptype)
INTEGER timetype)
\end{verbatim}
Create a new variable.
......@@ -1125,7 +1125,7 @@ Define the standard name of a Variable.
\begin{verbatim}
INTEGER FUNCTION vlistDefVarTiles (INTEGER vlistID, INTEGER gridID,
INTEGER zaxisID, INTEGER tsteptype,
INTEGER zaxisID, INTEGER timetype,
INTEGER tilesetID)
\end{verbatim}
......
......@@ -4,7 +4,7 @@
!
! Author:
! -------
! Uwe Schulzweida, MPI-MET, Hamburg, September 2017
! Uwe Schulzweida, MPI-MET, Hamburg, October 2017
!
INTEGER CDI_MAX_NAME
......@@ -360,13 +360,13 @@
!
INTEGER TIME_CONSTANT
PARAMETER (TIME_CONSTANT = 0)
INTEGER TIME_VARYING
PARAMETER (TIME_VARYING = 1)
INTEGER TIME_VARIABLE
PARAMETER (TIME_VARIABLE = 1)
!
! TSTEP types
!
INTEGER TSTEP_CONSTANT
PARAMETER (TSTEP_CONSTANT = 0)
INTEGER TSTEP_INSTANT
PARAMETER (TSTEP_INSTANT = 1)
INTEGER TSTEP_AVG
......@@ -951,7 +951,7 @@
! (INTEGER vlistID,
! INTEGER gridID,
! INTEGER zaxisID,
! INTEGER tsteptype,
! INTEGER timetype,
! INTEGER tilesetID)
EXTERNAL vlistDefVarTiles
......@@ -959,7 +959,7 @@
! (INTEGER vlistID,
! INTEGER gridID,
! INTEGER zaxisID,
! INTEGER tsteptype)
! INTEGER timetype)
EXTERNAL vlistDefVar
! vlistChangeVarGrid
......@@ -979,7 +979,7 @@
! INTEGER varID,
! INTEGER gridID,
! INTEGER zaxisID,
! INTEGER tsteptype)
! INTEGER timetype)
EXTERNAL vlistInqVar
INTEGER vlistInqVarGrid
......@@ -1000,6 +1000,17 @@
! INTEGER code)
EXTERNAL vlistInqVarID
! vlistDefVarTimetype
! (INTEGER vlistID,
! INTEGER varID,
! INTEGER timetype)
EXTERNAL vlistDefVarTimetype
INTEGER vlistInqVarTimetype
! (INTEGER vlistID,
! INTEGER varID)
EXTERNAL vlistInqVarTimetype
! vlistDefVarTsteptype
! (INTEGER vlistID,
! INTEGER varID,
......
......@@ -233,6 +233,8 @@ FCALLSCFUN2 (INT, vlistInqVarZaxis, VLISTINQVARZAXIS, vlistinqvarzaxis, INT, INT
/* used in MPIOM */
FCALLSCFUN2 (INT, vlistInqVarID, VLISTINQVARID, vlistinqvarid, INT, INT)
FCALLSCSUB3 (vlistDefVarTimetype, VLISTDEFVARTIMETYPE, vlistdefvartimetype, INT, INT, INT)
FCALLSCFUN2 (INT, vlistInqVarTimetype, VLISTINQVARTIMETYPE, vlistinqvartimetype, INT, INT)
FCALLSCSUB3 (vlistDefVarTsteptype, VLISTDEFVARTSTEPTYPE, vlistdefvartsteptype, INT, INT, INT)
FCALLSCFUN2 (INT, vlistInqVarTsteptype, VLISTINQVARTSTEPTYPE, vlistinqvartsteptype, INT, INT)
FCALLSCSUB3 (vlistDefVarCompType, VLISTDEFVARCOMPTYPE, vlistdefvarcomptype, INT, INT, INT)
......
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