cdi.inc 99 KB
Newer Older
1
! This file was automatically generated, don't edit!
Uwe Schulzweida's avatar
Uwe Schulzweida committed
2
!
3
! Fortran interface for CDI library version 1.9.9
Uwe Schulzweida's avatar
Uwe Schulzweida committed
4 5 6
!
! Author:
! -------
Uwe Schulzweida's avatar
Uwe Schulzweida committed
7
! Uwe Schulzweida, MPI-MET, Hamburg,   January 2021
Uwe Schulzweida's avatar
Uwe Schulzweida committed
8 9
!

10
      INTEGER    CDI_MAX_NAME
Uwe Schulzweida's avatar
Uwe Schulzweida committed
11
      PARAMETER (CDI_MAX_NAME           = 256)
12
      INTEGER    CDI_UNDEFID
Uwe Schulzweida's avatar
Uwe Schulzweida committed
13
      PARAMETER (CDI_UNDEFID            = -1)
14
      INTEGER    CDI_GLOBAL
Uwe Schulzweida's avatar
Uwe Schulzweida committed
15
      PARAMETER (CDI_GLOBAL             = -1)
16 17 18 19
      INTEGER    CDI_XAXIS
      PARAMETER (CDI_XAXIS              =  1)
      INTEGER    CDI_YAXIS
      PARAMETER (CDI_YAXIS              =  2)
Uwe Schulzweida's avatar
Uwe Schulzweida committed
20 21 22
!
!  Byte order
!
23
      INTEGER    CDI_BIGENDIAN
Uwe Schulzweida's avatar
Uwe Schulzweida committed
24
      PARAMETER (CDI_BIGENDIAN          =  0)
25
      INTEGER    CDI_LITTLEENDIAN
Uwe Schulzweida's avatar
Uwe Schulzweida committed
26
      PARAMETER (CDI_LITTLEENDIAN       =  1)
27
      INTEGER    CDI_PDPENDIAN
28
      PARAMETER (CDI_PDPENDIAN          =  2)
29
      INTEGER    CDI_REAL
Uwe Schulzweida's avatar
Uwe Schulzweida committed
30
      PARAMETER (CDI_REAL               =  1)
31
      INTEGER    CDI_COMP
Uwe Schulzweida's avatar
Uwe Schulzweida committed
32
      PARAMETER (CDI_COMP               =  2)
33
      INTEGER    CDI_BOTH
Uwe Schulzweida's avatar
Uwe Schulzweida committed
34 35 36 37
      PARAMETER (CDI_BOTH               =  3)
!
!  Error identifier
!
38
      INTEGER    CDI_NOERR
Uwe Schulzweida's avatar
Uwe Schulzweida committed
39
      PARAMETER (CDI_NOERR              =  0)
40
      INTEGER    CDI_EEOF
Uwe Schulzweida's avatar
Uwe Schulzweida committed
41
      PARAMETER (CDI_EEOF               = -1)
42 43
      INTEGER    CDI_ETMOF
      PARAMETER (CDI_ETMOF              = -9)
44
      INTEGER    CDI_ESYSTEM
Uwe Schulzweida's avatar
Uwe Schulzweida committed
45
      PARAMETER (CDI_ESYSTEM            = -10)
46
      INTEGER    CDI_EINVAL
Uwe Schulzweida's avatar
Uwe Schulzweida committed
47
      PARAMETER (CDI_EINVAL             = -20)
48 49 50 51
      INTEGER    CDI_EISDIR
      PARAMETER (CDI_EISDIR             = -21)
      INTEGER    CDI_EISEMPTY
      PARAMETER (CDI_EISEMPTY           = -22)
52
      INTEGER    CDI_EUFTYPE
53
      PARAMETER (CDI_EUFTYPE            = -23)
54
      INTEGER    CDI_ELIBNAVAIL
55
      PARAMETER (CDI_ELIBNAVAIL         = -24)
56
      INTEGER    CDI_EUFSTRUCT
57
      PARAMETER (CDI_EUFSTRUCT          = -25)
58
      INTEGER    CDI_EUNC4
59
      PARAMETER (CDI_EUNC4              = -26)
Uwe Schulzweida's avatar
Uwe Schulzweida committed
60
      INTEGER    CDI_EDIMSIZE
61
      PARAMETER (CDI_EDIMSIZE           = -27)
62
      INTEGER    CDI_ELIMIT
Uwe Schulzweida's avatar
Uwe Schulzweida committed
63 64 65 66
      PARAMETER (CDI_ELIMIT             = -99)
!
!  File types
!
67
      INTEGER    CDI_FILETYPE_GRB
68
      PARAMETER (CDI_FILETYPE_GRB       =  1)
69
      INTEGER    CDI_FILETYPE_GRB2
70
      PARAMETER (CDI_FILETYPE_GRB2      =  2)
71
      INTEGER    CDI_FILETYPE_NC
72
      PARAMETER (CDI_FILETYPE_NC        =  3)
73
      INTEGER    CDI_FILETYPE_NC2
74
      PARAMETER (CDI_FILETYPE_NC2       =  4)
75
      INTEGER    CDI_FILETYPE_NC4
76
      PARAMETER (CDI_FILETYPE_NC4       =  5)
77
      INTEGER    CDI_FILETYPE_NC4C
78
      PARAMETER (CDI_FILETYPE_NC4C      =  6)
Uwe Schulzweida's avatar
Uwe Schulzweida committed
79 80
      INTEGER    CDI_FILETYPE_NC5
      PARAMETER (CDI_FILETYPE_NC5       =  7)
81
      INTEGER    CDI_FILETYPE_SRV
Uwe Schulzweida's avatar
Uwe Schulzweida committed
82
      PARAMETER (CDI_FILETYPE_SRV       =  8)
83
      INTEGER    CDI_FILETYPE_EXT
Uwe Schulzweida's avatar
Uwe Schulzweida committed
84
      PARAMETER (CDI_FILETYPE_EXT       =  9)
85
      INTEGER    CDI_FILETYPE_IEG
Uwe Schulzweida's avatar
Uwe Schulzweida committed
86
      PARAMETER (CDI_FILETYPE_IEG       = 10)
Uwe Schulzweida's avatar
Uwe Schulzweida committed
87 88 89
!
!  Compress types
!
90
      INTEGER    CDI_COMPRESS_NONE
91
      PARAMETER (CDI_COMPRESS_NONE      =  0)
92
      INTEGER    CDI_COMPRESS_SZIP
93
      PARAMETER (CDI_COMPRESS_SZIP      =  1)
