Description
This example shows: how to read temperature significant levels from TEMP BUFR messages.Source code
bufr_read_temp.c
/* * Copyright 2005-2015 ECMWF. * * This software is licensed under the terms of the Apache Licence Version 2.0 * which can be obtained at http://www.apache.org/licenses/LICENSE-2.0. * * In applying this licence, ECMWF does not waive the privileges and immunities granted to it by * virtue of its status as an intergovernmental organisation nor does it submit to any jurisdiction. */ /* * C Implementation: bufr_read_temp * * Description: how to read temperature significant levels from TEMP BUFR messages. * */ #include "eccodes.h" int main(int argc,char* argv[]) { FILE* in = NULL; /* message handle. Required in all the eccodes calls acting on a message.*/ codes_handle* h=NULL; char* units= NULL; char* unitsPercent= NULL; double *sigt_pres=NULL, *sigt_geo=NULL, *sigt_t=NULL; double *sigt_td=NULL; long longVal; double doubleVal; size_t sigt_len=0, desc_len=0, len=0; int i, err=0; int cnt=0; char* infile = "../../data/bufr/temp_101.bufr"; char key_name[128]; in=fopen(infile,"r"); if (!in) { printf("ERROR: unable to open file %s\n", infile); return 1; } /* loop over the messages in the bufr file */ while ((h = codes_handle_new_from_file(NULL,in,PRODUCT_BUFR,&err)) != NULL || err != CODES_SUCCESS) { if (h == NULL) { printf("Error: unable to create handle for message %d\n",cnt); cnt++; continue; } printf("message: %d\n",cnt); /* we need to instruct ecCodes to expand the descriptors i.e. unpack the data values */ CODES_CHECK(codes_set_long(h,"unpack",1),0); /* In what follows we rely on the fact that for temperature significant levels the value of key verticalSoundingSignificance is 4 (see flag table 8001 for details). We also make use of the fact that in our BUFR message verticalSoundingSignificance is always followed by geopotential, airTemperature, dewpointTemperature, windDirection, windSpeed and pressure. */ /* Get the number of the temperature significant levels.*/ /* We find out the number of temperature significant levels by counting how many pressure values we have on these levels. */ sprintf(key_name,"/verticalSoundingSignificance=4/pressure"); CODES_CHECK(codes_get_size(h,key_name,&sigt_len),0); printf("Number of T significant levels: %ld\n",sigt_len); /* Allocate memory for the values to be read. Each parameter must have the same number of values. */ sigt_pres = malloc(sigt_len*sizeof(double)); sigt_geo = malloc(sigt_len*sizeof(double)); sigt_t = malloc(sigt_len*sizeof(double)); sigt_td = malloc(sigt_len*sizeof(double)); /* Get pressure */ sprintf(key_name,"/verticalSoundingSignificance=4/pressure"); /* get the values */ len=sigt_len; CODES_CHECK(codes_get_double_array(h,key_name,sigt_pres,&len),0); /* Get gepotential */ sprintf(key_name,"/verticalSoundingSignificance=4/geopotential"); /* check the size*/ CODES_CHECK(codes_get_size(h,key_name,&len),0); if(len != sigt_len) { printf("inconsistent number of geopotential values found!\n"); return 1; } /* get the values */ CODES_CHECK(codes_get_double_array(h,key_name,sigt_geo,&len),0); /* Get temperature */ sprintf(key_name,"/verticalSoundingSignificance=4/airTemperature"); /* check the size*/ if(len != sigt_len) { printf("inconsistent number of temperature values found!\n"); return 1; } /* get the values */ CODES_CHECK(codes_get_double_array(h,key_name,sigt_t,&len),0); /* Get dew point */ sprintf(key_name,"/verticalSoundingSignificance=4/dewpointTemperature"); /* check the size*/ if(len != sigt_len) { printf("inconsistent number of dewpoint temperature values found!\n"); return 1; } /* get the values */ CODES_CHECK(codes_get_double_array(h,key_name,sigt_td,&len),0); /* Print the values */ printf("lev pres geo t td\n"); printf("-------------------------------\n"); for(i=0; i < sigt_len; i++) { printf("%3d %6.0f %6.0f %.1f %.1f\n", i+1,sigt_pres[i],sigt_geo[i],sigt_t[i],sigt_td[i]); } /* delete handle */ codes_handle_delete(h); /*Release memory*/ free(sigt_pres); free(sigt_geo); free(sigt_t); free(sigt_td); cnt++; } fclose(in); return 0; }
bufr_read_temp.f90
! !Copyright 2005-2015 ECMWF. ! ! This software is licensed under the terms of the Apache Licence Version 2.0 !which can be obtained at http://www.apache.org/licenses/LICENSE-2.0. ! ! In applying this licence, ECMWF does not waive the privileges and immunities granted to it by ! virtue of its status as an intergovernmental organisation nor does it submit to any jurisdiction. ! ! ! FOTRAN 90 Implementation: bufr_read_temp ! ! Description: how to read temperature significant levels from TEMP BUFR messages. ! ! program bufr_print_data use eccodes implicit none integer :: ifile integer :: iret integer :: ibufr integer :: i, count=0 integer(kind=4) :: numSigT integer(kind=4) :: num real(kind=8), dimension(:), allocatable :: presVal,geoVal,tVal ,tdVal character(len=128) :: keyName call codes_open_file(ifile,'../../data/bufr/temp_101.bufr','r') ! the first bufr message is loaded from file ! ibufr is the bufr id to be used in subsequent calls call codes_bufr_new_from_file(ifile,ibufr,iret) do while (iret/=CODES_END_OF_FILE) write(*,*) 'message: ',count ! we need to instruct ecCodes to expand all the descriptors ! i.e. unpack the data values call codes_set(ibufr,"unpack",1); ! In what follows we rely on the fact that for ! temperature significant levels the value of key ! verticalSoundingSignificance is 4 (see flag table 8001 for details). ! We also make use of the fact that in our BUFR message ! verticalSoundingSignificance is always followed by geopotential, ! airTemperature, dewpointTemperature, ! windDirection, windSpeed and pressure. ! ---- Get the number of the temperature significant levels ---- ! We find out the number of temperature significant levels by ! counting how many pressure values we have on these levels. keyName="/verticalSoundingSignificance=4/pressure" call codes_get_size(ibufr,keyName,numSigT); write(*,*) "Number of temperature significant levels:", numSigT ! Allocate memory for the values to be read. Each ! parameter must have the same number of values. allocate(presVal(numSigT), stat=iret); allocate(geoVal(numSigT), stat=iret); allocate(tVal(numSigT), stat=iret); allocate(tdVal(numSigT), stat=iret); ! ---- Get pressure --------------------------- keyName="/verticalSoundingSignificance=4/pressure" ! get the value call codes_get(ibufr,keyName,presVal); ! ---- Get gepotential ------------------------ keyName="/verticalSoundingSignificance=4/geopotential" !Check the size call codes_get_size(ibufr,keyName,num) if (num /= numSigT) then write(*,*) "inconsistent number of geopotential values found!" call exit(1) end if ! get the values call codes_get(ibufr,keyName,geoVal) ! ---- Get temperature -------------------------------- keyName="/verticalSoundingSignificance=4/airTemperature" !Check the size call codes_get_size(ibufr,keyName,num) if (num /= numSigT) then write(*,*) "inconsistent number of temperature values found!" call exit(1) end if ! get the values call codes_get(ibufr,keyName,tVal) ! ---- Get dew point temperature ----------------------- keyName="/verticalSoundingSignificance=4/dewpointTemperature" !Check the size call codes_get_size(ibufr,keyName,num) if (num /= numSigT) then write(*,*) "inconsistent number of dew point temperature values found!" call exit(1) end if ! get the values call codes_get(ibufr,keyName,tdVal) ! ---- Print the values -------------------------------- write(*,*) 'level pres geo t td' write(*,*) "--------------------------------------" do i=1,numSigT write(*,*) i,presVal(i),geoVal(i),tVal(i),tdVal(i) end do ! free arrays deallocate(presVal) deallocate(geoVal) deallocate(tVal) deallocate(tdVal) ! release the bufr message call codes_release(ibufr) ! load the next bufr message call codes_bufr_new_from_file(ifile,ibufr,iret) count=count+1 end do ! close file call codes_close_file(ifile) end program bufr_print_data
bufr_read_temp.py
# Copyright 2005-2015 ECMWF. # # This software is licensed under the terms of the Apache Licence Version 2.0 # which can be obtained at http://www.apache.org/licenses/LICENSE-2.0. # # In applying this licence, ECMWF does not waive the privileges and immunities granted to it by # virtue of its status as an intergovernmental organisation nor does it submit to any jurisdiction. # # Python implementation: bufr_read_temp # # Description: how to read temperature significant levels from TEMP BUFR messages. # # import traceback import sys from eccodes import * INPUT='../../data/bufr/temp_101.bufr' VERBOSE=1 # verbose error reporting def example(): # open bufr file f = open(INPUT) cnt=0 # loop for the messages in the file while 1: # get handle for message gid = codes_bufr_new_from_file(f) if gid is None: break print "message: %s" % cnt # we need to instruct ecCodes to expand all the descriptors # i.e. unpack the data values codes_set(gid,'unpack',1); # In what follows we rely on the fact that for # temperature significant levels the value of key # verticalSoundingSignificance is 4 (see flag table 8001 for details). # We also make use of the fact that in our BUFR message # verticalSoundingSignificance is always followed by geopotential, # airTemperature, dewpointTemperature, # windDirection, windSpeed and pressure. # Get the number of the temperature significant levels. # We find out the number of temperature significant levels by # counting how many pressure values we have on these levels. numSigT=codes_get_size(gid,"/verticalSoundingSignificance=4/pressure") print ' Number of temperature significant levels %ld' % (numSigT) # Get pressure sigt_pres=codes_get_array(gid,"/verticalSoundingSignificance=4/pressure") # Get gepotential sigt_geo=codes_get_array(gid,"/verticalSoundingSignificance=4/geopotential") if len(sigt_geo) != sigTNum : print "inconstitent number of geopotential values found!" return 1 # Get temperature sigt_t=codes_get_array(gid,"/verticalSoundingSignificance=4/airTemperature") if len(sigt_t) != sigTNum : print "inconstitent number of temprature values found!" return 1 # Get dew point sigt_td=codes_get_array(gid,"/verticalSoundingSignificance=4/dewpointTemperature") if len(sigt_td) != sigTNum : print "inconstitent number of dewpoint temperature values found!" return 1 # Print the values print "lev pres geo t td" print "-------------------------------" for i in xrange(sigTNum): print "%3d %6.0f %6.0f %.1f %.1f" % (i+1,sigt_pres[i],sigt_geo[i],sigt_t[i],sigt_td[i]) cnt+=1 # delete handle codes_release(gid) # close the file f.close() def main(): try: example() except CodesInternalError,err: if VERBOSE: traceback.print_exc(file=sys.stderr) else: print >>sys.stderr,err.msg return 1 if __name__ == "__main__": sys.exit(main())