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

Fortran interface update.

parent 80ac1da3
......@@ -4,7 +4,7 @@
!
! Author:
! -------
! Uwe Schulzweida, MPI-MET, Hamburg, May 2019
! Uwe Schulzweida, MPI-MET, Hamburg, June 2019
!
INTEGER CDI_MAX_NAME
......@@ -339,14 +339,14 @@
PARAMETER (TSTEP_COV = 9)
INTEGER TSTEP_RATIO
PARAMETER (TSTEP_RATIO = 10)
INTEGER TSTEP_SUM
PARAMETER (TSTEP_SUM = 11)
INTEGER TSTEP_RANGE
PARAMETER (TSTEP_RANGE = 11)
PARAMETER (TSTEP_RANGE = 12)
INTEGER TSTEP_INSTANT2
PARAMETER (TSTEP_INSTANT2 = 12)
PARAMETER (TSTEP_INSTANT2 = 13)
INTEGER TSTEP_INSTANT3
PARAMETER (TSTEP_INSTANT3 = 13)
INTEGER TSTEP_SUM
PARAMETER (TSTEP_SUM = 14)
PARAMETER (TSTEP_INSTANT3 = 14)
INTEGER TAXIS_ABSOLUTE
PARAMETER (TAXIS_ABSOLUTE = 1)
INTEGER TAXIS_RELATIVE
......@@ -539,6 +539,11 @@
! (INTEGER streamID)
EXTERNAL streamSync
! streamDefNumWorker
! (INTEGER streamID,
! INTEGER numWorker)
EXTERNAL streamDefNumWorker
! streamDefVlist
! (INTEGER streamID,
! INTEGER vlistID)
......@@ -1546,6 +1551,8 @@
PARAMETER (CDI_KEY_SECTION2PADDING = 820)
INTEGER CDI_KEY_UVRELATIVETOGRID
PARAMETER (CDI_KEY_UVRELATIVETOGRID = 821)
INTEGER CDI_KEY_CONSTITUENTTYPE
PARAMETER (CDI_KEY_CONSTITUENTTYPE = 822)
INTEGER cdiDefKeyInt
! (INTEGER cdiID,
! INTEGER varID,
......
......@@ -143,6 +143,7 @@ FCALLSCFUN2 (INT, streamOpenWrite, STREAMOPENWRITE, streamopenwrite, STRING, INT
FCALLSCFUN1 (INT, streamOpenAppend, STREAMOPENAPPEND, streamopenappend, STRING)
FCALLSCSUB1 (streamClose, STREAMCLOSE, streamclose, INT)
FCALLSCSUB1 (streamSync, STREAMSYNC, streamsync, INT)
FCALLSCSUB2 (streamDefNumWorker, STREAMDEFNUMWORKER, streamdefnumworker, INT, INT)
FCALLSCSUB2 (streamDefVlist, STREAMDEFVLIST, streamdefvlist, INT, INT)
FCALLSCFUN1 (INT, streamInqVlist, STREAMINQVLIST, streaminqvlist, INT)
FCALLSCFUN1 (INT, streamInqFiletype, STREAMINQFILETYPE, streaminqfiletype, 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