Uwe Schulzweida's avatar
Uwe Schulzweida committed
94 95
      INTEGER    CDI_COMPRESS_AEC
      PARAMETER (CDI_COMPRESS_AEC       =  2)
96
      INTEGER    CDI_COMPRESS_ZIP
Uwe Schulzweida's avatar
Uwe Schulzweida committed
97
      PARAMETER (CDI_COMPRESS_ZIP       =  3)
98
      INTEGER    CDI_COMPRESS_JPEG
Uwe Schulzweida's avatar
Uwe Schulzweida committed
99
      PARAMETER (CDI_COMPRESS_JPEG      =  4)
Uwe Schulzweida's avatar
Uwe Schulzweida committed
100 101 102
!
!  external data types
!
103
      INTEGER    CDI_DATATYPE_PACK
104
      PARAMETER (CDI_DATATYPE_PACK      =  0)
105
      INTEGER    CDI_DATATYPE_PACK1
106
      PARAMETER (CDI_DATATYPE_PACK1     =  1)
107
      INTEGER    CDI_DATATYPE_PACK2
108
      PARAMETER (CDI_DATATYPE_PACK2     =  2)
109
      INTEGER    CDI_DATATYPE_PACK3
110
      PARAMETER (CDI_DATATYPE_PACK3     =  3)
111
      INTEGER    CDI_DATATYPE_PACK4
112
      PARAMETER (CDI_DATATYPE_PACK4     =  4)
113
      INTEGER    CDI_DATATYPE_PACK5
114
      PARAMETER (CDI_DATATYPE_PACK5     =  5)
115
      INTEGER    CDI_DATATYPE_PACK6
116
      PARAMETER (CDI_DATATYPE_PACK6     =  6)
117
      INTEGER    CDI_DATATYPE_PACK7
118
      PARAMETER (CDI_DATATYPE_PACK7     =  7)
119
      INTEGER    CDI_DATATYPE_PACK8
120
      PARAMETER (CDI_DATATYPE_PACK8     =  8)
121
      INTEGER    CDI_DATATYPE_PACK9
122
      PARAMETER (CDI_DATATYPE_PACK9     =  9)
123
      INTEGER    CDI_DATATYPE_PACK10
124
      PARAMETER (CDI_DATATYPE_PACK10    = 10)
125
      INTEGER    CDI_DATATYPE_PACK11
126
      PARAMETER (CDI_DATATYPE_PACK11    = 11)
127
      INTEGER    CDI_DATATYPE_PACK12
128
      PARAMETER (CDI_DATATYPE_PACK12    = 12)
129
      INTEGER    CDI_DATATYPE_PACK13
130
      PARAMETER (CDI_DATATYPE_PACK13    = 13)
131
      INTEGER    CDI_DATATYPE_PACK14
132
      PARAMETER (CDI_DATATYPE_PACK14    = 14)
133
      INTEGER    CDI_DATATYPE_PACK15
134
      PARAMETER (CDI_DATATYPE_PACK15    = 15)
135
      INTEGER    CDI_DATATYPE_PACK16
136
      PARAMETER (CDI_DATATYPE_PACK16    = 16)
137
      INTEGER    CDI_DATATYPE_PACK17
138
      PARAMETER (CDI_DATATYPE_PACK17    = 17)
139
      INTEGER    CDI_DATATYPE_PACK18
140
      PARAMETER (CDI_DATATYPE_PACK18    = 18)
141
      INTEGER    CDI_DATATYPE_PACK19
142
      PARAMETER (CDI_DATATYPE_PACK19    = 19)
143
      INTEGER    CDI_DATATYPE_PACK20
144
      PARAMETER (CDI_DATATYPE_PACK20    = 20)
145
      INTEGER    CDI_DATATYPE_PACK21
146
      PARAMETER (CDI_DATATYPE_PACK21    = 21)
147
      INTEGER    CDI_DATATYPE_PACK22
148
      PARAMETER (CDI_DATATYPE_PACK22    = 22)
149
      INTEGER    CDI_DATATYPE_PACK23
150
      PARAMETER (CDI_DATATYPE_PACK23    = 23)
151
      INTEGER    CDI_DATATYPE_PACK24
152
      PARAMETER (CDI_DATATYPE_PACK24    = 24)
153
      INTEGER    CDI_DATATYPE_PACK25
154
      PARAMETER (CDI_DATATYPE_PACK25    = 25)
155
      INTEGER    CDI_DATATYPE_PACK26
156
      PARAMETER (CDI_DATATYPE_PACK26    = 26)
157
      INTEGER    CDI_DATATYPE_PACK27
158
      PARAMETER (CDI_DATATYPE_PACK27    = 27)
159
      INTEGER    CDI_DATATYPE_PACK28
160
      PARAMETER (CDI_DATATYPE_PACK28    = 28)
161
      INTEGER    CDI_DATATYPE_PACK29
162
      PARAMETER (CDI_DATATYPE_PACK29    = 29)
163
      INTEGER    CDI_DATATYPE_PACK30
164
      PARAMETER (CDI_DATATYPE_PACK30    = 30)
165
      INTEGER    CDI_DATATYPE_PACK31
166
      PARAMETER (CDI_DATATYPE_PACK31    = 31)
167
      INTEGER    CDI_DATATYPE_PACK32
168
      PARAMETER (CDI_DATATYPE_PACK32    = 32)
169
      INTEGER    CDI_DATATYPE_CPX32
170
      PARAMETER (CDI_DATATYPE_CPX32     = 64)
171
      INTEGER    CDI_DATATYPE_CPX64
172
      PARAMETER (CDI_DATATYPE_CPX64     = 128)
173
      INTEGER    CDI_DATATYPE_FLT32
174
      PARAMETER (CDI_DATATYPE_FLT32     = 132)
175
      INTEGER    CDI_DATATYPE_FLT64
176
      PARAMETER (CDI_DATATYPE_FLT64     = 164)
177
      INTEGER    CDI_DATATYPE_INT8
178
      PARAMETER (CDI_DATATYPE_INT8      = 208)
179
      INTEGER    CDI_DATATYPE_INT16
180
      PARAMETER (CDI_DATATYPE_INT16     = 216)
181
      INTEGER    CDI_DATATYPE_INT32
182
      PARAMETER (CDI_DATATYPE_INT32     = 232)
183
      INTEGER    CDI_DATATYPE_UINT8
184
      PARAMETER (CDI_DATATYPE_UINT8     = 308)
185
      INTEGER    CDI_DATATYPE_UINT16
186
      PARAMETER (CDI_DATATYPE_UINT16    = 316)
187
      INTEGER    CDI_DATATYPE_UINT32
