source: lmdz_wrf/trunk/WRFV3/lmdz/netcdf.inc @ 1465

Last change on this file since 1465 was 1, checked in by lfita, 10 years ago
  • -- --- Opening of the WRF+LMDZ coupling repository --- -- -

WRF: version v3.3
LMDZ: version v1818

More details in:

File size: 58.2 KB
Line 
1!     NetCDF-3.
2!
3! netcdf version 3 fortran interface:
4!
5
6!
7! external netcdf data types:
8!
9      integer nf_byte
10      integer nf_int1
11      integer nf_char
12      integer nf_short
13      integer nf_int2
14      integer nf_int
15      integer nf_float
16      integer nf_real
17      integer nf_double
18
19      parameter (nf_byte = 1)
20      parameter (nf_int1 = nf_byte)
21      parameter (nf_char = 2)
22      parameter (nf_short = 3)
23      parameter (nf_int2 = nf_short)
24      parameter (nf_int = 4)
25      parameter (nf_float = 5)
26      parameter (nf_real = nf_float)
27      parameter (nf_double = 6)
28
29!
30! default fill values:
31!
32      integer           nf_fill_byte
33      integer           nf_fill_int1
34      integer           nf_fill_char
35      integer           nf_fill_short
36      integer           nf_fill_int2
37      integer           nf_fill_int
38      real              nf_fill_float
39      real              nf_fill_real
40      doubleprecision   nf_fill_double
41
42      parameter (nf_fill_byte = -127)
43      parameter (nf_fill_int1 = nf_fill_byte)
44      parameter (nf_fill_char = 0)
45      parameter (nf_fill_short = -32767)
46      parameter (nf_fill_int2 = nf_fill_short)
47      parameter (nf_fill_int = -2147483647)
48      parameter (nf_fill_float = 9.9692099683868690e+36)
49      parameter (nf_fill_real = nf_fill_float)
50      parameter (nf_fill_double = 9.9692099683868690d+36)
51
52!
53! mode flags for opening and creating a netcdf dataset:
54!
55      integer nf_nowrite
56      integer nf_write
57      integer nf_clobber
58      integer nf_noclobber
59      integer nf_fill
60      integer nf_nofill
61      integer nf_lock
62      integer nf_share
63      integer nf_64bit_offset
64      integer nf_sizehint_default
65      integer nf_align_chunk
66      integer nf_format_classic
67      integer nf_format_64bit
68
69      parameter (nf_nowrite = 0)
70      parameter (nf_write = 1)
71      parameter (nf_clobber = 0)
72      parameter (nf_noclobber = 4)
73      parameter (nf_fill = 0)
74      parameter (nf_nofill = 256)
75      parameter (nf_lock = 1024)
76      parameter (nf_share = 2048)
77      parameter (nf_64bit_offset = 512)
78      parameter (nf_sizehint_default = 0)
79      parameter (nf_align_chunk = -1)
80      parameter (nf_format_classic = 1)
81      parameter (nf_format_64bit = 2)
82
83!
84! size argument for defining an unlimited dimension:
85!
86      integer nf_unlimited
87      parameter (nf_unlimited = 0)
88
89!
90! global attribute id:
91!
92      integer nf_global
93      parameter (nf_global = 0)
94
95!
96! implementation limits:
97!
98      integer nf_max_dims
99      integer nf_max_attrs
100      integer nf_max_vars
101      integer nf_max_name
102      integer nf_max_var_dims
103
104      parameter (nf_max_dims = 1024)
105      parameter (nf_max_attrs = 8192)
106      parameter (nf_max_vars = 8192)
107      parameter (nf_max_name = 256)
108      parameter (nf_max_var_dims = nf_max_dims)
109
110!
111! error codes:
112!
113      integer nf_noerr
114      integer nf_ebadid
115      integer nf_eexist
116      integer nf_einval
117      integer nf_eperm
118      integer nf_enotindefine
119      integer nf_eindefine
120      integer nf_einvalcoords
121      integer nf_emaxdims
122      integer nf_enameinuse
123      integer nf_enotatt
124      integer nf_emaxatts
125      integer nf_ebadtype
126      integer nf_ebaddim
127      integer nf_eunlimpos
128      integer nf_emaxvars
129      integer nf_enotvar
130      integer nf_eglobal
131      integer nf_enotnc
132      integer nf_ests
133      integer nf_emaxname
134      integer nf_eunlimit
135      integer nf_enorecvars
136      integer nf_echar
137      integer nf_eedge
138      integer nf_estride
139      integer nf_ebadname
140      integer nf_erange
141      integer nf_enomem
142      integer nf_evarsize
143      integer nf_edimsize
144      integer nf_etrunc
145
146      parameter (nf_noerr = 0)
147      parameter (nf_ebadid = -33)
148      parameter (nf_eexist = -35)
149      parameter (nf_einval = -36)
150      parameter (nf_eperm = -37)
151      parameter (nf_enotindefine = -38)
152      parameter (nf_eindefine = -39)
153      parameter (nf_einvalcoords = -40)
154      parameter (nf_emaxdims = -41)
155      parameter (nf_enameinuse = -42)
156      parameter (nf_enotatt = -43)
157      parameter (nf_emaxatts = -44)
158      parameter (nf_ebadtype = -45)
159      parameter (nf_ebaddim = -46)
160      parameter (nf_eunlimpos = -47)
161      parameter (nf_emaxvars = -48)
162      parameter (nf_enotvar = -49)
163      parameter (nf_eglobal = -50)
164      parameter (nf_enotnc = -51)
165      parameter (nf_ests = -52)
166      parameter (nf_emaxname = -53)
167      parameter (nf_eunlimit = -54)
168      parameter (nf_enorecvars = -55)
169      parameter (nf_echar = -56)
170      parameter (nf_eedge = -57)
171      parameter (nf_estride = -58)
172      parameter (nf_ebadname = -59)
173      parameter (nf_erange = -60)
174      parameter (nf_enomem = -61)
175      parameter (nf_evarsize = -62)
176      parameter (nf_edimsize = -63)
177      parameter (nf_etrunc = -64)
178!
179! error handling modes:
180!
181      integer  nf_fatal
182      integer nf_verbose
183
184      parameter (nf_fatal = 1)
185      parameter (nf_verbose = 2)
186
187!
188! miscellaneous routines:
189!
190      character*80   nf_inq_libvers
191      external       nf_inq_libvers
192
193      character*80   nf_strerror
194!                         (integer             ncerr)
195      external       nf_strerror
196
197      logical        nf_issyserr
198!                         (integer             ncerr)
199      external       nf_issyserr
200
201!
202! control routines:
203!
204      integer         nf_inq_base_pe
205!                         (integer             ncid,
206!                          integer             pe)
207      external        nf_inq_base_pe
208
209      integer         nf_set_base_pe
210!                         (integer             ncid,
211!                          integer             pe)
212      external        nf_set_base_pe
213
214      integer         nf_create
215!                         (character*(*)       path,
216!                          integer             cmode,
217!                          integer             ncid)
218      external        nf_create
219
220      integer         nf__create
221!                         (character*(*)       path,
222!                          integer             cmode,
223!                          integer             initialsz,
224!                          integer             chunksizehint,
225!                          integer             ncid)
226      external        nf__create
227
228      integer         nf__create_mp
229!                         (character*(*)       path,
230!                          integer             cmode,
231!                          integer             initialsz,
232!                          integer             basepe,
233!                          integer             chunksizehint,
234!                          integer             ncid)
235      external        nf__create_mp
236
237      integer         nf_open
238!                         (character*(*)       path,
239!                          integer             mode,
240!                          integer             ncid)
241      external        nf_open
242
243      integer         nf__open
244!                         (character*(*)       path,
245!                          integer             mode,
246!                          integer             chunksizehint,
247!                          integer             ncid)
248      external        nf__open
249
250      integer         nf__open_mp
251!                         (character*(*)       path,
252!                          integer             mode,
253!                          integer             basepe,
254!                          integer             chunksizehint,
255!                          integer             ncid)
256      external        nf__open_mp
257
258      integer         nf_set_fill
259!                         (integer             ncid,
260!                          integer             fillmode,
261!                          integer             old_mode)
262      external        nf_set_fill
263
264      integer         nf_set_default_format
265!                          (integer             format,
266!                          integer             old_format)
267      external        nf_set_default_format
268
269      integer         nf_redef
270!                         (integer             ncid)
271      external        nf_redef
272
273      integer         nf_enddef
274!                         (integer             ncid)
275      external        nf_enddef
276
277      integer         nf__enddef
278!                         (integer             ncid,
279!                          integer             h_minfree,
280!                          integer             v_align,
281!                          integer             v_minfree,
282!                          integer             r_align)
283      external        nf__enddef
284
285      integer         nf_sync
286!                         (integer             ncid)
287      external        nf_sync
288
289      integer         nf_abort
290!                         (integer             ncid)
291      external        nf_abort
292
293      integer         nf_close
294!                         (integer             ncid)
295      external        nf_close
296
297      integer         nf_delete
298!                         (character*(*)       ncid)
299      external        nf_delete
300
301!
302! general inquiry routines:
303!
304
305      integer         nf_inq
306!                         (integer             ncid,
307!                          integer             ndims,
308!                          integer             nvars,
309!                          integer             ngatts,
310!                          integer             unlimdimid)
311      external        nf_inq
312
313      integer         nf_inq_ndims
314!                         (integer             ncid,
315!                          integer             ndims)
316      external        nf_inq_ndims
317
318      integer         nf_inq_nvars
319!                         (integer             ncid,
320!                          integer             nvars)
321      external        nf_inq_nvars
322
323      integer         nf_inq_natts
324!                         (integer             ncid,
325!                          integer             ngatts)
326      external        nf_inq_natts
327
328      integer         nf_inq_unlimdim
329!                         (integer             ncid,
330!                          integer             unlimdimid)
331      external        nf_inq_unlimdim
332
333      integer         nf_inq_format
334!                         (integer             ncid,
335!                          integer             format)
336      external        nf_inq_format
337
338!
339! dimension routines:
340!
341
342      integer         nf_def_dim
343!                         (integer             ncid,
344!                          character(*)        name,
345!                          integer             len,
346!                          integer             dimid)
347      external        nf_def_dim
348
349      integer         nf_inq_dimid
350!                         (integer             ncid,
351!                          character(*)        name,
352!                          integer             dimid)
353      external        nf_inq_dimid
354
355      integer         nf_inq_dim
356!                         (integer             ncid,
357!                          integer             dimid,
358!                          character(*)        name,
359!                          integer             len)
360      external        nf_inq_dim
361
362      integer         nf_inq_dimname
363!                         (integer             ncid,
364!                          integer             dimid,
365!                          character(*)        name)
366      external        nf_inq_dimname
367
368      integer         nf_inq_dimlen
369!                         (integer             ncid,
370!                          integer             dimid,
371!                          integer             len)
372      external        nf_inq_dimlen
373
374      integer         nf_rename_dim
375!                         (integer             ncid,
376!                          integer             dimid,
377!                          character(*)        name)
378      external        nf_rename_dim
379
380!
381! general attribute routines:
382!
383
384      integer         nf_inq_att
385!                         (integer             ncid,
386!                          integer             varid,
387!                          character(*)        name,
388!                          integer             xtype,
389!                          integer             len)
390      external        nf_inq_att
391
392      integer         nf_inq_attid
393!                         (integer             ncid,
394!                          integer             varid,
395!                          character(*)        name,
396!                          integer             attnum)
397      external        nf_inq_attid
398
399      integer         nf_inq_atttype
400!                         (integer             ncid,
401!                          integer             varid,
402!                          character(*)        name,
403!                          integer             xtype)
404      external        nf_inq_atttype
405
406      integer         nf_inq_attlen
407!                         (integer             ncid,
408!                          integer             varid,
409!                          character(*)        name,
410!                          integer             len)
411      external        nf_inq_attlen
412
413      integer         nf_inq_attname
414!                         (integer             ncid,
415!                          integer             varid,
416!                          integer             attnum,
417!                          character(*)        name)
418      external        nf_inq_attname
419
420      integer         nf_copy_att
421!                         (integer             ncid_in,
422!                          integer             varid_in,
423!                          character(*)        name,
424!                          integer             ncid_out,
425!                          integer             varid_out)
426      external        nf_copy_att
427
428      integer         nf_rename_att
429!                         (integer             ncid,
430!                          integer             varid,
431!                          character(*)        curname,
432!                          character(*)        newname)
433      external        nf_rename_att
434
435      integer         nf_del_att
436!                         (integer             ncid,
437!                          integer             varid,
438!                          character(*)        name)
439      external        nf_del_att
440
441!
442! attribute put/get routines:
443!
444
445      integer         nf_put_att_text
446!                         (integer             ncid,
447!                          integer             varid,
448!                          character(*)        name,
449!                          integer             len,
450!                          character(*)        text)
451      external        nf_put_att_text
452
453      integer         nf_get_att_text
454!                         (integer             ncid,
455!                          integer             varid,
456!                          character(*)        name,
457!                          character(*)        text)
458      external        nf_get_att_text
459
460      integer         nf_put_att_int1
461!                         (integer             ncid,
462!                          integer             varid,
463!                          character(*)        name,
464!                          integer             xtype,
465!                          integer             len,
466!                          nf_int1_t           i1vals(1))
467      external        nf_put_att_int1
468
469      integer         nf_get_att_int1
470!                         (integer             ncid,
471!                          integer             varid,
472!                          character(*)        name,
473!                          nf_int1_t           i1vals(1))
474      external        nf_get_att_int1
475
476      integer         nf_put_att_int2
477!                         (integer             ncid,
478!                          integer             varid,
479!                          character(*)        name,
480!                          integer             xtype,
481!                          integer             len,
482!                          nf_int2_t           i2vals(1))
483      external        nf_put_att_int2
484
485      integer         nf_get_att_int2
486!                         (integer             ncid,
487!                          integer             varid,
488!                          character(*)        name,
489!                          nf_int2_t           i2vals(1))
490      external        nf_get_att_int2
491
492      integer         nf_put_att_int
493!                         (integer             ncid,
494!                          integer             varid,
495!                          character(*)        name,
496!                          integer             xtype,
497!                          integer             len,
498!                          integer             ivals(1))
499      external        nf_put_att_int
500
501      integer         nf_get_att_int
502!                         (integer             ncid,
503!                          integer             varid,
504!                          character(*)        name,
505!                          integer             ivals(1))
506      external        nf_get_att_int
507
508      integer         nf_put_att_real
509!                         (integer             ncid,
510!                          integer             varid,
511!                          character(*)        name,
512!                          integer             xtype,
513!                          integer             len,
514!                          real                rvals(1))
515      external        nf_put_att_real
516
517      integer         nf_get_att_real
518!                         (integer             ncid,
519!                          integer             varid,
520!                          character(*)        name,
521!                          real                rvals(1))
522      external        nf_get_att_real
523
524      integer         nf_put_att_double
525!                         (integer             ncid,
526!                          integer             varid,
527!                          character(*)        name,
528!                          integer             xtype,
529!                          integer             len,
530!                          double              dvals(1))
531      external        nf_put_att_double
532
533      integer         nf_get_att_double
534!                         (integer             ncid,
535!                          integer             varid,
536!                          character(*)        name,
537!                          double              dvals(1))
538      external        nf_get_att_double
539
540!
541! general variable routines:
542!
543
544      integer         nf_def_var
545!                         (integer             ncid,
546!                          character(*)        name,
547!                          integer             datatype,
548!                          integer             ndims,
549!                          integer             dimids(1),
550!                          integer             varid)
551      external        nf_def_var
552
553      integer         nf_inq_var
554!                         (integer             ncid,
555!                          integer             varid,
556!                          character(*)        name,
557!                          integer             datatype,
558!                          integer             ndims,
559!                          integer             dimids(1),
560!                          integer             natts)
561      external        nf_inq_var
562
563      integer         nf_inq_varid
564!                         (integer             ncid,
565!                          character(*)        name,
566!                          integer             varid)
567      external        nf_inq_varid
568
569      integer         nf_inq_varname
570!                         (integer             ncid,
571!                          integer             varid,
572!                          character(*)        name)
573      external        nf_inq_varname
574
575      integer         nf_inq_vartype
576!                         (integer             ncid,
577!                          integer             varid,
578!                          integer             xtype)
579      external        nf_inq_vartype
580
581      integer         nf_inq_varndims
582!                         (integer             ncid,
583!                          integer             varid,
584!                          integer             ndims)
585      external        nf_inq_varndims
586
587      integer         nf_inq_vardimid
588!                         (integer             ncid,
589!                          integer             varid,
590!                          integer             dimids(1))
591      external        nf_inq_vardimid
592
593      integer         nf_inq_varnatts
594!                         (integer             ncid,
595!                          integer             varid,
596!                          integer             natts)
597      external        nf_inq_varnatts
598
599      integer         nf_rename_var
600!                         (integer             ncid,
601!                          integer             varid,
602!                          character(*)        name)
603      external        nf_rename_var
604
605      integer         nf_copy_var
606!                         (integer             ncid_in,
607!                          integer             varid,
608!                          integer             ncid_out)
609      external        nf_copy_var
610
611!
612! entire variable put/get routines:
613!
614
615      integer         nf_put_var_text
616!                         (integer             ncid,
617!                          integer             varid,
618!                          character(*)        text)
619      external        nf_put_var_text
620
621      integer         nf_get_var_text
622!                         (integer             ncid,
623!                          integer             varid,
624!                          character(*)        text)
625      external        nf_get_var_text
626
627      integer         nf_put_var_int1
628!                         (integer             ncid,
629!                          integer             varid,
630!                          nf_int1_t           i1vals(1))
631      external        nf_put_var_int1
632
633      integer         nf_get_var_int1
634!                         (integer             ncid,
635!                          integer             varid,
636!                          nf_int1_t           i1vals(1))
637      external        nf_get_var_int1
638
639      integer         nf_put_var_int2
640!                         (integer             ncid,
641!                          integer             varid,
642!                          nf_int2_t           i2vals(1))
643      external        nf_put_var_int2
644
645      integer         nf_get_var_int2
646!                         (integer             ncid,
647!                          integer             varid,
648!                          nf_int2_t           i2vals(1))
649      external        nf_get_var_int2
650
651      integer         nf_put_var_int
652!                         (integer             ncid,
653!                          integer             varid,
654!                          integer             ivals(1))
655      external        nf_put_var_int
656
657      integer         nf_get_var_int
658!                         (integer             ncid,
659!                          integer             varid,
660!                          integer             ivals(1))
661      external        nf_get_var_int
662
663      integer         nf_put_var_real
664!                         (integer             ncid,
665!                          integer             varid,
666!                          real                rvals(1))
667      external        nf_put_var_real
668
669      integer         nf_get_var_real
670!                         (integer             ncid,
671!                          integer             varid,
672!                          real                rvals(1))
673      external        nf_get_var_real
674
675      integer         nf_put_var_double
676!                         (integer             ncid,
677!                          integer             varid,
678!                          doubleprecision     dvals(1))
679      external        nf_put_var_double
680
681      integer         nf_get_var_double
682!                         (integer             ncid,
683!                          integer             varid,
684!                          doubleprecision     dvals(1))
685      external        nf_get_var_double
686
687!
688! single variable put/get routines:
689!
690
691      integer         nf_put_var1_text
692!                         (integer             ncid,
693!                          integer             varid,
694!                          integer             index(1),
695!                          character*1         text)
696      external        nf_put_var1_text
697
698      integer         nf_get_var1_text
699!                         (integer             ncid,
700!                          integer             varid,
701!                          integer             index(1),
702!                          character*1         text)
703      external        nf_get_var1_text
704
705      integer         nf_put_var1_int1
706!                         (integer             ncid,
707!                          integer             varid,
708!                          integer             index(1),
709!                          nf_int1_t           i1val)
710      external        nf_put_var1_int1
711
712      integer         nf_get_var1_int1
713!                         (integer             ncid,
714!                          integer             varid,
715!                          integer             index(1),
716!                          nf_int1_t           i1val)
717      external        nf_get_var1_int1
718
719      integer         nf_put_var1_int2
720!                         (integer             ncid,
721!                          integer             varid,
722!                          integer             index(1),
723!                          nf_int2_t           i2val)
724      external        nf_put_var1_int2
725
726      integer         nf_get_var1_int2
727!                         (integer             ncid,
728!                          integer             varid,
729!                          integer             index(1),
730!                          nf_int2_t           i2val)
731      external        nf_get_var1_int2
732
733      integer         nf_put_var1_int
734!                         (integer             ncid,
735!                          integer             varid,
736!                          integer             index(1),
737!                          integer             ival)
738      external        nf_put_var1_int
739
740      integer         nf_get_var1_int
741!                         (integer             ncid,
742!                          integer             varid,
743!                          integer             index(1),
744!                          integer             ival)
745      external        nf_get_var1_int
746
747      integer         nf_put_var1_real
748!                         (integer             ncid,
749!                          integer             varid,
750!                          integer             index(1),
751!                          real                rval)
752      external        nf_put_var1_real
753
754      integer         nf_get_var1_real
755!                         (integer             ncid,
756!                          integer             varid,
757!                          integer             index(1),
758!                          real                rval)
759      external        nf_get_var1_real
760
761      integer         nf_put_var1_double
762!                         (integer             ncid,
763!                          integer             varid,
764!                          integer             index(1),
765!                          doubleprecision     dval)
766      external        nf_put_var1_double
767
768      integer         nf_get_var1_double
769!                         (integer             ncid,
770!                          integer             varid,
771!                          integer             index(1),
772!                          doubleprecision     dval)
773      external        nf_get_var1_double
774
775!
776! variable array put/get routines:
777!
778
779      integer         nf_put_vara_text
780!                         (integer             ncid,
781!                          integer             varid,
782!                          integer             start(1),
783!                          integer             count(1),
784!                          character(*)        text)
785      external        nf_put_vara_text
786
787      integer         nf_get_vara_text
788!                         (integer             ncid,
789!                          integer             varid,
790!                          integer             start(1),
791!                          integer             count(1),
792!                          character(*)        text)
793      external        nf_get_vara_text
794
795      integer         nf_put_vara_int1
796!                         (integer             ncid,
797!                          integer             varid,
798!                          integer             start(1),
799!                          integer             count(1),
800!                          nf_int1_t           i1vals(1))
801      external        nf_put_vara_int1
802
803      integer         nf_get_vara_int1
804!                         (integer             ncid,
805!                          integer             varid,
806!                          integer             start(1),
807!                          integer             count(1),
808!                          nf_int1_t           i1vals(1))
809      external        nf_get_vara_int1
810
811      integer         nf_put_vara_int2
812!                         (integer             ncid,
813!                          integer             varid,
814!                          integer             start(1),
815!                          integer             count(1),
816!                          nf_int2_t           i2vals(1))
817      external        nf_put_vara_int2
818
819      integer         nf_get_vara_int2
820!                         (integer             ncid,
821!                          integer             varid,
822!                          integer             start(1),
823!                          integer             count(1),
824!                          nf_int2_t           i2vals(1))
825      external        nf_get_vara_int2
826
827      integer         nf_put_vara_int
828!                         (integer             ncid,
829!                          integer             varid,
830!                          integer             start(1),
831!                          integer             count(1),
832!                          integer             ivals(1))
833      external        nf_put_vara_int
834
835      integer         nf_get_vara_int
836!                         (integer             ncid,
837!                          integer             varid,
838!                          integer             start(1),
839!                          integer             count(1),
840!                          integer             ivals(1))
841      external        nf_get_vara_int
842
843      integer         nf_put_vara_real
844!                         (integer             ncid,
845!                          integer             varid,
846!                          integer             start(1),
847!                          integer             count(1),
848!                          real                rvals(1))
849      external        nf_put_vara_real
850
851      integer         nf_get_vara_real
852!                         (integer             ncid,
853!                          integer             varid,
854!                          integer             start(1),
855!                          integer             count(1),
856!                          real                rvals(1))
857      external        nf_get_vara_real
858
859      integer         nf_put_vara_double
860!                         (integer             ncid,
861!                          integer             varid,
862!                          integer             start(1),
863!                          integer             count(1),
864!                          doubleprecision     dvals(1))
865      external        nf_put_vara_double
866
867      integer         nf_get_vara_double
868!                         (integer             ncid,
869!                          integer             varid,
870!                          integer             start(1),
871!                          integer             count(1),
872!                          doubleprecision     dvals(1))
873      external        nf_get_vara_double
874
875!
876! strided variable put/get routines:
877!
878
879      integer         nf_put_vars_text
880!                         (integer             ncid,
881!                          integer             varid,
882!                          integer             start(1),
883!                          integer             count(1),
884!                          integer             stride(1),
885!                          character(*)        text)
886      external        nf_put_vars_text
887
888      integer         nf_get_vars_text
889!                         (integer             ncid,
890!                          integer             varid,
891!                          integer             start(1),
892!                          integer             count(1),
893!                          integer             stride(1),
894!                          character(*)        text)
895      external        nf_get_vars_text
896
897      integer         nf_put_vars_int1
898!                         (integer             ncid,
899!                          integer             varid,
900!                          integer             start(1),
901!                          integer             count(1),
902!                          integer             stride(1),
903!                          nf_int1_t           i1vals(1))
904      external        nf_put_vars_int1
905
906      integer         nf_get_vars_int1
907!                         (integer             ncid,
908!                          integer             varid,
909!                          integer             start(1),
910!                          integer             count(1),
911!                          integer             stride(1),
912!                          nf_int1_t           i1vals(1))
913      external        nf_get_vars_int1
914
915      integer         nf_put_vars_int2
916!                         (integer             ncid,
917!                          integer             varid,
918!                          integer             start(1),
919!                          integer             count(1),
920!                          integer             stride(1),
921!                          nf_int2_t           i2vals(1))
922      external        nf_put_vars_int2
923
924      integer         nf_get_vars_int2
925!                         (integer             ncid,
926!                          integer             varid,
927!                          integer             start(1),
928!                          integer             count(1),
929!                          integer             stride(1),
930!                          nf_int2_t           i2vals(1))
931      external        nf_get_vars_int2
932
933      integer         nf_put_vars_int
934!                         (integer             ncid,
935!                          integer             varid,
936!                          integer             start(1),
937!                          integer             count(1),
938!                          integer             stride(1),
939!                          integer             ivals(1))
940      external        nf_put_vars_int
941
942      integer         nf_get_vars_int
943!                         (integer             ncid,
944!                          integer             varid,
945!                          integer             start(1),
946!                          integer             count(1),
947!                          integer             stride(1),
948!                          integer             ivals(1))
949      external        nf_get_vars_int
950
951      integer         nf_put_vars_real
952!                         (integer             ncid,
953!                          integer             varid,
954!                          integer             start(1),
955!                          integer             count(1),
956!                          integer             stride(1),
957!                          real                rvals(1))
958      external        nf_put_vars_real
959
960      integer         nf_get_vars_real
961!                         (integer             ncid,
962!                          integer             varid,
963!                          integer             start(1),
964!                          integer             count(1),
965!                          integer             stride(1),
966!                          real                rvals(1))
967      external        nf_get_vars_real
968
969      integer         nf_put_vars_double
970!                         (integer             ncid,
971!                          integer             varid,
972!                          integer             start(1),
973!                          integer             count(1),
974!                          integer             stride(1),
975!                          doubleprecision     dvals(1))
976      external        nf_put_vars_double
977
978      integer         nf_get_vars_double
979!                         (integer             ncid,
980!                          integer             varid,
981!                          integer             start(1),
982!                          integer             count(1),
983!                          integer             stride(1),
984!                          doubleprecision     dvals(1))
985      external        nf_get_vars_double
986
987!
988! mapped variable put/get routines:
989!
990
991      integer         nf_put_varm_text
992!                         (integer             ncid,
993!                          integer             varid,
994!                          integer             start(1),
995!                          integer             count(1),
996!                          integer             stride(1),
997!                          integer             imap(1),
998!                          character(*)        text)
999      external        nf_put_varm_text
1000
1001      integer         nf_get_varm_text
1002!                         (integer             ncid,
1003!                          integer             varid,
1004!                          integer             start(1),
1005!                          integer             count(1),
1006!                          integer             stride(1),
1007!                          integer             imap(1),
1008!                          character(*)        text)
1009      external        nf_get_varm_text
1010
1011      integer         nf_put_varm_int1
1012!                         (integer             ncid,
1013!                          integer             varid,
1014!                          integer             start(1),
1015!                          integer             count(1),
1016!                          integer             stride(1),
1017!                          integer             imap(1),
1018!                          nf_int1_t           i1vals(1))
1019      external        nf_put_varm_int1
1020
1021      integer         nf_get_varm_int1
1022!                         (integer             ncid,
1023!                          integer             varid,
1024!                          integer             start(1),
1025!                          integer             count(1),
1026!                          integer             stride(1),
1027!                          integer             imap(1),
1028!                          nf_int1_t           i1vals(1))
1029      external        nf_get_varm_int1
1030
1031      integer         nf_put_varm_int2
1032!                         (integer             ncid,
1033!                          integer             varid,
1034!                          integer             start(1),
1035!                          integer             count(1),
1036!                          integer             stride(1),
1037!                          integer             imap(1),
1038!                          nf_int2_t           i2vals(1))
1039      external        nf_put_varm_int2
1040
1041      integer         nf_get_varm_int2
1042!                         (integer             ncid,
1043!                          integer             varid,
1044!                          integer             start(1),
1045!                          integer             count(1),
1046!                          integer             stride(1),
1047!                          integer             imap(1),
1048!                          nf_int2_t           i2vals(1))
1049      external        nf_get_varm_int2
1050
1051      integer         nf_put_varm_int
1052!                         (integer             ncid,
1053!                          integer             varid,
1054!                          integer             start(1),
1055!                          integer             count(1),
1056!                          integer             stride(1),
1057!                          integer             imap(1),
1058!                          integer             ivals(1))
1059      external        nf_put_varm_int
1060
1061      integer         nf_get_varm_int
1062!                         (integer             ncid,
1063!                          integer             varid,
1064!                          integer             start(1),
1065!                          integer             count(1),
1066!                          integer             stride(1),
1067!                          integer             imap(1),
1068!                          integer             ivals(1))
1069      external        nf_get_varm_int
1070
1071      integer         nf_put_varm_real
1072!                         (integer             ncid,
1073!                          integer             varid,
1074!                          integer             start(1),
1075!                          integer             count(1),
1076!                          integer             stride(1),
1077!                          integer             imap(1),
1078!                          real                rvals(1))
1079      external        nf_put_varm_real
1080
1081      integer         nf_get_varm_real
1082!                         (integer             ncid,
1083!                          integer             varid,
1084!                          integer             start(1),
1085!                          integer             count(1),
1086!                          integer             stride(1),
1087!                          integer             imap(1),
1088!                          real                rvals(1))
1089      external        nf_get_varm_real
1090
1091      integer         nf_put_varm_double
1092!                         (integer             ncid,
1093!                          integer             varid,
1094!                          integer             start(1),
1095!                          integer             count(1),
1096!                          integer             stride(1),
1097!                          integer             imap(1),
1098!                          doubleprecision     dvals(1))
1099      external        nf_put_varm_double
1100
1101      integer         nf_get_varm_double
1102!                         (integer             ncid,
1103!                          integer             varid,
1104!                          integer             start(1),
1105!                          integer             count(1),
1106!                          integer             stride(1),
1107!                          integer             imap(1),
1108!                          doubleprecision     dvals(1))
1109      external        nf_get_varm_double
1110
1111
1112!     NetCDF-2.
1113!ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
1114! begin netcdf 2.4 backward compatibility:
1115!
1116
1117!     
1118! functions in the fortran interface
1119!
1120      integer nccre
1121      integer ncopn
1122      integer ncddef
1123      integer ncdid
1124      integer ncvdef
1125      integer ncvid
1126      integer nctlen
1127      integer ncsfil
1128
1129      external nccre
1130      external ncopn
1131      external ncddef
1132      external ncdid
1133      external ncvdef
1134      external ncvid
1135      external nctlen
1136      external ncsfil
1137
1138
1139      integer ncrdwr
1140      integer nccreat
1141      integer ncexcl
1142      integer ncindef
1143      integer ncnsync
1144      integer nchsync
1145      integer ncndirty
1146      integer nchdirty
1147      integer nclink
1148      integer ncnowrit
1149      integer ncwrite
1150      integer ncclob
1151      integer ncnoclob
1152      integer ncglobal
1153      integer ncfill
1154      integer ncnofill
1155      integer maxncop
1156      integer maxncdim
1157      integer maxncatt
1158      integer maxncvar
1159      integer maxncnam
1160      integer maxvdims
1161      integer ncnoerr
1162      integer ncebadid
1163      integer ncenfile
1164      integer nceexist
1165      integer nceinval
1166      integer nceperm
1167      integer ncenotin
1168      integer nceindef
1169      integer ncecoord
1170      integer ncemaxds
1171      integer ncename
1172      integer ncenoatt
1173      integer ncemaxat
1174      integer ncebadty
1175      integer ncebadd
1176      integer ncests
1177      integer nceunlim
1178      integer ncemaxvs
1179      integer ncenotvr
1180      integer nceglob
1181      integer ncenotnc
1182      integer ncfoobar
1183      integer ncsyserr
1184      integer ncfatal
1185      integer ncverbos
1186      integer ncentool
1187
1188
1189!
1190! netcdf data types:
1191!
1192      integer ncbyte
1193      integer ncchar
1194      integer ncshort
1195      integer nclong
1196      integer ncfloat
1197      integer ncdouble
1198
1199      parameter(ncbyte = 1)
1200      parameter(ncchar = 2)
1201      parameter(ncshort = 3)
1202      parameter(nclong = 4)
1203      parameter(ncfloat = 5)
1204      parameter(ncdouble = 6)
1205
1206!     
1207!     masks for the struct nc flag field; passed in as 'mode' arg to
1208!     nccreate and ncopen.
1209!     
1210
1211!     read/write, 0 => readonly
1212      parameter(ncrdwr = 1)
1213!     in create phase, cleared by ncendef
1214      parameter(nccreat = 2)
1215!     on create destroy existing file
1216      parameter(ncexcl = 4)
1217!     in define mode, cleared by ncendef
1218      parameter(ncindef = 8)
1219!     synchronise numrecs on change (x'10')
1220      parameter(ncnsync = 16)
1221!     synchronise whole header on change (x'20')
1222      parameter(nchsync = 32)
1223!     numrecs has changed (x'40')
1224      parameter(ncndirty = 64) 
1225!     header info has changed (x'80')
1226      parameter(nchdirty = 128)
1227!     prefill vars on endef and increase of record, the default behavior
1228      parameter(ncfill = 0)
1229!     do not fill vars on endef and increase of record (x'100')
1230      parameter(ncnofill = 256)
1231!     isa link (x'8000')
1232      parameter(nclink = 32768)
1233
1234!     
1235!     'mode' arguments for nccreate and ncopen
1236!     
1237      parameter(ncnowrit = 0)
1238      parameter(ncwrite = ncrdwr)
1239      parameter(ncclob = nf_clobber)
1240      parameter(ncnoclob = nf_noclobber)
1241
1242!     
1243!     'size' argument to ncdimdef for an unlimited dimension
1244!     
1245      integer ncunlim
1246      parameter(ncunlim = 0)
1247
1248!     
1249!     attribute id to put/get a global attribute
1250!     
1251      parameter(ncglobal  = 0)
1252
1253!     
1254!     advisory maximums:
1255!     
1256      parameter(maxncop = 64)
1257      parameter(maxncdim = 1024)
1258      parameter(maxncatt = 8192)
1259      parameter(maxncvar = 8192)
1260!     not enforced
1261      parameter(maxncnam = 256)
1262      parameter(maxvdims = maxncdim)
1263
1264!     
1265!     global netcdf error status variable
1266!     initialized in error.c
1267!     
1268
1269!     no error
1270      parameter(ncnoerr = nf_noerr)
1271!     not a netcdf id
1272      parameter(ncebadid = nf_ebadid)
1273!     too many netcdfs open
1274      parameter(ncenfile = -31)   ! nc_syserr
1275!     netcdf file exists && ncnoclob
1276      parameter(nceexist = nf_eexist)
1277!     invalid argument
1278      parameter(nceinval = nf_einval)
1279!     write to read only
1280      parameter(nceperm = nf_eperm)
1281!     operation not allowed in data mode
1282      parameter(ncenotin = nf_enotindefine )   
1283!     operation not allowed in define mode
1284      parameter(nceindef = nf_eindefine)   
1285!     coordinates out of domain
1286      parameter(ncecoord = nf_einvalcoords)
1287!     maxncdims exceeded
1288      parameter(ncemaxds = nf_emaxdims)
1289!     string match to name in use
1290      parameter(ncename = nf_enameinuse)   
1291!     attribute not found
1292      parameter(ncenoatt = nf_enotatt)
1293!     maxncattrs exceeded
1294      parameter(ncemaxat = nf_emaxatts)
1295!     not a netcdf data type
1296      parameter(ncebadty = nf_ebadtype)
1297!     invalid dimension id
1298      parameter(ncebadd = nf_ebaddim)
1299!     ncunlimited in the wrong index
1300      parameter(nceunlim = nf_eunlimpos)
1301!     maxncvars exceeded
1302      parameter(ncemaxvs = nf_emaxvars)
1303!     variable not found
1304      parameter(ncenotvr = nf_enotvar)
1305!     action prohibited on ncglobal varid
1306      parameter(nceglob = nf_eglobal)
1307!     not a netcdf file
1308      parameter(ncenotnc = nf_enotnc)
1309      parameter(ncests = nf_ests)
1310      parameter (ncentool = nf_emaxname)
1311      parameter(ncfoobar = 32)
1312      parameter(ncsyserr = -31)
1313
1314!     
1315!     global options variable. used to determine behavior of error handler.
1316!     initialized in lerror.c
1317!     
1318      parameter(ncfatal = 1)
1319      parameter(ncverbos = 2)
1320
1321!
1322!     default fill values.  these must be the same as in the c interface.
1323!
1324      integer filbyte
1325      integer filchar
1326      integer filshort
1327      integer fillong
1328      real filfloat
1329      doubleprecision fildoub
1330
1331      parameter (filbyte = -127)
1332      parameter (filchar = 0)
1333      parameter (filshort = -32767)
1334      parameter (fillong = -2147483647)
1335      parameter (filfloat = 9.9692099683868690e+36)
1336      parameter (fildoub = 9.9692099683868690d+36)
1337
1338!     NetCDF-4.
1339!     This is part of netCDF-4. Copyright 2006, UCAR, See COPYRIGHT
1340!     file for distribution information.
1341
1342!     Netcdf version 4 fortran interface.
1343
1344!     $Id: netcdf4.inc,v 1.28 2010/05/25 13:53:02 ed Exp $
1345
1346!     New netCDF-4 types.
1347      integer nf_ubyte
1348      integer nf_ushort
1349      integer nf_uint
1350      integer nf_int64
1351      integer nf_uint64
1352      integer nf_string
1353      integer nf_vlen
1354      integer nf_opaque
1355      integer nf_enum
1356      integer nf_compound
1357
1358      parameter (nf_ubyte = 7)
1359      parameter (nf_ushort = 8)
1360      parameter (nf_uint = 9)
1361      parameter (nf_int64 = 10)
1362      parameter (nf_uint64 = 11)
1363      parameter (nf_string = 12)
1364      parameter (nf_vlen = 13)
1365      parameter (nf_opaque = 14)
1366      parameter (nf_enum = 15)
1367      parameter (nf_compound = 16)
1368
1369!     New netCDF-4 fill values.
1370      integer           nf_fill_ubyte
1371      integer           nf_fill_ushort
1372!      real              nf_fill_uint
1373!      real              nf_fill_int64
1374!      real              nf_fill_uint64
1375      parameter (nf_fill_ubyte = 255)
1376      parameter (nf_fill_ushort = 65535)
1377
1378!     New constants.
1379      integer nf_format_netcdf4
1380      parameter (nf_format_netcdf4 = 3)
1381
1382      integer nf_format_netcdf4_classic
1383      parameter (nf_format_netcdf4_classic = 4)
1384
1385      integer nf_netcdf4
1386      parameter (nf_netcdf4 = 4096)
1387
1388      integer nf_classic_model
1389      parameter (nf_classic_model = 256)
1390
1391      integer nf_chunk_seq
1392      parameter (nf_chunk_seq = 0)
1393      integer nf_chunk_sub
1394      parameter (nf_chunk_sub = 1)
1395      integer nf_chunk_sizes
1396      parameter (nf_chunk_sizes = 2)
1397
1398      integer nf_endian_native
1399      parameter (nf_endian_native = 0)
1400      integer nf_endian_little
1401      parameter (nf_endian_little = 1)
1402      integer nf_endian_big
1403      parameter (nf_endian_big = 2)
1404
1405!     For NF_DEF_VAR_CHUNKING
1406      integer nf_chunked
1407      parameter (nf_chunked = 0)
1408      integer nf_contiguous
1409      parameter (nf_contiguous = 1)
1410
1411!     For NF_DEF_VAR_FLETCHER32
1412      integer nf_nochecksum
1413      parameter (nf_nochecksum = 0)
1414      integer nf_fletcher32
1415      parameter (nf_fletcher32 = 1)
1416
1417!     For NF_DEF_VAR_DEFLATE
1418      integer nf_noshuffle
1419      parameter (nf_noshuffle = 0)
1420      integer nf_shuffle
1421      parameter (nf_shuffle = 1)
1422
1423!     For NF_DEF_VAR_SZIP
1424      integer nf_szip_ec_option_mask
1425      parameter (nf_szip_ec_option_mask = 4)
1426      integer nf_szip_nn_option_mask
1427      parameter (nf_szip_nn_option_mask = 32)
1428
1429!     For parallel I/O.
1430      integer nf_mpiio     
1431      parameter (nf_mpiio = 8192)
1432      integer nf_mpiposix
1433      parameter (nf_mpiposix = 16384)
1434      integer nf_pnetcdf
1435      parameter (nf_pnetcdf = 32768)
1436
1437!     For NF_VAR_PAR_ACCESS.
1438      integer nf_independent
1439      parameter (nf_independent = 0)
1440      integer nf_collective
1441      parameter (nf_collective = 1)
1442
1443!     New error codes.
1444      integer nf_ehdferr        ! Error at HDF5 layer.
1445      parameter (nf_ehdferr = -101)
1446      integer nf_ecantread      ! Can't read.
1447      parameter (nf_ecantread = -102)
1448      integer nf_ecantwrite     ! Can't write.
1449      parameter (nf_ecantwrite = -103)
1450      integer nf_ecantcreate    ! Can't create.
1451      parameter (nf_ecantcreate = -104)
1452      integer nf_efilemeta      ! Problem with file metadata.
1453      parameter (nf_efilemeta = -105)
1454      integer nf_edimmeta       ! Problem with dimension metadata.
1455      parameter (nf_edimmeta = -106)
1456      integer nf_eattmeta       ! Problem with attribute metadata.
1457      parameter (nf_eattmeta = -107)
1458      integer nf_evarmeta       ! Problem with variable metadata.
1459      parameter (nf_evarmeta = -108)
1460      integer nf_enocompound    ! Not a compound type.
1461      parameter (nf_enocompound = -109)
1462      integer nf_eattexists     ! Attribute already exists.
1463      parameter (nf_eattexists = -110)
1464      integer nf_enotnc4        ! Attempting netcdf-4 operation on netcdf-3 file.   
1465      parameter (nf_enotnc4 = -111)
1466      integer nf_estrictnc3     ! Attempting netcdf-4 operation on strict nc3 netcdf-4 file.   
1467      parameter (nf_estrictnc3 = -112)
1468      integer nf_enotnc3        ! Attempting netcdf-3 operation on netcdf-4 file.   
1469      parameter (nf_enotnc3 = -113)
1470      integer nf_enopar         ! Parallel operation on file opened for non-parallel access.   
1471      parameter (nf_enopar = -114)
1472      integer nf_eparinit       ! Error initializing for parallel access.   
1473      parameter (nf_eparinit = -115)
1474      integer nf_ebadgrpid      ! Bad group ID.   
1475      parameter (nf_ebadgrpid = -116)
1476      integer nf_ebadtypid      ! Bad type ID.   
1477      parameter (nf_ebadtypid = -117)
1478      integer nf_etypdefined    ! Type has already been defined and may not be edited.
1479      parameter (nf_etypdefined = -118)
1480      integer nf_ebadfield      ! Bad field ID.   
1481      parameter (nf_ebadfield = -119)
1482      integer nf_ebadclass      ! Bad class.   
1483      parameter (nf_ebadclass = -120)
1484      integer nf_emaptype       ! Mapped access for atomic types only.   
1485      parameter (nf_emaptype = -121)
1486      integer nf_elatefill      ! Attempt to define fill value when data already exists.
1487      parameter (nf_elatefill = -122)
1488      integer nf_elatedef       ! Attempt to define var properties, like deflate, after enddef.
1489      parameter (nf_elatedef = -123)
1490      integer nf_edimscale      ! Probem with HDF5 dimscales.
1491      parameter (nf_edimscale = -124)
1492      integer nf_enogrp       ! No group found.
1493      parameter (nf_enogrp = -125)
1494
1495
1496!     New functions.
1497
1498!     Parallel I/O.
1499      integer nf_create_par
1500      external nf_create_par
1501
1502      integer nf_open_par
1503      external nf_open_par
1504
1505      integer nf_var_par_access
1506      external nf_var_par_access
1507
1508!     Functions to handle groups.
1509      integer nf_inq_ncid
1510      external nf_inq_ncid
1511
1512      integer nf_inq_grps
1513      external nf_inq_grps
1514
1515      integer nf_inq_grpname
1516      external nf_inq_grpname
1517
1518      integer nf_inq_grpname_full
1519      external nf_inq_grpname_full
1520
1521      integer nf_inq_grpname_len
1522      external nf_inq_grpname_len
1523
1524      integer nf_inq_grp_parent
1525      external nf_inq_grp_parent
1526
1527      integer nf_inq_grp_ncid
1528      external nf_inq_grp_ncid
1529
1530      integer nf_inq_grp_full_ncid
1531      external nf_inq_grp_full_ncid
1532
1533      integer nf_inq_varids
1534      external nf_inq_varids
1535
1536      integer nf_inq_dimids
1537      external nf_inq_dimids
1538
1539      integer nf_def_grp
1540      external nf_def_grp
1541
1542!     New options for netCDF variables.
1543      integer nf_def_var_deflate
1544      external nf_def_var_deflate
1545
1546      integer nf_inq_var_deflate
1547      external nf_inq_var_deflate
1548
1549      integer nf_def_var_fletcher32
1550      external nf_def_var_fletcher32
1551
1552      integer nf_inq_var_fletcher32
1553      external nf_inq_var_fletcher32
1554
1555      integer nf_def_var_chunking
1556      external nf_def_var_chunking
1557
1558      integer nf_inq_var_chunking
1559      external nf_inq_var_chunking
1560
1561      integer nf_def_var_fill
1562      external nf_def_var_fill
1563
1564      integer nf_inq_var_fill
1565      external nf_inq_var_fill
1566
1567      integer nf_def_var_endian
1568      external nf_def_var_endian
1569
1570      integer nf_inq_var_endian
1571      external nf_inq_var_endian
1572
1573!     User defined types.
1574      integer nf_inq_typeids
1575      external nf_inq_typeids
1576
1577      integer nf_inq_typeid
1578      external nf_inq_typeid
1579
1580      integer nf_inq_type
1581      external nf_inq_type
1582
1583      integer nf_inq_user_type
1584      external nf_inq_user_type
1585
1586!     User defined types - compound types.
1587      integer nf_def_compound
1588      external nf_def_compound
1589
1590      integer nf_insert_compound
1591      external nf_insert_compound
1592
1593      integer nf_insert_array_compound
1594      external nf_insert_array_compound
1595
1596      integer nf_inq_compound
1597      external nf_inq_compound
1598
1599      integer nf_inq_compound_name
1600      external nf_inq_compound_name
1601
1602      integer nf_inq_compound_size
1603      external nf_inq_compound_size
1604
1605      integer nf_inq_compound_nfields
1606      external nf_inq_compound_nfields
1607
1608      integer nf_inq_compound_field
1609      external nf_inq_compound_field
1610
1611      integer nf_inq_compound_fieldname
1612      external nf_inq_compound_fieldname
1613
1614      integer nf_inq_compound_fieldindex
1615      external nf_inq_compound_fieldindex
1616
1617      integer nf_inq_compound_fieldoffset
1618      external nf_inq_compound_fieldoffset
1619
1620      integer nf_inq_compound_fieldtype
1621      external nf_inq_compound_fieldtype
1622
1623      integer nf_inq_compound_fieldndims
1624      external nf_inq_compound_fieldndims
1625
1626      integer nf_inq_compound_fielddim_sizes
1627      external nf_inq_compound_fielddim_sizes
1628
1629!     User defined types - variable length arrays.
1630      integer nf_def_vlen
1631      external nf_def_vlen
1632
1633      integer nf_inq_vlen
1634      external nf_inq_vlen
1635
1636      integer nf_free_vlen
1637      external nf_free_vlen
1638
1639!     User defined types - enums.
1640      integer nf_def_enum
1641      external nf_def_enum
1642
1643      integer nf_insert_enum
1644      external nf_insert_enum
1645
1646      integer nf_inq_enum
1647      external nf_inq_enum
1648
1649      integer nf_inq_enum_member
1650      external nf_inq_enum_member
1651
1652      integer nf_inq_enum_ident
1653      external nf_inq_enum_ident
1654
1655!     User defined types - opaque.
1656      integer nf_def_opaque
1657      external nf_def_opaque
1658
1659      integer nf_inq_opaque
1660      external nf_inq_opaque
1661
1662!     Write and read attributes of any type, including user defined
1663!     types.
1664      integer nf_put_att
1665      external nf_put_att
1666      integer nf_get_att
1667      external nf_get_att
1668
1669!     Write and read variables of any type, including user defined
1670!     types.
1671      integer nf_put_var
1672      external nf_put_var
1673      integer nf_put_var1
1674      external nf_put_var1
1675      integer nf_put_vara
1676      external nf_put_vara
1677      integer nf_put_vars
1678      external nf_put_vars
1679      integer nf_get_var
1680      external nf_get_var
1681      integer nf_get_var1
1682      external nf_get_var1
1683      integer nf_get_vara
1684      external nf_get_vara
1685      integer nf_get_vars
1686      external nf_get_vars
1687
1688!     64-bit int functions.
1689      integer nf_put_var1_int64
1690      external nf_put_var1_int64
1691      integer nf_put_vara_int64
1692      external nf_put_vara_int64
1693      integer nf_put_vars_int64
1694      external nf_put_vars_int64
1695      integer nf_put_varm_int64
1696      external nf_put_varm_int64
1697      integer nf_put_var_int64
1698      external nf_put_var_int64
1699      integer nf_get_var1_int64
1700      external nf_get_var1_int64
1701      integer nf_get_vara_int64
1702      external nf_get_vara_int64
1703      integer nf_get_vars_int64
1704      external nf_get_vars_int64
1705      integer nf_get_varm_int64
1706      external nf_get_varm_int64
1707      integer nf_get_var_int64
1708      external nf_get_var_int64
1709
1710!     For helping F77 users with VLENs.
1711      integer nf_get_vlen_element
1712      external nf_get_vlen_element
1713      integer nf_put_vlen_element
1714      external nf_put_vlen_element
1715
1716!     For dealing with file level chunk cache.
1717      integer nf_set_chunk_cache
1718      external nf_set_chunk_cache
1719      integer nf_get_chunk_cache
1720      external nf_get_chunk_cache
1721
1722!     For dealing with per variable chunk cache.
1723      integer nf_set_var_chunk_cache
1724      external nf_set_var_chunk_cache
1725      integer nf_get_var_chunk_cache
1726      external nf_get_var_chunk_cache
Note: See TracBrowser for help on using the repository browser.