Skip to content

GitLab

Commit 4abf8c9f authored by Thomas Jahns's avatar Thomas Jahns 🤸
Browse files

Move time-related CDF functionality to separate source file.

parent 3c1047de
Hide whitespace changes
Inline Side-by-side
src/Makefile.am
View file @ 4abf8c9f
......@@ -75,6 +75,7 @@ libcdi_la_SOURCES = \
servicelib.c \
stream_cdf_i.c \
stream_cdf_o.c \
stream_cdf_time.c \
stream_cdf.h \
stream_cgribex.c \
stream_cgribex.h \
......
src/Makefile.in
View file @ 4abf8c9f
......@@ -180,13 +180,13 @@ am__libcdi_la_SOURCES_DIST = basetime.c basetime.h binary.c binary.h \
namespace.c namespace.h serialize.h serialize.c \
referenceCounting.c referenceCounting.h resource_handle.c \
resource_handle.h service.h servicelib.c stream_cdf_i.c \
stream_cdf_o.c stream_cdf.h stream_cgribex.c stream_cgribex.h \
stream_ext.c stream_ext.h stream_grb.c stream_grb.h \
stream_gribapi.h stream_history.c stream_ieg.c stream_ieg.h \
cdi_int.c cdi_int.h stream_record.c stream_srv.c stream_srv.h \
stream_var.c grb_write.c grb_read.c cdf_write.c cdf_read.c \
cdf_lazy_grid.c cdf_lazy_grid.h subtype.c subtype.h swap.h \
table.c table.h tablepar.h taxis.c taxis.h timebase.c \
stream_cdf_o.c stream_cdf_time.c stream_cdf.h stream_cgribex.c \
stream_cgribex.h stream_ext.c stream_ext.h stream_grb.c \
stream_grb.h stream_gribapi.h stream_history.c stream_ieg.c \
stream_ieg.h cdi_int.c cdi_int.h stream_record.c stream_srv.c \
stream_srv.h stream_var.c grb_write.c grb_read.c cdf_write.c \
cdf_read.c cdf_lazy_grid.c cdf_lazy_grid.h subtype.c subtype.h \
swap.h table.c table.h tablepar.h taxis.c taxis.h timebase.c \
timebase.h tsteps.c util.c varscan.c varscan.h version.c \
vlist.c vlist.h cdi_att.c cdi_att.h vlist_var.c vlist_var.h \
zaxis.c zaxis.h stream.c stream_write.c stream_read.c swap.c \
......@@ -203,15 +203,16 @@ am_libcdi_la_OBJECTS = basetime.lo binary.lo calendar.lo cdf.lo \
gaussgrid.lo gribapi.lo grid.lo ieglib.lo input_file.lo \
institution.lo model.lo namespace.lo serialize.lo \
referenceCounting.lo resource_handle.lo servicelib.lo \
stream_cdf_i.lo stream_cdf_o.lo stream_cgribex.lo \
stream_ext.lo stream_grb.lo stream_history.lo stream_ieg.lo \
cdi_int.lo stream_record.lo stream_srv.lo stream_var.lo \
grb_write.lo grb_read.lo cdf_write.lo cdf_read.lo \
cdf_lazy_grid.lo subtype.lo table.lo taxis.lo timebase.lo \
tsteps.lo util.lo varscan.lo version.lo vlist.lo cdi_att.lo \
vlist_var.lo zaxis.lo stream.lo stream_write.lo stream_read.lo \
swap.lo iterator.lo iterator_fallback.lo iterator_grib.lo \
$(am__objects_2) $(am__objects_4)
stream_cdf_i.lo stream_cdf_o.lo stream_cdf_time.lo \
stream_cgribex.lo stream_ext.lo stream_grb.lo \
stream_history.lo stream_ieg.lo cdi_int.lo stream_record.lo \
stream_srv.lo stream_var.lo grb_write.lo grb_read.lo \
cdf_write.lo cdf_read.lo cdf_lazy_grid.lo subtype.lo table.lo \
taxis.lo timebase.lo tsteps.lo util.lo varscan.lo version.lo \
vlist.lo cdi_att.lo vlist_var.lo zaxis.lo stream.lo \
stream_write.lo stream_read.lo swap.lo iterator.lo \
iterator_fallback.lo iterator_grib.lo $(am__objects_2) \
$(am__objects_4)
libcdi_la_OBJECTS = $(am_libcdi_la_OBJECTS)
AM_V_lt = $(am__v_lt_@AM_V@)
am__v_lt_ = $(am__v_lt_@AM_DEFAULT_V@)
......@@ -520,18 +521,19 @@ libcdi_la_SOURCES = basetime.c basetime.h binary.c binary.h calendar.c \
serialize.h serialize.c referenceCounting.c \
referenceCounting.h resource_handle.c resource_handle.h \
service.h servicelib.c stream_cdf_i.c stream_cdf_o.c \
stream_cdf.h stream_cgribex.c stream_cgribex.h stream_ext.c \
stream_ext.h stream_grb.c stream_grb.h stream_gribapi.h \
stream_history.c stream_ieg.c stream_ieg.h cdi_int.c cdi_int.h \
stream_record.c stream_srv.c stream_srv.h stream_var.c \
grb_write.c grb_read.c cdf_write.c cdf_read.c cdf_lazy_grid.c \
cdf_lazy_grid.h subtype.c subtype.h swap.h table.c table.h \
tablepar.h taxis.c taxis.h timebase.c timebase.h tsteps.c \
util.c varscan.c varscan.h version.c vlist.c vlist.h cdi_att.c \
cdi_att.h vlist_var.c vlist_var.h zaxis.c zaxis.h stream.c \
stream_write.c stream_read.c swap.c iterator.c iterator.h \
iterator_fallback.c iterator_fallback.h iterator_grib.c \
iterator_grib.h $(am__append_2) $(am__append_3)
stream_cdf_time.c stream_cdf.h stream_cgribex.c \
stream_cgribex.h stream_ext.c stream_ext.h stream_grb.c \
stream_grb.h stream_gribapi.h stream_history.c stream_ieg.c \
stream_ieg.h cdi_int.c cdi_int.h stream_record.c stream_srv.c \
stream_srv.h stream_var.c grb_write.c grb_read.c cdf_write.c \
cdf_read.c cdf_lazy_grid.c cdf_lazy_grid.h subtype.c subtype.h \
swap.h table.c table.h tablepar.h taxis.c taxis.h timebase.c \
timebase.h tsteps.c util.c varscan.c varscan.h version.c \
vlist.c vlist.h cdi_att.c cdi_att.h vlist_var.c vlist_var.h \
zaxis.c zaxis.h stream.c stream_write.c stream_read.c swap.c \
iterator.c iterator.h iterator_fallback.c iterator_fallback.h \
iterator_grib.c iterator_grib.h $(am__append_2) \
$(am__append_3)
# cfortran.h is an optional part of libcdi
libcdi_la_USE_FC_extra_sources = \
......@@ -750,6 +752,7 @@ distclean-compile:
@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/stream.Plo@am__quote@
@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/stream_cdf_i.Plo@am__quote@
@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/stream_cdf_o.Plo@am__quote@
@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/stream_cdf_time.Plo@am__quote@
@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/stream_cgribex.Plo@am__quote@
@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/stream_ext.Plo@am__quote@
@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/stream_grb.Plo@am__quote@
......
src/make_cdilib
View file @ 4abf8c9f
......@@ -127,6 +127,7 @@ files="basetime.c \
stream_read.c \
stream_cdf_i.c \
stream_cdf_o.c \
stream_cdf_time.c \
stream_cgribex.c \
stream_ext.c \
stream_grb.c \
......
src/stream_cdf_o.c
View file @ 4abf8c9f
......@@ -95,235 +95,6 @@ void cdfDefTimeValue(stream_t *streamptr, int tsID)
}
}
static
int cdfDefTimeBounds(int fileID, int nctimevarid, int nctimedimid, const char *taxis_name, taxis_t* taxis)
{
int time_bndsid = -1;
int dims[2];
dims[0] = nctimedimid;
/* fprintf(stderr, "time has bounds\n"); */
if ( nc_inq_dimid(fileID, bndsName, &dims[1]) != NC_NOERR )
cdf_def_dim(fileID, bndsName, 2, &dims[1]);
const char *bndsAttName, *bndsAttVal;
size_t bndsAttValLen;
char tmpstr[CDI_MAX_NAME];
if ( taxis->climatology )
{
static const char climatology_bndsName[] = "climatology_bnds",
climatology_bndsAttName[] = "climatology";
bndsAttName = climatology_bndsAttName;
bndsAttValLen = sizeof (climatology_bndsName) - 1;
bndsAttVal = climatology_bndsName;
}
else
{
size_t taxisnameLen = strlen(taxis_name);
memcpy(tmpstr, taxis_name, taxisnameLen);
tmpstr[taxisnameLen] = '_';
memcpy(tmpstr + taxisnameLen + 1, bndsName, sizeof (bndsName));
size_t tmpstrLen = taxisnameLen + sizeof (bndsName);
static const char generic_bndsAttName[] = "bounds";
bndsAttName = generic_bndsAttName;
bndsAttValLen = tmpstrLen;
bndsAttVal = tmpstr;
}
cdf_def_var(fileID, bndsAttVal, NC_DOUBLE, 2, dims, &time_bndsid);
cdf_put_att_text(fileID, nctimevarid, bndsAttName, bndsAttValLen, bndsAttVal);
return time_bndsid;
}
static
void cdfDefTimeUnits(char *unitstr, taxis_t *taxis0, taxis_t *taxis)
{
if ( taxis->units && taxis->units[0] )
{
strcpy(unitstr, taxis->units);
}
else
{
unitstr[0] = 0;
if ( taxis0->type == TAXIS_ABSOLUTE )
{
if ( taxis0->unit == TUNIT_YEAR ) sprintf(unitstr, "year as %s", "%Y.%f");
else if ( taxis0->unit == TUNIT_MONTH ) sprintf(unitstr, "month as %s", "%Y%m.%f");
else sprintf(unitstr, "day as %s", "%Y%m%d.%f");
}
else
{
int timeunit = taxis->unit != -1 ? taxis->unit : TUNIT_HOUR;
int rdate = taxis->rdate;
int rtime = taxis->rtime;
if ( rdate == -1 )
{
rdate = taxis->vdate;
rtime = taxis->vtime;
}
int year, month, day, hour, minute, second;
cdiDecodeDate(rdate, &year, &month, &day);
cdiDecodeTime(rtime, &hour, &minute, &second);
if ( timeunit == TUNIT_QUARTER ) timeunit = TUNIT_MINUTE;
if ( timeunit == TUNIT_30MINUTES ) timeunit = TUNIT_MINUTE;
if ( timeunit == TUNIT_3HOURS ||
timeunit == TUNIT_6HOURS ||
timeunit == TUNIT_12HOURS ) timeunit = TUNIT_HOUR;
sprintf(unitstr, "%s since %d-%d-%d %02d:%02d:%02d",
tunitNamePtr(timeunit), year, month, day, hour, minute, second);
}
}
}
static
void cdfDefForecastTimeUnits(char *unitstr, int timeunit)
{
unitstr[0] = 0;
if ( timeunit == -1 ) timeunit = TUNIT_HOUR;
if ( timeunit == TUNIT_QUARTER ) timeunit = TUNIT_MINUTE;
if ( timeunit == TUNIT_30MINUTES ) timeunit = TUNIT_MINUTE;
if ( timeunit == TUNIT_3HOURS ||
timeunit == TUNIT_6HOURS ||
timeunit == TUNIT_12HOURS ) timeunit = TUNIT_HOUR;
strcpy(unitstr, tunitNamePtr(timeunit));
}
static
void cdfDefCalendar(int fileID, int ncvarid, int calendar)
{
static const struct { int calCode; const char *calStr; } calTab[] = {
{ CALENDAR_STANDARD, "standard" },
{ CALENDAR_PROLEPTIC, "proleptic_gregorian" },
{ CALENDAR_NONE, "none" },
{ CALENDAR_360DAYS, "360_day" },
{ CALENDAR_365DAYS, "365_day" },
{ CALENDAR_366DAYS, "366_day" },
};
enum { calTabSize = sizeof calTab / sizeof calTab[0] };
for ( size_t i = 0; i < calTabSize; ++i )
if ( calTab[i].calCode == calendar )
{
const char *calstr = calTab[i].calStr;
size_t len = strlen(calstr);
cdf_put_att_text(fileID, ncvarid, "calendar", len, calstr);
break;
}
}
void cdfDefTime(stream_t* streamptr)
{
int time_varid;
int time_dimid;
int time_bndsid = -1;
static const char default_name[] = "time";
if ( streamptr->basetime.ncvarid != CDI_UNDEFID ) return;
int fileID = streamptr->fileID;
if ( streamptr->ncmode == 0 ) streamptr->ncmode = 1;
if ( streamptr->ncmode == 2 ) cdf_redef(fileID);
taxis_t *taxis = &streamptr->tsteps[0].taxis;
const char *taxis_name = (taxis->name && taxis->name[0]) ? taxis->name : default_name ;
cdf_def_dim(fileID, taxis_name, NC_UNLIMITED, &time_dimid);
streamptr->basetime.ncdimid = time_dimid;
nc_type xtype = (taxis->datatype == CDI_DATATYPE_FLT32) ? NC_FLOAT : NC_DOUBLE;
cdf_def_var(fileID, taxis_name, xtype, 1, &time_dimid, &time_varid);
streamptr->basetime.ncvarid = time_varid;
#if defined (HAVE_NETCDF4)
if ( streamptr->filetype == CDI_FILETYPE_NC4 || streamptr->filetype == CDI_FILETYPE_NC4C )
{
size_t chunk = 512;
cdf_def_var_chunking(fileID, time_varid, NC_CHUNKED, &chunk);
}
#endif
{
static const char timeStr[] = "time";
cdf_put_att_text(fileID, time_varid, "standard_name", sizeof(timeStr) - 1, timeStr);
}
if ( taxis->longname && taxis->longname[0] )
cdf_put_att_text(fileID, time_varid, "long_name", strlen(taxis->longname), taxis->longname);
if ( taxis->has_bounds )
{
time_bndsid = cdfDefTimeBounds(fileID, time_varid, time_dimid, taxis_name, taxis);
streamptr->basetime.ncvarboundsid = time_bndsid;
}
{
char unitstr[CDI_MAX_NAME];
cdfDefTimeUnits(unitstr, &streamptr->tsteps[0].taxis, taxis);
size_t len = strlen(unitstr);
if ( len )
{
cdf_put_att_text(fileID, time_varid, "units", len, unitstr);
/*
if ( taxis->has_bounds )
cdf_put_att_text(fileID, time_bndsid, "units", len, unitstr);
*/
}
}
if ( taxis->calendar != -1 )
{
cdfDefCalendar(fileID, time_varid, taxis->calendar);
/*
if ( taxis->has_bounds )
cdfDefCalendar(fileID, time_bndsid, taxis->calendar);
*/
}
if ( taxis->type == TAXIS_FORECAST )
{
int leadtimeid;
cdf_def_var(fileID, "leadtime", xtype, 1, &time_dimid, &leadtimeid);
streamptr->basetime.leadtimeid = leadtimeid;
{
static const char stdname[] = "forecast_period";
cdf_put_att_text(fileID, leadtimeid, "standard_name", sizeof(stdname) - 1, stdname);
}
{
static const char lname[] = "Time elapsed since the start of the forecast";
cdf_put_att_text(fileID, leadtimeid, "long_name", sizeof(lname) - 1, lname);
}
{
char unitstr[CDI_MAX_NAME];
cdfDefForecastTimeUnits(unitstr, taxis->fc_unit);
size_t len = strlen(unitstr);
if ( len )
cdf_put_att_text(fileID, leadtimeid, "units", len, unitstr);
}
}
cdf_put_att_text(fileID, time_varid, "axis", 1, "T");
if ( streamptr->ncmode == 2 ) cdf_enddef(fileID);
}
void cdfDefTimestep(stream_t *streamptr, int tsID)
{
int vlistID = streamptr->vlistID;
......
src/stream_cdf_time.c 0 → 100644
View file @ 4abf8c9f
#if defined (HAVE_CONFIG_H)
# include "config.h"
#endif
#ifdef HAVE_LIBNETCDF
# include <stdio.h>
# include <string.h>
# include <netcdf.h>
# include "cdi.h"
# include "cdi_int.h"
# include "stream_cdf.h"
# include "cdf_int.h"
static
int cdfDefTimeBounds(int fileID, int nctimevarid, int nctimedimid, const char *taxis_name, taxis_t* taxis)
{
int time_bndsid = -1;
int dims[2];
dims[0] = nctimedimid;
/* fprintf(stderr, "time has bounds\n"); */
static const char bndsName[] = "bnds";
if ( nc_inq_dimid(fileID, bndsName, &dims[1]) != NC_NOERR )
cdf_def_dim(fileID, bndsName, 2, &dims[1]);
const char *bndsAttName, *bndsAttVal;
size_t bndsAttValLen;
char tmpstr[CDI_MAX_NAME];
if ( taxis->climatology )
{
static const char climatology_bndsName[] = "climatology_bnds",
climatology_bndsAttName[] = "climatology";
bndsAttName = climatology_bndsAttName;
bndsAttValLen = sizeof (climatology_bndsName) - 1;
bndsAttVal = climatology_bndsName;
}
else
{
size_t taxisnameLen = strlen(taxis_name);
memcpy(tmpstr, taxis_name, taxisnameLen);
tmpstr[taxisnameLen] = '_';
memcpy(tmpstr + taxisnameLen + 1, bndsName, sizeof (bndsName));
size_t tmpstrLen = taxisnameLen + sizeof (bndsName);
static const char generic_bndsAttName[] = "bounds";
bndsAttName = generic_bndsAttName;
bndsAttValLen = tmpstrLen;
bndsAttVal = tmpstr;
}
cdf_def_var(fileID, bndsAttVal, NC_DOUBLE, 2, dims, &time_bndsid);
cdf_put_att_text(fileID, nctimevarid, bndsAttName, bndsAttValLen, bndsAttVal);
return time_bndsid;
}
static
void cdfDefTimeUnits(char *unitstr, taxis_t* taxis0, taxis_t* taxis)
{
if ( taxis->units && taxis->units[0] )
{
strcpy(unitstr, taxis->units);
}
else
{
unitstr[0] = 0;
if ( taxis0->type == TAXIS_ABSOLUTE )
{
if ( taxis0->unit == TUNIT_YEAR ) sprintf(unitstr, "year as %s", "%Y.%f");
else if ( taxis0->unit == TUNIT_MONTH ) sprintf(unitstr, "month as %s", "%Y%m.%f");
else sprintf(unitstr, "day as %s", "%Y%m%d.%f");
}
else
{
int timeunit = taxis->unit != -1 ? taxis->unit : TUNIT_HOUR;
int rdate = taxis->rdate;
int rtime = taxis->rtime;
if ( rdate == -1 )
{
rdate = taxis->vdate;
rtime = taxis->vtime;
}
int year, month, day, hour, minute, second;
cdiDecodeDate(rdate, &year, &month, &day);
cdiDecodeTime(rtime, &hour, &minute, &second);
if ( timeunit == TUNIT_QUARTER ) timeunit = TUNIT_MINUTE;
if ( timeunit == TUNIT_30MINUTES ) timeunit = TUNIT_MINUTE;
if ( timeunit == TUNIT_3HOURS ||
timeunit == TUNIT_6HOURS ||
timeunit == TUNIT_12HOURS ) timeunit = TUNIT_HOUR;
sprintf(unitstr, "%s since %d-%d-%d %02d:%02d:%02d",
tunitNamePtr(timeunit), year, month, day, hour, minute, second);
}
}
}
static
void cdfDefForecastTimeUnits(char *unitstr, int timeunit)
{
unitstr[0] = 0;
if ( timeunit == -1 ) timeunit = TUNIT_HOUR;
if ( timeunit == TUNIT_QUARTER ) timeunit = TUNIT_MINUTE;
if ( timeunit == TUNIT_30MINUTES ) timeunit = TUNIT_MINUTE;
if ( timeunit == TUNIT_3HOURS ||
timeunit == TUNIT_6HOURS ||
timeunit == TUNIT_12HOURS ) timeunit = TUNIT_HOUR;
strcpy(unitstr, tunitNamePtr(timeunit));
}
static
void cdfDefCalendar(int fileID, int ncvarid, int calendar)
{
static const struct { int calCode; const char *calStr; } calTab[] = {
{ CALENDAR_STANDARD, "standard" },
{ CALENDAR_PROLEPTIC, "proleptic_gregorian" },
{ CALENDAR_NONE, "none" },
{ CALENDAR_360DAYS, "360_day" },
{ CALENDAR_365DAYS, "365_day" },
{ CALENDAR_366DAYS, "366_day" },
};
enum { calTabSize = sizeof calTab / sizeof calTab[0] };
for ( size_t i = 0; i < calTabSize; ++i )
if ( calTab[i].calCode == calendar )
{
const char *calstr = calTab[i].calStr;
size_t len = strlen(calstr);
cdf_put_att_text(fileID, ncvarid, "calendar", len, calstr);
break;
}
}
void cdfDefTime(stream_t* streamptr)
{
int time_varid;
int time_dimid;
int time_bndsid = -1;
static const char default_name[] = "time";
if ( streamptr->basetime.ncvarid != CDI_UNDEFID ) return;
int fileID = streamptr->fileID;
if ( streamptr->ncmode == 0 ) streamptr->ncmode = 1;
if ( streamptr->ncmode == 2 ) cdf_redef(fileID);
taxis_t *taxis = &streamptr->tsteps[0].taxis;
const char *taxis_name = (taxis->name && taxis->name[0]) ? taxis->name : default_name ;
cdf_def_dim(fileID, taxis_name, NC_UNLIMITED, &time_dimid);
streamptr->basetime.ncdimid = time_dimid;
nc_type xtype = (taxis->datatype == CDI_DATATYPE_FLT32) ? NC_FLOAT : NC_DOUBLE;
cdf_def_var(fileID, taxis_name, xtype, 1, &time_dimid, &time_varid);
streamptr->basetime.ncvarid = time_varid;
#if defined (HAVE_NETCDF4)
if ( streamptr->filetype == CDI_FILETYPE_NC4 || streamptr->filetype == CDI_FILETYPE_NC4C )
{
size_t chunk = 512;
cdf_def_var_chunking(fileID, time_varid, NC_CHUNKED, &chunk);
}
#endif
{
static const char timeStr[] = "time";
cdf_put_att_text(fileID, time_varid, "standard_name", sizeof(timeStr) - 1, timeStr);
}
if ( taxis->longname && taxis->longname[0] )
cdf_put_att_text(fileID, time_varid, "long_name", strlen(taxis->longname), taxis->longname);
if ( taxis->has_bounds )
{
time_bndsid = cdfDefTimeBounds(fileID, time_varid, time_dimid, taxis_name, taxis);
streamptr->basetime.ncvarboundsid = time_bndsid;
}
{
char unitstr[CDI_MAX_NAME];
cdfDefTimeUnits(unitstr, &streamptr->tsteps[0].taxis, taxis);
size_t len = strlen(unitstr);
if ( len )
{
cdf_put_att_text(fileID, time_varid, "units", len, unitstr);
/*
if ( taxis->has_bounds )
cdf_put_att_text(fileID, time_bndsid, "units", len, unitstr);
*/
}
}
if ( taxis->calendar != -1 )
{
cdfDefCalendar(fileID, time_varid, taxis->calendar);
/*
if ( taxis->has_bounds )
cdfDefCalendar(fileID, time_bndsid, taxis->calendar);
*/
}
if ( taxis->type == TAXIS_FORECAST )
{
int leadtimeid;
cdf_def_var(fileID, "leadtime", xtype, 1, &time_dimid, &leadtimeid);
streamptr->basetime.leadtimeid = leadtimeid;
{
static const char stdname[] = "forecast_period";
cdf_put_att_text(fileID, leadtimeid, "standard_name", sizeof(stdname) - 1, stdname);
}
{
static const char lname[] = "Time elapsed since the start of the forecast";
cdf_put_att_text(fileID, leadtimeid, "long_name", sizeof(lname) - 1, lname);
}
{
char unitstr[CDI_MAX_NAME];
cdfDefForecastTimeUnits(unitstr, taxis->fc_unit);
size_t len = strlen(unitstr);
if ( len )
cdf_put_att_text(fileID, leadtimeid, "units", len, unitstr);
}
}
cdf_put_att_text(fileID, time_varid, "axis", 1, "T");
if ( streamptr->ncmode == 2 ) cdf_enddef(fileID);
}
#endif
/*
* Local Variables:
* c-file-style: "Java"
* c-basic-offset: 2
* indent-tabs-mode: nil
* show-trailing-whitespace: t
* require-trailing-newline: t
* End:
*/
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment

Imprint | Privacy Policy