188
      PARAMETER (CDI_DATATYPE_UINT32    = 332)
Uwe Schulzweida's avatar
Uwe Schulzweida committed
189 190 191
!
!  internal data types
!
192
      INTEGER    CDI_DATATYPE_INT
193
      PARAMETER (CDI_DATATYPE_INT       = 251)
194
      INTEGER    CDI_DATATYPE_FLT
195
      PARAMETER (CDI_DATATYPE_FLT       = 252)
196
      INTEGER    CDI_DATATYPE_TXT
197
      PARAMETER (CDI_DATATYPE_TXT       = 253)
198
      INTEGER    CDI_DATATYPE_CPX
199
      PARAMETER (CDI_DATATYPE_CPX       = 254)
200
      INTEGER    CDI_DATATYPE_UCHAR
201
      PARAMETER (CDI_DATATYPE_UCHAR     = 255)
202
      INTEGER    CDI_DATATYPE_LONG
203
      PARAMETER (CDI_DATATYPE_LONG      = 256)
204 205
      INTEGER    CDI_DATATYPE_UINT
      PARAMETER (CDI_DATATYPE_UINT      = 257)
Uwe Schulzweida's avatar
Uwe Schulzweida committed
206 207 208
!
!  Chunks
!
209
      INTEGER    CDI_CHUNK_AUTO
210
      PARAMETER (CDI_CHUNK_AUTO         =  1)
211
      INTEGER    CDI_CHUNK_GRID
212
      PARAMETER (CDI_CHUNK_GRID         =  2)
213
      INTEGER    CDI_CHUNK_LINES
214
      PARAMETER (CDI_CHUNK_LINES        =  3)
Uwe Schulzweida's avatar
Uwe Schulzweida committed
215 216 217
!
!  GRID types
!
218
      INTEGER    GRID_GENERIC
Uwe Schulzweida's avatar
Uwe Schulzweida committed
219
      PARAMETER (GRID_GENERIC           =  1)
220
      INTEGER    GRID_GAUSSIAN
Uwe Schulzweida's avatar
Uwe Schulzweida committed
221
      PARAMETER (GRID_GAUSSIAN          =  2)
222
      INTEGER    GRID_GAUSSIAN_REDUCED
Uwe Schulzweida's avatar
Uwe Schulzweida committed
223
      PARAMETER (GRID_GAUSSIAN_REDUCED  =  3)
224
      INTEGER    GRID_LONLAT
Uwe Schulzweida's avatar
Uwe Schulzweida committed
225
      PARAMETER (GRID_LONLAT            =  4)
226
      INTEGER    GRID_SPECTRAL
Uwe Schulzweida's avatar
Uwe Schulzweida committed
227
      PARAMETER (GRID_SPECTRAL          =  5)
228
      INTEGER    GRID_FOURIER
Uwe Schulzweida's avatar
Uwe Schulzweida committed
229
      PARAMETER (GRID_FOURIER           =  6)
230
      INTEGER    GRID_GME
Uwe Schulzweida's avatar
Uwe Schulzweida committed
231
      PARAMETER (GRID_GME               =  7)
232
      INTEGER    GRID_TRAJECTORY
Uwe Schulzweida's avatar
Uwe Schulzweida committed
233
      PARAMETER (GRID_TRAJECTORY        =  8)
234
      INTEGER    GRID_UNSTRUCTURED
Uwe Schulzweida's avatar
Uwe Schulzweida committed
235
      PARAMETER (GRID_UNSTRUCTURED      =  9)
236
      INTEGER    GRID_CURVILINEAR
Uwe Schulzweida's avatar
Uwe Schulzweida committed
237
      PARAMETER (GRID_CURVILINEAR       = 10)
238
      INTEGER    GRID_PROJECTION
Uwe Schulzweida's avatar
Uwe Schulzweida committed
239
      PARAMETER (GRID_PROJECTION        = 12)
Uwe Schulzweida's avatar
Uwe Schulzweida committed
240 241
      INTEGER    GRID_CHARXY
      PARAMETER (GRID_CHARXY            = 13)
242
      INTEGER    CDI_PROJ_RLL
243
      PARAMETER (CDI_PROJ_RLL           = 21)
244
      INTEGER    CDI_PROJ_LCC
245
      PARAMETER (CDI_PROJ_LCC           = 22)
246
      INTEGER    CDI_PROJ_LAEA
247
      PARAMETER (CDI_PROJ_LAEA          = 23)
248
      INTEGER    CDI_PROJ_SINU
249
      PARAMETER (CDI_PROJ_SINU          = 24)
Uwe Schulzweida's avatar
Uwe Schulzweida committed
250 251
      INTEGER    CDI_PROJ_STERE
      PARAMETER (CDI_PROJ_STERE         = 25)
Uwe Schulzweida's avatar
Uwe Schulzweida committed
252 253 254
!
!  ZAXIS types
!
255
      INTEGER    ZAXIS_SURFACE
Uwe Schulzweida's avatar
Uwe Schulzweida committed
256
      PARAMETER (ZAXIS_SURFACE          =  0)
257
      INTEGER    ZAXIS_GENERIC
Uwe Schulzweida's avatar
Uwe Schulzweida committed
258
      PARAMETER (ZAXIS_GENERIC          =  1)
259
      INTEGER    ZAXIS_HYBRID
Uwe Schulzweida's avatar
Uwe Schulzweida committed
260
      PARAMETER (ZAXIS_HYBRID           =  2)
261
      INTEGER    ZAXIS_HYBRID_HALF
Uwe Schulzweida's avatar
Uwe Schulzweida committed
262
      PARAMETER (ZAXIS_HYBRID_HALF      =  3)
263
      INTEGER    ZAXIS_PRESSURE
Uwe Schulzweida's avatar
Uwe Schulzweida committed
264
      PARAMETER (ZAXIS_PRESSURE         =  4)
265
      INTEGER    ZAXIS_HEIGHT
Uwe Schulzweida's avatar
Uwe Schulzweida committed
266
      PARAMETER (ZAXIS_HEIGHT           =  5)
267
      INTEGER    ZAXIS_DEPTH_BELOW_SEA
Uwe Schulzweida's avatar
Uwe Schulzweida committed
268 269 270
      PARAMETER (ZAXIS_DEPTH_BELOW_SEA  =  6)
      INTEGER    ZAXIS_DEPTH_BELOW_LAND
      PARAMETER (ZAXIS_DEPTH_BELOW_LAND =  7)
271
      INTEGER    ZAXIS_ISENTROPIC
Uwe Schulzweida's avatar
Uwe Schulzweida committed
272
      PARAMETER (ZAXIS_ISENTROPIC       =  8)
273
      INTEGER    ZAXIS_TRAJECTORY
Uwe Schulzweida's avatar
Uwe Schulzweida committed
274
      PARAMETER (ZAXIS_TRAJECTORY       =  9)
275
      INTEGER    ZAXIS_ALTITUDE
Uwe Schulzweida's avatar
Uwe Schulzweida committed
276
      PARAMETER (ZAXIS_ALTITUDE         = 10)
277
      INTEGER    ZAXIS_SIGMA
Uwe Schulzweida's avatar
Uwe Schulzweida committed
278
      PARAMETER (ZAXIS_SIGMA            = 11)
279
      INTEGER    ZAXIS_MEANSEA
Uwe Schulzweida's avatar
Uwe Schulzweida committed
280
      PARAMETER (ZAXIS_MEANSEA          = 12)
281
      INTEGER    ZAXIS_TOA
Uwe Schulzweida's avatar
Uwe Schulzweida committed
282
      PARAMETER (ZAXIS_TOA              = 13)
283
      INTEGER    ZAXIS_SEA_BOTTOM
Uwe Schulzweida's avatar
Uwe Schulzweida committed
284
      PARAMETER (ZAXIS_SEA_BOTTOM       = 14)
285
      INTEGER    ZAXIS_ATMOSPHERE
Uwe Schulzweida's avatar
Uwe Schulzweida committed
286
      PARAMETER (ZAXIS_ATMOSPHERE       = 15)
287
      INTEGER    ZAXIS_CLOUD_BASE
Uwe Schulzweida's avatar
Uwe Schulzweida committed
288
      PARAMETER (ZAXIS_CLOUD_BASE       = 16)
289
      INTEGER    ZAXIS_CLOUD_TOP
Uwe Schulzweida's avatar
Uwe Schulzweida committed
290
      PARAMETER (ZAXIS_CLOUD_TOP        = 17)
291
      INTEGER    ZAXIS_ISOTHERM_ZERO
Uwe Schulzweida's avatar
Uwe Schulzweida committed
292
      PARAMETER (ZAXIS_ISOTHERM_ZERO    = 18)
293
      INTEGER    ZAXIS_SNOW
Uwe Schulzweida's avatar
Uwe Schulzweida committed
294
      PARAMETER (ZAXIS_SNOW             = 19)
295
      INTEGER    ZAXIS_LAKE_BOTTOM
Uwe Schulzweida's avatar
Uwe Schulzweida committed
296
      PARAMETER (ZAXIS_LAKE_BOTTOM      = 20)
297
      INTEGER    ZAXIS_SEDIMENT_BOTTOM
Uwe Schulzweida's avatar
Uwe Schulzweida committed
298 299 300 301 302
      PARAMETER (ZAXIS_SEDIMENT_BOTTOM  = 21)
      INTEGER    ZAXIS_SEDIMENT_BOTTOM_TA
      PARAMETER (ZAXIS_SEDIMENT_BOTTOM_TA = 22)
      INTEGER    ZAXIS_SEDIMENT_BOTTOM_TW
      PARAMETER (ZAXIS_SEDIMENT_BOTTOM_TW = 23)
303
      INTEGER    ZAXIS_MIX_LAYER
Uwe Schulzweida's avatar
Uwe Schulzweida committed
304
      PARAMETER (ZAXIS_MIX_LAYER        = 24)
305
      INTEGER    ZAXIS_REFERENCE
Uwe Schulzweida's avatar
Uwe Schulzweida committed
306
      PARAMETER (ZAXIS_REFERENCE        = 25)
Uwe Schulzweida's avatar
Uwe Schulzweida committed
307 308
      INTEGER    ZAXIS_CHAR
      PARAMETER (ZAXIS_CHAR             = 26)
Uwe Schulzweida's avatar
Uwe Schulzweida committed
309 310
      INTEGER    ZAXIS_TROPOPAUSE
      PARAMETER (ZAXIS_TROPOPAUSE       = 27)
Uwe Schulzweida's avatar
Uwe Schulzweida committed
311 312 313
!
!  SUBTYPE types
!
314
      INTEGER    MAX_KV_PAIRS_MATCH
Uwe Schulzweida's avatar
Uwe Schulzweida committed
315 316 317 318 319 320
      PARAMETER (MAX_KV_PAIRS_MATCH     = 10)
!
!  Data structure defining a key-value search, possibly with multiple
!  key-value pairs in combination.
!  
!  Currently, only multiple pairs combined by AND are supported.
321 322 323
!
!
!  TIME types
Uwe Schulzweida's avatar
Uwe Schulzweida committed
324
!
325
      INTEGER    TIME_CONSTANT
Uwe Schulzweida's avatar
Uwe Schulzweida committed
326
      PARAMETER (TIME_CONSTANT          =  0)
Uwe Schulzweida's avatar
Uwe Schulzweida committed
327 328
      INTEGER    TIME_VARYING
      PARAMETER (TIME_VARYING           =  1)
329
      INTEGER    TIME_VARIABLE
Uwe Schulzweida's avatar
Uwe Schulzweida committed
330
      PARAMETER (TIME_VARIABLE          =  1)
331 332 333
!
!  TSTEP types
!
334
      INTEGER    TSTEP_INSTANT
Uwe Schulzweida's avatar
Uwe Schulzweida committed
335
      PARAMETER (TSTEP_INSTANT          =  1)
336
      INTEGER    TSTEP_AVG
Uwe Schulzweida's avatar
Uwe Schulzweida committed
337
      PARAMETER (TSTEP_AVG              =  2)
338
      INTEGER    TSTEP_ACCUM
Uwe Schulzweida's avatar
Uwe Schulzweida committed
339
      PARAMETER (TSTEP_ACCUM            =  3)
340
      INTEGER    TSTEP_MAX
Uwe Schulzweida's avatar
Uwe Schulzweida committed
341
      PARAMETER (TSTEP_MAX              =  4)
342
      INTEGER    TSTEP_MIN
Uwe Schulzweida's avatar
Uwe Schulzweida committed
343
      PARAMETER (TSTEP_MIN              =  5)
344
      INTEGER    TSTEP_DIFF
Uwe Schulzweida's avatar
Uwe Schulzweida committed
345
      PARAMETER (TSTEP_DIFF             =  6)
346
      INTEGER    TSTEP_RMS
Uwe Schulzweida's avatar
Uwe Schulzweida committed
347
      PARAMETER (TSTEP_RMS              =  7)
348
      INTEGER    TSTEP_SD
