Skip to content
GitLab
Commit ea344391 authored by Uwe Schulzweida's avatar Uwe Schulzweida
Browse files

Setpartab: replace nml by namelist.

parent a023a0d2
Hide whitespace changes
Inline Side-by-side
src/Makefile.am
View file @ ea344391
......@@ -99,6 +99,7 @@ libcdo_la_SOURCES = \
par_io.c \
par_io.h \
parse_cmor_table.c \
parse_namelist.c \
percentiles_hist.c \
percentiles_hist.h \
percentiles.c \
......
src/Makefile.in
View file @ ea344391
......@@ -128,9 +128,9 @@ am_libcdo_la_OBJECTS = libcdo_la-cdo_pthread.lo libcdo_la-cdo_vlist.lo \
libcdo_la-modules.lo libcdo_la-namelist.lo libcdo_la-nml.lo \
libcdo_la-normal.lo libcdo_la-nth_element.lo \
libcdo_la-par_io.lo libcdo_la-parse_cmor_table.lo \
libcdo_la-percentiles_hist.lo libcdo_la-percentiles.lo \
libcdo_la-pipe.lo libcdo_la-pml.lo libcdo_la-pmlist.lo \
libcdo_la-process.lo libcdo_la-pstream.lo \
libcdo_la-parse_namelist.lo libcdo_la-percentiles_hist.lo \
libcdo_la-percentiles.lo libcdo_la-pipe.lo libcdo_la-pml.lo \
libcdo_la-pmlist.lo libcdo_la-process.lo libcdo_la-pstream.lo \
libcdo_la-pthread_debug.lo libcdo_la-readline.lo \
libcdo_la-realtime.lo libcdo_la-remaplib.lo \
libcdo_la-remapsort.lo libcdo_la-remap_scrip_io.lo \
......@@ -519,20 +519,20 @@ libcdo_la_SOURCES = cdo_int.h compare.h cdo_pthread.c cdo_vlist.c \
list.c list.h merge_sort2.c merge_sort2.h modules.c modules.h \
namelist.c namelist.h nml.c nml.h normal.c nth_element.c \
nth_element.h operator_help.h par_io.c par_io.h \
parse_cmor_table.c percentiles_hist.c percentiles_hist.h \
percentiles.c percentiles.h pipe.c pipe.h pml.c pml.h pmlist.c \
pmlist.h pragma_omp_atomic_update.h printinfo.h process.c \
process.h pstream.c pstream.h pstream_write.h pstream_int.h \
pthread_debug.c pthread_debug.h readline.c realtime.c remap.h \
remaplib.c remapsort.c remap_scrip_io.c remap_search_reg2d.c \
remap_search_latbins.c remap_store_link.c remap_store_link.h \
remap_store_link_cnsrv.c remap_store_link_cnsrv.h \
remap_conserv.c remap_conserv_scrip.c remap_distwgt.c \
remap_bicubic_scrip.c remap_bilinear_scrip.c stdnametable.c \
stdnametable.h specspace.c specspace.h statistic.c statistic.h \
table.c text.c text.h timebase.h timer.c userlog.c uthash.h \
util.c util.h zaxis.c json/jsmn.h json/jsmn.c \
kdtreelib/kdtree.h kdtreelib/kdtree_cartesian.c \
parse_cmor_table.c parse_namelist.c percentiles_hist.c \
percentiles_hist.h percentiles.c percentiles.h pipe.c pipe.h \
pml.c pml.h pmlist.c pmlist.h pragma_omp_atomic_update.h \
printinfo.h process.c process.h pstream.c pstream.h \
pstream_write.h pstream_int.h pthread_debug.c pthread_debug.h \
readline.c realtime.c remap.h remaplib.c remapsort.c \
remap_scrip_io.c remap_search_reg2d.c remap_search_latbins.c \
remap_store_link.c remap_store_link.h remap_store_link_cnsrv.c \
remap_store_link_cnsrv.h remap_conserv.c remap_conserv_scrip.c \
remap_distwgt.c remap_bicubic_scrip.c remap_bilinear_scrip.c \
stdnametable.c stdnametable.h specspace.c specspace.h \
statistic.c statistic.h table.c text.c text.h timebase.h \
timer.c userlog.c uthash.h util.c util.h zaxis.c json/jsmn.h \
json/jsmn.c kdtreelib/kdtree.h kdtreelib/kdtree_cartesian.c \
kdtreelib/kdtree_common.c kdtreelib/kdtree_spherical.c \
kdtreelib/qsort.c kdtreelib/pmergesort.c kdtreelib/pqueue.c \
kdtreelib/pqueue.h clipping/clipping.c clipping/clipping.h \
......@@ -1048,6 +1048,7 @@ distclean-compile:
@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libcdo_la-nth_element.Plo@am__quote@
@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libcdo_la-par_io.Plo@am__quote@
@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libcdo_la-parse_cmor_table.Plo@am__quote@
@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libcdo_la-parse_namelist.Plo@am__quote@
@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libcdo_la-percentiles.Plo@am__quote@
@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libcdo_la-percentiles_hist.Plo@am__quote@
@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libcdo_la-pipe.Plo@am__quote@
......@@ -1509,6 +1510,13 @@ libcdo_la-parse_cmor_table.lo: parse_cmor_table.c
@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
@am__fastdepCC_FALSE@ $(AM_V_CC@am__nodep@)$(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libcdo_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o libcdo_la-parse_cmor_table.lo `test -f 'parse_cmor_table.c' || echo '$(srcdir)/'`parse_cmor_table.c
libcdo_la-parse_namelist.lo: parse_namelist.c
@am__fastdepCC_TRUE@ $(AM_V_CC)$(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libcdo_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT libcdo_la-parse_namelist.lo -MD -MP -MF $(DEPDIR)/libcdo_la-parse_namelist.Tpo -c -o libcdo_la-parse_namelist.lo `test -f 'parse_namelist.c' || echo '$(srcdir)/'`parse_namelist.c
@am__fastdepCC_TRUE@ $(AM_V_at)$(am__mv) $(DEPDIR)/libcdo_la-parse_namelist.Tpo $(DEPDIR)/libcdo_la-parse_namelist.Plo
@AMDEP_TRUE@@am__fastdepCC_FALSE@ $(AM_V_CC)source='parse_namelist.c' object='libcdo_la-parse_namelist.lo' libtool=yes @AMDEPBACKSLASH@
@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
@am__fastdepCC_FALSE@ $(AM_V_CC@am__nodep@)$(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libcdo_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o libcdo_la-parse_namelist.lo `test -f 'parse_namelist.c' || echo '$(srcdir)/'`parse_namelist.c
libcdo_la-percentiles_hist.lo: percentiles_hist.c
@am__fastdepCC_TRUE@ $(AM_V_CC)$(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libcdo_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT libcdo_la-percentiles_hist.lo -MD -MP -MF $(DEPDIR)/libcdo_la-percentiles_hist.Tpo -c -o libcdo_la-percentiles_hist.lo `test -f 'percentiles_hist.c' || echo '$(srcdir)/'`percentiles_hist.c
@am__fastdepCC_TRUE@ $(AM_V_at)$(am__mv) $(DEPDIR)/libcdo_la-percentiles_hist.Tpo $(DEPDIR)/libcdo_la-percentiles_hist.Plo
......
src/Setpartab.c
View file @ ea344391
......@@ -26,10 +26,11 @@
#include "cdo_int.h"
#include "pstream.h"
#include "util.h"
#include "nml.h"
#include "pmlist.h"
#include "convert_units.h"
int stringToParam(const char *paramstr);
void paramToStringLong(int param, char *paramstr, int maxlen);
typedef enum {CODE_NUMBER, PARAMETER_ID, VARIABLE_NAME, STANDARD_NAME} pt_mode_t;
......@@ -72,7 +73,7 @@ void defineVarAttText(int vlistID2, int varID, const char *attname, const char *
}
static
void defineVarUnits(var_t *vars, int vlistID2, int varID, char *units)
void defineVarUnits(var_t *vars, int vlistID2, int varID, const char *units)
{
char units_old[CDI_MAX_NAME];
......@@ -95,240 +96,181 @@ void defineVarUnits(var_t *vars, int vlistID2, int varID, char *units)
}
static
void read_partab(pt_mode_t ptmode, int nvars, int vlistID2, var_t *vars)
void read_partab(pt_mode_t ptmode, const char *filename, int nvars, int vlistID2, var_t *vars)
{
FILE *fp = NULL;
int nml_code, nml_out_code, nml_table, nml_param, nml_out_param, nml_chunktype, nml_datatype, nml_type, nml_name, nml_out_name, nml_stdname;
int nml_longname, nml_units, nml_comment, nml_ltype, nml_delete, nml_convert, nml_missval, nml_factor;
int nml_cell_methods, nml_cell_measures;
int nml_valid_min, nml_valid_max, nml_ok_min_mean_abs, nml_ok_max_mean_abs;
int nml_exprstr;
int code, out_code, table, ltype, remove, convert;
int nml_index = 0;
int codenum, tabnum, levtype, param;
int varID, tableID;
double missval, factor;
double valid_min, valid_max, ok_min_mean_abs, ok_max_mean_abs;
char *chunktypestr = NULL;
char *datatypestr = NULL;
char *typestr = NULL;
char *paramstr = NULL;
char *out_paramstr = NULL;
char *name = NULL, *out_name = NULL, *stdname = NULL, longname[CDI_MAX_NAME] = "", units[CDI_MAX_NAME] = "";
char cell_methods[CDI_MAX_NAME] = "", cell_measures[CDI_MAX_NAME] = "";
const char *hentry[] = {"Header"};
const char *ventry[] = {"variable_entry", "parameter"};
int nventry = (int) sizeof(ventry)/sizeof(ventry[0]);
int nhentry = (int) sizeof(hentry)/sizeof(hentry[0]);
char valstr[CDI_MAX_NAME];
char varname[CDI_MAX_NAME];
char exprstr[CDI_MAX_NAME];
char comment[1024] = "";
int codenum;
//int num_pt_files = operatorArgc();
int num_pt_files = 1;
list_t *pml = cdo_parse_namelist(filename);
if ( pml == NULL ) return;
for ( int fileID = 0; fileID < num_pt_files; ++fileID )
// search for global missing value
bool lmissval = false;
double missval;
list_t *kvl = pml_get_kvl_ventry(pml, nhentry, hentry);
if ( kvl )
{
const char *partab = operatorArgv()[fileID];
if ( fileExists(partab) ) fp = fopen(partab, "r");
if ( fp == NULL ) cdoAbort("Open failed on parameter table %d file name %s!", fileID+1, partab);
nml_index = 0;
namelist_t *nml = namelistNew("parameter");
nml->dis = 0;
nml_code = namelistAdd(nml, "code", NML_INT, 0, &code, 1);
nml_out_code = namelistAdd(nml, "out_code", NML_INT, 0, &out_code, 1);
nml_table = namelistAdd(nml, "table", NML_INT, 0, &table, 1);
nml_ltype = namelistAdd(nml, "ltype", NML_INT, 0, &ltype, 1);
nml_delete = namelistAdd(nml, "delete", NML_INT, 0, &remove, 1);
nml_convert = namelistAdd(nml, "convert", NML_INT, 0, &convert, 1);
nml_missval = namelistAdd(nml, "missing_value", NML_FLT, 0, &missval, 1);
nml_factor = namelistAdd(nml, "factor", NML_FLT, 0, &factor, 1);
nml_valid_min = namelistAdd(nml, "valid_min", NML_FLT, 0, &valid_min, 1);
nml_valid_max = namelistAdd(nml, "valid_max", NML_FLT, 0, &valid_max, 1);
nml_ok_min_mean_abs = namelistAdd(nml, "ok_min_mean_abs", NML_FLT, 0, &ok_min_mean_abs, 1);
nml_ok_max_mean_abs = namelistAdd(nml, "ok_max_mean_abs", NML_FLT, 0, &ok_max_mean_abs, 1);
nml_param = namelistAdd(nml, "param", NML_WORD, 0, &paramstr, 1);
nml_out_param = namelistAdd(nml, "out_param", NML_WORD, 0, &out_paramstr, 1);
nml_chunktype = namelistAdd(nml, "chunktype", NML_WORD, 0, &chunktypestr, 1);
nml_datatype = namelistAdd(nml, "datatype", NML_WORD, 0, &datatypestr, 1);
nml_type = namelistAdd(nml, "type", NML_WORD, 0, &typestr, 1);
nml_name = namelistAdd(nml, "name", NML_WORD, 0, &name, 1);
nml_out_name = namelistAdd(nml, "out_name", NML_WORD, 0, &out_name, 1);
nml_stdname = namelistAdd(nml, "standard_name", NML_WORD, 0, &stdname, 1);
nml_longname = namelistAdd(nml, "long_name", NML_TEXT, 0, longname, sizeof(longname));
nml_units = namelistAdd(nml, "units", NML_TEXT, 0, units, sizeof(units));
nml_comment = namelistAdd(nml, "comment", NML_TEXT, 0, comment, sizeof(comment));
nml_cell_methods = namelistAdd(nml, "cell_methods", NML_TEXT, 0, cell_methods, sizeof(cell_methods));
nml_cell_measures = namelistAdd(nml, "cell_measures", NML_TEXT, 0, cell_measures, sizeof(cell_measures));
nml_exprstr = namelistAdd(nml, "expr", NML_TEXT, 0, exprstr, sizeof(exprstr));
while ( ! feof(fp) )
{
namelistReset(nml);
namelistRead(fp, nml);
if ( cdoVerbose ) namelistPrint(nml);
bool locc = false;
for ( int i = 0; i < nml->size; i++ )
if ( nml->entry[i]->occ ) { locc = true; break; }
if ( locc )
{
// namelistPrint(nml);
nml_index++;
keyValues_t *kv = kvlist_search(kvl, "missing_value");
if ( kv && kv->nvalues > 0 )
{
lmissval = true;
missval = parameter2double(kv->values[0]);
}
}
if ( ptmode == CODE_NUMBER )
{
if ( nml->entry[nml_code]->occ == 0 )
{
cdoPrint("Parameter entry %d (parameter table %d) skipped, code number not found!", nml_index, fileID+1);
continue;
}
}
else if ( ptmode == PARAMETER_ID )
{
if ( nml->entry[nml_param]->occ == 0 )
{
cdoWarning("Parameter entry %d (parameter table %d) skipped, parameter ID not found!", nml_index, fileID+1);
continue;
}
}
else if ( ptmode == VARIABLE_NAME )
{
if ( nml->entry[nml_name]->occ == 0 )
{
cdoWarning("Parameter entry %d (parameter table %d) skipped, variable name not found!", nml_index, fileID+1);
continue;
}
}
for ( int varID = 0; varID < nvars; varID++ )
{
vlistInqVarName(vlistID2, varID, varname);
for ( varID = 0; varID < nvars; varID++ )
{
if ( ptmode == CODE_NUMBER )
{
codenum = vlistInqVarCode(vlistID2, varID);
tableID = vlistInqVarTable(vlistID2, varID);
tabnum = tableInqNum(tableID);
levtype = zaxisInqLtype(vlistInqVarZaxis(vlistID2, varID));
// printf("code = %d tabnum = %d ltype = %d\n", codenum, tabnum, levtype);
if ( nml->entry[nml_table]->occ == 0 ) table = tabnum;
if ( nml->entry[nml_ltype]->occ == 0 ) ltype = levtype;
if ( codenum == code && tabnum == table && levtype == ltype ) break;
}
else if ( ptmode == PARAMETER_ID )
{
int paramid = stringToParam(paramstr);
strcpy(vars[varID].name, varname);
if ( lmissval )
{
double missval_old = vlistInqVarMissval(vlistID2, varID);
if ( ! DBL_IS_EQUAL(missval, missval_old) )
{
vars[varID].changemissval = true;
vars[varID].missval_old = missval_old;
vlistDefVarMissval(vlistID2, varID, missval);
}
}
param = vlistInqVarParam(vlistID2, varID);
levtype = zaxisInqLtype(vlistInqVarZaxis(vlistID2, varID));
list_t *kvl = NULL;
if ( ptmode == CODE_NUMBER )
{
codenum = vlistInqVarCode(vlistID2, varID);
snprintf(valstr, sizeof(valstr), "%d", codenum);
kvl = pml_search_kvl_ventry(pml, "code", valstr, nventry, ventry);
if ( kvl )
{
int tableID = vlistInqVarTable(vlistID2, varID);
int tabnum = tableInqNum(tableID);
int levtype = zaxisInqLtype(vlistInqVarZaxis(vlistID2, varID));
int table = tabnum;
int ltype = levtype;
keyValues_t *kv = kvlist_search(kvl, "table");
if ( kv && kv->nvalues == 1 ) table = parameter2int(kv->values[0]);
kv = kvlist_search(kvl, "ltype");
if ( kv && kv->nvalues == 1 ) ltype = parameter2int(kv->values[0]);
if ( !(tabnum == table && levtype == ltype) ) kvl = NULL;
}
}
else if ( ptmode == PARAMETER_ID )
{
char paramstr[32];
int param = vlistInqVarParam(vlistID2, varID);
paramToStringLong(param, paramstr, sizeof(paramstr));
snprintf(valstr, sizeof(valstr), "%s", paramstr);
kvl = pml_search_kvl_ventry(pml, "param", valstr, nventry, ventry);
if ( kvl )
{
int levtype = zaxisInqLtype(vlistInqVarZaxis(vlistID2, varID));
int ltype = levtype;
keyValues_t *kv = kvlist_search(kvl, "ltype");
if ( kv && kv->nvalues == 1 ) ltype = parameter2int(kv->values[0]);
if ( !(levtype == ltype) ) kvl = NULL;
}
}
else if ( ptmode == VARIABLE_NAME )
{
kvl = pml_search_kvl_ventry(pml, "name", varname, nventry, ventry);
}
if ( nml->entry[nml_ltype]->occ == 0 ) ltype = levtype;
if ( param == paramid && levtype == ltype ) break;
}
else if ( ptmode == VARIABLE_NAME )
{
vlistInqVarName(vlistID2, varID, varname);
if ( strcmp(varname, name) == 0 ) break;
}
}
if ( kvl )
{
int pnum, ptab, pdum;
cdiDecodeParam(vlistInqVarParam(vlistID2, varID), &pnum, &ptab, &pdum);
bool lvalid_min = false, lvalid_max = false;
if ( varID < nvars )
{
int pnum, ptab, pdum;
cdiDecodeParam(vlistInqVarParam(vlistID2, varID), &pnum, &ptab, &pdum);
if ( nml->entry[nml_code]->occ ) vlistDefVarParam(vlistID2, varID, cdiEncodeParam(code, ptab, 255));
if ( nml->entry[nml_out_code]->occ ) vlistDefVarParam(vlistID2, varID, cdiEncodeParam(out_code, ptab, 255));
if ( nml->entry[nml_name]->occ ) strcpy(vars[varID].name, name);
if ( nml->entry[nml_name]->occ ) vlistDefVarName(vlistID2, varID, name);
if ( nml->entry[nml_out_name]->occ ) vlistDefVarName(vlistID2, varID, out_name);
if ( nml->entry[nml_out_name]->occ ) defineVarAttText(vlistID2, varID, "original_name", vars[varID].name);
if ( nml->entry[nml_stdname]->occ ) vlistDefVarStdname(vlistID2, varID, stdname);
if ( nml->entry[nml_longname]->occ ) vlistDefVarLongname(vlistID2, varID, longname);
if ( nml->entry[nml_units]->occ ) defineVarUnits(vars, vlistID2, varID, units);
if ( nml->entry[nml_comment]->occ ) defineVarAttText(vlistID2, varID, "comment", comment);
if ( nml->entry[nml_cell_methods]->occ ) defineVarAttText(vlistID2, varID, "cell_methods", cell_methods);
if ( nml->entry[nml_cell_measures]->occ ) defineVarAttText(vlistID2, varID, "cell_measures", cell_measures);
if ( nml->entry[nml_delete]->occ && remove == 1 ) vars[varID].remove = true;
if ( nml->entry[nml_convert]->occ ) vars[varID].convert = convert != 0;
if ( nml->entry[nml_param]->occ ) vlistDefVarParam(vlistID2, varID, stringToParam(paramstr));
if ( nml->entry[nml_out_param]->occ ) vlistDefVarParam(vlistID2, varID, stringToParam(out_paramstr));
if ( nml->entry[nml_datatype]->occ )
{
int datatype = str2datatype(datatypestr);
if ( datatype != -1 ) vlistDefVarDatatype(vlistID2, varID, datatype);
}
if ( nml->entry[nml_type]->occ )
{
int datatype = str2datatype(typestr);
if ( datatype != -1 ) vlistDefVarDatatype(vlistID2, varID, datatype);
}
if ( nml->entry[nml_missval]->occ )
{
double missval_old = vlistInqVarMissval(vlistID2, varID);
if ( ! DBL_IS_EQUAL(missval, missval_old) )
{
if ( cdoVerbose )
cdoPrint("%s - change missval from %g to %g", name, missval_old, missval);
vars[varID].changemissval = true;
vars[varID].missval_old = missval_old;
vlistDefVarMissval(vlistID2, varID, missval);
}
}
if ( nml->entry[nml_factor]->occ )
{
vars[varID].lfactor = true;
vars[varID].factor = factor;
if ( cdoVerbose )
cdoPrint("%s - scale factor %g", name, factor);
}
if ( nml->entry[nml_valid_min]->occ && nml->entry[nml_valid_max]->occ )
{
vars[varID].checkvalid = true;
vars[varID].valid_min = valid_min;
vars[varID].valid_max = valid_max;
}
if ( nml->entry[nml_ok_min_mean_abs]->occ )
{
vars[varID].check_min_mean_abs = true;
vars[varID].ok_min_mean_abs = ok_min_mean_abs;
}
if ( nml->entry[nml_ok_max_mean_abs]->occ )
{
vars[varID].check_max_mean_abs = true;
vars[varID].ok_max_mean_abs = ok_max_mean_abs;
}
}
/*
else
{
if ( cdoVerbose )
{
if ( ptmode == CODE_NUMBER )
{
if ( nml->entry[nml_table]->occ == 0 )
cdoPrint("Code %d not found!", code);
else
cdoPrint("Code %d and table %d not found!", code, table);
}
else
cdoPrint("%s - not found!", name);
}
}
*/
}
else
break;
}
namelistDelete(nml);
for ( listNode_t *kvnode = kvl->head; kvnode; kvnode = kvnode->next )
{
keyValues_t *kv = *(keyValues_t **)kvnode->data;
const char *key = kv->key;
const char *value = (kv->nvalues == 1) ? kv->values[0] : NULL;
if ( !value ) continue;
// printf("key=%s value=%s\n", key, value);
if ( STR_IS_EQ(key, "standard_name") ) vlistDefVarStdname(vlistID2, varID, value);
else if ( STR_IS_EQ(key, "long_name") ) vlistDefVarLongname(vlistID2, varID, value);
else if ( STR_IS_EQ(key, "units") ) defineVarUnits(vars, vlistID2, varID, value);
else if ( STR_IS_EQ(key, "name") ) /*vlistDefVarName(vlistID2, varID, parameter2word(value))*/;
else if ( STR_IS_EQ(key, "out_name") )
{
vlistDefVarName(vlistID2, varID, parameter2word(value));
defineVarAttText(vlistID2, varID, "original_name", vars[varID].name);
}
else if ( STR_IS_EQ(key, "param") ) vlistDefVarParam(vlistID2, varID, stringToParam(parameter2word(value)));
else if ( STR_IS_EQ(key, "out_param") ) vlistDefVarParam(vlistID2, varID, stringToParam(parameter2word(value)));
else if ( STR_IS_EQ(key, "code") ) vlistDefVarParam(vlistID2, varID, cdiEncodeParam(parameter2int(value), ptab, 255));
else if ( STR_IS_EQ(key, "out_code") ) vlistDefVarParam(vlistID2, varID, cdiEncodeParam(parameter2int(value), ptab, 255));
else if ( STR_IS_EQ(key, "comment") ) defineVarAttText(vlistID2, varID, "comment", value);
else if ( STR_IS_EQ(key, "cell_methods") ) defineVarAttText(vlistID2, varID, "cell_methods", value);
else if ( STR_IS_EQ(key, "cell_measures") ) defineVarAttText(vlistID2, varID, "cell_measures", value);
else if ( STR_IS_EQ(key, "delete") ) vars[varID].remove = parameter2bool(value);
else if ( STR_IS_EQ(key, "convert") ) vars[varID].convert = parameter2bool(value);
else if ( STR_IS_EQ(key, "factor") )
{
vars[varID].lfactor = true;
vars[varID].factor = parameter2double(value);
if ( cdoVerbose ) cdoPrint("%s - scale factor %g", varname, vars[varID].factor);
}
else if ( STR_IS_EQ(key, "missval") )
{
double missval = parameter2double(value);
double missval_old = vlistInqVarMissval(vlistID2, varID);
if ( ! DBL_IS_EQUAL(missval, missval_old) )
{
if ( cdoVerbose ) cdoPrint("%s - change missval from %g to %g", varname, missval_old, missval);
vars[varID].changemissval = true;
vars[varID].missval_old = missval_old;
vlistDefVarMissval(vlistID2, varID, missval);
}
}
else if ( STR_IS_EQ(key, "valid_min") )
{
lvalid_min = true;
vars[varID].valid_min = parameter2double(value);
}
else if ( STR_IS_EQ(key, "valid_max") )
{
lvalid_max = true;
vars[varID].valid_max = parameter2double(value);
}
else if ( STR_IS_EQ(key, "ok_min_mean_abs") )
{
vars[varID].check_min_mean_abs = true;
vars[varID].ok_min_mean_abs = parameter2double(value);
}
else if ( STR_IS_EQ(key, "ok_max_mean_abs") )
{
vars[varID].check_max_mean_abs = true;
vars[varID].ok_max_mean_abs = parameter2double(value);
}
else if ( STR_IS_EQ(key, "datatype") || STR_IS_EQ(key, "type") )
{
int datatype = str2datatype(parameter2word(value));
if ( datatype != -1 ) vlistDefVarDatatype(vlistID2, varID, datatype);
}
else
{
if ( cdoVerbose ) cdoPrint("Attribute %s:%s not supported!", varname, key);
}
}
fclose(fp);
if ( lvalid_min && lvalid_max ) vars[varID].checkvalid = true;
}
else
{
cdoPrint("Variable %s not found!", varname);
}
}
list_destroy(pml);
}
static
......@@ -515,7 +457,8 @@ void *Setpartab(void *argument)
}
else
{
read_partab(ptmode, nvars, vlistID2, vars);
const char *filename = operatorArgv()[0];
read_partab(ptmode, filename, nvars, vlistID2, vars);
for ( int varID = 0; varID < nvars; ++varID )
if ( vars[varID].remove )
......
src/cdo_int.h
View file @ ea344391
......@@ -171,6 +171,7 @@ double cdoZaxisInqLevel(int zaxisID, int levelID);
int cdoZaxisInqLevels(int zaxisID, double *levels);
list_t *cdo_parse_cmor_file(const char *filename);
list_t *cdo_parse_namelist(const char *filename);
#ifdef __cplusplus
extern "C" {
......
Supports Markdown
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