Skip to content

GitLab

Commit c28aee64 authored by Uwe Schulzweida's avatar Uwe Schulzweida
Browse files

change vlistFlagVar to vlistMergedVar

parent d741b7a9
Hide whitespace changes
Inline Side-by-side
ChangeLog
View file @ c28aee64
......@@ -4,6 +4,7 @@
* add support for GRID type LAEA
* add support of GRIB level type MEANSEA
* cdf_create: don't set chunksizehint (bug fix) [report: Luis Kornblueh]
* change vlistFlagVar to vlistMergedVar
* set default missval of INT8/16/32 to SCHAR_MIN/SHRT_MIN/INT_MIN
* move grid_lcc, grid_gme, grid_rot code to CDO
* move gridToCurvilinear and gridToCell code to CDO
......
app/cdi.c
View file @ c28aee64
......@@ -224,7 +224,8 @@ void printFiletype(int streamID, int vlistID)
for ( varID = 0; varID < nvars; varID++ )
{
if ( ztype = vlistInqVarZtype(vlistID, varID) )
ztype = vlistInqVarZtype(vlistID, varID);
if ( ztype )
{
if ( ztype == COMPRESS_SZIP )
printf(" SZIP");
......
src/cdi.h
View file @ c28aee64
......@@ -392,10 +392,10 @@ void vlistDefIndex(int vlistID, int varID, int levID, int index);
int vlistInqIndex(int vlistID, int varID, int levID);
void vlistDefFlag(int vlistID, int varID, int levID, int flag);
int vlistInqFlag(int vlistID, int varID, int levID);
int vlistFlagVar(int vlistID, int varID);
int vlistFlagLevel(int vlistID, int varID, int levelID);
int vlistFindVar(int vlistID, int fvarID);
int vlistFindLevel(int vlistID, int fvarID, int flevelID);
int vlistMergedVar(int vlistID, int varID);
int vlistMergedLevel(int vlistID, int varID, int levelID);
/* VLIST attributes */
......
src/cdiFortran.c
View file @ c28aee64
......@@ -178,8 +178,8 @@ FCALLSCSUB4 (vlistDefIndex, VLISTDEFINDEX, vlistdefindex, INT, INT, INT, INT)
FCALLSCFUN3 (INT, vlistInqIndex, VLISTINQINDEX, vlistinqindex, INT, INT, INT)
FCALLSCSUB4 (vlistDefFlag, VLISTDEFFLAG, vlistdefflag, INT, INT, INT, INT)
FCALLSCFUN3 (INT, vlistInqFlag, VLISTINQFLAG, vlistinqflag, INT, INT, INT)
FCALLSCFUN2 (INT, vlistFlagVar, VLISTFLAGVAR, vlistflagvar, INT, INT)
FCALLSCFUN3 (INT, vlistFlagLevel, VLISTFLAGLEVEL, vlistflaglevel, INT, INT, INT)
FCALLSCFUN2 (INT, vlistMergedVar, VLISTMERGEDVAR, vlistmergedvar, INT, INT)
FCALLSCFUN3 (INT, vlistMergedLevel, VLISTMERGEDLEVEL, vlistmergedlevel, INT, INT, INT)
FCALLSCFUN2 (INT, vlistFindVar, VLISTFINDVAR, vlistfindvar, INT, INT)
FCALLSCFUN3 (INT, vlistFindLevel, VLISTFINDLEVEL, vlistfindlevel, INT, INT, INT)
......
src/vlist.c
View file @ c28aee64
......@@ -615,6 +615,8 @@ void vlistCopyFlag(int vlistID2, int vlistID1)
vlistptr1->vars[varID].fvarID = varID2;
vlistptr2->vars[varID2].fvarID = varID;
vlistptr2->vars[varID2].mvarID = varID2;
if ( vlistptr1->vars[varID].name )
vlistptr2->vars[varID2].name = strdupx(vlistptr1->vars[varID].name);
......@@ -653,8 +655,8 @@ void vlistCopyFlag(int vlistID2, int vlistID1)
for ( levID = 0; levID < nlevs; levID++ )
if ( vlistptr1->vars[varID].levinfo[levID].flag )
{
vlistptr1->vars[varID].levinfo[levID].mlevelID = levID2;
vlistptr1->vars[varID].levinfo[levID].flevelID = levID2;
vlistptr1->vars[varID].levinfo[levID].mlevelID = levID2;
levels[levID2++] = zaxisInqLevel(zaxisID, levID);
}
......@@ -684,7 +686,11 @@ void vlistCopyFlag(int vlistID2, int vlistID1)
levID2 = 0;
for ( levID = 0; levID < nlevs; levID++ )
if ( vlistptr1->vars[varID].levinfo[levID].flag )
vlistptr2->vars[varID2].levinfo[levID2++].flevelID = levID;
{
vlistptr2->vars[varID2].levinfo[levID2].flevelID = levID;
vlistptr2->vars[varID2].levinfo[levID2].mlevelID = levID;
levID2++;
}
for ( index = 0; index <vlistptr2->ngrids; index++ )
if (vlistptr2->gridIDs[index] == gridID ) break;
......@@ -754,6 +760,9 @@ void vlistCat(int vlistID2, int vlistID1)
vlistptr1->vars[varID].fvarID = varID2;
vlistptr2->vars[varID2].fvarID = varID;
vlistptr1->vars[varID].mvarID = varID2;
vlistptr2->vars[varID2].mvarID = varID;
if ( vlistptr1->vars[varID].name )
vlistptr2->vars[varID2].name = strdupx(vlistptr1->vars[varID].name);
......@@ -856,6 +865,9 @@ void vlistMerge(int vlistID2, int vlistID1)
vlistptr1->vars[varID].fvarID = varID;
vlistptr2->vars[varID].fvarID = varID;
vlistptr1->vars[varID].mvarID = varID;
vlistptr2->vars[varID].mvarID = varID;
nlevs1 = vlistptr1->vars[varID].nlevs;
nlevs2 = vlistptr2->vars[varID].nlevs;
......@@ -913,7 +925,7 @@ void vlistMerge(int vlistID2, int vlistID1)
vlistptr2->zaxisIDs[index] = zaxisID;
for ( varID2 = 0; varID2 < nvars2; varID2++ )
if ( lvar[varID2] = FALSE && vlistptr2->vars[varID2].zaxisID == zaxisID2 )
if ( lvar[varID2] == FALSE && vlistptr2->vars[varID2].zaxisID == zaxisID2 )
{
vlistptr2->vars[varID2].zaxisID = zaxisID;
lvar[varID2] = TRUE;
......@@ -1062,7 +1074,7 @@ void vlistPrint(int vlistID)
{
static char func[] = "vlistPrint";
int nvars, flag, index;
int varID, fvarID, flevID, levID;
int varID, fvarID, mvarID, flevID, mlevID, levID;
int code, gridID, zaxisID, timeID, nlevs;
int dtype;
char *name, *longname, *units;
......@@ -1109,21 +1121,23 @@ void vlistPrint(int vlistID)
}
printf("\n");
printf(" varID levID fvarID flevID index dtype flag level\n");
printf(" varID levID fvarID flevID mvarID mlevID index dtype flag level\n");
for ( varID = 0; varID < nvars; varID++ )
{
nlevs = vlistptr->vars[varID].nlevs;
zaxisID = vlistptr->vars[varID].zaxisID;
fvarID = vlistptr->vars[varID].fvarID;
mvarID = vlistptr->vars[varID].mvarID;
dtype = vlistptr->vars[varID].datatype;
for ( levID = 0; levID < nlevs; levID++ )
{
flevID = vlistptr->vars[varID].levinfo[levID].flevelID;
mlevID = vlistptr->vars[varID].levinfo[levID].mlevelID;
index = vlistptr->vars[varID].levinfo[levID].index;
flag = vlistptr->vars[varID].levinfo[levID].flag;
level = zaxisInqLevel(zaxisID, levID);
printf("%6d %6d %6d %6d %6d %6d %5d %.9g\n",
varID, levID, fvarID, flevID, index, dtype, flag, level);
printf("%6d %6d %6d %6d %6d %6d %6d %6d %5d %.9g\n",
varID, levID, fvarID, flevID, mvarID, mlevID, index, dtype, flag, level);
}
}
}
......@@ -1462,6 +1476,7 @@ void vlistChangeZaxisIndex(int vlistID, int index, int zaxisID)
for ( levID = 0; levID < nlevs; levID++ )
{
vlistptr->vars[varID].levinfo[levID].flevelID = levID;
vlistptr->vars[varID].levinfo[levID].mlevelID = levID;
vlistptr->vars[varID].levinfo[levID].index = -1;
vlistptr->vars[varID].levinfo[levID].flag = FALSE;
}
......@@ -1507,6 +1522,7 @@ void vlistChangeZaxis(int vlistID, int zaxisID1, int zaxisID2)
for ( levID = 0; levID < nlevs; levID++ )
{
vlistptr->vars[varID].levinfo[levID].flevelID = levID;
vlistptr->vars[varID].levinfo[levID].mlevelID = levID;
vlistptr->vars[varID].levinfo[levID].index = -1;
vlistptr->vars[varID].levinfo[levID].flag = FALSE;
}
......
src/vlist_var.c
View file @ c28aee64
......@@ -16,8 +16,8 @@ static void vlistvarInitEntry(int vlistID, int varID)
vlistptr = vlist_to_pointer(vlistID);
vlistptr->vars[varID].mvarID = varID;
vlistptr->vars[varID].fvarID = varID;
vlistptr->vars[varID].mvarID = varID;
vlistptr->vars[varID].flag = 0;
vlistptr->vars[varID].code = 0;
vlistptr->vars[varID].timeID = CDI_UNDEFID;
......@@ -205,6 +205,7 @@ int vlistDefVar(int vlistID, int gridID, int zaxisID, int timeID)
vlistptr->vars[varID].levinfo[levID].flag = 0;
vlistptr->vars[varID].levinfo[levID].index = -1;
vlistptr->vars[varID].levinfo[levID].flevelID = levID;
vlistptr->vars[varID].levinfo[levID].mlevelID = levID;
}
vlistptr->vars[varID].nlevs = nlevs;
......@@ -1197,23 +1198,23 @@ int vlistFindLevel(int vlistID, int fvarID, int flevelID)
}
int vlistFlagVar(int vlistID, int varID)
int vlistMergedVar(int vlistID, int varID)
{
VLIST *vlistptr;
vlistptr = vlist_to_pointer(vlistID);
return (vlistptr->vars[varID].fvarID);
return (vlistptr->vars[varID].mvarID);
}
int vlistFlagLevel(int vlistID, int varID, int levelID)
int vlistMergedLevel(int vlistID, int varID, int levelID)
{
VLIST *vlistptr;
vlistptr = vlist_to_pointer(vlistID);
return (vlistptr->vars[varID].levinfo[levelID].flevelID);
return (vlistptr->vars[varID].levinfo[levelID].mlevelID);
}
......
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