Uwe Schulzweida's avatar
Uwe Schulzweida committed
349
      PARAMETER (TSTEP_SD               =  8)
350
      INTEGER    TSTEP_COV
Uwe Schulzweida's avatar
Uwe Schulzweida committed
351
      PARAMETER (TSTEP_COV              =  9)
352
      INTEGER    TSTEP_RATIO
Uwe Schulzweida's avatar
Uwe Schulzweida committed
353
      PARAMETER (TSTEP_RATIO            = 10)
Uwe Schulzweida's avatar
Uwe Schulzweida committed
354 355
      INTEGER    TSTEP_SUM
      PARAMETER (TSTEP_SUM              = 11)
356
      INTEGER    TSTEP_RANGE
Uwe Schulzweida's avatar
Uwe Schulzweida committed
357
      PARAMETER (TSTEP_RANGE            = 12)
358
      INTEGER    TSTEP_INSTANT2
Uwe Schulzweida's avatar
Uwe Schulzweida committed
359
      PARAMETER (TSTEP_INSTANT2         = 13)
360
      INTEGER    TSTEP_INSTANT3
Uwe Schulzweida's avatar
Uwe Schulzweida committed
361
      PARAMETER (TSTEP_INSTANT3         = 14)
362 363 364
!
!  TAXIS types
!
365
      INTEGER    TAXIS_ABSOLUTE
Uwe Schulzweida's avatar
Uwe Schulzweida committed
366
      PARAMETER (TAXIS_ABSOLUTE         =  1)
367
      INTEGER    TAXIS_RELATIVE
Uwe Schulzweida's avatar
Uwe Schulzweida committed
368
      PARAMETER (TAXIS_RELATIVE         =  2)
369
      INTEGER    TAXIS_FORECAST
Uwe Schulzweida's avatar
Uwe Schulzweida committed
370
      PARAMETER (TAXIS_FORECAST         =  3)
371 372 373
!
!  TUNIT types
!
374
      INTEGER    TUNIT_SECOND
Uwe Schulzweida's avatar
Uwe Schulzweida committed
375
      PARAMETER (TUNIT_SECOND           =  1)
376
      INTEGER    TUNIT_MINUTE
Uwe Schulzweida's avatar
Uwe Schulzweida committed
377
      PARAMETER (TUNIT_MINUTE           =  2)
378
      INTEGER    TUNIT_QUARTER
Uwe Schulzweida's avatar
Uwe Schulzweida committed
379
      PARAMETER (TUNIT_QUARTER          =  3)
380
      INTEGER    TUNIT_30MINUTES
Uwe Schulzweida's avatar
Uwe Schulzweida committed
381
      PARAMETER (TUNIT_30MINUTES        =  4)
382
      INTEGER    TUNIT_HOUR
Uwe Schulzweida's avatar
Uwe Schulzweida committed
383
      PARAMETER (TUNIT_HOUR             =  5)
384
      INTEGER    TUNIT_3HOURS
Uwe Schulzweida's avatar
Uwe Schulzweida committed
385
      PARAMETER (TUNIT_3HOURS           =  6)
386
      INTEGER    TUNIT_6HOURS
Uwe Schulzweida's avatar
Uwe Schulzweida committed
387
      PARAMETER (TUNIT_6HOURS           =  7)
388
      INTEGER    TUNIT_12HOURS
Uwe Schulzweida's avatar
Uwe Schulzweida committed
389
      PARAMETER (TUNIT_12HOURS          =  8)
390
      INTEGER    TUNIT_DAY
Uwe Schulzweida's avatar
Uwe Schulzweida committed
391
      PARAMETER (TUNIT_DAY              =  9)
392
      INTEGER    TUNIT_MONTH
Uwe Schulzweida's avatar
Uwe Schulzweida committed
393
      PARAMETER (TUNIT_MONTH            = 10)
394
      INTEGER    TUNIT_YEAR
Uwe Schulzweida's avatar
Uwe Schulzweida committed
395
      PARAMETER (TUNIT_YEAR             = 11)
396 397 398
!
!  CALENDAR types
!
399
      INTEGER    CALENDAR_STANDARD
Uwe Schulzweida's avatar
Uwe Schulzweida committed
400
      PARAMETER (CALENDAR_STANDARD      =  0)
Uwe Schulzweida's avatar
Uwe Schulzweida committed
401 402
      INTEGER    CALENDAR_GREGORIAN
      PARAMETER (CALENDAR_GREGORIAN     =  1)
403
      INTEGER    CALENDAR_PROLEPTIC
Uwe Schulzweida's avatar
Uwe Schulzweida committed
404
      PARAMETER (CALENDAR_PROLEPTIC     =  2)
405
      INTEGER    CALENDAR_360DAYS
Uwe Schulzweida's avatar
Uwe Schulzweida committed
406
      PARAMETER (CALENDAR_360DAYS       =  3)
407
      INTEGER    CALENDAR_365DAYS
Uwe Schulzweida's avatar
Uwe Schulzweida committed
408
      PARAMETER (CALENDAR_365DAYS       =  4)
409
      INTEGER    CALENDAR_366DAYS
Uwe Schulzweida's avatar
Uwe Schulzweida committed
410
      PARAMETER (CALENDAR_366DAYS       =  5)
411
      INTEGER    CALENDAR_NONE
Uwe Schulzweida's avatar
Uwe Schulzweida committed
412
      PARAMETER (CALENDAR_NONE          =  6)
Uwe Schulzweida's avatar
Uwe Schulzweida committed
413 414 415
!
!  number of unsigned char needed to store UUID
!
416
      INTEGER    CDI_UUID_SIZE
Uwe Schulzweida's avatar
Uwe Schulzweida committed
417 418 419 420 421 422 423 424 425 426 427 428 429 430 431 432 433 434 435 436 437 438 439 440 441 442 443 444 445 446 447 448 449 450 451 452 453 454
      PARAMETER (CDI_UUID_SIZE          = 16)
!
!  Structs that are used to return data to the user
!
!
!  Opaque types
!
!
!  CDI control routines
!
!                     cdiReset
      EXTERNAL        cdiReset

      CHARACTER(80)   cdiStringError
!                                    (INTEGER         cdiErrno)
      EXTERNAL        cdiStringError

!                     cdiDebug
!                                    (INTEGER         debug)
      EXTERNAL        cdiDebug

      CHARACTER(80)   cdiLibraryVersion
      EXTERNAL        cdiLibraryVersion

!                     cdiPrintVersion
      EXTERNAL        cdiPrintVersion

      INTEGER         cdiHaveFiletype
!                                    (INTEGER         filetype)
      EXTERNAL        cdiHaveFiletype

