!
! netcdf version 3 fortran interface:
!
!
! external netcdf data types:
!
integer nf_byte
integer nf_int1
integer nf_char
integer nf_short
integer nf_int2
integer nf_int
integer nf_float
integer nf_real
integer nf_double
parameter (nf_byte = 1)
parameter (nf_int1 = nf_byte)
parameter (nf_char = 2)
parameter (nf_short = 3)
parameter (nf_int2 = nf_short)
parameter (nf_int = 4)
parameter (nf_float = 5)
parameter (nf_real = nf_float)
parameter (nf_double = 6)
!
! default fill values:
!
integer nf_fill_byte
integer nf_fill_int1
integer nf_fill_char
integer nf_fill_short
integer nf_fill_int2
integer nf_fill_int
real nf_fill_float
real nf_fill_real
doubleprecision nf_fill_double
parameter (nf_fill_byte = -127)
parameter (nf_fill_int1 = nf_fill_byte)
parameter (nf_fill_char = 0)
parameter (nf_fill_short = -32767)
parameter (nf_fill_int2 = nf_fill_short)
parameter (nf_fill_int = -2147483647)
parameter (nf_fill_float = 9.9692099683868690e+36)
parameter (nf_fill_real = nf_fill_float)
parameter (nf_fill_double = 9.9692099683868690e+36)
!
! mode flags for opening and creating a netcdf dataset:
!
integer nf_nowrite
integer nf_write
integer nf_clobber
integer nf_noclobber
integer nf_fill
integer nf_nofill
integer nf_lock
integer nf_share
integer nf_64bit_offset
integer nf_sizehint_default
integer nf_align_chunk
integer nf_format_classic
integer nf_format_64bit
parameter (nf_nowrite = 0)
parameter (nf_write = 1)
parameter (nf_clobber = 0)
parameter (nf_noclobber = 4)
parameter (nf_fill = 0)
parameter (nf_nofill = 256)
parameter (nf_lock = 1024)
parameter (nf_share = 2048)
parameter (nf_64bit_offset = 512)
parameter (nf_sizehint_default = 0)
parameter (nf_align_chunk = -1)
parameter (nf_format_classic = 1)
parameter (nf_format_64bit = 2)
!
! size argument for defining an unlimited dimension:
!
integer nf_unlimited
parameter (nf_unlimited = 0)
!
! global attribute id:
!
integer nf_global
parameter (nf_global = 0)
!
! implementation limits:
!
integer nf_max_dims
integer nf_max_attrs
integer nf_max_vars
integer nf_max_name
integer nf_max_var_dims
parameter (nf_max_dims = 1024)
parameter (nf_max_attrs = 8192)
parameter (nf_max_vars = 8192)
parameter (nf_max_name = 256)
parameter (nf_max_var_dims = nf_max_dims)
!
! error codes:
!
integer nf_noerr
integer nf_ebadid
integer nf_eexist
integer nf_einval
integer nf_eperm
integer nf_enotindefine
integer nf_eindefine
integer nf_einvalcoords
integer nf_emaxdims
integer nf_enameinuse
integer nf_enotatt
integer nf_emaxatts
integer nf_ebadtype
integer nf_ebaddim
integer nf_eunlimpos
integer nf_emaxvars
integer nf_enotvar
integer nf_eglobal
integer nf_enotnc
integer nf_ests
integer nf_emaxname
integer nf_eunlimit
integer nf_enorecvars
integer nf_echar
integer nf_eedge
integer nf_estride
integer nf_ebadname
integer nf_erange
integer nf_enomem
integer nf_evarsize
integer nf_edimsize
integer nf_etrunc
parameter (nf_noerr = 0)
parameter (nf_ebadid = -33)
parameter (nf_eexist = -35)
parameter (nf_einval = -36)
parameter (nf_eperm = -37)
parameter (nf_enotindefine = -38)
parameter (nf_eindefine = -39)
parameter (nf_einvalcoords = -40)
parameter (nf_emaxdims = -41)
parameter (nf_enameinuse = -42)
parameter (nf_enotatt = -43)
parameter (nf_emaxatts = -44)
parameter (nf_ebadtype = -45)
parameter (nf_ebaddim = -46)
parameter (nf_eunlimpos = -47)
parameter (nf_emaxvars = -48)
parameter (nf_enotvar = -49)
parameter (nf_eglobal = -50)
parameter (nf_enotnc = -51)
parameter (nf_ests = -52)
parameter (nf_emaxname = -53)
parameter (nf_eunlimit = -54)
parameter (nf_enorecvars = -55)
parameter (nf_echar = -56)
parameter (nf_eedge = -57)
parameter (nf_estride = -58)
parameter (nf_ebadname = -59)
parameter (nf_erange = -60)
parameter (nf_enomem = -61)
parameter (nf_evarsize = -62)
parameter (nf_edimsize = -63)
parameter (nf_etrunc = -64)
!
! error handling modes:
!
integer nf_fatal
integer nf_verbose
parameter (nf_fatal = 1)
parameter (nf_verbose = 2)
!
! miscellaneous routines:
!
character*80 nf_inq_libvers
external nf_inq_libvers
character*80 nf_strerror
! (integer ncerr)
external nf_strerror
logical nf_issyserr
! (integer ncerr)
external nf_issyserr
!
! control routines:
!
integer nf_inq_base_pe
! (integer ncid,
! integer pe)
external nf_inq_base_pe
! integer nf_set_log_level
! external nf_set_log_level
integer nf_set_base_pe
! (integer ncid,
! integer pe)
external nf_set_base_pe
integer nf_create
! (character*(*) path,
! integer cmode,
! integer ncid)
external nf_create
integer nf__create
! (character*(*) path,
! integer cmode,
! integer initialsz,
! integer chunksizehint,
! integer ncid)
external nf__create
integer nf__create_mp
! (character*(*) path,
! integer cmode,
! integer initialsz,
! integer basepe,
! integer chunksizehint,
! integer ncid)
external nf__create_mp
integer nf_open
! (character*(*) path,
! integer mode,
! integer ncid)
external nf_open
integer nf__open
! (character*(*) path,
! integer mode,
! integer chunksizehint,
! integer ncid)
external nf__open
integer nf__open_mp
! (character*(*) path,
! integer mode,
! integer basepe,
! integer chunksizehint,
! integer ncid)
external nf__open_mp
integer nf_set_fill
! (integer ncid,
! integer fillmode,
! integer old_mode)
external nf_set_fill
integer nf_set_default_format
! (integer format,
! integer old_format)
external nf_set_default_format
integer nf_redef
! (integer ncid)
external nf_redef
integer nf_enddef
! (integer ncid)
external nf_enddef
integer nf__enddef
! (integer ncid,
! integer h_minfree,
! integer v_align,
! integer v_minfree,
! integer r_align)
external nf__enddef
integer nf_sync
! (integer ncid)
external nf_sync
integer nf_abort
! (integer ncid)
external nf_abort
integer nf_close
! (integer ncid)
external nf_close
integer nf_delete
! (character*(*) ncid)
external nf_delete
!
! general inquiry routines:
!
integer nf_inq
! (integer ncid,
! integer ndims,
! integer nvars,
! integer ngatts,
! integer unlimdimid)
external nf_inq
integer nf_inq_ndims
! (integer ncid,
! integer ndims)
external nf_inq_ndims
integer nf_inq_nvars
! (integer ncid,
! integer nvars)
external nf_inq_nvars
integer nf_inq_natts
! (integer ncid,
! integer ngatts)
external nf_inq_natts
integer nf_inq_unlimdim
! (integer ncid,
! integer unlimdimid)
external nf_inq_unlimdim
integer nf_inq_format
! (integer ncid,
! integer format)
external nf_inq_format
!
! dimension routines:
!
integer nf_def_dim
! (integer ncid,
! character(*) name,
! integer len,
! integer dimid)
external nf_def_dim
integer nf_inq_dimid
! (integer ncid,
! character(*) name,
! integer dimid)
external nf_inq_dimid
integer nf_inq_dim
! (integer ncid,
! integer dimid,
! character(*) name,
! integer len)
external nf_inq_dim
integer nf_inq_dimname
! (integer ncid,
! integer dimid,
! character(*) name)
external nf_inq_dimname
integer nf_inq_dimlen
! (integer ncid,
! integer dimid,
! integer len)
external nf_inq_dimlen
integer nf_rename_dim
! (integer ncid,
! integer dimid,
! character(*) name)
external nf_rename_dim
!
! general attribute routines:
!
integer nf_inq_att
! (integer ncid,
! integer varid,
! character(*) name,
! integer xtype,
! integer len)
external nf_inq_att
integer nf_inq_attid
! (integer ncid,
! integer varid,
! character(*) name,
! integer attnum)
external nf_inq_attid
integer nf_inq_atttype
! (integer ncid,
! integer varid,
! character(*) name,
! integer xtype)
external nf_inq_atttype
integer nf_inq_attlen
! (integer ncid,
! integer varid,
! character(*) name,
! integer len)
external nf_inq_attlen
integer nf_inq_attname
! (integer ncid,
! integer varid,
! integer attnum,
! character(*) name)
external nf_inq_attname
integer nf_copy_att
! (integer ncid_in,
! integer varid_in,
! character(*) name,
! integer ncid_out,
! integer varid_out)
external nf_copy_att
integer nf_rename_att
! (integer ncid,
! integer varid,
! character(*) curname,
! character(*) newname)
external nf_rename_att
integer nf_del_att
! (integer ncid,
! integer varid,
! character(*) name)
external nf_del_att
!
! attribute put/get routines:
!
integer nf_put_att_text
! (integer ncid,
! integer varid,
! character(*) name,
! integer len,
! character(*) text)
external nf_put_att_text
integer nf_get_att_text
! (integer ncid,
! integer varid,
! character(*) name,
! character(*) text)
external nf_get_att_text
integer nf_put_att_int1
! (integer ncid,
! integer varid,
! character(*) name,
! integer xtype,
! integer len,
! nf_int1_t i1vals(1))
external nf_put_att_int1
integer nf_get_att_int1
! (integer ncid,
! integer varid,
! character(*) name,
! nf_int1_t i1vals(1))
external nf_get_att_int1
integer nf_put_att_int2
! (integer ncid,
! integer varid,
! character(*) name,
! integer xtype,
! integer len,
! nf_int2_t i2vals(1))
external nf_put_att_int2
integer nf_get_att_int2
! (integer ncid,
! integer varid,
! character(*) name,
! nf_int2_t i2vals(1))
external nf_get_att_int2
integer nf_put_att_int
! (integer ncid,
! integer varid,
! character(*) name,
! integer xtype,
! integer len,
! integer ivals(1))
external nf_put_att_int
integer nf_get_att_int
! (integer ncid,
! integer varid,
! character(*) name,
! integer ivals(1))
external nf_get_att_int
integer nf_put_att_real
! (integer ncid,
! integer varid,
! character(*) name,
! integer xtype,
! integer len,
! real rvals(1))
external nf_put_att_real
integer nf_get_att_real
! (integer ncid,
! integer varid,
! character(*) name,
! real rvals(1))
external nf_get_att_real
integer nf_put_att_double
! (integer ncid,
! integer varid,
! character(*) name,
! integer xtype,
! integer len,
! double dvals(1))
external nf_put_att_double
integer nf_get_att_double
! (integer ncid,
! integer varid,
! character(*) name,
! double dvals(1))
external nf_get_att_double
!
! general variable routines:
!
integer nf_def_var
! (integer ncid,
! character(*) name,
! integer datatype,
! integer ndims,
! integer dimids(1),
! integer varid)
external nf_def_var
integer nf_inq_var
! (integer ncid,
! integer varid,
! character(*) name,
! integer datatype,
! integer ndims,
! integer dimids(1),
! integer natts)
external nf_inq_var
integer nf_inq_varid
! (integer ncid,
! character(*) name,
! integer varid)
external nf_inq_varid
integer nf_inq_varname
! (integer ncid,
! integer varid,
! character(*) name)
external nf_inq_varname
integer nf_inq_vartype
! (integer ncid,
! integer varid,
! integer xtype)
external nf_inq_vartype
integer nf_inq_varndims
! (integer ncid,
! integer varid,
! integer ndims)
external nf_inq_varndims
integer nf_inq_vardimid
! (integer ncid,
! integer varid,
! integer dimids(1))
external nf_inq_vardimid
integer nf_inq_varnatts
! (integer ncid,
! integer varid,
! integer natts)
external nf_inq_varnatts
integer nf_rename_var
! (integer ncid,
! integer varid,
! character(*) name)
external nf_rename_var
integer nf_copy_var
! (integer ncid_in,
! integer varid,
! integer ncid_out)
external nf_copy_var
!
! entire variable put/get routines:
!
integer nf_put_var_text
! (integer ncid,
! integer varid,
! character(*) text)
external nf_put_var_text
integer nf_get_var_text
! (integer ncid,
! integer varid,
! character(*) text)
external nf_get_var_text
integer nf_put_var_int1
! (integer ncid,
! integer varid,
! nf_int1_t i1vals(1))
external nf_put_var_int1
integer nf_get_var_int1
! (integer ncid,
! integer varid,
! nf_int1_t i1vals(1))
external nf_get_var_int1
integer nf_put_var_int2
! (integer ncid,
! integer varid,
! nf_int2_t i2vals(1))
external nf_put_var_int2
integer nf_get_var_int2
! (integer ncid,
! integer varid,
! nf_int2_t i2vals(1))
external nf_get_var_int2
integer nf_put_var_int
! (integer ncid,
! integer varid,
! integer ivals(1))
external nf_put_var_int
integer nf_get_var_int
! (integer ncid,
! integer varid,
! integer ivals(1))
external nf_get_var_int
integer nf_put_var_real
! (integer ncid,
! integer varid,
! real rvals(1))
external nf_put_var_real
integer nf_get_var_real
! (integer ncid,
! integer varid,
! real rvals(1))
external nf_get_var_real
integer nf_put_var_double
! (integer ncid,
! integer varid,
! doubleprecision dvals(1))
external nf_put_var_double
integer nf_get_var_double
! (integer ncid,
! integer varid,
! doubleprecision dvals(1))
external nf_get_var_double
!
! single variable put/get routines:
!
integer nf_put_var1_text
! (integer ncid,
! integer varid,
! integer index(1),
! character*1 text)
external nf_put_var1_text
integer nf_get_var1_text
! (integer ncid,
! integer varid,
! integer index(1),
! character*1 text)
external nf_get_var1_text
integer nf_put_var1_int1
! (integer ncid,
! integer varid,
! integer index(1),
! nf_int1_t i1val)
external nf_put_var1_int1
integer nf_get_var1_int1
! (integer ncid,
! integer varid,
! integer index(1),
! nf_int1_t i1val)
external nf_get_var1_int1
integer nf_put_var1_int2
! (integer ncid,
! integer varid,
! integer index(1),
! nf_int2_t i2val)
external nf_put_var1_int2
integer nf_get_var1_int2
! (integer ncid,
! integer varid,
! integer index(1),
! nf_int2_t i2val)
external nf_get_var1_int2
integer nf_put_var1_int
! (integer ncid,
! integer varid,
! integer index(1),
! integer ival)
external nf_put_var1_int
integer nf_get_var1_int
! (integer ncid,
! integer varid,
! integer index(1),
! integer ival)
external nf_get_var1_int
integer nf_put_var1_real
! (integer ncid,
! integer varid,
! integer index(1),
! real rval)
external nf_put_var1_real
integer nf_get_var1_real
! (integer ncid,
! integer varid,
! integer index(1),
! real rval)
external nf_get_var1_real
integer nf_put_var1_double
! (integer ncid,
! integer varid,
! integer index(1),
! doubleprecision dval)
external nf_put_var1_double
integer nf_get_var1_double
! (integer ncid,
! integer varid,
! integer index(1),
! doubleprecision dval)
external nf_get_var1_double
!
! variable array put/get routines:
!
integer nf_put_vara_text
! (integer ncid,
! integer varid,
! integer start(1),
! integer count(1),
! character(*) text)
external nf_put_vara_text
integer nf_get_vara_text
! (integer ncid,
! integer varid,
! integer start(1),
! integer count(1),
! character(*) text)
external nf_get_vara_text
integer nf_put_vara_int1
! (integer ncid,
! integer varid,
! integer start(1),
! integer count(1),
! nf_int1_t i1vals(1))
external nf_put_vara_int1
integer nf_get_vara_int1
! (integer ncid,
! integer varid,
! integer start(1),
! integer count(1),
! nf_int1_t i1vals(1))
external nf_get_vara_int1
integer nf_put_vara_int2
! (integer ncid,
! integer varid,
! integer start(1),
! integer count(1),
! nf_int2_t i2vals(1))
external nf_put_vara_int2
integer nf_get_vara_int2
! (integer ncid,
! integer varid,
! integer start(1),
! integer count(1),
! nf_int2_t i2vals(1))
external nf_get_vara_int2
integer nf_put_vara_int
! (integer ncid,
! integer varid,
! integer start(1),
! integer count(1),
! integer ivals(1))
external nf_put_vara_int
integer nf_get_vara_int
! (integer ncid,
! integer varid,
! integer start(1),
! integer count(1),
! integer ivals(1))
external nf_get_vara_int
integer nf_put_vara_real
! (integer ncid,
! integer varid,
! integer start(1),
! integer count(1),
! real rvals(1))
external nf_put_vara_real
integer nf_get_vara_real
! (integer ncid,
! integer varid,
! integer start(1),
! integer count(1),
! real rvals(1))
external nf_get_vara_real
integer nf_put_vara_double
! (integer ncid,
! integer varid,
! integer start(1),
! integer count(1),
! doubleprecision dvals(1))
external nf_put_vara_double
integer nf_get_vara_double
! (integer ncid,
! integer varid,
! integer start(1),
! integer count(1),
! doubleprecision dvals(1))
external nf_get_vara_double
!
! strided variable put/get routines:
!
integer nf_put_vars_text
! (integer ncid,
! integer varid,
! integer start(1),
! integer count(1),
! integer stride(1),
! character(*) text)
external nf_put_vars_text
integer nf_get_vars_text
! (integer ncid,
! integer varid,
! integer start(1),
! integer count(1),
! integer stride(1),
! character(*) text)
external nf_get_vars_text
integer nf_put_vars_int1
! (integer ncid,
! integer varid,
! integer start(1),
! integer count(1),
! integer stride(1),
! nf_int1_t i1vals(1))
external nf_put_vars_int1
integer nf_get_vars_int1
! (integer ncid,
! integer varid,
! integer start(1),
! integer count(1),
! integer stride(1),
! nf_int1_t i1vals(1))
external nf_get_vars_int1
integer nf_put_vars_int2
! (integer ncid,
! integer varid,
! integer start(1),
! integer count(1),
! integer stride(1),
! nf_int2_t i2vals(1))
external nf_put_vars_int2
integer nf_get_vars_int2
! (integer ncid,
! integer varid,
! integer start(1),
! integer count(1),
! integer stride(1),
! nf_int2_t i2vals(1))
external nf_get_vars_int2
integer nf_put_vars_int
! (integer ncid,
! integer varid,
! integer start(1),
! integer count(1),
! integer stride(1),
! integer ivals(1))
external nf_put_vars_int
integer nf_get_vars_int
! (integer ncid,
! integer varid,
! integer start(1),
! integer count(1),
! integer stride(1),
! integer ivals(1))
external nf_get_vars_int
integer nf_put_vars_real
! (integer ncid,
! integer varid,
! integer start(1),
! integer count(1),
! integer stride(1),
! real rvals(1))
external nf_put_vars_real
integer nf_get_vars_real
! (integer ncid,
! integer varid,
! integer start(1),
! integer count(1),
! integer stride(1),
! real rvals(1))
external nf_get_vars_real
integer nf_put_vars_double
! (integer ncid,
! integer varid,
! integer start(1),
! integer count(1),
! integer stride(1),
! doubleprecision dvals(1))
external nf_put_vars_double
integer nf_get_vars_double
! (integer ncid,
! integer varid,
! integer start(1),
! integer count(1),
! integer stride(1),
! doubleprecision dvals(1))
external nf_get_vars_double
!
! mapped variable put/get routines:
!
integer nf_put_varm_text
! (integer ncid,
! integer varid,
! integer start(1),
! integer count(1),
! integer stride(1),
! integer imap(1),
! character(*) text)
external nf_put_varm_text
integer nf_get_varm_text
! (integer ncid,
! integer varid,
! integer start(1),
! integer count(1),
! integer stride(1),
! integer imap(1),
! character(*) text)
external nf_get_varm_text
integer nf_put_varm_int1
! (integer ncid,
! integer varid,
! integer start(1),
! integer count(1),
! integer stride(1),
! integer imap(1),
! nf_int1_t i1vals(1))
external nf_put_varm_int1
integer nf_get_varm_int1
! (integer ncid,
! integer varid,
! integer start(1),
! integer count(1),
! integer stride(1),
! integer imap(1),
! nf_int1_t i1vals(1))
external nf_get_varm_int1
integer nf_put_varm_int2
! (integer ncid,
! integer varid,
! integer start(1),
! integer count(1),
! integer stride(1),
! integer imap(1),
! nf_int2_t i2vals(1))
external nf_put_varm_int2
integer nf_get_varm_int2
! (integer ncid,
! integer varid,
! integer start(1),
! integer count(1),
! integer stride(1),
! integer imap(1),
! nf_int2_t i2vals(1))
external nf_get_varm_int2
integer nf_put_varm_int
! (integer ncid,
! integer varid,
! integer start(1),
! integer count(1),
! integer stride(1),
! integer imap(1),
! integer ivals(1))
external nf_put_varm_int
integer nf_get_varm_int
! (integer ncid,
! integer varid,
! integer start(1),
! integer count(1),
! integer stride(1),
! integer imap(1),
! integer ivals(1))
external nf_get_varm_int
integer nf_put_varm_real
! (integer ncid,
! integer varid,
! integer start(1),
! integer count(1),
! integer stride(1),
! integer imap(1),
! real rvals(1))
external nf_put_varm_real
integer nf_get_varm_real
! (integer ncid,
! integer varid,
! integer start(1),
! integer count(1),
! integer stride(1),
! integer imap(1),
! real rvals(1))
external nf_get_varm_real
integer nf_put_varm_double
! (integer ncid,
! integer varid,
! integer start(1),
! integer count(1),
! integer stride(1),
! integer imap(1),
! doubleprecision dvals(1))
external nf_put_varm_double
integer nf_get_varm_double
! (integer ncid,
! integer varid,
! integer start(1),
! integer count(1),
! integer stride(1),
! integer imap(1),
! doubleprecision dvals(1))
external nf_get_varm_double
!ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
! begin netcdf 2.4 backward compatibility:
!
!
! functions in the fortran interface
!
integer nccre
integer ncopn
integer ncddef
integer ncdid
integer ncvdef
integer ncvid
integer nctlen
integer ncsfil
external nccre
external ncopn
external ncddef
external ncdid
external ncvdef
external ncvid
external nctlen
external ncsfil
integer ncrdwr
integer nccreat
integer ncexcl
integer ncindef
integer ncnsync
integer nchsync
integer ncndirty
integer nchdirty
integer nclink
integer ncnowrit
integer ncwrite
integer ncclob
integer ncnoclob
integer ncglobal
integer ncfill
integer ncnofill
integer maxncop
integer maxncdim
integer maxncatt
integer maxncvar
integer maxncnam
integer maxvdims
integer ncnoerr
integer ncebadid
integer ncenfile
integer nceexist
integer nceinval
integer nceperm
integer ncenotin
integer nceindef
integer ncecoord
integer ncemaxds
integer ncename
integer ncenoatt
integer ncemaxat
integer ncebadty
integer ncebadd
integer ncests
integer nceunlim
integer ncemaxvs
integer ncenotvr
integer nceglob
integer ncenotnc
integer ncfoobar
integer ncsyserr
integer ncfatal
integer ncverbos
integer ncentool
!
! netcdf data types:
!
integer ncbyte
integer ncchar
integer ncshort
integer nclong
integer ncfloat
integer ncdouble
parameter(ncbyte = 1)
parameter(ncchar = 2)
parameter(ncshort = 3)
parameter(nclong = 4)
parameter(ncfloat = 5)
parameter(ncdouble = 6)
!
! masks for the struct nc flag field; passed in as 'mode' arg to
! nccreate and ncopen.
!
! read/write, 0 => readonly
parameter(ncrdwr = 1)
! in create phase, cleared by ncendef
parameter(nccreat = 2)
! on create destroy existing file
parameter(ncexcl = 4)
! in define mode, cleared by ncendef
parameter(ncindef = 8)
! synchronise numrecs on change (x'10')
parameter(ncnsync = 16)
! synchronise whole header on change (x'20')
parameter(nchsync = 32)
! numrecs has changed (x'40')
parameter(ncndirty = 64)
! header info has changed (x'80')
parameter(nchdirty = 128)
! prefill vars on endef and increase of record, the default behavior
parameter(ncfill = 0)
! do not fill vars on endef and increase of record (x'100')
parameter(ncnofill = 256)
! isa link (x'8000')
parameter(nclink = 32768)
!
! 'mode' arguments for nccreate and ncopen
!
parameter(ncnowrit = 0)
parameter(ncwrite = ncrdwr)
parameter(ncclob = nf_clobber)
parameter(ncnoclob = nf_noclobber)
!
! 'size' argument to ncdimdef for an unlimited dimension
!
integer ncunlim
parameter(ncunlim = 0)
!
! attribute id to put/get a global attribute
!
parameter(ncglobal = 0)
!
! advisory maximums:
!
parameter(maxncop = 64)
parameter(maxncdim = 1024)
parameter(maxncatt = 8192)
parameter(maxncvar = 8192)
! not enforced
parameter(maxncnam = 256)
parameter(maxvdims = maxncdim)
!
! global netcdf error status variable
! initialized in error.c
!
! no error
parameter(ncnoerr = nf_noerr)
! not a netcdf id
parameter(ncebadid = nf_ebadid)
! too many netcdfs open
parameter(ncenfile = -31) ! nc_syserr
! netcdf file exists && ncnoclob
parameter(nceexist = nf_eexist)
! invalid argument
parameter(nceinval = nf_einval)
! write to read only
parameter(nceperm = nf_eperm)
! operation not allowed in data mode
parameter(ncenotin = nf_enotindefine )
! operation not allowed in define mode
parameter(nceindef = nf_eindefine)
! coordinates out of domain
parameter(ncecoord = nf_einvalcoords)
! maxncdims exceeded
parameter(ncemaxds = nf_emaxdims)
! string match to name in use
parameter(ncename = nf_enameinuse)
! attribute not found
parameter(ncenoatt = nf_enotatt)
! maxncattrs exceeded
parameter(ncemaxat = nf_emaxatts)
! not a netcdf data type
parameter(ncebadty = nf_ebadtype)
! invalid dimension id
parameter(ncebadd = nf_ebaddim)
! ncunlimited in the wrong index
parameter(nceunlim = nf_eunlimpos)
! maxncvars exceeded
parameter(ncemaxvs = nf_emaxvars)
! variable not found
parameter(ncenotvr = nf_enotvar)
! action prohibited on ncglobal varid
parameter(nceglob = nf_eglobal)
! not a netcdf file
parameter(ncenotnc = nf_enotnc)
parameter(ncests = nf_ests)
parameter (ncentool = nf_emaxname)
parameter(ncfoobar = 32)
parameter(ncsyserr = -31)
!
! global options variable. used to determine behavior of error handler.
! initialized in lerror.c
!
parameter(ncfatal = 1)
parameter(ncverbos = 2)
!
! default fill values. these must be the same as in the c interface.
!
integer filbyte
integer filchar
integer filshort
integer fillong
real filfloat
doubleprecision fildoub
parameter (filbyte = -127)
parameter (filchar = 0)
parameter (filshort = -32767)
parameter (fillong = -2147483647)
parameter (filfloat = 9.9692099683868690e+36)
parameter (fildoub = 9.9692099683868690e+36)
syntax highlighted by Code2HTML, v. 0.9.1