core
/
eccodes
mirror of https://github.com/ecmwf/eccodes.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

bufr_dump encode: emphasise setting 'unexpandedDescriptors' and 'pack' keys with comments

This commit is contained in:
Shahram Najm 2017-03-06 18:04:23 +00:00
parent e6b10874db
commit 1c2d96b07a
3 changed files with 36 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
src/grib_dumper_class_bufr_encode_C.c
View File

@ -386,12 +386,20 @@ static void dump_long(grib_dumper* d,grib_accessor* a, const char* comment)
} else {
r=compute_bufr_key_rank(h,self->keys,a->name);
if( !grib_is_missing_long(a,value) ) {
if (r!=0)
int doing_unexpandedDescriptors=0;
if (r!=0) {
fprintf(self->dumper.out," CODES_CHECK(codes_set_long(h, \"#%d#%s\", ", r,a->name);
else
} else {
if (strcmp(a->name, "unexpandedDescriptors")==0) {
doing_unexpandedDescriptors=1;
fprintf(self->dumper.out,"\n /* Create the structure of the data section */\n");
}
fprintf(self->dumper.out," CODES_CHECK(codes_set_long(h, \"%s\", ", a->name);
}
fprintf(self->dumper.out,"%ld), 0);\n",value);
if (doing_unexpandedDescriptors)
fprintf(self->dumper.out,"\n");
}
}
@ -802,7 +810,8 @@ static void header(grib_dumper* d, grib_handle* h)
static void footer(grib_dumper* d, grib_handle* h)
{
grib_dumper_bufr_encode_C *self = (grib_dumper_bufr_encode_C*)d;
fprintf(self->dumper.out,"\n CODES_CHECK(codes_set_long(h, \"pack\", 1), 0);\n");
fprintf(self->dumper.out,"\n /* Encode the keys back in the data section */\n");
fprintf(self->dumper.out," CODES_CHECK(codes_set_long(h, \"pack\", 1), 0);\n\n");
if (d->count==1)
fprintf(self->dumper.out," fout = fopen(\"outfile.bufr\", \"w\");\n");
else

15
src/grib_dumper_class_bufr_encode_fortran.c
View File

@ -393,12 +393,20 @@ static void dump_long(grib_dumper* d,grib_accessor* a, const char* comment)
} else {
r=compute_bufr_key_rank(h,self->keys,a->name);
if( !grib_is_missing_long(a,value) ) {
if (r!=0)
int doing_unexpandedDescriptors=0;
if (r!=0) {
fprintf(self->dumper.out," call codes_set(ibufr,'#%d#%s',",r,a->name);
else
} else {
if (strcmp(a->name, "unexpandedDescriptors")==0) {
doing_unexpandedDescriptors=1;
fprintf(self->dumper.out,"\n ! Create the structure of the data section\n");
}
fprintf(self->dumper.out," call codes_set(ibufr,'%s',",a->name);
}
fprintf(self->dumper.out,"%ld)\n",value);
if (doing_unexpandedDescriptors)
fprintf(self->dumper.out,"\n");
}
}
@ -807,7 +815,8 @@ static void header(grib_dumper* d, grib_handle* h)
static void footer(grib_dumper* d, grib_handle* h)
{
grib_dumper_bufr_encode_fortran *self = (grib_dumper_bufr_encode_fortran*)d;
fprintf(self->dumper.out," call codes_set(ibufr,'pack',1)\n");
fprintf(self->dumper.out,"\n ! Encode the keys back in the data section\n");
fprintf(self->dumper.out," call codes_set(ibufr,'pack',1)\n\n");
if (d->count==1)
fprintf(self->dumper.out," call codes_open_file(outfile,'outfile.bufr','w')\n");
else

15
src/grib_dumper_class_bufr_encode_python.c
View File

@ -379,12 +379,20 @@ static void dump_long(grib_dumper* d, grib_accessor* a, const char* comment)
} else {
r=compute_bufr_key_rank(h,self->keys,a->name);
if( !grib_is_missing_long(a,value) ) {
if (r!=0)
int doing_unexpandedDescriptors=0;
if (r!=0) {
fprintf(self->dumper.out," codes_set(ibufr, '#%d#%s', ",r,a->name);
else
} else {
if (strcmp(a->name, "unexpandedDescriptors")==0) {
doing_unexpandedDescriptors=1;
fprintf(self->dumper.out,"\n # Create the structure of the data section\n");
}
fprintf(self->dumper.out," codes_set(ibufr, '%s', ",a->name);
}
fprintf(self->dumper.out,"%ld)\n",value);
if (doing_unexpandedDescriptors)
fprintf(self->dumper.out,"\n");
}
}
@ -777,7 +785,8 @@ static void header(grib_dumper* d, grib_handle* h)
static void footer(grib_dumper* d, grib_handle* h)
{
grib_dumper_bufr_encode_python *self = (grib_dumper_bufr_encode_python*)d;
fprintf(self->dumper.out," codes_set(ibufr, 'pack', 1)\n");
fprintf(self->dumper.out,"\n # Encode the keys back in the data section\n");
fprintf(self->dumper.out," codes_set(ibufr, 'pack', 1)\n\n");
if (d->count==1)
fprintf(self->dumper.out," outfile = open('outfile.bufr', 'w')\n");
else