!                     cdiDefMissval
!                                    (DOUBLEPRECISION missval)
      EXTERNAL        cdiDefMissval

      DOUBLEPRECISION cdiInqMissval
      EXTERNAL        cdiInqMissval

Uwe Schulzweida's avatar
Uwe Schulzweida committed
455 456 457
      DOUBLEPRECISION cdiInqGridMissval
      EXTERNAL        cdiInqGridMissval

Uwe Schulzweida's avatar
Uwe Schulzweida committed
458 459 460 461 462 463 464 465 466 467 468 469
!                     cdiDefGlobal
!                                    (CHARACTER*(*)   string,
!                                     INTEGER         val)
      EXTERNAL        cdiDefGlobal

      INTEGER         namespaceNew
      EXTERNAL        namespaceNew

!                     namespaceSetActive
!                                    (INTEGER         namespaceID)
      EXTERNAL        namespaceSetActive

470 471 472
      INTEGER         namespaceGetActive
      EXTERNAL        namespaceGetActive

Uwe Schulzweida's avatar
Uwe Schulzweida committed
473 474 475 476 477 478 479 480 481 482 483 484 485 486 487 488 489 490 491 492 493 494 495 496 497 498 499 500 501 502 503 504 505 506 507
!                     namespaceDelete
!                                    (INTEGER         namespaceID)
      EXTERNAL        namespaceDelete

!
!  CDI converter routines
!
!
!  parameter
!
!                     cdiParamToString
!                                    (INTEGER         param,
!                                     CHARACTER*(*)   paramstr,
!                                     INTEGER         maxlen)
      EXTERNAL        cdiParamToString

!                     cdiDecodeParam
!                                    (INTEGER         param,
!                                     INTEGER         pnum,
!                                     INTEGER         pcat,
!                                     INTEGER         pdis)
      EXTERNAL        cdiDecodeParam

      INTEGER         cdiEncodeParam
!                                    (INTEGER         pnum,
!                                     INTEGER         pcat,
!                                     INTEGER         pdis)
      EXTERNAL        cdiEncodeParam

!
!  date format:  YYYYMMDD
!
!
!  time format:    hhmmss
!
Uwe Schulzweida's avatar
Uwe Schulzweida committed
508 509 510 511 512 513 514 515 516 517 518 519 520
!                     cdiDecodeDate
!                                    (INTEGER         date,
!                                     INTEGER         year,
!                                     INTEGER         month,
!                                     INTEGER         day)
      EXTERNAL        cdiDecodeDate

      INTEGER         cdiEncodeDate
!                                    (INTEGER         year,
!                                     INTEGER         month,
!                                     INTEGER         day)
      EXTERNAL        cdiEncodeDate

Uwe Schulzweida's avatar
Uwe Schulzweida committed
521 522 523 524 525 526 527 528 529 530 531 532 533 534 535 536 537 538 539 540 541 542 543 544 545 546 547 548 549 550 551 552 553 554 555 556 557 558 559 560 561 562
!                     cdiDecodeTime
!                                    (INTEGER         time,
!                                     INTEGER         hour,
!                                     INTEGER         minute,
!                                     INTEGER         second)
      EXTERNAL        cdiDecodeTime

      INTEGER         cdiEncodeTime
!                                    (INTEGER         hour,
!                                     INTEGER         minute,
!                                     INTEGER         second)
      EXTERNAL        cdiEncodeTime

!
!  STREAM control routines
!
      INTEGER         cdiGetFiletype
!                                    (CHARACTER*(*)   path,
!                                     INTEGER         byteorder)
      EXTERNAL        cdiGetFiletype

      INTEGER         streamOpenRead
!                                    (CHARACTER*(*)   path)
      EXTERNAL        streamOpenRead

      INTEGER         streamOpenWrite
!                                    (CHARACTER*(*)   path,
!                                     INTEGER         filetype)
      EXTERNAL        streamOpenWrite

      INTEGER         streamOpenAppend
!                                    (CHARACTER*(*)   path)
      EXTERNAL        streamOpenAppend

!                     streamClose
!                                    (INTEGER         streamID)
      EXTERNAL        streamClose

!                     streamSync
!                                    (INTEGER         streamID)
      EXTERNAL        streamSync

Uwe Schulzweida's avatar
Uwe Schulzweida committed
563 564 565 566 567
!                     streamDefNumWorker
!                                    (INTEGER         streamID,
!                                     INTEGER         numWorker)
      EXTERNAL        streamDefNumWorker

Uwe Schulzweida's avatar
Uwe Schulzweida committed
568 569 570 571 572 573 574 575 576 577 578 579 580 581 582 583 584 585 586 587 588 589 590 591 592 593 594 595 596 597 598 599 600 601 602 603 604 605 606 607 608 609 610 611 612 613 614 615 616 617 618 619 620 621 622 623 624 625 626 627 628 629
!                     streamDefVlist
!                                    (INTEGER         streamID,
!                                     INTEGER         vlistID)
      EXTERNAL        streamDefVlist

      INTEGER         streamInqVlist
!                                    (INTEGER         streamID)
      EXTERNAL        streamInqVlist

      INTEGER         streamInqFiletype
!                                    (INTEGER         streamID)
      EXTERNAL        streamInqFiletype

!                     streamDefByteorder
!                                    (INTEGER         streamID,
!                                     INTEGER         byteorder)
      EXTERNAL        streamDefByteorder

      INTEGER         streamInqByteorder
!                                    (INTEGER         streamID)
      EXTERNAL        streamInqByteorder

!                     streamDefCompType
!                                    (INTEGER         streamID,
!                                     INTEGER         comptype)
      EXTERNAL        streamDefCompType

      INTEGER         streamInqCompType
!                                    (INTEGER         streamID)
      EXTERNAL        streamInqCompType

!                     streamDefCompLevel
!                                    (INTEGER         streamID,
!                                     INTEGER         complevel)
      EXTERNAL        streamDefCompLevel

      INTEGER         streamInqCompLevel
!                                    (INTEGER         streamID)
      EXTERNAL        streamInqCompLevel

      INTEGER         streamDefTimestep
!                                    (INTEGER         streamID,
!                                     INTEGER         tsID)
      EXTERNAL        streamDefTimestep

      INTEGER         streamInqTimestep
!                                    (INTEGER         streamID,
!                                     INTEGER         tsID)
      EXTERNAL        streamInqTimestep

      INTEGER         streamInqCurTimestepID
!                                    (INTEGER         streamID)
      EXTERNAL        streamInqCurTimestepID

      CHARACTER(80)   streamFilename
