Commit 2de51f46 authored by Uwe Schulzweida's avatar Uwe Schulzweida
Browse files

Fortran interface iupdate

parent b51d103f
...@@ -396,6 +396,9 @@ ...@@ -396,6 +396,9 @@
! REAL partInflate) ! REAL partInflate)
EXTERNAL pioInit EXTERNAL pioInit
! pioWriteTimestep
EXTERNAL pioWriteTimestep
! streamWriteVarPart ! streamWriteVarPart
! (INTEGER streamID, ! (INTEGER streamID,
! INTEGER varID, ! INTEGER varID,
...@@ -1222,6 +1225,9 @@ ...@@ -1222,6 +1225,9 @@
! INTEGER forecast_type) ! INTEGER forecast_type)
EXTERNAL vlistInqVarEnsemble EXTERNAL vlistInqVarEnsemble
! cdiClearAdditionalKeys
EXTERNAL cdiClearAdditionalKeys
! cdiDefAdditionalKey ! cdiDefAdditionalKey
! (CHARACTER*(*) string) ! (CHARACTER*(*) string)
EXTERNAL cdiDefAdditionalKey EXTERNAL cdiDefAdditionalKey
......
...@@ -86,6 +86,7 @@ static int pioInit_fwrap(int commSuper, int nProcsIO, int IOMode, int * pioNames ...@@ -86,6 +86,7 @@ static int pioInit_fwrap(int commSuper, int nProcsIO, int IOMode, int * pioNames
return MPI_Comm_c2f(v); return MPI_Comm_c2f(v);
} }
FCALLSCFUN5 (INT, pioInit_fwrap, PIOINIT, pioinit, INT, INT, INT, PINT, FLOAT) FCALLSCFUN5 (INT, pioInit_fwrap, PIOINIT, pioinit, INT, INT, INT, PINT, FLOAT)
FCALLSCSUB0 (pioWriteTimestep, PIOWRITETIMESTEP, piowritetimestep)
static void streamWriteVarPart_fwrap(int streamID, int varID, const void * data, int nmiss, void * partDesc) static void streamWriteVarPart_fwrap(int streamID, int varID, const void * data, int nmiss, void * partDesc)
{ {
streamWriteVarPart( streamID, varID, data, nmiss, (*(Xt_idxlist *)partDesc)); streamWriteVarPart( streamID, varID, data, nmiss, (*(Xt_idxlist *)partDesc));
...@@ -276,6 +277,7 @@ FCALLSCFUN3 (INT, vlistMergedLevel, VLISTMERGEDLEVEL, vlistmergedlevel, INT, INT ...@@ -276,6 +277,7 @@ FCALLSCFUN3 (INT, vlistMergedLevel, VLISTMERGEDLEVEL, vlistmergedlevel, INT, INT
FCALLSCSUB5 (vlistDefVarEnsemble, VLISTDEFVARENSEMBLE, vlistdefvarensemble, INT, INT, INT, INT, INT) FCALLSCSUB5 (vlistDefVarEnsemble, VLISTDEFVARENSEMBLE, vlistdefvarensemble, INT, INT, INT, INT, INT)
FCALLSCFUN5 (INT, vlistInqVarEnsemble, VLISTINQVARENSEMBLE, vlistinqvarensemble, INT, INT, PINT, PINT, PINT) FCALLSCFUN5 (INT, vlistInqVarEnsemble, VLISTINQVARENSEMBLE, vlistinqvarensemble, INT, INT, PINT, PINT, PINT)
FCALLSCSUB0 (cdiClearAdditionalKeys, CDICLEARADDITIONALKEYS, cdiclearadditionalkeys)
FCALLSCSUB1 (cdiDefAdditionalKey, CDIDEFADDITIONALKEY, cdidefadditionalkey, STRING) FCALLSCSUB1 (cdiDefAdditionalKey, CDIDEFADDITIONALKEY, cdidefadditionalkey, STRING)
FCALLSCSUB4 (vlistDefVarIntKey, VLISTDEFVARINTKEY, vlistdefvarintkey, INT, INT, STRING, INT) FCALLSCSUB4 (vlistDefVarIntKey, VLISTDEFVARINTKEY, vlistdefvarintkey, INT, INT, STRING, INT)
FCALLSCSUB4 (vlistDefVarDblKey, VLISTDEFVARDBLKEY, vlistdefvardblkey, INT, INT, STRING, DOUBLE) FCALLSCSUB4 (vlistDefVarDblKey, VLISTDEFVARDBLKEY, vlistdefvardblkey, INT, INT, STRING, DOUBLE)
......
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