Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
mpim-sw
libcdi
Commits
c035ac80
Commit
c035ac80
authored
Jul 22, 2014
by
Uwe Schulzweida
Browse files
added vlistDefVarProductDefinitionTemplate() to define GRIB2 Product Definition Template Number
parent
d57bb37a
Changes
13
Expand all
Hide whitespace changes
Inline
Side-by-side
ChangeLog
View file @
c035ac80
...
...
@@ -3,6 +3,10 @@
* Version 1.7.0 released
* using CGRIBEX library version 1.7.0
2014-07-22 Uwe Schulzweida
* added vlistDefVarProductDefinitionTemplate() to define GRIB2 Product Definition Template Number
2014-07-21 Uwe Schulzweida
* gribapiDefSteptype: changed proDefTempNum to 1/11 for typeOfGeneratingProcess=4
...
...
config/default
View file @
c035ac80
...
...
@@ -24,7 +24,7 @@ case "${HOSTNAME}" in
--with-szlib
=
$HOME
/local
\
CC
=
icc
CFLAGS
=
"-g -D_REENTRANT -Wall -O3 -march=native -Df2cFortran -fp-model source"
;;
bailung
*
)
bailung
*
|
d133
*
|
d134
*
)
./configure
--prefix
=
$HOME
/local
\
--enable-maintainer-mode
\
--enable-iso-c-interface
\
...
...
configure
View file @
c035ac80
#! /bin/sh
# Guess values for system-dependent variables and create Makefiles.
# Generated by GNU Autoconf 2.68 for cdi 1.6.5.
# Generated by GNU Autoconf 2.68 for cdi 1.6.5
rc1
.
#
# Report bugs to <http://code.zmaw.de/projects/cdi>.
#
...
...
@@ -570,8 +570,8 @@ MAKEFLAGS=
# Identity of this package.
PACKAGE_NAME='cdi'
PACKAGE_TARNAME='cdi'
PACKAGE_VERSION='1.6.5'
PACKAGE_STRING='cdi 1.6.5'
PACKAGE_VERSION='1.6.5
rc1
'
PACKAGE_STRING='cdi 1.6.5
rc1
'
PACKAGE_BUGREPORT='http://code.zmaw.de/projects/cdi'
PACKAGE_URL=''
...
...
@@ -1442,7 +1442,7 @@ if test "$ac_init_help" = "long"; then
# Omit some internal or obsolete options to make the list less imposing.
# This message is too long to be a string in the A/UX 3.1 sh.
cat <<_ACEOF
\`configure' configures cdi 1.6.5 to adapt to many kinds of systems.
\`configure' configures cdi 1.6.5
rc1
to adapt to many kinds of systems.
Usage: $0 [OPTION]... [VAR=VALUE]...
...
...
@@ -1512,7 +1512,7 @@ fi
if test -n "$ac_init_help"; then
case $ac_init_help in
short | recursive ) echo "Configuration of cdi 1.6.5:";;
short | recursive ) echo "Configuration of cdi 1.6.5
rc1
:";;
esac
cat <<\_ACEOF
...
...
@@ -1699,7 +1699,7 @@ fi
test -n "$ac_init_help" && exit $ac_status
if $ac_init_version; then
cat <<\_ACEOF
cdi configure 1.6.5
cdi configure 1.6.5
rc1
generated by GNU Autoconf 2.68
Copyright (C) 2010 Free Software Foundation, Inc.
...
...
@@ -2460,7 +2460,7 @@ cat >config.log <<_ACEOF
This file contains any messages produced by compilers while
running configure, to aid debugging if configure makes a mistake.
It was created by cdi $as_me 1.6.5, which was
It was created by cdi $as_me 1.6.5
rc1
, which was
generated by GNU Autoconf 2.68. Invocation command line was
$ $0 $@
...
...
@@ -3405,7 +3405,7 @@ fi
# Define the identity of the package.
PACKAGE='cdi'
VERSION='1.6.5'
VERSION='1.6.5
rc1
'
cat >>confdefs.h <<_ACEOF
...
...
@@ -28417,7 +28417,7 @@ cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1
# report actual input values of CONFIG_FILES etc. instead of their
# values after options handling.
ac_log="
This file was extended by cdi $as_me 1.6.5, which was
This file was extended by cdi $as_me 1.6.5
rc1
, which was
generated by GNU Autoconf 2.68. Invocation command line was
CONFIG_FILES = $CONFIG_FILES
...
...
@@ -28483,7 +28483,7 @@ _ACEOF
cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1
ac_cs_config="`$as_echo "$ac_configure_args" | sed 's/^ //; s/[\\""\`\$]/\\\\&/g'`"
ac_cs_version="\\
cdi config.status 1.6.5
cdi config.status 1.6.5
rc1
configured by $0, generated by GNU Autoconf 2.68,
with options \\"\$ac_cs_config\\"
...
...
configure.ac
View file @
c035ac80
...
...
@@ -4,7 +4,7 @@
# autoconf 2.68
# libtool 2.4.2
AC_INIT([cdi], [1.6.5], [http://code.zmaw.de/projects/cdi])
AC_INIT([cdi], [1.6.5
rc1
], [http://code.zmaw.de/projects/cdi])
echo "configuring ${PACKAGE_NAME} ${PACKAGE_VERSION}"
...
...
src/cdi.h
View file @
c035ac80
...
...
@@ -522,6 +522,9 @@ int vlistInqVarTimaccu(int vlistID, int varID);
void
vlistDefVarTypeOfGeneratingProcess
(
int
vlistID
,
int
varID
,
int
typeOfGeneratingProcess
);
int
vlistInqVarTypeOfGeneratingProcess
(
int
vlistID
,
int
varID
);
void
vlistDefVarProductDefinitionTemplate
(
int
vlistID
,
int
varID
,
int
productDefinitionTemplate
);
int
vlistInqVarProductDefinitionTemplate
(
int
vlistID
,
int
varID
);
int
vlistInqVarSize
(
int
vlistID
,
int
varID
);
void
vlistDefIndex
(
int
vlistID
,
int
varID
,
int
levID
,
int
index
);
...
...
src/cdi.inc
View file @
c035ac80
This diff is collapsed.
Click to expand it.
src/cdiFortran.c
View file @
c035ac80
...
...
@@ -100,20 +100,20 @@ FCALLSCSUB1 (streamClose, STREAMCLOSE, streamclose, INT)
FCALLSCSUB1
(
streamSync
,
STREAMSYNC
,
streamsync
,
INT
)
FCALLSCSUB2
(
streamDefVlist
,
STREAMDEFVLIST
,
streamdefvlist
,
INT
,
INT
)
FCALLSCFUN1
(
INT
,
streamInqVlist
,
STREAMINQVLIST
,
streaminqvlist
,
INT
)
/* PIO: */
FCALLSCFUN1
(
INT
,
streamInqVlistIDorig
,
STREAMINQVLISTIDORIG
,
streaminqvlistidorig
,
INT
)
FCALLSCFUN1
(
INT
,
streamInqFiletype
,
STREAMINQFILETYPE
,
streaminqfiletype
,
INT
)
FCALLSCSUB2
(
streamDefByteorder
,
STREAMDEFBYTEORDER
,
streamdefbyteorder
,
INT
,
INT
)
FCALLSCFUN1
(
INT
,
streamInqByteorder
,
STREAMINQBYTEORDER
,
streaminqbyteorder
,
INT
)
FCALLSCSUB2
(
streamDefCompType
,
STREAMDEFCOMPTYPE
,
streamdefcomptype
,
INT
,
INT
)
FCALLSCSUB2
(
streamDefCompLevel
,
STREAMDEFCOMPLEVEL
,
streamdefcomplevel
,
INT
,
INT
)
FCALLSCFUN1
(
INT
,
streamInqCompType
,
STREAMINQCOMPTYPE
,
streaminqcomptype
,
INT
)
FCALLSCSUB2
(
streamDefCompLevel
,
STREAMDEFCOMPLEVEL
,
streamdefcomplevel
,
INT
,
INT
)
FCALLSCFUN1
(
INT
,
streamInqCompLevel
,
STREAMINQCOMPLEVEL
,
streaminqcomplevel
,
INT
)
FCALLSCFUN2
(
INT
,
streamDefTimestep
,
STREAMDEFTIMESTEP
,
streamdeftimestep
,
INT
,
INT
)
/* query currently set timestep id */
FCALLSCFUN1
(
INT
,
streamInqCurTimestepID
,
STREAMINQCURTIMESTEPID
,
streaminqcurtimestepid
,
INT
)
FCALLSCFUN2
(
INT
,
streamInqTimestep
,
STREAMINQTIMESTEP
,
streaminqtimestep
,
INT
,
INT
)
FCALLSCFUN1
(
INT
,
streamInqCurTimestepID
,
STREAMINQCURTIMESTEPID
,
streaminqcurtimestepid
,
INT
)
FCALLSCFUN1
(
STRING
,
streamFilename
,
STREAMFILENAME
,
streamfilename
,
INT
)
FCALLSCFUN1
(
STRING
,
streamFilesuffix
,
STREAMFILESUFFIX
,
streamfilesuffix
,
INT
)
FCALLSCFUN1
(
INT
,
streamNtsteps
,
STREAMNTSTEPS
,
streamntsteps
,
INT
)
...
...
@@ -121,21 +121,23 @@ FCALLSCFUN1 (INT, streamInqNvars, STREAMINQNVARS, streaminqnvars, INT)
/* STREAM var I/O routines */
FCALLSCSUB4
(
streamReadVar
,
STREAMREADVAR
,
streamreadvar
,
INT
,
INT
,
PDOUBLE
,
PINT
)
FCALLSCSUB4
(
streamWriteVar
,
STREAMWRITEVAR
,
streamwritevar
,
INT
,
INT
,
PDOUBLE
,
INT
)
FCALLSCSUB4
(
streamWriteVarF
,
STREAMWRITEVARF
,
streamwritevarf
,
INT
,
INT
,
PFLOAT
,
INT
)
FCALLSCSUB5
(
streamReadVarSlice
,
STREAMREADVARSLICE
,
streamreadvarslice
,
INT
,
INT
,
INT
,
PDOUBLE
,
PINT
)
FCALLSCSUB4
(
streamReadVar
,
STREAMREADVAR
,
streamreadvar
,
INT
,
INT
,
PDOUBLE
,
PINT
)
FCALLSCSUB4
(
streamReadVarF
,
STREAMREADVARF
,
streamreadvarf
,
INT
,
INT
,
PFLOAT
,
PINT
)
FCALLSCSUB5
(
streamWriteVarSlice
,
STREAMWRITEVARSLICE
,
streamwritevarslice
,
INT
,
INT
,
INT
,
PDOUBLE
,
INT
)
FCALLSCSUB5
(
streamWriteVarSliceF
,
STREAMWRITEVARSLICEF
,
streamwritevarslicef
,
INT
,
INT
,
INT
,
PFLOAT
,
INT
)
FCALLSCSUB5
(
streamReadVarSlice
,
STREAMREADVARSLICE
,
streamreadvarslice
,
INT
,
INT
,
INT
,
PDOUBLE
,
PINT
)
FCALLSCSUB5
(
streamReadVarSliceF
,
STREAMREADVARSLICEF
,
streamreadvarslicef
,
INT
,
INT
,
INT
,
PFLOAT
,
PINT
)
FCALLSCSUB5
(
streamWriteVarChunk
,
STREAMWRITEVARCHUNK
,
streamwritevarchunk
,
INT
,
INT
,
INTVV
,
PDOUBLE
,
INT
)
/* STREAM record I/O routines */
FCALLSCSUB3
(
streamInqRecord
,
STREAMINQRECORD
,
streaminqrecord
,
INT
,
PINT
,
PINT
)
FCALLSCSUB3
(
streamDefRecord
,
STREAMDEFRECORD
,
streamdefrecord
,
INT
,
INT
,
INT
)
FCALLSCSUB3
(
stream
Read
Record
,
STREAM
READ
RECORD
,
stream
read
record
,
INT
,
P
DOUBLE
,
PINT
)
FCALLSCSUB3
(
stream
Inq
Record
,
STREAM
INQ
RECORD
,
stream
inq
record
,
INT
,
P
INT
,
PINT
)
FCALLSCSUB3
(
streamWriteRecord
,
STREAMWRITERECORD
,
streamwriterecord
,
INT
,
PDOUBLE
,
INT
)
FCALLSCSUB3
(
streamWriteRecordF
,
STREAMWRITERECORDF
,
streamwriterecordf
,
INT
,
PFLOAT
,
INT
)
FCALLSCSUB3
(
streamReadRecord
,
STREAMREADRECORD
,
streamreadrecord
,
INT
,
PDOUBLE
,
PINT
)
FCALLSCSUB2
(
streamCopyRecord
,
STREAMCOPYRECORD
,
streamcopyrecord
,
INT
,
INT
)
/* VLIST routines */
...
...
@@ -186,8 +188,8 @@ FCALLSCFUN2 (INT, vlistInqVarZaxis, VLISTINQVARZAXIS, vlistinqvarzaxis, INT, INT
/* used in MPIOM */
FCALLSCFUN2
(
INT
,
vlistInqVarID
,
VLISTINQVARID
,
vlistinqvarid
,
INT
,
INT
)
FCALLSCFUN2
(
INT
,
vlistInqVarTsteptype
,
VLISTINQVARTSTEPTYPE
,
vlistinqvartsteptype
,
INT
,
INT
)
FCALLSCSUB3
(
vlistDefVarTsteptype
,
VLISTDEFVARTSTEPTYPE
,
vlistdefvartsteptype
,
INT
,
INT
,
INT
)
FCALLSCFUN2
(
INT
,
vlistInqVarTsteptype
,
VLISTINQVARTSTEPTYPE
,
vlistinqvartsteptype
,
INT
,
INT
)
FCALLSCSUB3
(
vlistDefVarCompType
,
VLISTDEFVARCOMPTYPE
,
vlistdefvarcomptype
,
INT
,
INT
,
INT
)
FCALLSCFUN2
(
INT
,
vlistInqVarCompType
,
VLISTINQVARCOMPTYPE
,
vlistinqvarcomptype
,
INT
,
INT
)
FCALLSCSUB3
(
vlistDefVarCompLevel
,
VLISTDEFVARCOMPLEVEL
,
vlistdefvarcomplevel
,
INT
,
INT
,
INT
)
...
...
@@ -231,6 +233,8 @@ FCALLSCSUB3 (vlistDefVarTimaccu, VLISTDEFVARTIMACCU, vlistdefvartimaccu, INT, IN
FCALLSCFUN2
(
INT
,
vlistInqVarTimaccu
,
VLISTINQVARTIMACCU
,
vlistinqvartimaccu
,
INT
,
INT
)
FCALLSCSUB3
(
vlistDefVarTypeOfGeneratingProcess
,
VLISTDEFVARTYPEOFGENERATINGPROCESS
,
vlistdefvartypeofgeneratingprocess
,
INT
,
INT
,
INT
)
FCALLSCFUN2
(
INT
,
vlistInqVarTypeOfGeneratingProcess
,
VLISTINQVARTYPEOFGENERATINGPROCESS
,
vlistinqvartypeofgeneratingprocess
,
INT
,
INT
)
FCALLSCSUB3
(
vlistDefVarProductDefinitionTemplate
,
VLISTDEFVARPRODUCTDEFINITIONTEMPLATE
,
vlistdefvarproductdefinitiontemplate
,
INT
,
INT
,
INT
)
FCALLSCFUN2
(
INT
,
vlistInqVarProductDefinitionTemplate
,
VLISTINQVARPRODUCTDEFINITIONTEMPLATE
,
vlistinqvarproductdefinitiontemplate
,
INT
,
INT
)
FCALLSCFUN2
(
INT
,
vlistInqVarSize
,
VLISTINQVARSIZE
,
vlistinqvarsize
,
INT
,
INT
)
FCALLSCSUB4
(
vlistDefIndex
,
VLISTDEFINDEX
,
vlistdefindex
,
INT
,
INT
,
INT
,
INT
)
FCALLSCFUN3
(
INT
,
vlistInqIndex
,
VLISTINQINDEX
,
vlistinqindex
,
INT
,
INT
,
INT
)
...
...
@@ -291,19 +295,19 @@ FCALLSCFUN2 (INT, gridInqXvals, GRIDINQXVALS, gridinqxvals, INT, PDOUBLE)
FCALLSCSUB2
(
gridDefYvals
,
GRIDDEFYVALS
,
griddefyvals
,
INT
,
PDOUBLE
)
FCALLSCFUN2
(
INT
,
gridInqYvals
,
GRIDINQYVALS
,
gridinqyvals
,
INT
,
PDOUBLE
)
FCALLSCSUB2
(
gridDefXname
,
GRIDDEFXNAME
,
griddefxname
,
INT
,
STRING
)
FCALLSCSUB2
(
gridInqXname
,
GRIDINQXNAME
,
gridinqxname
,
INT
,
PSTRING
)
FCALLSCSUB2
(
gridDefXlongname
,
GRIDDEFXLONGNAME
,
griddefxlongname
,
INT
,
STRING
)
FCALLSCSUB2
(
gridInqXlongname
,
GRIDINQXLONGNAME
,
gridinqxlongname
,
INT
,
PSTRING
)
FCALLSCSUB2
(
gridDefXunits
,
GRIDDEFXUNITS
,
griddefxunits
,
INT
,
STRING
)
FCALLSCSUB2
(
gridInqXunits
,
GRIDINQXUNITS
,
gridinqxunits
,
INT
,
PSTRING
)
FCALLSCSUB2
(
gridDefYname
,
GRIDDEFYNAME
,
griddefyname
,
INT
,
STRING
)
FCALLSCSUB2
(
gridInqYname
,
GRIDINQYNAME
,
gridinqyname
,
INT
,
PSTRING
)
FCALLSCSUB2
(
gridDefYlongname
,
GRIDDEFYLONGNAME
,
griddefylongname
,
INT
,
STRING
)
FCALLSCSUB2
(
gridInqYlongname
,
GRIDINQYLONGNAME
,
gridinqylongname
,
INT
,
PSTRING
)
FCALLSCSUB2
(
gridDefYunits
,
GRIDDEFYUNITS
,
griddefyunits
,
INT
,
STRING
)
FCALLSCSUB2
(
gridInqXname
,
GRIDINQXNAME
,
gridinqxname
,
INT
,
PSTRING
)
FCALLSCSUB2
(
gridInqXlongname
,
GRIDINQXLONGNAME
,
gridinqxlongname
,
INT
,
PSTRING
)
FCALLSCSUB2
(
gridInqYunits
,
GRIDINQYUNITS
,
gridinqyunits
,
INT
,
PSTRING
)
FCALLSCSUB2
(
gridInqXstdname
,
GRIDINQXSTDNAME
,
gridinqxstdname
,
INT
,
PSTRING
)
FCALLSCSUB2
(
gridInqXunits
,
GRIDINQXUNITS
,
gridinqxunits
,
INT
,
PSTRING
)
FCALLSCSUB2
(
gridInqYname
,
GRIDINQYNAME
,
gridinqyname
,
INT
,
PSTRING
)
FCALLSCSUB2
(
gridInqYlongname
,
GRIDINQYLONGNAME
,
gridinqylongname
,
INT
,
PSTRING
)
FCALLSCSUB2
(
gridInqYstdname
,
GRIDINQYSTDNAME
,
gridinqystdname
,
INT
,
PSTRING
)
FCALLSCSUB2
(
gridInqYunits
,
GRIDINQYUNITS
,
gridinqyunits
,
INT
,
PSTRING
)
FCALLSCSUB2
(
gridDefPrec
,
GRIDDEFPREC
,
griddefprec
,
INT
,
INT
)
FCALLSCFUN1
(
INT
,
gridInqPrec
,
GRIDINQPREC
,
gridinqprec
,
INT
)
FCALLSCFUN2
(
DOUBLE
,
gridInqXval
,
GRIDINQXVAL
,
gridinqxval
,
INT
,
INT
)
...
...
@@ -312,25 +316,25 @@ FCALLSCFUN1 (DOUBLE, gridInqXinc, GRIDINQXINC, gridinqxinc, INT)
FCALLSCFUN1
(
DOUBLE
,
gridInqYinc
,
GRIDINQYINC
,
gridinqyinc
,
INT
)
FCALLSCFUN1
(
INT
,
gridIsCircular
,
GRIDISCIRCULAR
,
gridiscircular
,
INT
)
FCALLSCFUN1
(
INT
,
gridIsRotated
,
GRIDISROTATED
,
gridisrotated
,
INT
)
FCALLSCFUN1
(
DOUBLE
,
gridInqXpole
,
GRIDINQXPOLE
,
gridinqxpole
,
INT
)
FCALLSCSUB2
(
gridDefXpole
,
GRIDDEFXPOLE
,
griddefxpole
,
INT
,
DOUBLE
)
FCALLSCFUN1
(
DOUBLE
,
gridInq
Y
pole
,
GRIDINQ
Y
POLE
,
gridinq
y
pole
,
INT
)
FCALLSCFUN1
(
DOUBLE
,
gridInq
X
pole
,
GRIDINQ
X
POLE
,
gridinq
x
pole
,
INT
)
FCALLSCSUB2
(
gridDefYpole
,
GRIDDEFYPOLE
,
griddefypole
,
INT
,
DOUBLE
)
FCALLSCFUN1
(
DOUBLE
,
gridInq
Ang
le
,
GRIDINQ
ANG
LE
,
gridinq
ang
le
,
INT
)
FCALLSCFUN1
(
DOUBLE
,
gridInq
Ypo
le
,
GRIDINQ
YPO
LE
,
gridinq
ypo
le
,
INT
)
FCALLSCSUB2
(
gridDefAngle
,
GRIDDEFANGLE
,
griddefangle
,
INT
,
DOUBLE
)
FCALLSC
SUB2
(
gridDefTrunc
,
GRIDDEFTRUNC
,
griddeftrunc
,
INT
,
INT
)
FCALLSC
FUN1
(
DOUBLE
,
gridInqAngle
,
GRIDINQANGLE
,
gridinqangle
,
INT
)
FCALLSCFUN1
(
INT
,
gridInqTrunc
,
GRIDINQTRUNC
,
gridinqtrunc
,
INT
)
FCALLSCSUB2
(
gridDefTrunc
,
GRIDDEFTRUNC
,
griddeftrunc
,
INT
,
INT
)
/* Hexagonal GME grid */
FCALLSCFUN1
(
INT
,
gridInqGMEnd
,
GRIDINQGMEND
,
gridinqgmend
,
INT
)
FCALLSCSUB2
(
gridDefGMEnd
,
GRIDDEFGMEND
,
griddefgmend
,
INT
,
INT
)
FCALLSCFUN1
(
INT
,
gridInqGMEn
i
,
GRIDINQGMEN
I
,
gridinqgmen
i
,
INT
)
FCALLSCFUN1
(
INT
,
gridInqGMEn
d
,
GRIDINQGMEN
D
,
gridinqgmen
d
,
INT
)
FCALLSCSUB2
(
gridDefGMEni
,
GRIDDEFGMENI
,
griddefgmeni
,
INT
,
INT
)
FCALLSCFUN1
(
INT
,
gridInqGMEni
2
,
GRIDINQGMENI
2
,
gridinqgmeni
2
,
INT
)
FCALLSCFUN1
(
INT
,
gridInqGMEni
,
GRIDINQGMENI
,
gridinqgmeni
,
INT
)
FCALLSCSUB2
(
gridDefGMEni2
,
GRIDDEFGMENI2
,
griddefgmeni2
,
INT
,
INT
)
FCALLSCFUN1
(
INT
,
gridInqGMEni
3
,
GRIDINQGMENI
3
,
gridinqgmeni
3
,
INT
)
FCALLSCFUN1
(
INT
,
gridInqGMEni
2
,
GRIDINQGMENI
2
,
gridinqgmeni
2
,
INT
)
FCALLSCSUB2
(
gridDefGMEni3
,
GRIDDEFGMENI3
,
griddefgmeni3
,
INT
,
INT
)
FCALLSCFUN1
(
INT
,
gridInqGMEni3
,
GRIDINQGMENI3
,
gridinqgmeni3
,
INT
)
/* Reference of an unstructured grid */
...
...
@@ -393,12 +397,12 @@ FCALLSCFUN1 (INT, zaxisInqNumber, ZAXISINQNUMBER, zaxisinqnumber, INT)
FCALLSCSUB2
(
zaxisDefUUID
,
ZAXISDEFUUID
,
zaxisdefuuid
,
INT
,
PPSTRING
)
FCALLSCSUB2
(
zaxisInqUUID
,
ZAXISINQUUID
,
zaxisinquuid
,
INT
,
PPSTRING
)
FCALLSCSUB2
(
zaxisDefName
,
ZAXISDEFNAME
,
zaxisdefname
,
INT
,
STRING
)
FCALLSCSUB2
(
zaxisDefLongname
,
ZAXISDEFLONGNAME
,
zaxisdeflongname
,
INT
,
STRING
)
FCALLSCSUB2
(
zaxisDefUnits
,
ZAXISDEFUNITS
,
zaxisdefunits
,
INT
,
STRING
)
FCALLSCSUB2
(
zaxisInqName
,
ZAXISINQNAME
,
zaxisinqname
,
INT
,
PSTRING
)
FCALLSCSUB2
(
zaxisDefLongname
,
ZAXISDEFLONGNAME
,
zaxisdeflongname
,
INT
,
STRING
)
FCALLSCSUB2
(
zaxisInqLongname
,
ZAXISINQLONGNAME
,
zaxisinqlongname
,
INT
,
PSTRING
)
FCALLSCSUB2
(
zaxis
InqStdname
,
ZAXISINQSTDNAME
,
zaxisinqstdname
,
INT
,
P
STRING
)
FCALLSCSUB2
(
zaxis
DefUnits
,
ZAXISDEFUNITS
,
zaxisdefunits
,
INT
,
STRING
)
FCALLSCSUB2
(
zaxisInqUnits
,
ZAXISINQUNITS
,
zaxisinqunits
,
INT
,
PSTRING
)
FCALLSCSUB2
(
zaxisInqStdname
,
ZAXISINQSTDNAME
,
zaxisinqstdname
,
INT
,
PSTRING
)
FCALLSCSUB2
(
zaxisDefPrec
,
ZAXISDEFPREC
,
zaxisdefprec
,
INT
,
INT
)
FCALLSCFUN1
(
INT
,
zaxisInqPrec
,
ZAXISINQPREC
,
zaxisinqprec
,
INT
)
FCALLSCSUB2
(
zaxisDefPositive
,
ZAXISDEFPOSITIVE
,
zaxisdefpositive
,
INT
,
INT
)
...
...
@@ -408,14 +412,14 @@ FCALLSCFUN1 (INT, zaxisInqLtype, ZAXISINQLTYPE, zaxisinqltype, INT)
FCALLSCSUB3
(
zaxisDefVct
,
ZAXISDEFVCT
,
zaxisdefvct
,
INT
,
INT
,
PDOUBLE
)
FCALLSCSUB2
(
zaxisInqVct
,
ZAXISINQVCT
,
zaxisinqvct
,
INT
,
PDOUBLE
)
FCALLSCFUN1
(
INT
,
zaxisInqVctSize
,
ZAXISINQVCTSIZE
,
zaxisinqvctsize
,
INT
)
FCALLSCSUB2
(
zaxisDefLbounds
,
ZAXISDEFLBOUNDS
,
zaxisdeflbounds
,
INT
,
PDOUBLE
)
FCALLSCFUN2
(
INT
,
zaxisInqLbounds
,
ZAXISINQLBOUNDS
,
zaxisinqlbounds
,
INT
,
PDOUBLE
)
FCALLSCFUN2
(
INT
,
zaxisInqUbounds
,
ZAXISINQUBOUNDS
,
zaxisinqubounds
,
INT
,
PDOUBLE
)
FCALLSCFUN2
(
INT
,
zaxisInqWeights
,
ZAXISINQWEIGHTS
,
zaxisinqweights
,
INT
,
PDOUBLE
)
FCALLSCFUN2
(
DOUBLE
,
zaxisInqLbound
,
ZAXISINQLBOUND
,
zaxisinqlbound
,
INT
,
INT
)
FCALLSCFUN2
(
DOUBLE
,
zaxisInqUbound
,
ZAXISINQUBOUND
,
zaxisinqubound
,
INT
,
INT
)
FCALLSCSUB2
(
zaxisDefLbounds
,
ZAXISDEFLBOUNDS
,
zaxisdeflbounds
,
INT
,
PDOUBLE
)
FCALLSCSUB2
(
zaxisDefUbounds
,
ZAXISDEFUBOUNDS
,
zaxisdefubounds
,
INT
,
PDOUBLE
)
FCALLSCFUN2
(
INT
,
zaxisInqUbounds
,
ZAXISINQUBOUNDS
,
zaxisinqubounds
,
INT
,
PDOUBLE
)
FCALLSCFUN2
(
DOUBLE
,
zaxisInqUbound
,
ZAXISINQUBOUND
,
zaxisinqubound
,
INT
,
INT
)
FCALLSCSUB2
(
zaxisDefWeights
,
ZAXISDEFWEIGHTS
,
zaxisdefweights
,
INT
,
PDOUBLE
)
FCALLSCFUN2
(
INT
,
zaxisInqWeights
,
ZAXISINQWEIGHTS
,
zaxisinqweights
,
INT
,
PDOUBLE
)
FCALLSCSUB2
(
zaxisChangeType
,
ZAXISCHANGETYPE
,
zaxischangetype
,
INT
,
INT
)
/* TAXIS routines */
...
...
@@ -427,10 +431,16 @@ FCALLSCSUB2 (taxisCopyTimestep, TAXISCOPYTIMESTEP, taxiscopytimestep, INT, INT)
FCALLSCSUB2
(
taxisDefType
,
TAXISDEFTYPE
,
taxisdeftype
,
INT
,
INT
)
FCALLSCSUB2
(
taxisDefVdate
,
TAXISDEFVDATE
,
taxisdefvdate
,
INT
,
INT
)
FCALLSCSUB2
(
taxisDefVtime
,
TAXISDEFVTIME
,
taxisdefvtime
,
INT
,
INT
)
FCALLSCFUN1
(
INT
,
taxisInqVdate
,
TAXISINQVDATE
,
taxisinqvdate
,
INT
)
FCALLSCFUN1
(
INT
,
taxisInqVtime
,
TAXISINQVTIME
,
taxisinqvtime
,
INT
)
FCALLSCSUB2
(
taxisDefRdate
,
TAXISDEFRDATE
,
taxisdefrdate
,
INT
,
INT
)
FCALLSCSUB2
(
taxisDefRtime
,
TAXISDEFRTIME
,
taxisdefrtime
,
INT
,
INT
)
FCALLSCFUN1
(
INT
,
taxisInqRdate
,
TAXISINQRDATE
,
taxisinqrdate
,
INT
)
FCALLSCFUN1
(
INT
,
taxisInqRtime
,
TAXISINQRTIME
,
taxisinqrtime
,
INT
)
FCALLSCSUB2
(
taxisDefFdate
,
TAXISDEFFDATE
,
taxisdeffdate
,
INT
,
INT
)
FCALLSCSUB2
(
taxisDefFtime
,
TAXISDEFFTIME
,
taxisdefftime
,
INT
,
INT
)
FCALLSCFUN1
(
INT
,
taxisInqFdate
,
TAXISINQFDATE
,
taxisinqfdate
,
INT
)
FCALLSCFUN1
(
INT
,
taxisInqFtime
,
TAXISINQFTIME
,
taxisinqftime
,
INT
)
FCALLSCFUN1
(
INT
,
taxisHasBounds
,
TAXISHASBOUNDS
,
taxishasbounds
,
INT
)
FCALLSCSUB1
(
taxisDeleteBounds
,
TAXISDELETEBOUNDS
,
taxisdeletebounds
,
INT
)
FCALLSCSUB3
(
taxisDefVdateBounds
,
TAXISDEFVDATEBOUNDS
,
taxisdefvdatebounds
,
INT
,
INT
,
INT
)
...
...
@@ -438,17 +448,15 @@ FCALLSCSUB3 (taxisDefVtimeBounds, TAXISDEFVTIMEBOUNDS, taxisdefvtimebounds, INT,
FCALLSCSUB3
(
taxisInqVdateBounds
,
TAXISINQVDATEBOUNDS
,
taxisinqvdatebounds
,
INT
,
PINT
,
PINT
)
FCALLSCSUB3
(
taxisInqVtimeBounds
,
TAXISINQVTIMEBOUNDS
,
taxisinqvtimebounds
,
INT
,
PINT
,
PINT
)
FCALLSCSUB2
(
taxisDefCalendar
,
TAXISDEFCALENDAR
,
taxisdefcalendar
,
INT
,
INT
)
FCALLSCFUN1
(
INT
,
taxisInqCalendar
,
TAXISINQCALENDAR
,
taxisinqcalendar
,
INT
)
FCALLSCSUB2
(
taxisDefTunit
,
TAXISDEFTUNIT
,
taxisdeftunit
,
INT
,
INT
)
FCALLSCFUN1
(
INT
,
taxisInqTunit
,
TAXISINQTUNIT
,
taxisinqtunit
,
INT
)
FCALLSCSUB2
(
taxisDefForecastTunit
,
TAXISDEFFORECASTTUNIT
,
taxisdefforecasttunit
,
INT
,
INT
)
FCALLSCFUN1
(
INT
,
taxisInqForecastTunit
,
TAXISINQFORECASTTUNIT
,
taxisinqforecasttunit
,
INT
)
FCALLSCSUB2
(
taxisDefForecastPeriod
,
TAXISDEFFORECASTPERIOD
,
taxisdefforecastperiod
,
INT
,
DOUBLE
)
FCALLSCFUN1
(
DOUBLE
,
taxisInqForecastPeriod
,
TAXISINQFORECASTPERIOD
,
taxisinqforecastperiod
,
INT
)
FCALLSCSUB2
(
taxisDefNumavg
,
TAXISDEFNUMAVG
,
taxisdefnumavg
,
INT
,
INT
)
FCALLSCFUN1
(
INT
,
taxisInqType
,
TAXISINQTYPE
,
taxisinqtype
,
INT
)
FCALLSCFUN1
(
INT
,
taxisInqVdate
,
TAXISINQVDATE
,
taxisinqvdate
,
INT
)
FCALLSCFUN1
(
INT
,
taxisInqVtime
,
TAXISINQVTIME
,
taxisinqvtime
,
INT
)
FCALLSCFUN1
(
INT
,
taxisInqRdate
,
TAXISINQRDATE
,
taxisinqrdate
,
INT
)
FCALLSCFUN1
(
INT
,
taxisInqRtime
,
TAXISINQRTIME
,
taxisinqrtime
,
INT
)
FCALLSCFUN1
(
INT
,
taxisInqFdate
,
TAXISINQFDATE
,
taxisinqfdate
,
INT
)
FCALLSCFUN1
(
INT
,
taxisInqFtime
,
TAXISINQFTIME
,
taxisinqftime
,
INT
)
FCALLSCFUN1
(
INT
,
taxisInqCalendar
,
TAXISINQCALENDAR
,
taxisinqcalendar
,
INT
)
FCALLSCFUN1
(
INT
,
taxisInqTunit
,
TAXISINQTUNIT
,
taxisinqtunit
,
INT
)
FCALLSCFUN1
(
INT
,
taxisInqNumavg
,
TAXISINQNUMAVG
,
taxisinqnumavg
,
INT
)
FCALLSCFUN1
(
STRING
,
tunitNamePtr
,
TUNITNAMEPTR
,
tunitnameptr
,
INT
)
...
...
src/mo_cdi.f90
View file @
c035ac80
...
...
@@ -1301,6 +1301,25 @@ module mo_cdi
end
function
vlistInqVarTypeOfGeneratingProcess
end
interface
interface
subroutine
vlistDefVarProductDefinitionTemplate
(
vlistID
,
varID
,
productDefinitionTemplate
)
bind
(
c
,&
name
=
'vlistDefVarProductDefinitionTemplate'
)
import
::
c_int
integer
(
c_int
),
value
::
vlistID
integer
(
c_int
),
value
::
varID
integer
(
c_int
),
value
::
productDefinitionTemplate
end
subroutine
vlistDefVarProductDefinitionTemplate
end
interface
interface
integer
(
c_int
)
function
vlistInqVarProductDefinitionTemplate
(
vlistID
,
varID
)
bind
(
c
,&
name
=
'vlistInqVarProductDefinitionTemplate'
)
import
::
c_int
integer
(
c_int
),
value
::
vlistID
integer
(
c_int
),
value
::
varID
end
function
vlistInqVarProductDefinitionTemplate
end
interface
interface
integer
(
c_int
)
function
vlistInqVarSize
(
vlistID
,
varID
)
bind
(
c
,
name
=
'vlistInqVarSize'
)
import
::
c_int
...
...
@@ -3295,6 +3314,8 @@ module mo_cdi
public
::
vlistInqVarTimaccu
public
::
vlistDefVarTypeOfGeneratingProcess
public
::
vlistInqVarTypeOfGeneratingProcess
public
::
vlistDefVarProductDefinitionTemplate
public
::
vlistInqVarProductDefinitionTemplate
public
::
vlistInqVarSize
public
::
vlistDefIndex
public
::
vlistInqIndex
...
...
src/stream_gribapi.c
View file @
c035ac80
...
...
@@ -970,6 +970,11 @@ void gribapiAddRecord(stream_t * streamptr, int param, grib_handle *gh,
if
(
status
==
0
)
varDefTypeOfGeneratingProcess
(
varID
,
(
int
)
typeOfGeneratingProcess
);
long
productDefinitionTemplate
=
0
;
status
=
grib_get_long
(
gh
,
"productDefinitionTemplateNumber"
,
&
productDefinitionTemplate
);
if
(
status
==
0
)
varDefProductDefinitionTemplate
(
varID
,
(
int
)
productDefinitionTemplate
);
int
i
;
long
lval
;
double
dval
;
...
...
@@ -2172,7 +2177,7 @@ void gribapiDefStepUnits(grib_handle *gh, int timeunit, int gcinit)
}
static
int
gribapiDefSteptype
(
int
editionNumber
,
grib_handle
*
gh
,
int
typeOfGeneratingProcess
,
int
tsteptype
,
int
gcinit
)
int
gribapiDefSteptype
(
int
editionNumber
,
grib_handle
*
gh
,
int
productDefinitionTemplate
,
int
typeOfGeneratingProcess
,
int
tsteptype
,
int
gcinit
)
{
long
proDefTempNum
=
0
;
size_t
len
=
64
;
...
...
@@ -2199,6 +2204,8 @@ int gribapiDefSteptype(int editionNumber, grib_handle *gh, int typeOfGeneratingP
else
proDefTempNum
=
1
;
}
if
(
productDefinitionTemplate
!=
-
1
)
proDefTempNum
=
productDefinitionTemplate
;
if
(
!
gcinit
)
{
if
(
editionNumber
>
1
)
GRIB_CHECK
(
my_grib_set_long
(
gh
,
"productDefinitionTemplateNumber"
,
proDefTempNum
),
0
);
...
...
@@ -2210,9 +2217,9 @@ int gribapiDefSteptype(int editionNumber, grib_handle *gh, int typeOfGeneratingP
}
static
void
gribapiDefDateTimeAbs
(
int
editionNumber
,
grib_handle
*
gh
,
int
date
,
int
time
,
int
typeOfGeneratingProcess
,
int
tsteptype
,
int
gcinit
)
void
gribapiDefDateTimeAbs
(
int
editionNumber
,
grib_handle
*
gh
,
int
date
,
int
time
,
int
productDefinitionTemplate
,
int
typeOfGeneratingProcess
,
int
tsteptype
,
int
gcinit
)
{
(
void
)
gribapiDefSteptype
(
editionNumber
,
gh
,
typeOfGeneratingProcess
,
tsteptype
,
gcinit
);
(
void
)
gribapiDefSteptype
(
editionNumber
,
gh
,
productDefinitionTemplate
,
typeOfGeneratingProcess
,
tsteptype
,
gcinit
);
if
(
editionNumber
>
1
)
GRIB_CHECK
(
my_grib_set_long
(
gh
,
"significanceOfReferenceTime"
,
0
),
0
);
if
(
editionNumber
>
1
)
GRIB_CHECK
(
my_grib_set_long
(
gh
,
"stepRange"
,
0
),
0
);
...
...
@@ -2223,7 +2230,7 @@ void gribapiDefDateTimeAbs(int editionNumber, grib_handle *gh, int date, int tim
static
int
gribapiDefDateTimeRel
(
int
editionNumber
,
grib_handle
*
gh
,
int
rdate
,
int
rtime
,
int
vdate
,
int
vtime
,
int
typeOfGeneratingProcess
,
int
tsteptype
,
int
timeunit
,
int
calendar
,
int
gcinit
)
int
productDefinitionTemplate
,
int
typeOfGeneratingProcess
,
int
tsteptype
,
int
timeunit
,
int
calendar
,
int
gcinit
)
{
int
status
=
-
1
;
int
year
,
month
,
day
,
hour
,
minute
,
second
;
...
...
@@ -2247,7 +2254,7 @@ int gribapiDefDateTimeRel(int editionNumber, grib_handle *gh, int rdate, int rti
if
(
!
(
int
)
fmod
(
days
*
86400
.
0
+
secs
,
factor
)
)
{
int
proDefTempNum
=
gribapiDefSteptype
(
editionNumber
,
gh
,
typeOfGeneratingProcess
,
tsteptype
,
gcinit
);
int
proDefTempNum
=
gribapiDefSteptype
(
editionNumber
,
gh
,
productDefinitionTemplate
,
typeOfGeneratingProcess
,
tsteptype
,
gcinit
);
gribapiDefStepUnits
(
gh
,
timeunit
,
gcinit
);
...
...
@@ -2273,7 +2280,8 @@ int gribapiDefDateTimeRel(int editionNumber, grib_handle *gh, int rdate, int rti
}
static
void
gribapiDefTime
(
int
editionNumber
,
int
typeOfGeneratingProcess
,
grib_handle
*
gh
,
int
vdate
,
int
vtime
,
int
tsteptype
,
int
numavg
,
int
taxisID
,
int
gcinit
)
void
gribapiDefTime
(
int
editionNumber
,
int
productDefinitionTemplate
,
int
typeOfGeneratingProcess
,
grib_handle
*
gh
,
int
vdate
,
int
vtime
,
int
tsteptype
,
int
numavg
,
int
taxisID
,
int
gcinit
)
{
int
taxistype
=
-
1
;
...
...
@@ -2302,14 +2310,14 @@ void gribapiDefTime(int editionNumber, int typeOfGeneratingProcess, grib_handle
int
timeunit
=
taxisInqTunit
(
taxisID
);
status
=
gribapiDefDateTimeRel
(
editionNumber
,
gh
,
rdate
,
rtime
,
vdate
,
vtime
,
typeOfGeneratingProcess
,
tsteptype
,
timeunit
,
calendar
,
gcinit
);
productDefinitionTemplate
,
typeOfGeneratingProcess
,
tsteptype
,
timeunit
,
calendar
,
gcinit
);
if
(
status
!=
0
)
taxistype
=
TAXIS_ABSOLUTE
;
}
if
(
taxistype
==
TAXIS_ABSOLUTE
)
{
gribapiDefDateTimeAbs
(
editionNumber
,
gh
,
vdate
,
vtime
,
typeOfGeneratingProcess
,
tsteptype
,
gcinit
);
gribapiDefDateTimeAbs
(
editionNumber
,
gh
,
vdate
,
vtime
,
productDefinitionTemplate
,
typeOfGeneratingProcess
,
tsteptype
,
gcinit
);
}
}
...
...
@@ -3066,6 +3074,7 @@ size_t gribapiEncode(int varID, int levelID, int vlistID, int gridID, int zaxisI
int
lieee
=
FALSE
;
/* int ensID, ensCount, forecast_type; *//* Ensemble Data */
int
typeOfGeneratingProcess
;
int
productDefinitionTemplate
;
long
bitsPerValue
;
long
editionNumber
=
2
;
char
name
[
256
];
...
...
@@ -3076,6 +3085,7 @@ size_t gribapiEncode(int varID, int levelID, int vlistID, int gridID, int zaxisI
param
=
vlistInqVarParam
(
vlistID
,
varID
);
datatype
=
vlistInqVarDatatype
(
vlistID
,
varID
);
typeOfGeneratingProcess
=
vlistInqVarTypeOfGeneratingProcess
(
vlistID
,
varID
);
productDefinitionTemplate
=
vlistInqVarProductDefinitionTemplate
(
vlistID
,
varID
);
vlistInqVarName
(
vlistID
,
varID
,
name
);
...
...
@@ -3102,7 +3112,7 @@ size_t gribapiEncode(int varID, int levelID, int vlistID, int gridID, int zaxisI
}
*/
gribapiDefTime
(
editionNumber
,
typeOfGeneratingProcess
,
gh
,
vdate
,
vtime
,
tsteptype
,
numavg
,
vlistInqTaxis
(
vlistID
),
gc
->
init
);
gribapiDefTime
(
editionNumber
,
productDefinitionTemplate
,
typeOfGeneratingProcess
,
gh
,
vdate
,
vtime
,
tsteptype
,
numavg
,
vlistInqTaxis
(
vlistID
),
gc
->
init
);
if
(
!
gc
->
init
)
gribapiDefInstitut
(
gh
,
vlistID
,
varID
);
if
(
!
gc
->
init
)
gribapiDefModel
(
gh
,
vlistID
,
varID
);
...
...
src/varscan.c
View file @
c035ac80
...
...
@@ -66,6 +66,7 @@ typedef struct
char
*
units
;
ensinfo_t
*
ensdata
;
int
typeOfGeneratingProcess
;
int
productDefinitionTemplate
;
#if defined (HAVE_LIBGRIB_API)
/* (Optional) list of keyword/double value pairs */
int
opt_grib_dbl_nentries
;
...
...
@@ -106,7 +107,8 @@ void paramInitEntry(int varID, int param)
vartable
[
varID
].
instID
=
UNDEFID
;
vartable
[
varID
].
modelID
=
UNDEFID
;
vartable
[
varID
].
tableID
=
UNDEFID
;
vartable
[
varID
].
typeOfGeneratingProcess
=
UNDEFID
;
vartable
[
varID
].
typeOfGeneratingProcess
=
UNDEFID
;
vartable
[
varID
].
productDefinitionTemplate
=
UNDEFID
;
vartable
[
varID
].
comptype
=
COMPRESS_NONE
;
vartable
[
varID
].
complevel
=
1
;
vartable
[
varID
].
lmissval
=
0
;
...
...
@@ -603,6 +605,9 @@ void cdi_generate_vars(stream_t *streamptr)
if
(
vartable
[
varid
].
typeOfGeneratingProcess
!=
UNDEFID
)
vlistDefVarTypeOfGeneratingProcess
(
vlistID
,
varID
,
vartable
[
varid
].
typeOfGeneratingProcess
);
if
(
vartable
[
varid
].
productDefinitionTemplate
!=
UNDEFID
)
vlistDefVarProductDefinitionTemplate
(
vlistID
,
varID
,
vartable
[
varid
].
productDefinitionTemplate
);
if
(
vartable
[
varid
].
lmissval
)
vlistDefVarMissval
(
vlistID
,
varID
,
vartable
[
varid
].
missval
);
if
(
vartable
[
varid
].
name
)
vlistDefVarName
(
vlistID
,
varID
,
vartable
[
varid
].
name
);
...
...
@@ -1023,6 +1028,12 @@ void varDefTypeOfGeneratingProcess(int varID, int typeOfGeneratingProcess)
}
void
varDefProductDefinitionTemplate
(
int
varID
,
int
productDefinitionTemplate
)
{
vartable
[
varID
].
productDefinitionTemplate
=
productDefinitionTemplate
;
}
void
varDefOptGribInt
(
int
varID
,
long
lval
,
const
char
*
keyword
)
{
#if defined (HAVE_LIBGRIB_API)
...
...
src/varscan.h
View file @
c035ac80
...
...
@@ -30,6 +30,7 @@ int varInqTable(int varID);
void
varDefEnsembleInfo
(
int
varID
,
int
ens_idx
,
int
ens_count
,
int
forecast_type
);
void
varDefTypeOfGeneratingProcess
(
int
varID
,
int
typeOfGeneratingProcess
);
void
varDefProductDefinitionTemplate
(
int
varID
,
int
productDefinitionTemplate
);
void
varDefOptGribInt
(
int
varID
,
long
lval
,
const
char
*
keyword
);
...
...
src/vlist.h
View file @
c035ac80
...
...
@@ -86,6 +86,7 @@ typedef struct
int
timave
;
int
timaccu
;
int
typeOfGeneratingProcess
;
int
productDefinitionTemplate
;
int
chunktype
;
int
xyz
;
int
missvalused
;
/* TRUE if missval is defined */
...
...
src/vlist_var.c
View file @
c035ac80
...
...
@@ -39,8 +39,8 @@ void vlistvarInitEntry(int vlistID, int varID)
vlistptr
->
vars
[
varID
].
tsteptype
=
TSTEP_INSTANT
;
vlistptr
->
vars
[
varID
].
timave
=
0
;
vlistptr
->
vars
[
varID
].
timaccu
=
0
;
vlistptr
->
vars
[
varID
].
typeOfGeneratingProcess
=
0
;
//
vlistptr->vars[varID].productDefinitionTemplate = -1;
vlistptr
->
vars
[
varID
].
typeOfGeneratingProcess
=
0
;
vlistptr
->
vars
[
varID
].
productDefinitionTemplate
=
-
1
;
vlistptr
->
vars
[
varID
].
chunktype
=
cdiChunkType
;
vlistptr
->
vars
[
varID
].
xyz
=
0
;
vlistptr
->
vars
[
varID
].
gridID
=
CDI_UNDEFID
;
...
...
@@ -1280,7 +1280,7 @@ int vlistInqVarTypeOfGeneratingProcess(int vlistID, int varID)
return
(
vlistptr
->
vars
[
varID
].
typeOfGeneratingProcess
);
}
/*
void
vlistDefVarProductDefinitionTemplate
(
int
vlistID
,
int
varID
,
int
productDefinitionTemplate
)
{
RETURN_IF_CLOSED_VLIST
(
vlistID
);
...
...
@@ -1297,7 +1297,7 @@ int vlistInqVarProductDefinitionTemplate(int vlistID, int varID)
return
(
vlistptr
->
vars
[
varID
].
productDefinitionTemplate
);
}
*/
void
vlistDestroyVarName
(
int
vlistID
,
int
varID
)
{
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment