Commit 425a8bc5 authored by Thomas Jahns's avatar Thomas Jahns 🤸
Browse files

cdilib update.

parent 86fa9937
...@@ -1321,6 +1321,24 @@ ...@@ -1321,6 +1321,24 @@
! CHARACTER*(*) name) ! CHARACTER*(*) name)
EXTERNAL vlistInqVarIntKey EXTERNAL vlistInqVarIntKey
!
! needed only for CDO operator after
!
CHARACTER(80) vlistInqVarNamePtr
! (INTEGER vlistID,
! INTEGER varID)
EXTERNAL vlistInqVarNamePtr
CHARACTER(80) vlistInqVarLongnamePtr
! (INTEGER vlistID,
! INTEGER varID)
EXTERNAL vlistInqVarLongnamePtr
CHARACTER(80) vlistInqVarUnitsPtr
! (INTEGER vlistID,
! INTEGER varID)
EXTERNAL vlistInqVarUnitsPtr
! !
! VLIST attributes ! VLIST attributes
! !
...@@ -2400,6 +2418,9 @@ ...@@ -2400,6 +2418,9 @@
! CHARACTER*(*) units) ! CHARACTER*(*) units)
EXTERNAL tableInqParUnits EXTERNAL tableInqParUnits
!
! needed only for CDO operator after
!
CHARACTER(80) tableInqParNamePtr CHARACTER(80) tableInqParNamePtr
! (INTEGER tableID, ! (INTEGER tableID,
! INTEGER parID) ! INTEGER parID)
......
...@@ -281,6 +281,12 @@ FCALLSCFUN3 (INT, vlistHasVarKey, VLISTHASVARKEY, vlisthasvarkey, INT, INT, STRI ...@@ -281,6 +281,12 @@ FCALLSCFUN3 (INT, vlistHasVarKey, VLISTHASVARKEY, vlisthasvarkey, INT, INT, STRI
FCALLSCFUN3 (DOUBLE, vlistInqVarDblKey, VLISTINQVARDBLKEY, vlistinqvardblkey, INT, INT, STRING) FCALLSCFUN3 (DOUBLE, vlistInqVarDblKey, VLISTINQVARDBLKEY, vlistinqvardblkey, INT, INT, STRING)
FCALLSCFUN3 (INT, vlistInqVarIntKey, VLISTINQVARINTKEY, vlistinqvarintkey, INT, INT, STRING) FCALLSCFUN3 (INT, vlistInqVarIntKey, VLISTINQVARINTKEY, vlistinqvarintkey, INT, INT, STRING)
/* needed only for CDO operator after */
FCALLSCFUN2 (STRING, vlistInqVarNamePtr, VLISTINQVARNAMEPTR, vlistinqvarnameptr, INT, INT)
FCALLSCFUN2 (STRING, vlistInqVarLongnamePtr, VLISTINQVARLONGNAMEPTR, vlistinqvarlongnameptr, INT, INT)
FCALLSCFUN2 (STRING, vlistInqVarUnitsPtr, VLISTINQVARUNITSPTR, vlistinqvarunitsptr, INT, INT)
/* VLIST attributes */ /* VLIST attributes */
FCALLSCFUN3 (INT, vlistInqNatts, VLISTINQNATTS, vlistinqnatts, INT, INT, PINT) FCALLSCFUN3 (INT, vlistInqNatts, VLISTINQNATTS, vlistinqnatts, INT, INT, PINT)
...@@ -523,6 +529,9 @@ FCALLSCFUN3 (INT, tableInqParCode, TABLEINQPARCODE, tableinqparcode, INT, PSTRIN ...@@ -523,6 +529,9 @@ FCALLSCFUN3 (INT, tableInqParCode, TABLEINQPARCODE, tableinqparcode, INT, PSTRIN
FCALLSCFUN3 (INT, tableInqParName, TABLEINQPARNAME, tableinqparname, INT, INT, PSTRING) FCALLSCFUN3 (INT, tableInqParName, TABLEINQPARNAME, tableinqparname, INT, INT, PSTRING)
FCALLSCFUN3 (INT, tableInqParLongname, TABLEINQPARLONGNAME, tableinqparlongname, INT, INT, PSTRING) FCALLSCFUN3 (INT, tableInqParLongname, TABLEINQPARLONGNAME, tableinqparlongname, INT, INT, PSTRING)
FCALLSCFUN3 (INT, tableInqParUnits, TABLEINQPARUNITS, tableinqparunits, INT, INT, PSTRING) FCALLSCFUN3 (INT, tableInqParUnits, TABLEINQPARUNITS, tableinqparunits, INT, INT, PSTRING)
/* needed only for CDO operator after */
FCALLSCFUN2 (STRING, tableInqParNamePtr, TABLEINQPARNAMEPTR, tableinqparnameptr, INT, INT) FCALLSCFUN2 (STRING, tableInqParNamePtr, TABLEINQPARNAMEPTR, tableinqparnameptr, INT, INT)
FCALLSCFUN2 (STRING, tableInqParLongnamePtr, TABLEINQPARLONGNAMEPTR, tableinqparlongnameptr, INT, INT) FCALLSCFUN2 (STRING, tableInqParLongnamePtr, TABLEINQPARLONGNAMEPTR, tableinqparlongnameptr, INT, INT)
FCALLSCFUN2 (STRING, tableInqParUnitsPtr, TABLEINQPARUNITSPTR, tableinqparunitsptr, INT, INT) FCALLSCFUN2 (STRING, tableInqParUnitsPtr, TABLEINQPARUNITSPTR, tableinqparunitsptr, INT, INT)
......
...@@ -4,7 +4,7 @@ ...@@ -4,7 +4,7 @@
! !
! Author: ! Author:
! ------- ! -------
! Uwe Schulzweida, MPI-MET, Hamburg, October 2015 ! Uwe Schulzweida, MPI-MET, Hamburg, November 2015
! !
! !
......
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