!                                    (INTEGER         streamID)
      EXTERNAL        streamFilename

      CHARACTER(80)   streamFilesuffix
!                                    (INTEGER         filetype)
      EXTERNAL        streamFilesuffix

Uwe Schulzweida's avatar
Uwe Schulzweida committed
630 631 632 633
      INTEGER         streamNvals
!                                    (INTEGER         streamID)
      EXTERNAL        streamNvals

Uwe Schulzweida's avatar
Uwe Schulzweida committed
634 635 636 637 638
      INTEGER         streamInqNvars
!                                    (INTEGER         streamID)
      EXTERNAL        streamInqNvars

!
Uwe Schulzweida's avatar
Uwe Schulzweida committed
639
!  STREAM var I/O routines (random access)
Uwe Schulzweida's avatar
Uwe Schulzweida committed
640 641 642 643 644 645 646 647 648 649 650 651 652 653 654 655 656 657 658 659 660 661 662 663 664 665 666 667 668 669 670 671 672 673 674 675 676 677 678 679 680 681 682 683 684 685 686 687 688 689 690 691 692 693 694 695 696 697 698 699 700 701 702 703
!
!                     streamWriteVar
!                                    (INTEGER         streamID,
!                                     INTEGER         varID,
!                                     DOUBLEPRECISION data(*),
!                                     INTEGER         nmiss)
      EXTERNAL        streamWriteVar

!                     streamWriteVarF
!                                    (INTEGER         streamID,
!                                     INTEGER         varID,
!                                     REAL            data(*),
!                                     INTEGER         nmiss)
      EXTERNAL        streamWriteVarF

!                     streamReadVar
!                                    (INTEGER         streamID,
!                                     INTEGER         varID,
!                                     DOUBLEPRECISION data(*),
!                                     INTEGER         nmiss)
      EXTERNAL        streamReadVar

!                     streamReadVarF
!                                    (INTEGER         streamID,
!                                     INTEGER         varID,
!                                     REAL            data(*),
!                                     INTEGER         nmiss)
      EXTERNAL        streamReadVarF

!                     streamWriteVarSlice
!                                    (INTEGER         streamID,
!                                     INTEGER         varID,
!                                     INTEGER         levelID,
!                                     DOUBLEPRECISION data(*),
!                                     INTEGER         nmiss)
      EXTERNAL        streamWriteVarSlice

!                     streamWriteVarSliceF
!                                    (INTEGER         streamID,
!                                     INTEGER         varID,
!                                     INTEGER         levelID,
!                                     REAL            data(*),
!                                     INTEGER         nmiss)
      EXTERNAL        streamWriteVarSliceF

!                     streamReadVarSlice
!                                    (INTEGER         streamID,
!                                     INTEGER         varID,
!                                     INTEGER         levelID,
!                                     DOUBLEPRECISION data(*),
!                                     INTEGER         nmiss)
      EXTERNAL        streamReadVarSlice

!                     streamReadVarSliceF
!                                    (INTEGER         streamID,
!                                     INTEGER         varID,
!                                     INTEGER         levelID,
!                                     REAL            data(*),
!                                     INTEGER         nmiss)
      EXTERNAL        streamReadVarSliceF

!                     streamWriteVarChunk
!                                    (INTEGER         streamID,
!                                     INTEGER         varID,
704
!                                     INTEGER         rect(2,3),
Uwe Schulzweida's avatar
Uwe Schulzweida committed
705 706 707 708 709
!                                     DOUBLEPRECISION data(*),
!                                     INTEGER         nmiss)
      EXTERNAL        streamWriteVarChunk

!
Uwe Schulzweida's avatar
Uwe Schulzweida committed
710
!  STREAM record I/O routines (sequential access)
Uwe Schulzweida's avatar
Uwe Schulzweida committed
711 712 713 714 715 716 717 718 719 720 721 722 723 724 725 726 727 728 729 730 731 732 733 734 735 736 737 738 739 740 741
!
!                     streamDefRecord
!                                    (INTEGER         streamID,
!                                     INTEGER         varID,
!                                     INTEGER         levelID)
      EXTERNAL        streamDefRecord

!                     streamInqRecord
!                                    (INTEGER         streamID,
!                                     INTEGER         varID,
!                                     INTEGER         levelID)
      EXTERNAL        streamInqRecord

!                     streamWriteRecord
!                                    (INTEGER         streamID,
!                                     DOUBLEPRECISION data(*),
!                                     INTEGER         nmiss)
      EXTERNAL        streamWriteRecord

!                     streamWriteRecordF
!                                    (INTEGER         streamID,
!                                     REAL            data(*),
!                                     INTEGER         nmiss)
      EXTERNAL        streamWriteRecordF

!                     streamReadRecord
!                                    (INTEGER         streamID,
!                                     DOUBLEPRECISION data(*),
!                                     INTEGER         nmiss)
      EXTERNAL        streamReadRecord

Thomas Jahns's avatar
Thomas Jahns committed
742 743 744 745 746 747
!                     streamReadRecordF
!                                    (INTEGER         streamID,
!                                     REAL            data(*),
!                                     INTEGER         nmiss)
      EXTERNAL        streamReadRecordF

Uwe Schulzweida's avatar
Uwe Schulzweida committed
748 749 750 751 752 753 754 755 756
!                     streamCopyRecord
!                                    (INTEGER         streamIDdest,
!                                     INTEGER         streamIDsrc)
      EXTERNAL        streamCopyRecord

!
!  File driven I/O (may yield better performance than using the streamXXX functions)
!
!
757 758 759 760 761 762 763 764 765 766 767 768 769 770 771 772 773 774 775 776 777 778 779 780 781 782 783
!  Creation & Destruction
!
!
!  Advancing an iterator
!
!
!  Introspecting metadata
!
!
!  All outXXX arguments to these functions may be NULL.
!
!
!  Reading data
!
!
!  TODO[NH]: Add functions to read partial fields.
!
!
!  Direct access to grib fields
!
!
!  Callthroughs to GRIB-API
!
!
!  Convenience functions for accessing GRIB-API keys
!
!
Uwe Schulzweida's avatar
Uwe Schulzweida committed
784 785 786 787 788 789 790 791 792 793 794 795 796 797 798 799 800 801 802 803 804 805 806 807 808 809 810 811 812 813 814 815 816 817 818 819 820 821 822 823 824 825 826 827 828 829 830 831 832 833 834 835 836 837 838 839 840 841 842 843 844 845 846 847 848 849 850 851 852 853 854 855 856 857 858 859 860 861 862 863 864 865 866 867 868 869 870 871 872 873 874 875 876 877 878 879 880 881 882 883 884 885 886 887 888 889 890 891 892 893 894 895 896 897 898 899 900 901 902 903 904 905 906 907 908 909 910 911 912 913 914 915 916 917 918 919 920 921 922 923 924 925 926 927 928 929 930 931 932 933 934 935 936 937 938 939 940 941 942 943 944 945 946 947 948 949 950 951 952 953 954 955 956 957 958
!  VLIST routines
!
      INTEGER         vlistCreate
      EXTERNAL        vlistCreate

