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

cdilib.c update

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