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

cdilib.c update

parent bb7499b3
......@@ -260,8 +260,14 @@
PARAMETER (ZAXIS_SEA_BOTTOM = 14)
INTEGER ZAXIS_ATMOSPHERE
PARAMETER (ZAXIS_ATMOSPHERE = 15)
INTEGER ZAXIS_CLOUD_BASE
PARAMETER (ZAXIS_CLOUD_BASE = 16)
INTEGER ZAXIS_CLOUD_TOP
PARAMETER (ZAXIS_CLOUD_TOP = 17)
INTEGER ZAXIS_ISOTHERM_ZERO
PARAMETER (ZAXIS_ISOTHERM_ZERO = 18)
INTEGER ZAXIS_REFERENCE
PARAMETER (ZAXIS_REFERENCE = 16)
PARAMETER (ZAXIS_REFERENCE = 19)
!
! TIME types
!
......
......@@ -1916,6 +1916,27 @@ void cgribexDefLevel(int *isec1, int *isec2, double *fsec2, int zaxisID, int lev
ISEC1_Level2 = 0;
break;
}
case ZAXIS_CLOUD_BASE:
{
ISEC1_LevelType = GRIB1_LTYPE_CLOUDBASE;
ISEC1_Level1 = 0;
ISEC1_Level2 = 0;
break;
}
case ZAXIS_CLOUD_TOP:
{
ISEC1_LevelType = GRIB1_LTYPE_CLOUDTOP;
ISEC1_Level1 = 0;
ISEC1_Level2 = 0;
break;
}
case ZAXIS_ISOTHERM_ZERO:
{
ISEC1_LevelType = GRIB1_LTYPE_ISOTHERM0;
ISEC1_Level1 = 0;
ISEC1_Level2 = 0;
break;
}
case ZAXIS_TOA:
{
ISEC1_LevelType = GRIB1_LTYPE_TOA;
......
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