!                     vlistDestroy
!                                    (INTEGER         vlistID)
      EXTERNAL        vlistDestroy

      INTEGER         vlistDuplicate
!                                    (INTEGER         vlistID)
      EXTERNAL        vlistDuplicate

!                     vlistCopy
!                                    (INTEGER         vlistID2,
!                                     INTEGER         vlistID1)
      EXTERNAL        vlistCopy

!                     vlistCopyFlag
!                                    (INTEGER         vlistID2,
!                                     INTEGER         vlistID1)
      EXTERNAL        vlistCopyFlag

!                     vlistClearFlag
!                                    (INTEGER         vlistID)
      EXTERNAL        vlistClearFlag

!                     vlistCat
!                                    (INTEGER         vlistID2,
!                                     INTEGER         vlistID1)
      EXTERNAL        vlistCat

!                     vlistMerge
!                                    (INTEGER         vlistID2,
!                                     INTEGER         vlistID1)
      EXTERNAL        vlistMerge

!                     vlistPrint
!                                    (INTEGER         vlistID)
      EXTERNAL        vlistPrint

      INTEGER         vlistNumber
!                                    (INTEGER         vlistID)
      EXTERNAL        vlistNumber

      INTEGER         vlistNvars
!                                    (INTEGER         vlistID)
      EXTERNAL        vlistNvars

      INTEGER         vlistNgrids
!                                    (INTEGER         vlistID)
      EXTERNAL        vlistNgrids

      INTEGER         vlistNzaxis
!                                    (INTEGER         vlistID)
      EXTERNAL        vlistNzaxis

      INTEGER         vlistNsubtypes
!                                    (INTEGER         vlistID)
      EXTERNAL        vlistNsubtypes

!                     vlistDefNtsteps
!                                    (INTEGER         vlistID,
!                                     INTEGER         nts)
      EXTERNAL        vlistDefNtsteps

      INTEGER         vlistNtsteps
!                                    (INTEGER         vlistID)
      EXTERNAL        vlistNtsteps

      INTEGER         vlistGridsizeMax
!                                    (INTEGER         vlistID)
      EXTERNAL        vlistGridsizeMax

      INTEGER         vlistGrid
!                                    (INTEGER         vlistID,
!                                     INTEGER         index)
      EXTERNAL        vlistGrid

      INTEGER         vlistGridIndex
!                                    (INTEGER         vlistID,
!                                     INTEGER         gridID)
      EXTERNAL        vlistGridIndex

!                     vlistChangeGridIndex
!                                    (INTEGER         vlistID,
!                                     INTEGER         index,
!                                     INTEGER         gridID)
      EXTERNAL        vlistChangeGridIndex

!                     vlistChangeGrid
!                                    (INTEGER         vlistID,
!                                     INTEGER         gridID1,
!                                     INTEGER         gridID2)
      EXTERNAL        vlistChangeGrid

      INTEGER         vlistZaxis
!                                    (INTEGER         vlistID,
!                                     INTEGER         index)
      EXTERNAL        vlistZaxis

      INTEGER         vlistZaxisIndex
!                                    (INTEGER         vlistID,
!                                     INTEGER         zaxisID)
      EXTERNAL        vlistZaxisIndex

!                     vlistChangeZaxisIndex
!                                    (INTEGER         vlistID,
!                                     INTEGER         index,
!                                     INTEGER         zaxisID)
      EXTERNAL        vlistChangeZaxisIndex

!                     vlistChangeZaxis
!                                    (INTEGER         vlistID,
!                                     INTEGER         zaxisID1,
!                                     INTEGER         zaxisID2)
      EXTERNAL        vlistChangeZaxis

      INTEGER         vlistNrecs
!                                    (INTEGER         vlistID)
      EXTERNAL        vlistNrecs

      INTEGER         vlistSubtype
!                                    (INTEGER         vlistID,
!                                     INTEGER         index)
      EXTERNAL        vlistSubtype

      INTEGER         vlistSubtypeIndex
!                                    (INTEGER         vlistID,
!                                     INTEGER         subtypeID)
      EXTERNAL        vlistSubtypeIndex

!                     vlistDefTaxis
!                                    (INTEGER         vlistID,
!                                     INTEGER         taxisID)
      EXTERNAL        vlistDefTaxis

      INTEGER         vlistInqTaxis
!                                    (INTEGER         vlistID)
      EXTERNAL        vlistInqTaxis

!                     vlistDefTable
!                                    (INTEGER         vlistID,
!                                     INTEGER         tableID)
      EXTERNAL        vlistDefTable

      INTEGER         vlistInqTable
!                                    (INTEGER         vlistID)
      EXTERNAL        vlistInqTable

!                     vlistDefInstitut
!                                    (INTEGER         vlistID,
!                                     INTEGER         instID)
      EXTERNAL        vlistDefInstitut

      INTEGER         vlistInqInstitut
!                                    (INTEGER         vlistID)
      EXTERNAL        vlistInqInstitut

!                     vlistDefModel
!                                    (INTEGER         vlistID,
!                                     INTEGER         modelID)
      EXTERNAL        vlistDefModel

      INTEGER         vlistInqModel
!                                    (INTEGER         vlistID)
      EXTERNAL        vlistInqModel

!
!  VLIST VAR routines
!
      INTEGER         vlistDefVarTiles
!                                    (INTEGER         vlistID,
!                                     INTEGER         gridID,
!                                     INTEGER         zaxisID,
Uwe Schulzweida's avatar
Uwe Schulzweida committed
959
!                                     INTEGER         timetype,
Uwe Schulzweida's avatar
Uwe Schulzweida committed
960 961 962 963 964 965 966
!                                     INTEGER         tilesetID)
      EXTERNAL        vlistDefVarTiles

      INTEGER         vlistDefVar
!                                    (INTEGER         vlistID,
!                                     INTEGER         gridID,
!                                     INTEGER         zaxisID,
Uwe Schulzweida's avatar
Uwe Schulzweida committed
967
!                                     INTEGER         timetype)
Uwe Schulzweida's avatar
Uwe Schulzweida committed
968 969 970 971