added tabnum to cgribexDefParam (bug fix)

src/stream_cdf.c

@@ -6128,9 +6128,12 @@ void cdfDefInstitut(int streamID)
       if ( longname )
 	{
 	  len = strlen(longname);
-	  if ( streamptr->ncmode == 2 ) cdf_redef(fileID);
-	  cdf_put_att_text(fileID, NC_GLOBAL, "institution", len, longname);
-	  if ( streamptr->ncmode == 2 ) cdf_enddef(fileID);
+	  if ( len > 0 )
+	    {
+	      if ( streamptr->ncmode == 2 ) cdf_redef(fileID);
+	      cdf_put_att_text(fileID, NC_GLOBAL, "institution", len, longname);
+	      if ( streamptr->ncmode == 2 ) cdf_enddef(fileID);
+	    }
 	}
     }
 #endif
@@ -6157,9 +6160,12 @@ void cdfDefSource(int streamID)
       if ( longname )
 	{
 	  len = strlen(longname);
-	  if ( streamptr->ncmode == 2 ) cdf_redef(fileID);
-	  cdf_put_att_text(fileID, NC_GLOBAL, "source", len, longname);
-	  if ( streamptr->ncmode == 2 ) cdf_enddef(fileID);
+	  if ( len > 0 )
+	    {
+	      if ( streamptr->ncmode == 2 ) cdf_redef(fileID);
+	      cdf_put_att_text(fileID, NC_GLOBAL, "source", len, longname);
+	      if ( streamptr->ncmode == 2 ) cdf_enddef(fileID);
+	    }
 	}
     }
 #endif

src/stream_cgribex.c

@@ -1396,7 +1396,7 @@ void cgribexDefModel(int *isec1, int vlistID, int varID)
 }
 
 static
-void cgribexDefParam(int *isec1, int param)
+void cgribexDefParam(int *isec1, int param, int tabnum)
 {
   static char func[] = "cgribexDefParam";
   int pdis, pcat, pnum;
@@ -1412,6 +1412,8 @@ void cgribexDefParam(int *isec1, int param)
     
   if ( pnum < 0 ) pnum = -pnum;
 
+  if ( pcat == 255 ) pcat = tabnum;
+
   ISEC1_CodeTable = pcat;
   ISEC1_Parameter = pnum;
 }
@@ -2004,7 +2006,7 @@ size_t cgribexEncode(int varID, int levelID, int vlistID, int gridID, int zaxisI
 
   datatype = vlistInqVarDatatype(vlistID, varID);
 
-  cgribexDefParam(isec1, param);
+  cgribexDefParam(isec1, param, tabnum);
   cgribexDefTime(isec1, date, time, numavg, vlistInqTaxis(vlistID));
   cgribexDefGrid(isec1, isec2, gridID);
   cgribexDefLevel(isec1, isec2, fsec2, zaxisID, levelID);